equal
deleted
inserted
replaced
1514 (value := menu startUp) == #cut ifTrue:[ |
1514 (value := menu startUp) == #cut ifTrue:[ |
1515 clipBoardSpec collection remove:spec ifAbsent:nil. |
1515 clipBoardSpec collection remove:spec ifAbsent:nil. |
1516 gallery update. |
1516 gallery update. |
1517 ] ifFalse:[ |
1517 ] ifFalse:[ |
1518 value == #copy ifTrue:[ |
1518 value == #copy ifTrue:[ |
1519 self window setSelection:spec |
1519 self window setClipboardObject:spec |
1520 ] |
1520 ] |
1521 ]. |
1521 ]. |
1522 ^ self |
1522 ^ self |
1523 ]. |
1523 ]. |
1524 |
1524 |