View.st
changeset 6088 43475a5a6ac6
parent 6034 a4e78ef00042
child 6276 08a809f9180a
--- a/View.st	Wed Jun 26 01:06:18 2013 +0200
+++ b/View.st	Wed Jun 26 01:06:26 2013 +0200
@@ -288,28 +288,6 @@
 
     "Modified: / 31.10.1997 / 14:38:38 / cg"
     "Modified: / 30.3.1999 / 13:50:08 / stefan"
-!
-
-setVisibilityChannel:aValueHolder 
-    "set the valueHolder, which holds the visible boolean value"
-
-    visibilityChannel := aValueHolder.
-
-    "
-      |v h|
-
-      v := View new.
-      v visibilityChannel:(h := ValueHolder with:true).
-      v open.
-      Delay waitForSeconds:2.
-      h value:false.
-      Delay waitForSeconds:2.
-      h value:true.
-      Delay waitForSeconds:2.
-    "
-
-    "Created: / 14.1.1998 / 17:11:15 / stefan"
-    "Modified: / 14.1.1998 / 17:33:40 / stefan"
 ! !
 
 !View methodsFor:'accessing-menus'!
@@ -836,6 +814,6 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.81 2013-03-28 10:32:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.82 2013-06-25 23:06:26 cg Exp $'
 ! !