projects
/
OpenSPARC-T2-DV
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Initial commit of OpenSPARC T2 design and verification files.
[OpenSPARC-T2-DV]
/
tools
/
perl-5.8.0
/
lib
/
site_perl
/
5.8.0
/
sun4-solaris
/
Tk
/
demos
/
widtrib
/
labframe.pl
# LabFrame, frame with embedded label.
use
Tk
;
use
Tk
::
LabFrame
;
use
Tk
::
LabEntry
;
my
$test
=
'Test this'
;
my
$top
=
MainWindow
->
new
;
my
$f
=
$top
->
LabFrame
(-
label
=>
"This is a label"
, -
labelside
=>
"acrosstop"
);
$f
->
LabEntry
(-
label
=>
"Testing"
, -
textvariable
=>
\
$test
)->
pack
;
$f
->
pack
;
MainLoop
;