Hi,
I am new to this board. I just found the
1.2.1 version of vtcl and I was wondering
if this is the latest version. I see talk
about a 1.4 and previously i had tried
a 1.3 which was unstable.
As a user/developer, I was very jazzed by the
new 1.2.1 tree features (amongst others) and
when i saw the new labels for the tree i just
had to add my own to those. I esp liked the
-textvariable xxx that shows up for text entry
widgets. So, finding the code this (in tree.tcl)
I quickly added my own for radiobutton variable
and value, and then added more info for label,
button, checkbutton, and scales.
Since it was so easy to modify, here's what i
ended up with, all as just changes to the switch block:
(Sorry if this is not the proper way to suggest/share
changes. But I was so thrilled with this new look
I had to share it!)
in file libs/tree.tcl
# @@change by Christian Gavin 3/5/2000
# added "checkbutton" and "radiobutton" classes
# added "entry" class
# added "message" class
# 3/15/2000 added generic proc for getting label
# 5/18/2000 (et) added numerous other info texts by setting t
switch $c {
toplevel {set t [wm title $i]}
frame {set t Frame}
text {set t "Text Widget"}
scrollbar {set t "Scrollbar"}
scrollbar_h {set t "Horz Scrollbar"}
scrollbar_v {set t "Vert Scrollbar"}
canvas {set t "Canvas"}
message -
menubutton {set t [$i cget -text]}
entry {set t "-textvar [$i cget -textvariable]"}
scale_h {set t "Hscale -var [$i cget -variable]"}
scale_v {set t "Vscale -var [$i cget -variable]"}
label {
set ttt1 [$i cget -text]
set ttt2 [$i cget -textvariable]
if {$ttt2 == ""} {
set t "LAB: $ttt1"
} else {
set t "LAB: $ttt1 var=$ttt2"
}
}
button {
set ttt1 [$i cget -text]
set ttt2 [$i cget -textvariable]
if {$ttt2 == ""} {
set t "BUT: $ttt1"
} else {
set t "BUT: $ttt1 var=$ttt2"
}
}
radiobutton {
set ttt1 [$i cget -text]
set ttt2 [$i cget -variable]
set ttt3 [$i cget -value]
if {$ttt2 == ""} {
set t "RB: $ttt1"
} else {
set t "RB: $ttt1
var=$ttt2\(val=$ttt3\)"
}
}
checkbutton {
set ttt1 [$i cget -text]
set ttt2 [$i cget -variable]
set ttt3 [$i cget -onvalue]
set ttt4 [$i cget -offvalue]
if {$ttt2 == ""} {
set t "CB: $ttt1"
} else {
set t "CB: $ttt1
var=$ttt2\(on=$ttt3,off=$ttt4\)"
}
}
default {
set t ""
set tmpClass [string toupper [string range $c 0 0]]
set tmpClass $tmpClass[string range $c 1 end]
if [info exists vTcl($tmpClass,get_widget_tree_label)] {
set t [$vTcl($tmpClass,get_widget_tree_label) $c]
}
}
}
# @@end_change
_______________________________________________
vtcl-user mailing list
[EMAIL PROTECTED]
http://lists.sourceforge.net/mailman/listinfo/vtcl-user
