#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Wed, 16 Nov 2016 23:16:34 +0100
changeset 5333 2b7391c82d5c
parent 5332 32b9a3b4abdb
child 5334 acc80500c3e2
#DOCUMENTATION by cg class: MenuPanel
MenuPanel.st
--- a/MenuPanel.st	Wed Nov 16 23:15:54 2016 +0100
+++ b/MenuPanel.st	Wed Nov 16 23:16:34 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by eXept Software AG
 	      All Rights Reserved
@@ -9163,13 +9161,15 @@
 
     (icon isNil or:[icon device ~~ menusDevice]) ifTrue:[
         icon := self class icon.
-        index > 1 ifTrue:[ icon := icon rotated:(index - 1 * 90) ]
+        index > 1 ifTrue:[ icon := icon rotated:((index - 1) * 90) ]
                  ifFalse:[ icon := icon copy ].
 
         icon := icon onDevice:menusDevice.
         icons at:index put:icon
     ].
     ^ icon
+
+    "Modified (format): / 16-11-2016 / 23:12:59 / cg"
 ! !
 
 !MenuPanel::ScrollActivity methodsFor:'initialization'!