home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxtk12.zip / demo / spectcl / mdlog.ui.tcl < prev    next >
Text File  |  2000-04-23  |  3KB  |  147 lines

  1. #! /bin/sh
  2. # the next line restarts using wish \
  3. exec wish "$0" "$@"
  4.  
  5. # interface generated by SpecTcl version 1.1 from /home/ocon/rexxtk/th/demo/mdlog.ui
  6. #   root     is the parent window for this user interface
  7.  
  8. proc mdlog_ui {root args} {
  9.  
  10.     # this treats "." as a special case
  11.  
  12.     if {$root == "."} {
  13.         set base ""
  14.     } else {
  15.         set base $root
  16.     }
  17.     
  18.     frame $base.frame#2 \
  19.         -borderwidth 2 \
  20.         -relief ridge
  21.  
  22.     scale $base.scale#1 \
  23.         -orient v \
  24.         -variable scale
  25.  
  26.     label $base.box
  27.  
  28.     radiobutton $base.radiobutton#8 \
  29.         -text {Section One} \
  30.         -value one \
  31.         -variable radio
  32.  
  33.     radiobutton $base.radiobutton#5 \
  34.         -text {Section Two} \
  35.         -value two \
  36.         -variable radio
  37.  
  38.     radiobutton $base.radiobutton#7 \
  39.         -text {After Main} \
  40.         -value after \
  41.         -variable radio
  42.  
  43.     radiobutton $base.radiobutton#6 \
  44.         -text {Final Bout} \
  45.         -value final \
  46.         -variable radio
  47.  
  48.     button $base.button#6 \
  49.         -command {setRexxtk up} \
  50.         -text Up
  51.     catch {
  52.         $base.button#6 configure \
  53.             -font -*-helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
  54.     }
  55.  
  56.     button $base.button#7 \
  57.         -command {setRexxtk down} \
  58.         -text Down
  59.     catch {
  60.         $base.button#7 configure \
  61.             -font -*-helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
  62.     }
  63.  
  64.     label $base.label#4 \
  65.         -text Size
  66.  
  67.     button $base.button#8 \
  68.         -command {setRexxtk around} \
  69.         -text Around
  70.     catch {
  71.         $base.button#8 configure \
  72.             -font -*-helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
  73.     }
  74.  
  75.     label $base.prompt \
  76.         -justify left \
  77.         -relief sunken
  78.  
  79.  
  80.     # Geometry management
  81.  
  82.     grid $base.frame#2 -in $root    -row 1 -column 3 
  83.     grid $base.scale#1 -in $root    -row 1 -column 1  \
  84.         -rowspan 3 \
  85.         -sticky ns
  86.     grid $base.box -in $root    -row 1 -column 2  \
  87.         -rowspan 4 \
  88.         -sticky nesw
  89.     grid $base.radiobutton#8 -in $base.frame#2    -row 1 -column 1  \
  90.         -sticky w
  91.     grid $base.radiobutton#5 -in $base.frame#2    -row 2 -column 1  \
  92.         -sticky w
  93.     grid $base.radiobutton#7 -in $base.frame#2    -row 3 -column 1  \
  94.         -sticky w
  95.     grid $base.radiobutton#6 -in $base.frame#2    -row 4 -column 1  \
  96.         -sticky w
  97.     grid $base.button#6 -in $root    -row 2 -column 3  \
  98.         -padx 10 \
  99.         -sticky ew
  100.     grid $base.button#7 -in $root    -row 3 -column 3  \
  101.         -padx 10 \
  102.         -sticky ew
  103.     grid $base.label#4 -in $root    -row 4 -column 1 
  104.     grid $base.button#8 -in $root    -row 4 -column 3  \
  105.         -padx 10 \
  106.         -sticky ew
  107.     grid $base.prompt -in $root    -row 5 -column 1  \
  108.         -columnspan 3 \
  109.         -sticky nesw
  110.  
  111.     # Resize behavior management
  112.  
  113.     grid rowconfigure $base.frame#2 1 -weight 0 -minsize 30
  114.     grid rowconfigure $base.frame#2 2 -weight 0 -minsize 30
  115.     grid rowconfigure $base.frame#2 3 -weight 0 -minsize 30
  116.     grid rowconfigure $base.frame#2 4 -weight 0 -minsize 30
  117.     grid columnconfigure $base.frame#2 1 -weight 0 -minsize 35
  118.  
  119.     grid rowconfigure $root 1 -weight 1 -minsize 151
  120.     grid rowconfigure $root 2 -weight 0 -minsize 35
  121.     grid rowconfigure $root 3 -weight 0 -minsize 35
  122.     grid rowconfigure $root 4 -weight 0 -minsize 32
  123.     grid rowconfigure $root 5 -weight 0 -minsize 30
  124.     grid columnconfigure $root 1 -weight 0 -minsize 30
  125.     grid columnconfigure $root 2 -weight 1 -minsize 213
  126.     grid columnconfigure $root 3 -weight 0 -minsize 124
  127. # additional interface code
  128. # end additional interface code
  129.  
  130. }
  131.  
  132.  
  133. # Allow interface to be run "stand-alone" for testing
  134.  
  135. catch {
  136.     if [info exists embed_args] {
  137.     # we are running in the plugin
  138.     mdlog_ui .
  139.     } else {
  140.     # we are running in stand-alone mode
  141.     if {$argv0 == [info script]} {
  142.         wm title . "Testing mdlog_ui"
  143.         mdlog_ui .
  144.     }
  145.     }
  146. }
  147.