I just noticed that the message in the following app gets a large value
when you select it and try and alter its height with the mouse. Is there
some logical way to specify that relative dimensions are to be used?
1.08 seems good so far :)
########################################################################
#####
# Visual Tcl v1.07 Project
#
#################################
# GLOBAL VARIABLES
#
global widget;
#################################
# USER DEFINED PROCEDURES
#
proc init {argc argv} {
}
init $argc $argv
proc main {argc argv} {
}
proc Window {args} {
global vTcl
set cmd [lindex $args 0]
set name [lindex $args 1]
set rest [lrange $args 2 end]
if {$name == "" || $cmd == ""} {return}
set exists [winfo exists $name]
switch $cmd {
show {
if {[info procs vTclWindow(pre)$name] != ""} {
vTclWindow(pre)$name $rest
}
if {[info procs vTclWindow$name] != ""} {
vTclWindow$name
}
if {[info procs vTclWindow(post)$name] != ""} {
vTclWindow(post)$name $rest
}
}
hide { if $exists {wm withdraw $name; return} }
iconify { if $exists {wm iconify $name; return} }
destroy { if $exists {destroy $name; return} }
}
}
#################################
# VTCL GENERATED GUI PROCEDURES
#
proc vTclWindow. {args} {
set base .
###################
# CREATING WIDGETS
###################
wm focusmodel . passive
wm geometry . 200x200+66+66
wm maxsize . 1284 1009
wm minsize . 104 1
wm overrideredirect . 0
wm resizable . 1 1
wm withdraw .
wm title . "vt"
###################
# SETTING GEOMETRY
###################
}
proc vTclWindow.top17 {args} {
set base .top17
if {[winfo exists .top17]} {
wm deiconify .top17; return
}
###################
# CREATING WIDGETS
###################
toplevel .top17 -class Toplevel
wm focusmodel .top17 passive
wm geometry .top17 437x437+380+162
wm maxsize .top17 1284 1009
wm minsize .top17 356 126
wm overrideredirect .top17 0
wm resizable .top17 1 1
wm deiconify .top17
wm title .top17 "top17"
message .top17.mes18 \
-aspect 1000 -font {Helvetica 16} -foreground #000080 -padx 4 \
-pady 2 \
-relief groove -text Bonds
frame .top17.cpd20 \
-borderwidth 1 -height 30 -relief raised -width 30
listbox .top17.cpd20.01 \
-background #ffffff \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-xscrollcommand {.top17.cpd20.02 set} \
-yscrollcommand {.top17.cpd20.03 set}
scrollbar .top17.cpd20.02 \
-borderwidth 1 -command {.top17.cpd20.01 xview} -orient horiz \
-width 10
scrollbar .top17.cpd20.03 \
-borderwidth 1 -command {.top17.cpd20.01 yview} -orient vert \
-width 10
###################
# SETTING GEOMETRY
###################
place .top17.mes18 \
-x 2 -y 2 -width -4 -relwidth 1 -height 20 -relheight 0 -anchor
nw \
-bordermode ignore
place .top17.cpd20 \
-x 2 -y 24 -width -4 -relwidth 1 -height -26 -relheight 1 -
anchor nw \
-bordermode ignore
grid columnconf .top17.cpd20 0 -weight 1
grid rowconf .top17.cpd20 0 -weight 1
grid .top17.cpd20.01 \
-column 0 -row 0 -columnspan 1 -rowspan 1 -sticky nesw
grid .top17.cpd20.02 \
-column 0 -row 1 -columnspan 1 -rowspan 1 -sticky ew
grid .top17.cpd20.03 \
-column 1 -row 0 -columnspan 1 -rowspan 1 -sticky ns
}
Window show .
Window show .top17
main $argc $argv
--
Robin Becker
