Import Tix 8.4.3.5 (as of svn r86089)
This commit is contained in:
15
tests/general/oop.tcl
Normal file
15
tests/general/oop.tcl
Normal file
@@ -0,0 +1,15 @@
|
||||
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
|
||||
#
|
||||
# $Id: oop.tcl,v 1.2 2002/11/13 21:12:18 idiscovery Exp $
|
||||
#
|
||||
proc About {} {
|
||||
return "Testing OOP features"
|
||||
}
|
||||
|
||||
proc Test {} {
|
||||
test {tix} {arg}
|
||||
test {tixWidgetClass} {arg}
|
||||
test {tixClass} {arg}
|
||||
test {tixNoteBook} {arg}
|
||||
test {tixAppContext} {arg}
|
||||
}
|
||||
Reference in New Issue
Block a user