equal
deleted
inserted
replaced
6783 |
6783 |
6784 |clr| |
6784 |clr| |
6785 |
6785 |
6786 clr := imageEditView getClipboardObject. |
6786 clr := imageEditView getClipboardObject. |
6787 clr isColor ifFalse:[ |
6787 clr isColor ifFalse:[ |
6788 UserPreferences current beepInEditor ifTrue:[ |
6788 self beepInEditor. |
6789 self window beep. |
|
6790 ]. |
|
6791 ^ nil |
6789 ^ nil |
6792 ]. |
6790 ]. |
6793 ^ clr |
6791 ^ clr |
6794 |
6792 |
6795 "Created: / 08-10-2017 / 09:02:14 / cg" |
6793 "Created: / 08-10-2017 / 09:02:14 / cg" |
8137 l := lV value. |
8135 l := lV value. |
8138 r := rV value. |
8136 r := rV value. |
8139 t := tV value. |
8137 t := tV value. |
8140 b := bV value. |
8138 b := bV value. |
8141 (l + r + t + b) == 0 ifTrue:[ |
8139 (l + r + t + b) == 0 ifTrue:[ |
8142 UserPreferences current beepInEditor ifTrue:[ |
8140 self window beepInEditor |
8143 self window beep |
|
8144 ] |
|
8145 ] ifFalse:[ |
8141 ] ifFalse:[ |
8146 img := imageEditView image. |
8142 img := imageEditView image. |
8147 firstChange ifTrue:[ |
8143 firstChange ifTrue:[ |
8148 imageEditView makeUndo. |
8144 imageEditView makeUndo. |
8149 firstChange := false. |
8145 firstChange := false. |