lframe.tcl

来自「windows下的GDB insight前端」· TCL 代码 · 共 20 行

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