MenuItem.st
changeset 2875 eb6fea74e5e6
parent 2866 2d1ab34d1836
child 2876 de49b76ae355
--- a/MenuItem.st	Mon Oct 25 12:02:04 2010 +0200
+++ b/MenuItem.st	Fri Oct 29 00:41:19 2010 +0200
@@ -916,7 +916,9 @@
 hasIndication
     "test whether indication on/off exists
     "
-  ^ self indication notNil
+    ^ self indication notNil
+
+    "Modified: / 28-10-2010 / 23:30:52 / cg"
 !
 
 hasSubmenu
@@ -956,7 +958,9 @@
     |indication|
 
     indication := self indication.
-  ^ indication value == false
+    ^ indication value == false
+
+    "Modified: / 28-10-2010 / 23:30:57 / cg"
 !
 
 isOn
@@ -965,7 +969,9 @@
     |indication|
 
     indication := self indication.
-  ^ indication value == true
+    ^ indication value == true
+
+    "Modified: / 28-10-2010 / 23:31:02 / cg"
 !
 
 isSeparatorItem
@@ -977,9 +983,9 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.90 2010-09-22 12:20:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.91 2010-10-28 22:41:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.90 2010-09-22 12:20:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.91 2010-10-28 22:41:19 cg Exp $'
 ! !