URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 578 |
Rev 1765 |
# Shell.tcl --
|
# Shell.tcl --
|
#
|
#
|
# This is the base class to all shell widget
|
# This is the base class to all shell widget
|
#
|
#
|
# Copyright (c) 1996, Expert Interface Technologies
|
# Copyright (c) 1996, Expert Interface Technologies
|
#
|
#
|
# See the file "license.terms" for information on usage and redistribution
|
# See the file "license.terms" for information on usage and redistribution
|
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
#
|
#
|
|
|
#
|
#
|
# type : normal, transient, overrideredirect
|
# type : normal, transient, overrideredirect
|
#
|
#
|
tixWidgetClass tixShell {
|
tixWidgetClass tixShell {
|
-superclass tixPrimitive
|
-superclass tixPrimitive
|
-classname TixShell
|
-classname TixShell
|
-flag {
|
-flag {
|
-title
|
-title
|
}
|
}
|
-configspec {
|
-configspec {
|
{-title title Title ""}
|
{-title title Title ""}
|
}
|
}
|
-forcecall {
|
-forcecall {
|
-title
|
-title
|
}
|
}
|
}
|
}
|
|
|
#----------------------------------------------------------------------
|
#----------------------------------------------------------------------
|
# ClassInitialization:
|
# ClassInitialization:
|
#----------------------------------------------------------------------
|
#----------------------------------------------------------------------
|
proc tixShell:CreateRootWidget {w args} {
|
proc tixShell:CreateRootWidget {w args} {
|
upvar #0 $w data
|
upvar #0 $w data
|
upvar #0 $data(className) classRec
|
upvar #0 $data(className) classRec
|
|
|
toplevel $w -class $data(ClassName)
|
toplevel $w -class $data(ClassName)
|
wm withdraw $w
|
wm withdraw $w
|
}
|
}
|
|
|
proc tixShell:config-title {w value} {
|
proc tixShell:config-title {w value} {
|
wm title $w $value
|
wm title $w $value
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.