equal
deleted
inserted
replaced
99 |
99 |
100 submenu := self userDefinedSubmenu. |
100 submenu := self userDefinedSubmenu. |
101 size := aColors size. |
101 size := aColors size. |
102 |
102 |
103 size == 0 ifTrue:[ "/ separator |
103 size == 0 ifTrue:[ "/ separator |
104 submenu addItem:(MenuItem label:'-'). |
104 submenu addSeparator. |
105 ^ self |
105 ^ self |
106 ]. |
106 ]. |
107 |
107 |
108 labels := labelsOrNil ? #(). |
108 labels := labelsOrNil ? #(). |
109 bgColor := aColors first. |
109 bgColor := aColors first. |
666 ! ! |
666 ! ! |
667 |
667 |
668 !ColorMenu class methodsFor:'documentation'! |
668 !ColorMenu class methodsFor:'documentation'! |
669 |
669 |
670 version |
670 version |
671 ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.63 2009-09-15 10:43:48 sr Exp $' |
671 ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.64 2009-12-04 13:37:58 cg Exp $' |
672 ! ! |
672 ! |
|
673 |
|
674 version_CVS |
|
675 ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.64 2009-12-04 13:37:58 cg Exp $' |
|
676 ! ! |