equal
deleted
inserted
replaced
695 pasteColor |
695 pasteColor |
696 |copyBufferColor| |
696 |copyBufferColor| |
697 |
697 |
698 copyBufferColor := self window getClipboardObject. |
698 copyBufferColor := self window getClipboardObject. |
699 copyBufferColor isColor ifFalse:[ |
699 copyBufferColor isColor ifFalse:[ |
700 self window beep. |
700 UserPreferences current beepInEditor ifTrue:[ |
|
701 self window beep. |
|
702 ]. |
701 ^ self |
703 ^ self |
702 ]. |
704 ]. |
703 self color:copyBufferColor |
705 self color:copyBufferColor |
704 ! |
706 ! |
705 |
707 |