URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [libgui/] [library/] [lframe.tcl] - Blame information for rev 1780

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	578	markom	`# lframe.tcl - Labelled frame widget.`
2			`# Copyright (C) 1997 Cygnus Solutions.`
3			`# Written by Tom Tromey <tromey@cygnus.com>.`
4
5			`itcl_class Labelledframe {`
6			`inherit Widgetframe`
7
8			`# The label text.`
9			`public text {} {`
10			`if {[winfo exists [namespace tail $this].label]} then {`
11			`[namespace tail $this].label configure -text $text`
12			`}`
13			`}`
14
15			`constructor {config} {`
16			`label [namespace tail $this].label -text $text -padx 2`
17			`_add [namespace tail $this].label`
18			`}`
19			`}`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [libgui/] [library/] [lframe.tcl] - Blame information for rev 1780