(old)Puppy Linux Discussion Forum

Code: Select all

#!/bin/sh
#Barry Kauler 2008, for Puppy Linux. Totally free script.
#130118 rodin.s: adding gettext
#131217 zigbert: gui (gtkdialog) improvements.


export TEXTDOMAIN=rp_pppoe #pppoe
export TEXTDOMAINDIR=/usr/share/locale
export OUTPUT_CHARSET=UTF-8
eval_gettext () {
  local myMESSAGE=$(gettext "$1")
  eval echo \"$myMESSAGE\"
}
export LANGORG=$LANG

export PPPOE_gui='
<window title="PPPOE" icon-name="gtk-network">
<vbox space-expand="true" space-fill="true">
  '"`/usr/lib/gtkdialog/xml_info fixed internet_connect.svg 60 "<b>PPPOE</b>" "$(gettext 'Roaring Penguin client')"`"'
  <vbox space-expand="true" space-fill="true">
    <frame> 
      <hbox>
        <text><label>"'$(gettext 'Initial configuration')' "</label></text>
        <button>
          '"`/usr/lib/gtkdialog/xml_button-icon preferences.svg big`"'
          <action>rxvt -e pppoe-setup &</action>
        </button>
      </hbox>
      <hbox>
        <text><label>"'$(gettext 'Connect now')' "</label></text>
        <button>
          '"`/usr/lib/gtkdialog/xml_button-icon internet_connect.svg big`"'
          <action>rxvt -e pppoe-start_shell &</action>
        </button>
      </hbox>
      <hbox>
        <text><label>"'$(gettext 'Disconnect now')' "</label></text>
        <button>
          '"`/usr/lib/gtkdialog/xml_button-icon internet_connect_no.svg big`"'
          <action>rxvt -e pppoe-stop_shell &</action>
        </button>
      </hbox>
      <hbox>
        <text><label>"'$(gettext 'View status')' "</label></text>
        <button>
          '"`/usr/lib/gtkdialog/xml_button-icon info.svg big`"'
          <action>rxvt -e pppoe-status_shell &</action>
        </button>
      </hbox>
    </frame>
  </vbox>
  <hbox space-expand="false" space-fill="false">
    <button>'"`/usr/lib/gtkdialog/xml_button-icon quit`"'<label>'$(gettext 'Quit')'</label></button>
  </hbox>
</vbox>
</window>
'

. /usr/lib/gtkdialog/xml_info gtk #build bg_pixmap for gtk-theme
gtkdialog -p PPPOE_gui

###END###