equal
deleted
inserted
replaced
1003 pasteColor |
1003 pasteColor |
1004 |copyBufferColor| |
1004 |copyBufferColor| |
1005 |
1005 |
1006 copyBufferColor := self window getClipboardObject. |
1006 copyBufferColor := self window getClipboardObject. |
1007 copyBufferColor isColor ifFalse:[ |
1007 copyBufferColor isColor ifFalse:[ |
1008 UserPreferences current beepInEditor ifTrue:[ |
1008 self window beepInEditor. |
1009 self window beep. |
|
1010 ]. |
|
1011 ^ self |
1009 ^ self |
1012 ]. |
1010 ]. |
1013 self color:copyBufferColor |
1011 self color:copyBufferColor |
1014 ! |
1012 ! |
1015 |
1013 |