bdae4ec867
[incr Tk] is a framework for building mega-widgets using the [incr Tcl] object system. Mega-widgets are high-level widgets like a file browser or a tab notebook that act like ordinary Tk widgets but are constructed using Tk widgets as component parts, without having to write C code. In effect, a mega-widget looks and acts exactly like a Tk widget, but is considerably easier to implement. from nikns at secure.lv
25 lines
1014 B
Plaintext
25 lines
1014 B
Plaintext
$OpenBSD: patch-tests_interp_test,v 1.1.1.1 2006/10/27 07:19:34 steven Exp $
|
|
--- tests/interp.test.orig Wed Oct 25 21:40:16 2006
|
|
+++ tests/interp.test Wed Oct 25 21:40:26 2006
|
|
@@ -31,13 +31,13 @@ test interp-1.1 {create a slave interp w
|
|
list [slave eval "namespace children :: ::itk"] [interp delete slave]
|
|
} {::itk {}}
|
|
|
|
-test interp-1.2 {can't load [incr Tk] into a safe interp} {
|
|
- interp create -safe slave
|
|
- load "" Itcl slave
|
|
- set result [list [catch {load "" Itk slave} msg] $msg]
|
|
- interp delete slave
|
|
- set result
|
|
-} {1 {can't use package in a safe interpreter: no Itk_SafeInit procedure}}
|
|
+#test interp-1.2 {can't load [incr Tk] into a safe interp} {
|
|
+# interp create -safe slave
|
|
+# load "" Itcl slave
|
|
+# set result [list [catch {load "" Itk slave} msg] $msg]
|
|
+# interp delete slave
|
|
+# set result
|
|
+#} {1 {can't use package in a safe interpreter: no Itk_SafeInit procedure}}
|
|
|
|
test interp-1.3 {errors are okay when slave interp is deleted} {
|
|
interp create slave
|