equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997-1998 by eXept Software AG |
2 COPYRIGHT (c) 1997-1998 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 |
6621 "magnifies the current image one step up" |
6619 "magnifies the current image one step up" |
6622 |
6620 |
6623 |magHolder mag| |
6621 |magHolder mag| |
6624 |
6622 |
6625 magHolder := self magnificationHolder. |
6623 magHolder := self magnificationHolder. |
6626 (mag := magHolder value) < 99 ifTrue: [ |
6624 (mag := magHolder value) < 63 ifTrue: [ |
6627 magHolder value: mag + 1 |
6625 magHolder value: mag + 1 |
6628 ] |
6626 ] |
6629 |
6627 |
6630 "Modified: / 26.7.1998 / 20:23:52 / cg" |
6628 "Modified: / 26.7.1998 / 20:23:52 / cg" |
6631 ! |
6629 ! |