equal
deleted
inserted
replaced
1524 |
1524 |
1525 self isUserBoard ifTrue:[ |
1525 self isUserBoard ifTrue:[ |
1526 ^ self defineClassAndSelector |
1526 ^ self defineClassAndSelector |
1527 ]. |
1527 ]. |
1528 |
1528 |
1529 paste := self window getSelection. |
1529 paste := self window getClipboardObject. |
1530 |
1530 |
1531 (self canPaste:paste) ifTrue:[ |
1531 (self canPaste:paste) ifTrue:[ |
1532 menu := self class menuUnselected decodeAsLiteralArray. |
1532 menu := self class menuUnselected decodeAsLiteralArray. |
1533 |
1533 |
1534 (menu startUp) == #paste ifTrue:[ |
1534 (menu startUp) == #paste ifTrue:[ |