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 >
Wrap
Text File
|
2000-04-23
|
3KB
|
147 lines
#! /bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"
# interface generated by SpecTcl version 1.1 from /home/ocon/rexxtk/th/demo/mdlog.ui
# root is the parent window for this user interface
proc mdlog_ui {root args} {
# this treats "." as a special case
if {$root == "."} {
set base ""
} else {
set base $root
}
frame $base.frame#2 \
-borderwidth 2 \
-relief ridge
scale $base.scale#1 \
-orient v \
-variable scale
label $base.box
radiobutton $base.radiobutton#8 \
-text {Section One} \
-value one \
-variable radio
radiobutton $base.radiobutton#5 \
-text {Section Two} \
-value two \
-variable radio
radiobutton $base.radiobutton#7 \
-text {After Main} \
-value after \
-variable radio
radiobutton $base.radiobutton#6 \
-text {Final Bout} \
-value final \
-variable radio
button $base.button#6 \
-command {setRexxtk up} \
-text Up
catch {
$base.button#6 configure \
-font -*-helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
}
button $base.button#7 \
-command {setRexxtk down} \
-text Down
catch {
$base.button#7 configure \
-font -*-helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
}
label $base.label#4 \
-text Size
button $base.button#8 \
-command {setRexxtk around} \
-text Around
catch {
$base.button#8 configure \
-font -*-helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
}
label $base.prompt \
-justify left \
-relief sunken
# Geometry management
grid $base.frame#2 -in $root -row 1 -column 3
grid $base.scale#1 -in $root -row 1 -column 1 \
-rowspan 3 \
-sticky ns
grid $base.box -in $root -row 1 -column 2 \
-rowspan 4 \
-sticky nesw
grid $base.radiobutton#8 -in $base.frame#2 -row 1 -column 1 \
-sticky w
grid $base.radiobutton#5 -in $base.frame#2 -row 2 -column 1 \
-sticky w
grid $base.radiobutton#7 -in $base.frame#2 -row 3 -column 1 \
-sticky w
grid $base.radiobutton#6 -in $base.frame#2 -row 4 -column 1 \
-sticky w
grid $base.button#6 -in $root -row 2 -column 3 \
-padx 10 \
-sticky ew
grid $base.button#7 -in $root -row 3 -column 3 \
-padx 10 \
-sticky ew
grid $base.label#4 -in $root -row 4 -column 1
grid $base.button#8 -in $root -row 4 -column 3 \
-padx 10 \
-sticky ew
grid $base.prompt -in $root -row 5 -column 1 \
-columnspan 3 \
-sticky nesw
# Resize behavior management
grid rowconfigure $base.frame#2 1 -weight 0 -minsize 30
grid rowconfigure $base.frame#2 2 -weight 0 -minsize 30
grid rowconfigure $base.frame#2 3 -weight 0 -minsize 30
grid rowconfigure $base.frame#2 4 -weight 0 -minsize 30
grid columnconfigure $base.frame#2 1 -weight 0 -minsize 35
grid rowconfigure $root 1 -weight 1 -minsize 151
grid rowconfigure $root 2 -weight 0 -minsize 35
grid rowconfigure $root 3 -weight 0 -minsize 35
grid rowconfigure $root 4 -weight 0 -minsize 32
grid rowconfigure $root 5 -weight 0 -minsize 30
grid columnconfigure $root 1 -weight 0 -minsize 30
grid columnconfigure $root 2 -weight 1 -minsize 213
grid columnconfigure $root 3 -weight 0 -minsize 124
# additional interface code
# end additional interface code
}
# Allow interface to be run "stand-alone" for testing
catch {
if [info exists embed_args] {
# we are running in the plugin
mdlog_ui .
} else {
# we are running in stand-alone mode
if {$argv0 == [info script]} {
wm title . "Testing mdlog_ui"
mdlog_ui .
}
}
}