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