Hi anybody,
is it possible, that the grid management support of vtcl is buggy?
To test vtcl's application analyzing, I have written an test surface with the
grid manager manually.
After I have imported this file via Open in to vtcl, all seems be okay, the
surface was displayed correctly. I have saved the project under another name,
and start it.
The result was horrible. If I reload the vtcl-written file again into vtcl, the
same horrible result was seen. The original layout was destroyed.
Follows here I include my manually written app:
----------------------- BEGIN OF MANUALLY WRITTEN APP -------------------------
#!/home/hintze/bin/wishx
wm withdraw . ;# Hide the main window
# Build the widgets
toplevel .top1
frame .top1.fra2 -borderwidth 2 -relief raised
frame .top1.fra1 -borderwidth 2 -relief raised
button .top1.but1 -text {Patch Done}
button .top1.but2 -text {Cancel Patch}
text .top1.tex1 -height 32 -xscrollcommand ".top1.scb1 set" -yscrollcommand
".top1.scb2 set"
scrollbar .top1.scb2 -command ".top1.tex1 yview" -orient v
scrollbar .top1.scb1 -command ".top1.tex1 xview" -orient h
label .top1.lab1 -text Line/Col:
entry .top1.ent1 -justify right -textvariable entry -width 6
label .top1.lab2 -text /
entry .top1.ent2 -textvariable entry -width 6
# Geometry management
grid .top1.fra2 -in .top1 -row 3 -column 1 -columnspan 3 -sticky ew
grid .top1.fra1 -in .top1 -row 2 -column 1 -columnspan 3 -sticky nesw
grid .top1.but1 -in .top1 -row 1 -column 2
grid .top1.but2 -in .top1 -row 1 -column 3
grid .top1.tex1 -in .top1.fra1 -row 1 -column 1 -sticky nesw
grid .top1.scb2 -in .top1.fra1 -row 1 -column 2 -sticky ns
grid .top1.scb1 -in .top1.fra1 -row 2 -column 1 -sticky ew
grid .top1.lab1 -in .top1.fra2 -row 1 -column 1
grid .top1.ent1 -in .top1.fra2 -row 1 -column 2
grid .top1.lab2 -in .top1.fra2 -row 1 -column 3
grid .top1.ent2 -in .top1.fra2 -row 1 -column 4
# Resize behavior management
grid rowconfigure .top1.fra2 1 -weight 0 -minsize 30
grid columnconfigure .top1.fra2 1 -weight 0 -minsize 30
grid columnconfigure .top1.fra2 2 -weight 0 -minsize 30
grid columnconfigure .top1.fra2 3 -weight 0 -minsize 5
grid columnconfigure .top1.fra2 4 -weight 0 -minsize 33
grid columnconfigure .top1.fra2 5 -weight 1 -minsize 30
grid rowconfigure .top1 1 -weight 0 -minsize 30
grid rowconfigure .top1 2 -weight 1 -minsize 30
grid rowconfigure .top1 3 -weight 0 -minsize 30
grid columnconfigure .top1 1 -weight 1 -minsize 30
grid columnconfigure .top1 2 -weight 0 -minsize 30
grid columnconfigure .top1 3 -weight 0 -minsize 30
grid rowconfigure .top1.fra1 1 -weight 1 -minsize 30
grid rowconfigure .top1.fra1 2 -weight 0 -minsize 30
grid columnconfigure .top1.fra1 1 -weight 1 -minsize 30
grid columnconfigure .top1.fra1 2 -weight 0 -minsize 30
----------------------- END OF MANUALLY WRITTEN APP ---------------------------
And this was, what vtcl has generated:
----------------- BEGIN EXTRACT FROM VTCL GENERATED FILE ----------------------
proc vTclWindow.top1 {base} {
if {$base == ""} {
set base .top1
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
###################
# CREATING WIDGETS
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 604x528+336+384
wm maxsize $base 1265 994
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1
wm deiconify $base
wm title $base "top1"
frame $base.fra2 \
-borderwidth 2 -relief raised
frame $base.fra1 \
-borderwidth 2 -relief raised
button $base.but1 \
-padx 13 -pady 4 -text {Patch Done}
button $base.but2 \
-padx 13 -pady 4 -text {Cancel Patch}
text $base.te1 \
-height 32 -xscrollcommand {.top1.scrollb1 set} \
-yscrollcommand {.top1.scrollb2 set}
scrollbar $base.scrollb2 \
-command {.top1.te1 yview} -orient v
scrollbar $base.scrollb1 \
-command {.top1.te1 xview} -orient h
label $base.lab1 \
-text Line/Col:
entry $base.ent1 \
-justify right -textvariable entry -width 6
label $base.lab2 \
-text /
entry $base.ent2 \
-textvariable entry -width 6
###################
# SETTING GEOMETRY
###################
grid columnconf $base 1 -weight 1
grid columnconf $base 1 -minsize 30
grid columnconf $base 2 -minsize 30
grid columnconf $base 3 -minsize 30
grid rowconf $base 2 -weight 1
grid rowconf $base 1 -minsize 30
grid rowconf $base 2 -minsize 30
grid rowconf $base 3 -minsize 30
grid $base.fra2 \
-column 1 -row 3 -columnspan 3 -rowspan 1 -sticky ew
grid columnconf $base.fra2 5 -weight 1
grid columnconf $base.fra2 1 -minsize 30
grid columnconf $base.fra2 2 -minsize 30
grid columnconf $base.fra2 3 -minsize 5
grid columnconf $base.fra2 4 -minsize 33
grid columnconf $base.fra2 5 -minsize 30
grid rowconf $base.fra2 1 -minsize 30
grid $base.fra1 \
-column 1 -row 2 -columnspan 3 -rowspan 1 -sticky nesw
grid columnconf $base.fra1 1 -weight 1
grid columnconf $base.fra1 1 -minsize 30
grid columnconf $base.fra1 2 -minsize 30
grid rowconf $base.fra1 1 -weight 1
grid rowconf $base.fra1 1 -minsize 30
grid rowconf $base.fra1 2 -minsize 30
grid $base.but1 \
-column 2 -row 1 -columnspan 1 -rowspan 1
grid $base.but2 \
-column 3 -row 1 -columnspan 1 -rowspan 1
grid $base.te1 \
-column 1 -row 1 -columnspan 1 -rowspan 1 -sticky nesw
grid $base.scrollb2 \
-column 2 -row 1 -columnspan 1 -rowspan 1 -sticky ns
grid $base.scrollb1 \
-column 1 -row 2 -columnspan 1 -rowspan 1 -sticky ew
grid $base.lab1 \
-column 1 -row 1 -columnspan 1 -rowspan 1
grid $base.ent1 \
-column 2 -row 1 -columnspan 1 -rowspan 1
grid $base.lab2 \
-column 3 -row 1 -columnspan 1 -rowspan 1
grid $base.ent2 \
-column 4 -row 1 -columnspan 1 -rowspan 1
}
--------------------END EXTRACT FROM VTCL GENERATED FILE ----------------------
It seems that vtcl cannot handle the -in option of the grid manager properly.
Does vtcl handle the -in option of any geometry manager?
Do anybody know a solution for that problem?
BTW: I have some problems with the Geometry Information window for the grid
manager. I do not fully understand every entry of the table below:
col row width height
Absolute:
Weight/Min:
Bye,
Cle.
--
| Clemens Hintze * ACB/EO ____ OMC-R Software Developement
| Phone: +49 30 7002-3241 \ / ALCATEL Mobile Communication Division ITD
| Fax : +49 30 7002-3851 \/ Colditzstr. 34-36, D-12099 Berlin, Germany
| mailto:[EMAIL PROTECTED]
