equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
9161 |
9159 |
9162 icon := icons at:index. |
9160 icon := icons at:index. |
9163 |
9161 |
9164 (icon isNil or:[icon device ~~ menusDevice]) ifTrue:[ |
9162 (icon isNil or:[icon device ~~ menusDevice]) ifTrue:[ |
9165 icon := self class icon. |
9163 icon := self class icon. |
9166 index > 1 ifTrue:[ icon := icon rotated:(index - 1 * 90) ] |
9164 index > 1 ifTrue:[ icon := icon rotated:((index - 1) * 90) ] |
9167 ifFalse:[ icon := icon copy ]. |
9165 ifFalse:[ icon := icon copy ]. |
9168 |
9166 |
9169 icon := icon onDevice:menusDevice. |
9167 icon := icon onDevice:menusDevice. |
9170 icons at:index put:icon |
9168 icons at:index put:icon |
9171 ]. |
9169 ]. |
9172 ^ icon |
9170 ^ icon |
|
9171 |
|
9172 "Modified (format): / 16-11-2016 / 23:12:59 / cg" |
9173 ! ! |
9173 ! ! |
9174 |
9174 |
9175 !MenuPanel::ScrollActivity methodsFor:'initialization'! |
9175 !MenuPanel::ScrollActivity methodsFor:'initialization'! |
9176 |
9176 |
9177 initialize |
9177 initialize |