lframe.tcl

This Source-Navigator, an IDE for C/C++/Fortran/Java/Tcl/PHP/Python and a host of other languages.

# lframe.tcl - Labelled frame widget.
# Copyright (C) 1997 Cygnus Solutions.
# Written by Tom Tromey <[e-mail]>.

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
  }
}