Lines Matching defs:TYPE
54 # %TYPE% The fully qualified type name.
76 namespace eval %TYPE% {%TYPEVARS%
84 interp alias {} %TYPE%::installhull {} ::snit::RT.installhull %TYPE%
85 interp alias {} %TYPE%::install {} ::snit::RT.install %TYPE%
86 interp alias {} %TYPE%::typevariable {} ::variable
87 interp alias {} %TYPE%::variable {} ::snit::RT.variable
88 interp alias {} %TYPE%::mytypevar {} ::snit::RT.mytypevar %TYPE%
89 interp alias {} %TYPE%::typevarname {} ::snit::RT.mytypevar %TYPE%
90 interp alias {} %TYPE%::myvar {} ::snit::RT.myvar
91 interp alias {} %TYPE%::varname {} ::snit::RT.myvar
92 interp alias {} %TYPE%::codename {} ::snit::RT.codename %TYPE%
93 interp alias {} %TYPE%::myproc {} ::snit::RT.myproc %TYPE%
94 interp alias {} %TYPE%::mymethod {} ::snit::RT.mymethod
95 interp alias {} %TYPE%::mytypemethod {} ::snit::RT.mytypemethod %TYPE%
96 interp alias {} %TYPE%::from {} ::snit::RT.from %TYPE%
101 namespace eval %TYPE% {
116 set Snit_info(ns) %TYPE%::
162 proc %TYPE%::Snit_instanceVars {selfns} {
167 proc %TYPE%::Snit_typeconstructor {type} {
185 proc %TYPE%::Snit_destructor {type selfns win self} { }
195 %TYPE%::Snit_typeconstructor %TYPE%
202 # substituted in for %TYPE%.
208 namespace eval %TYPE% {
210 -unknown [list ::snit::RT.UnknownTypemethod %TYPE% ""] \
220 # in the parent of the %TYPE% namespace! All accesses to
221 # %TYPE% variables and methods must be qualified!
222 proc %TYPE% {args} {
223 ::variable %TYPE%::Snit_info
228 error "wrong \# args: should be \"%TYPE% name args\""
237 set command [list ::snit::RT.widget.typemethod.create %TYPE%]
239 set command [list ::snit::RT.type.typemethod.create %TYPE%]
320 # the same structure as the %TYPE%::Snit_methodInfo array, and is
325 # the same structure as the %TYPE%::Snit_typemethodInfo array, and is
465 "\nset %TYPE%::Snit_info(isWidget) $isWidget\n"
468 "\nset %TYPE%::Snit_info(isWidgetAdaptor) $isWidgetAdaptor\n"
472 append compile(defs) "\nset %TYPE%::Snit_info(canreplace) $compile(-canreplace)\n"
550 "\narray set %TYPE%::Snit_methodInfo [list [array get methodInfo]]\n"
552 append compile(defs) "\nset %TYPE%::Snit_info(hasinstances) 0\n"
563 "\narray set %TYPE%::Snit_typemethodInfo [list [array get typemethodInfo]]\n"
581 %TYPE% $type \
622 lappend %TYPE%::Snit_optionInfo(local) %OPTION%
624 set %TYPE%::Snit_optionInfo(islocal-%OPTION%) 1
625 set %TYPE%::Snit_optionInfo(resource-%OPTION%) %RESOURCE%
626 set %TYPE%::Snit_optionInfo(class-%OPTION%) %CLASS%
627 set %TYPE%::Snit_optionInfo(default-%OPTION%) %DEFAULT%
628 set %TYPE%::Snit_optionInfo(validate-%OPTION%) %VALIDATE%
629 set %TYPE%::Snit_optionInfo(configure-%OPTION%) %CONFIGURE%
630 set %TYPE%::Snit_optionInfo(cget-%OPTION%) %CGET%
631 set %TYPE%::Snit_optionInfo(readonly-%OPTION%) %READONLY%
632 set %TYPE%::Snit_optionInfo(typespec-%OPTION%) %TYPESPEC%
654 # Consider using namespace eval %TYPE%. See if it's faster.
715 set %TYPE%::Snit_info(widgetclass) %WIDGETCLASS%
745 set %TYPE%::Snit_info(hulltype) %HULLTYPE%
764 append compile(defs) "proc %TYPE%::Snit_constructor [list $arglist] [list $body]\n"
774 append compile(defs) "proc %TYPE%::Snit_destructor {type selfns win self} [list $body]\n\n"
856 "\nset %TYPE%::Snit_optionInfo(typeobj-$option) [list $val]\n"
859 set cmd [linsert $val 1 %TYPE%::Snit_TypeObj_%AUTO%]
861 "\nset %TYPE%::Snit_optionInfo(typeobj-$option) \[$cmd\]\n"
960 proc %TYPE%::Snit_method%METHOD% %ARGLIST% %BODY%
966 proc %TYPE%::Snit_hmethod%JMETHOD% %ARGLIST% %BODY%
1048 proc %TYPE%::Snit_typemethod%METHOD% %ARGLIST% %BODY%
1054 proc %TYPE%::Snit_htypemethod%JMETHOD% %ARGLIST% %BODY%
1088 proc [list %TYPE%::$proc $arglist $body]
1245 [list ::snit::RT.TypecomponentTrace [list %TYPE%] %COMP%]
1246 } %TYPE% $compile(type) %COMP% $component
1328 [list ::snit::RT.ComponentTrace [list %TYPE%] $selfns %COMP%]
1329 } %TYPE% $compile(type) %COMP% $component
1432 set %TYPE%::Snit_info(excepttypemethods) %EXCEPT%
1526 set %TYPE%::Snit_info(exceptmethods) %EXCEPT%
1619 set %TYPE%::Snit_optionInfo(islocal-%OPTION%) 0
1620 set %TYPE%::Snit_optionInfo(resource-%OPTION%) %RES%
1621 set %TYPE%::Snit_optionInfo(class-%OPTION%) %CLASS%
1622 lappend %TYPE%::Snit_optionInfo(delegated) %OPTION%
1623 set %TYPE%::Snit_optionInfo(target-%OPTION%) [list %COMP% %TARGET%]
1624 lappend %TYPE%::Snit_optionInfo(delegated-%COMP%) %OPTION%
1632 set %TYPE%::Snit_optionInfo(starcomp) %COMP%
1633 set %TYPE%::Snit_optionInfo(except) %EXCEPT%
1986 ::snit::RT.DestroyObject %TYPE% %NS% %W
1987 } %TYPE% $type %NS% $selfns]
2674 # Implements %TYPE%::installhull. The variables self and selfns
2780 # Implements %TYPE%::install.
2886 # Implements %TYPE%::variable. Requires selfns.