added: #setSelection:
authorClaus Gittinger <cg@exept.de>
Mon, 29 Nov 2010 19:53:52 +0100
changeset 4198 b803df005a2d
parent 4197 196b7e1581f5
child 4199 cd7069b3bc33
added: #setSelection: changed: #selection:
MenuView.st
--- a/MenuView.st	Mon Nov 29 19:52:00 2010 +0100
+++ b/MenuView.st	Mon Nov 29 19:53:52 2010 +0100
@@ -1406,22 +1406,16 @@
 !
 
 selection:index
-Transcript show:'->'; showCR:index.
-
     super selection:(self validateSelection:index)
 
-    "Modified: / 29-11-2010 / 18:52:05 / cg"
+    "Modified: / 29-11-2010 / 19:53:36 / cg"
 !
 
 setSelection:index
-Transcript show:'=>'; showCR:index.
-    index isNil ifTrue:[
-        selection == 12 ifTrue:[self halt].
-    ].
     super setSelection:(self validateSelection:index)
 
     "Created: / 25-05-1996 / 12:27:33 / cg"
-    "Modified: / 29-11-2010 / 18:56:26 / cg"
+    "Modified: / 29-11-2010 / 19:53:31 / cg"
 !
 
 sizeFixed:aBoolean
@@ -2985,9 +2979,9 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.166 2010-11-29 18:52:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.167 2010-11-29 18:53:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.166 2010-11-29 18:52:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.167 2010-11-29 18:53:52 cg Exp $'
 ! !