You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
468 B
Tcl
20 lines
468 B
Tcl
15 years ago
|
# lframe.tcl - Labelled frame widget.
|
||
|
|
# Copyright (C) 1997 Cygnus Solutions.
|
||
|
|
# Written by Tom Tromey <tromey@cygnus.com>.
|
||
|
|
|
||
|
|
itcl_class Labelledframe {
|
||
|
|
inherit Widgetframe
|
||
|
|
|
||
|
|
# The label text.
|
||
|
|
public text {} {
|
||
|
|
if {[winfo exists [namespace tail $this].label]} then {
|
||
|
|
[namespace tail $this].label configure -text $text
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
constructor {config} {
|
||
|
|
label [namespace tail $this].label -text $text -padx 2
|
||
|
|
_add [namespace tail $this].label
|
||
|
|
}
|
||
|
|
}
|