Lines Matching defs:TYPE
65 # %TYPE% The fully qualified type name.
87 namespace eval %TYPE% {%TYPEVARS%
95 interp alias {} %TYPE%::installhull {} ::snit::RT.installhull %TYPE%
96 interp alias {} %TYPE%::install {} ::snit::RT.install %TYPE%
97 interp alias {} %TYPE%::typevariable {} ::variable
98 interp alias {} %TYPE%::variable {} ::snit::RT.variable
99 interp alias {} %TYPE%::mytypevar {} ::snit::RT.mytypevar %TYPE%
100 interp alias {} %TYPE%::typevarname {} ::snit::RT.mytypevar %TYPE%
101 interp alias {} %TYPE%::myvar {} ::snit::RT.myvar
102 interp alias {} %TYPE%::varname {} ::snit::RT.myvar
103 interp alias {} %TYPE%::codename {} ::snit::RT.codename %TYPE%
104 interp alias {} %TYPE%::myproc {} ::snit::RT.myproc %TYPE%
105 interp alias {} %TYPE%::mymethod {} ::snit::RT.mymethod
106 interp alias {} %TYPE%::mytypemethod {} ::snit::RT.mytypemethod %TYPE%
107 interp alias {} %TYPE%::from {} ::snit::RT.from %TYPE%
112 namespace eval %TYPE% {
127 set Snit_info(ns) %TYPE%::
173 proc %TYPE%::Snit_instanceVars {selfns} {
178 proc %TYPE%::Snit_typeconstructor {type} {
195 proc %TYPE%::Snit_destructor {type selfns win self} { }
205 %TYPE%::Snit_typeconstructor %TYPE%
212 # substituted in for %TYPE%.
218 # in the parent of the %TYPE% namespace! All accesses to
219 # %TYPE% variables and methods must be qualified!
220 proc %TYPE% {{method ""} args} {
225 ::variable %TYPE%::Snit_info
231 error "wrong \# args: should be \"%TYPE% method args\""
236 variable %TYPE%::Snit_typemethodCache
239 set commandRec [::snit::RT.CacheTypemethodCommand %TYPE% $method]
242 return -code error "\"%TYPE% $method\" is not defined"
254 "wrong number args: should be \"%TYPE% $method method args\""
286 # in the parent of the %TYPE% namespace! All accesses to
287 # %TYPE% variables and methods must be qualified!
288 proc %TYPE% {args} {
289 ::variable %TYPE%::Snit_info
294 error "wrong \# args: should be \"%TYPE% name args\""
303 set command [list ::snit::RT.widget.typemethod.create %TYPE%]
305 set command [list ::snit::RT.type.typemethod.create %TYPE%]
332 # %TYPE% The fully-qualified type name
343 set commandRec [snit::RT.CacheMethodCommand %TYPE% %SELFNS% %WIN% $self $method]
394 if {[lsearch -exact ${%TYPE%::Snit_methods} $method] == -1} {
395 set optlist [join ${%TYPE%::Snit_methods} ", "]
401 %TYPE%::Snit_method$method %TYPE% %SELFNS% %WIN% $self]
466 # the same structure as the %TYPE%::Snit_methodInfo array, and is
471 # the same structure as the %TYPE%::Snit_typemethodInfo array, and is
612 "\nset %TYPE%::Snit_info(isWidget) $isWidget\n"
615 "\nset %TYPE%::Snit_info(isWidgetAdaptor) $isWidgetAdaptor\n"
619 append compile(defs) "\nset %TYPE%::Snit_info(canreplace) $compile(-canreplace)\n"
663 append compile(defs) "\nset %TYPE%::Snit_info(simpledispatch) 1\n"
741 "\nset %TYPE%::Snit_methods [list $compile(localmethods)]\n"
744 "\narray set %TYPE%::Snit_methodInfo [list [array get methodInfo]]\n"
748 append compile(defs) "\nset %TYPE%::Snit_info(hasinstances) 0\n"
759 "\narray set %TYPE%::Snit_typemethodInfo [list [array get typemethodInfo]]\n"
777 %TYPE% $type \
818 lappend %TYPE%::Snit_optionInfo(local) %OPTION%
820 set %TYPE%::Snit_optionInfo(islocal-%OPTION%) 1
821 set %TYPE%::Snit_optionInfo(resource-%OPTION%) %RESOURCE%
822 set %TYPE%::Snit_optionInfo(class-%OPTION%) %CLASS%
823 set %TYPE%::Snit_optionInfo(default-%OPTION%) %DEFAULT%
824 set %TYPE%::Snit_optionInfo(validate-%OPTION%) %VALIDATE%
825 set %TYPE%::Snit_optionInfo(configure-%OPTION%) %CONFIGURE%
826 set %TYPE%::Snit_optionInfo(cget-%OPTION%) %CGET%
827 set %TYPE%::Snit_optionInfo(readonly-%OPTION%) %READONLY%
828 set %TYPE%::Snit_optionInfo(typespec-%OPTION%) %TYPESPEC%
850 # Consider using namespace eval %TYPE%. See if it's faster.
911 set %TYPE%::Snit_info(widgetclass) %WIDGETCLASS%
941 set %TYPE%::Snit_info(hulltype) %HULLTYPE%
960 append compile(defs) "proc %TYPE%::Snit_constructor [list $arglist] [list $body]\n"
970 append compile(defs) "proc %TYPE%::Snit_destructor {type selfns win self} [list $body]\n\n"
1052 "\nset %TYPE%::Snit_optionInfo(typeobj-$option) [list $val]\n"
1055 set cmd [linsert $val 1 %TYPE%::Snit_TypeObj_%AUTO%]
1057 "\nset %TYPE%::Snit_optionInfo(typeobj-$option) \[$cmd\]\n"
1156 proc %TYPE%::Snit_method%METHOD% %ARGLIST% %BODY%
1162 proc %TYPE%::Snit_hmethod%JMETHOD% %ARGLIST% %BODY%
1244 proc %TYPE%::Snit_typemethod%METHOD% %ARGLIST% %BODY%
1250 proc %TYPE%::Snit_htypemethod%JMETHOD% %ARGLIST% %BODY%
1284 proc [list %TYPE%::$proc $arglist $body]
1428 [list ::snit::RT.TypecomponentTrace [list %TYPE%] %COMP%]
1429 } %TYPE% $compile(type) %COMP% $component
1511 [list ::snit::RT.ComponentTrace [list %TYPE%] $selfns %COMP%]
1512 } %TYPE% $compile(type) %COMP% $component
1615 set %TYPE%::Snit_info(excepttypemethods) %EXCEPT%
1709 set %TYPE%::Snit_info(exceptmethods) %EXCEPT%
1802 set %TYPE%::Snit_optionInfo(islocal-%OPTION%) 0
1803 set %TYPE%::Snit_optionInfo(resource-%OPTION%) %RES%
1804 set %TYPE%::Snit_optionInfo(class-%OPTION%) %CLASS%
1805 lappend %TYPE%::Snit_optionInfo(delegated) %OPTION%
1806 set %TYPE%::Snit_optionInfo(target-%OPTION%) [list %COMP% %TARGET%]
1807 lappend %TYPE%::Snit_optionInfo(delegated-%COMP%) %OPTION%
1815 set %TYPE%::Snit_optionInfo(starcomp) %COMP%
1816 set %TYPE%::Snit_optionInfo(except) %EXCEPT%
2200 ::snit::RT.DestroyObject %TYPE% %NS% %W
2201 } %TYPE% $type %NS% $selfns]
2259 [list %SELFNS% $selfns %WIN% $instance %TYPE% $type] \
2812 # Implements %TYPE%::installhull. The variables self and selfns
2917 # Implements %TYPE%::install.
3021 # Implements %TYPE%::variable. Requires selfns.