home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 September - Disc 1 / PCNET_CD_2006_09.iso / linux / puppy-barebones-2.01r2.iso / pup_201.sfs / usr / sbin / remotedesktopclient < prev    next >
Encoding:
Tcl/Tk script  |  2005-04-16  |  14.6 KB  |  505 lines
  1. #!/usr/bin/wish
  2. set rdesktop "/usr/local/bin/rdesktop"
  3.  
  4. #BK path...
  5. source /usr/lib/combobox-2.3/combobox.tcl
  6. package require combobox 2.3
  7. catch {namespace import combobox::*}
  8.  
  9. namespace eval notebook {}
  10.  
  11. proc notebook::create {w args} {
  12.   variable Notebook
  13.   set Notebook($w,width) 420
  14.   set Notebook($w,height) 300
  15.   set Notebook($w,pages) {}
  16.   set Notebook($w,top) 0
  17.   set Notebook($w,pad) 5
  18.   set Notebook($w,fg,on) black
  19.   set Notebook($w,fg,off) grey50
  20.   set Notebook($w,command) {}
  21.   set Notebook($w,ypad) 20   
  22.   set Notebook($w,fidx) -1
  23.   set Notebook($w,frames) {}
  24.   canvas $w -bd 0 -highlightthickness 0 -takefocus 0
  25.   set Notebook($w,bg) [$w cget -bg]
  26.   bind $w <1> "notebook::click $w %x %y"
  27.   bind $w <Configure> "notebook::scheduleExpand $w"
  28.   eval notebook::config $w $args
  29. }
  30.  
  31. proc notebook::WidName {w n} {
  32.   variable Notebook
  33.   set l [llength $Notebook($w,frames)]
  34.   if {$n >= $l} {
  35.     for {set i $l} {$i <= $n} {incr i} {
  36.       lappend Notebook($w,frames) [incr Notebook($w,fidx)]
  37.     }
  38.   }
  39.   return $w.f[lindex $Notebook($w,frames) $n]
  40. }
  41.  
  42. proc notebook::delete {w n} {
  43.   variable Notebook
  44.   set l [llength $Notebook($w,frames)]
  45.   if {$n < $l} {
  46.     set wn [WidName $w $n]
  47.     set Notebook($w,frames) [lreplace $Notebook($w,frames) $n $n]
  48.     set Notebook($w,pages) [lreplace $Notebook($w,pages) $n $n]
  49.     set Notebook($w,xlate) [lreplace $Notebook($w,xlate) $n $n]
  50.     destroy $wn
  51.   }
  52.   eval notebook::config $w
  53. }
  54.  
  55.  
  56.  
  57. proc notebook::config {w args} {
  58.   variable Notebook
  59.   foreach {tag value} $args {
  60.     switch -- $tag {
  61.     -width {
  62.         set Notebook($w,width) $value
  63.       }
  64.     -height {
  65.         set Notebook($w,height) $value
  66.       }
  67.     -pages {
  68.         set Notebook($w,pages) $value
  69.         set Notebook($w,xlate) $value
  70.       }
  71.     -xlate {
  72.         set Notebook($w,xlate) $value
  73.       }
  74.     -pad {
  75.         set Notebook($w,pad) $value
  76.       }
  77.     -bg {
  78.         set Notebook($w,bg) $value
  79.       }
  80.     -fg {
  81.         set Notebook($w,fg,on) $value
  82.       }
  83.     -command {
  84.         set Notebook($w,command) $value
  85.       }
  86.     -disabledforeground {
  87.         set Notebook($w,fg,off) $value
  88.       }
  89.     }
  90.   }
  91.   #
  92.   # After getting new configuration values, reconstruct the widget
  93.   #
  94.   $w delete all
  95.   set rise 3
  96.   set Notebook($w,x1) $Notebook($w,pad)
  97.   set Notebook($w,x2) [expr $Notebook($w,x1)+2]
  98.   set Notebook($w,x3) [expr $Notebook($w,x2)+$Notebook($w,width)]
  99.   set Notebook($w,x4) [expr $Notebook($w,x3)+2]
  100.   set Notebook($w,y1) [expr $Notebook($w,pad)+2]
  101.   set Notebook($w,y2) [expr $Notebook($w,y1)+2]
  102.   set Notebook($w,y5) [expr $Notebook($w,y1)+$Notebook($w,ypad)]
  103.   set Notebook($w,y6) [expr $Notebook($w,y5)+2]
  104.   set Notebook($w,y3) [expr $Notebook($w,y6)+$Notebook($w,height)]
  105.   set Notebook($w,y4) [expr $Notebook($w,y3)+2]
  106.   set x $Notebook($w,x1)
  107.   set cnt 0   
  108.   set y7 [expr $Notebook($w,y1)+$rise] 
  109.   foreach p $Notebook($w,pages) xl $Notebook($w,xlate) {
  110.     set Notebook($w,p$cnt,x5) $x
  111.     set id [$w create text 0 0 -text $xl -anchor nw -tags "p$cnt t$cnt"]
  112.     set bbox [$w bbox $id]
  113.     set width [lindex $bbox 2]
  114.     $w move $id [expr $x+10] $y7
  115.     $w create line $x $Notebook($w,y5) $x $Notebook($w,y2) [expr $x+2]\
  116.       $Notebook($w,y1) [expr $x+$width+16] $Notebook($w,y1) -width 2\
  117.       -fill white -tags p$cnt
  118.     $w create line [expr $x+$width+16] $Notebook($w,y1) [expr $x+$width+18]\
  119.       $Notebook($w,y2) [expr $x+$width+18] $Notebook($w,y5) -width 2\
  120.       -fill black -tags p$cnt
  121.     set x [expr $x+$width+20]
  122.     set Notebook($w,p$cnt,x6) [expr $x-2]
  123.     set wn [WidName $w $cnt]
  124.     if {![winfo exists $wn]} {
  125.       ::frame $wn -bd 0
  126.     }
  127.     $wn config -bg $Notebook($w,bg)
  128.     place $wn -x $Notebook($w,x2) -y $Notebook($w,y6)\
  129.       -width $Notebook($w,width) -height $Notebook($w,height)
  130.     incr cnt
  131.   }
  132.   $w create line $Notebook($w,x1) [expr $Notebook($w,y5)-2] $Notebook($w,x1)\
  133.     $Notebook($w,y3) -width 2 -fill white
  134.   $w create line $Notebook($w,x1) $Notebook($w,y3) $Notebook($w,x2)\
  135.     $Notebook($w,y4) $Notebook($w,x3) $Notebook($w,y4) $Notebook($w,x4)\
  136.     $Notebook($w,y3) $Notebook($w,x4) $Notebook($w,y6) $Notebook($w,x3)\
  137.     $Notebook($w,y5) -width 2 -fill black
  138.   $w config -width [expr $Notebook($w,x4)+$Notebook($w,pad)] -height\
  139.     [expr $Notebook($w,y4)+$Notebook($w,pad)] -bg $Notebook($w,bg)
  140.   set top $Notebook($w,top)
  141.   set Notebook($w,top) -1
  142.   notebook::raise.page $w $top
  143. }
  144.  
  145. #
  146. # This routine is called whenever the mouse-button is pressed over
  147. # the notebook.  It determines if any page should be raised and raises
  148. # that page.
  149. #
  150. proc notebook::click {w x y} {
  151.   variable Notebook
  152.   if {$y<$Notebook($w,y1) || $y>$Notebook($w,y6)} return
  153.   set N [llength $Notebook($w,pages)]
  154.   for {set i 0} {$i<$N} {incr i} {
  155.     if {$x>=$Notebook($w,p$i,x5) && $x<=$Notebook($w,p$i,x6)} {
  156.       notebook::raise.page $w $i
  157.       break
  158.     }
  159.   }
  160. }
  161.  
  162. #
  163. # For internal use only.  This procedure raised the n-th page of
  164. # the notebook
  165. #
  166. proc notebook::raise.page {w n} {
  167.   variable Notebook
  168.   if {$n<0 || $n>=[llength $Notebook($w,pages)]} return
  169.   set top $Notebook($w,top)
  170.   if {$top>=0 && $top<[llength $Notebook($w,pages)]} {
  171.     $w move p$top 0 2
  172.   }
  173.   $w move p$n 0 -2
  174.   $w delete topline
  175.   if {$n>0} {
  176.     $w create line $Notebook($w,x1) $Notebook($w,y6) $Notebook($w,x2)\
  177.       $Notebook($w,y5) $Notebook($w,p$n,x5) $Notebook($w,y5)\
  178.       $Notebook($w,p$n,x5) [expr $Notebook($w,y5)-2] -width 2 -fill white\
  179.       -tags topline
  180.   }
  181.   $w create line $Notebook($w,p$n,x6) [expr $Notebook($w,y5)-2]\
  182.     $Notebook($w,p$n,x6) $Notebook($w,y5) -width 2 -fill white -tags topline
  183.   $w create line $Notebook($w,p$n,x6) $Notebook($w,y5) $Notebook($w,x3)\
  184.     $Notebook($w,y5) -width 2 -fill white -tags topline
  185.   set Notebook($w,top) $n
  186.   if {$Notebook($w,command) != {}} {
  187.     eval uplevel #0 "$Notebook($w,command) $w $n 1"
  188.   }
  189.   ::raise [WidName $w $n]
  190. }
  191.  
  192. #
  193. # Change the page-specific configuration options for the notebook
  194. #
  195. proc notebook::pageconfig {w name args} {
  196.   variable Notebook  
  197.   set i [lsearch $Notebook($w,pages) $name]
  198.   if {$i<0} return
  199.   foreach {tag value} $args {
  200.     switch -- $tag {
  201.     -state {
  202.         if {"$value" == "disabled"} {
  203.           $w itemconfig t$i -fg $Notebook($w,fg,off)
  204.         } {
  205.           $w itemconfig t$i -fg $Notebook($w,fg,on)
  206.         }
  207.       }
  208.     -onexit {
  209.         set Notebook($w,p$i,onexit) $value
  210.       }
  211.     }
  212.   }
  213. } 
  214.  
  215. #
  216. # This procedure raises a notebook page given its name.  But first
  217. # we check the "onexit" procedure for the current page (if any) and
  218. # if it returns false, we don't allow the raise to proceed.
  219. #
  220. proc notebook::raise {w name} {
  221.   variable Notebook  
  222.   set i [lsearch $Notebook($w,pages) $name]
  223.   if {$i<0} return
  224.   if {[info exists Notebook($w,p$i,onexit)]} {
  225.     set onexit $Notebook($w,p$i,onexit)
  226.     if {"$onexit" != "" && [eval uplevel #0 $onexit]!=0} {
  227.       notebook::raise.page $w $i
  228.     }
  229.   } {
  230.     notebook::raise.page $w $i
  231.   }
  232. }
  233.     
  234. #
  235. # Return the frame associated with a given page of the notebook.
  236. #
  237. proc notebook::frame {w name} {
  238.   variable Notebook
  239.   set i [lsearch $Notebook($w,pages) $name]
  240.   if {$i>=0} {
  241.     return [WidName $w $i]
  242.   } {
  243.     return {}
  244.   }
  245. }
  246.  
  247. #
  248. # Try to resize the notebook to the next time we become idle.
  249. #
  250. proc notebook::scheduleExpand w {
  251.   variable Notebook
  252.   if {[info exists Notebook($w,expand)]} return
  253.   set Notebook($w,expand) 1
  254.   after idle "notebook::expand $w"
  255. }
  256.    
  257. #
  258. # Resize the notebook to fit inside its containing widget.
  259. #
  260. proc notebook::expand w {
  261.   variable Notebook
  262.   set wi [expr [winfo width $w]-($Notebook($w,pad)*2+4)]
  263.   set hi [expr [winfo height $w]-($Notebook($w,pad)*2+6+$Notebook($w,ypad))]
  264.   notebook::config $w -width $wi -height $hi
  265.   catch {unset Notebook($w,expand)}
  266. }
  267.  
  268.  
  269.  
  270. proc screen {} {
  271.   wm title . "Remote Desktop Client"
  272. #BK path...
  273.   set myimage [image create photo -file /usr/local/lib/X11/pixmaps/rdp.gif]
  274.   frame .waytop
  275.   pack .waytop -fill x
  276.   label .waytop.imagedisplayer -image $myimage
  277.   pack .waytop.imagedisplayer -side left -padx 0p -pady 0 -anchor n
  278.  
  279.   frame .top -borderwidth 3
  280.   pack  .top -fill x
  281.   label .top.lblhostname -text "Hostname "
  282.   entry .top.hostname  -textvariable hostname
  283.   pack  .top.lblhostname .top.hostname -side left -padx 0p -pady 0 -anchor n
  284.   focus .top.hostname
  285.  
  286.  
  287. notebook::create .n -pages {General Resources Display Programs Experience About} -pad 20
  288. pack .n -fill both -expand 1
  289.  
  290.  set w [notebook::frame .n General]
  291.     frame $w.info
  292.     pack $w.info -fill x
  293.     label  $w.info.infolbl -text "Please type optional information"   
  294.     pack $w.info.infolbl -side left -padx 0 -pady 0 -anchor n
  295.  
  296.  
  297.     frame $w.usernamefrm
  298.     pack $w.usernamefrm -fill x
  299.     label  $w.usernamefrm.lblusername -text "Username "     
  300.     entry  $w.usernamefrm.username  -textvariable username
  301.     pack $w.usernamefrm.lblusername $w.usernamefrm.username -side left -padx 0 -pady 0 -anchor n
  302.  
  303.     frame $w.password
  304.     pack $w.password -fill x
  305.     label $w.password.lblpassword -text "Password "
  306.     entry  $w.password.password  -textvariable password -show *
  307.     pack $w.password.lblpassword  $w.password.password -side left -padx 0 -pady 0 -anchor n
  308.     
  309.     frame $w.domain
  310.     pack $w.domain -fill x  
  311.     label $w.domain.lbldomain -text "Domain "
  312.     entry  $w.domain.domain  -textvariable domain
  313.     pack $w.domain.lbldomain $w.domain.domain -side left -padx 0 -pady 0 -anchor n
  314.  
  315.  
  316.  set w [notebook::frame .n Resources]
  317.   frame $w.midlbl
  318.   pack $w.midlbl -fill x
  319.   label $w.midlbl.lbl -text "Local Resources "
  320.   pack $w.midlbl.lbl -side left -padx 0p -pady 0 -anchor n
  321.   checkbutton $w.disk -text "Disk Drives" -variable disk
  322.   checkbutton $w.com -text "Com Ports" -variable com
  323.   checkbutton $w.sound -text "Sound" -variable sound
  324.   pack $w.disk $w.com $w.sound -side left -padx 0p -pady 0 -anchor n
  325.  
  326.  set w [notebook::frame .n Display]
  327.   frame $w.displayslbl
  328.   pack $w.displayslbl -fill x  
  329.   label $w.displayslbl.lbldisp -text "Choose the size of your remote desktop.\nClick the drop down and select the resoltion." 
  330.   pack $w.displayslbl.lbldisp  -side left -padx 0p -pady 0 -anchor n
  331.  
  332.   frame $w.displays
  333.   pack $w.displays -fill x
  334.   combobox $w.displays.displayList -borderwidth 1 -highlightthickness 1 -maxheight 0 -width 10 -editable false -textvariable mode
  335.   $w.displays.displayList list insert end "640x480"
  336.   $w.displays.displayList list insert end "800x600"
  337.   $w.displays.displayList list insert end "1024x768"
  338.   $w.displays.displayList list insert end "Full Screen"
  339.   pack $w.displays.displayList -side left -padx 0 -pady 0 -anchor n
  340.  
  341.   frame $w.colorslbl
  342.   pack $w.colorslbl -fill x
  343.   label $w.colorslbl.lbldisp -text "\n\n\n\n\n\n\n\nColors"
  344.   pack $w.colorslbl.lbldisp  -side left -padx 0 -pady 0 -anchor n
  345.  
  346.   frame $w.colors
  347.   pack $w.colors -fill x
  348.   combobox $w.colors.cmb -borderwidth 1 -highlightthickness 1 -maxheight 0 -width 10 -editable false -textvariable col
  349.   $w.colors.cmb list insert end "256"
  350.   $w.colors.cmb list insert end "65,000"
  351.   $w.colors.cmb list insert end "Millions"
  352.   pack $w.colors.cmb -side left -padx 0p -pady 0 -anchor n
  353.  
  354. set w [notebook::frame .n Programs]
  355.   frame $w.programlbl
  356.   pack $w.programlbl -fill x
  357.   label $w.programlbl.programlbl -text "Please enter the Path\nand the name of the program to use\ni.e. c:\\windows\\notepad.exe"
  358.   pack $w.programlbl.programlbl -side left -padx 0p -pady 0 -anchor n
  359.  
  360.  
  361.   frame $w.program
  362.   pack $w.program -fill x
  363.   entry $w.program.programname -textvariable program -width 40
  364.   pack $w.program.programname -side left -padx 0p -pady 0 -anchor n
  365.  
  366.  
  367. set w [notebook::frame .n Experience]
  368.  
  369.   frame $w.experiencelbl
  370.   pack $w.experiencelbl -fill x
  371.   label $w.experiencelbl.lbldisp -text "Experience"
  372.   pack $w.experiencelbl.lbldisp  -side left -padx 0p -pady 0 -anchor n
  373.  
  374.  
  375.   frame $w.experience
  376.   pack $w.experience -fill x
  377.   radiobutton $w.experience.broadband -text "Broadband" -variable exp -value b -command clickp
  378.   radiobutton $w.experience.modem -text "Modem" -variable exp -value m -command clickp
  379.   radiobutton $w.experience.lan -text "Lan" -variable exp -value l -command clickp
  380.   pack $w.experience.broadband $w.experience.modem $w.experience.lan -side left -padx 0p -pady 0 -anchor n 
  381.   
  382.   frame $w.mexperience
  383.   pack $w.mexperience -fill x
  384.   checkbutton $w.mexperience.caching -text "Bitmap Caching" -variable p
  385.   pack $w.mexperience.caching -side left -padx 0p -pady 0 -anchor n
  386.  
  387. set w [notebook::frame .n About]
  388.   frame $w.about
  389.   pack $w.about -fill x
  390.   label $w.about.info -text "Thinix Remote Desktop Client\nDesigned and Written By John Hass john@thinix.com\nWritten in pure tcl\nComboboxes were designed by Bryan Douglas Oakley\nhttp://www.purl.org/net/oakley/tcl/combobox/index.html\nmailto:oakley@bardo.clearlight.com"
  391.   pack $w.about.info -side top -padx 0p -pady 0 -anchor n
  392.  
  393.   frame .bottom -borderwidth 10
  394.   pack .bottom -fill x
  395.   button .bottom.submit -text "Connect" -command init
  396.   pack .bottom.submit -side bottom -fill y
  397. }
  398.  
  399. proc init { } {
  400. global mode action gloabl p exp col disk com sound hostname global colors username password domain
  401. global res persistant experience colors dsk cm snd rdesktop user pass colors dmn
  402.  
  403. if {$hostname != ""} {
  404.     if {$domain != ""} {
  405.         set dmn  "-d $domain"
  406.     } else {
  407.         set dmn ""
  408.     }
  409.  
  410.  
  411.     if {$username != ""} {
  412.      set user  "-u $username"
  413.     } else {
  414.      set user ""
  415.     }
  416.     if {$password != ""} {
  417.         set pass  "-p $password"
  418.     } else {
  419.         set pass ""
  420.     }
  421.  
  422.     if {$disk == "1"} {
  423.     set dsk "-r disk:local=/"
  424.     } else {
  425.     set dsk ""
  426.     }
  427.     if {$com == "1"} {
  428.     set cm "-r com1:COM1=/dev/ttyS0"
  429.     } else {
  430.     set cm ""
  431.     }
  432.     if {$sound == "1"} {
  433.     set snd "-r sound"
  434.     } else {
  435.     set snd ""
  436.     }
  437.  
  438.     if {$col == "256"} {
  439.     set colors "-a 8"
  440.     } elseif {$col == "65,000"} {
  441.     set colors "-a 16"
  442.     } elseif {$col == "Millions"} {
  443.     set colors "-a 24"
  444.     } else {
  445.     set colors ""
  446.     }
  447.     
  448.     if {$exp == "b"} {
  449.     set experience "-x b"
  450.     } elseif {$exp == "m"} {
  451.     set experience "-x m"
  452.     } elseif {$exp == "l"} {
  453.     set experience "-x l"
  454.     } else {
  455.     set experience ""
  456.     }
  457.     
  458.     if {$p == "1"} {
  459.         set persistant "-P"
  460.     } else {
  461.     set persistant ""
  462.     }
  463.  
  464.     if {$mode == "800x600"} {
  465.     set res "-g$mode"
  466.     } elseif {$mode == "640x480"} {
  467.     set res "-g$mode"
  468.     } elseif {$mode == "1024x768"} {
  469.         set res "-g$mode"
  470.     } elseif {$mode == "Full Screen"} {
  471.         set res "-f"
  472.     } else {
  473.     set res "-g640x480"
  474.     }
  475. #puts  "$rdesktop $user $pass $dmn $persistant $res $experience $colors $dsk $cm $snd $hostname"
  476. open "| $rdesktop $user $pass $dmn $persistant $res $experience $colors $dsk $cm $snd $hostname"
  477. exit
  478. } else {
  479. tk_messageBox -message "You Must Enter a Hostname" -type ok -icon error
  480. }
  481.  
  482. }
  483.  
  484.  
  485. proc clickp { } {
  486. global p
  487. set p "1"
  488. }
  489.  
  490. proc quit { } {
  491. set answer [tk_messageBox -message "Really quit?" -type yesno -icon question]
  492. switch -- $answer {
  493.     yes exit
  494.     no
  495. }
  496. }
  497. proc colorchange { } {
  498. global change
  499. puts "Change"
  500. }
  501.  
  502.  
  503. screen
  504.  
  505.