equal
deleted
inserted
replaced
3955 ! ! |
3955 ! ! |
3956 |
3956 |
3957 !MenuEditor::Item methodsFor:'initialization'! |
3957 !MenuEditor::Item methodsFor:'initialization'! |
3958 |
3958 |
3959 initialize |
3959 initialize |
|
3960 <modifier: #super> "must be called if redefined" |
|
3961 |
3960 super initialize. |
3962 super initialize. |
3961 menuItem := MenuItem label:(self class defaultLabel). |
3963 menuItem := MenuItem label:(self class defaultLabel). |
|
3964 |
|
3965 "Modified: / 08-02-2017 / 00:28:44 / cg" |
3962 ! ! |
3966 ! ! |
3963 |
3967 |
3964 !MenuEditor::Item methodsFor:'private'! |
3968 !MenuEditor::Item methodsFor:'private'! |
3965 |
3969 |
3966 validateValue:aValue |
3970 validateValue:aValue |
4692 "Modified: / 13-04-2011 / 18:56:45 / cg" |
4696 "Modified: / 13-04-2011 / 18:56:45 / cg" |
4693 "Created: / 03-08-2011 / 10:47:16 / cg" |
4697 "Created: / 03-08-2011 / 10:47:16 / cg" |
4694 ! |
4698 ! |
4695 |
4699 |
4696 initialize |
4700 initialize |
|
4701 <modifier: #super> "must be called if redefined" |
|
4702 |
4697 super initialize. |
4703 super initialize. |
4698 children := #(). |
4704 children := #(). |
|
4705 |
|
4706 "Modified: / 08-02-2017 / 00:28:37 / cg" |
4699 ! |
4707 ! |
4700 |
4708 |
4701 updateFromClass:aClass selectorFilter:aFilterBlock |
4709 updateFromClass:aClass selectorFilter:aFilterBlock |
4702 (aClass notNil and:[aClass isBehavior]) ifFalse:[ |
4710 (aClass notNil and:[aClass isBehavior]) ifFalse:[ |
4703 ^ self collapse. |
4711 ^ self collapse. |
5193 ! ! |
5201 ! ! |
5194 |
5202 |
5195 !MenuEditor::ActionItem methodsFor:'initialization'! |
5203 !MenuEditor::ActionItem methodsFor:'initialization'! |
5196 |
5204 |
5197 initialize |
5205 initialize |
|
5206 <modifier: #super> "must be called if redefined" |
|
5207 |
5198 super initialize. |
5208 super initialize. |
5199 isExpanded := true. |
5209 isExpanded := true. |
|
5210 |
|
5211 "Modified: / 08-02-2017 / 00:28:28 / cg" |
5200 ! ! |
5212 ! ! |
5201 |
5213 |
5202 !MenuEditor::ActionItem methodsFor:'queries'! |
5214 !MenuEditor::ActionItem methodsFor:'queries'! |
5203 |
5215 |
5204 canCollapse |
5216 canCollapse |
5490 ! ! |
5502 ! ! |
5491 |
5503 |
5492 !MenuEditor::LinkedMenuItem methodsFor:'initialization'! |
5504 !MenuEditor::LinkedMenuItem methodsFor:'initialization'! |
5493 |
5505 |
5494 initialize |
5506 initialize |
5495 "setup default values on the item |
5507 "setup default values on the item" |
5496 " |
5508 |
|
5509 <modifier: #super> "must be called if redefined" |
|
5510 |
5497 super initialize. |
5511 super initialize. |
5498 |
5512 |
5499 "setting default values |
5513 "setting default values |
5500 " |
5514 " |
5501 "/ CG: Thu, 08 May 2008 11:16:54 GMT |
5515 "/ CG: Thu, 08 May 2008 11:16:54 GMT |
5503 "/ will confuse newcomers (even me occasionally) |
5517 "/ will confuse newcomers (even me occasionally) |
5504 "/ (will search, why the menu is not updated...) |
5518 "/ (will search, why the menu is not updated...) |
5505 |
5519 |
5506 "/ menuItem keepLinkedMenu:true. |
5520 "/ menuItem keepLinkedMenu:true. |
5507 menuItem keepLinkedMenu:false. |
5521 menuItem keepLinkedMenu:false. |
|
5522 |
|
5523 "Modified (comment): / 08-02-2017 / 00:29:14 / cg" |
5508 ! ! |
5524 ! ! |
5509 |
5525 |
5510 !MenuEditor::LinkedMenuItem methodsFor:'queries'! |
5526 !MenuEditor::LinkedMenuItem methodsFor:'queries'! |
5511 |
5527 |
5512 isKindOfLinkedMenu |
5528 isKindOfLinkedMenu |
6134 ! ! |
6150 ! ! |
6135 |
6151 |
6136 !MenuEditor::RootItem methodsFor:'initialization'! |
6152 !MenuEditor::RootItem methodsFor:'initialization'! |
6137 |
6153 |
6138 initialize |
6154 initialize |
|
6155 <modifier: #super> "must be called if redefined" |
|
6156 |
6139 super initialize. |
6157 super initialize. |
6140 isExpanded := true. |
6158 isExpanded := true. |
|
6159 |
|
6160 "Modified: / 08-02-2017 / 00:29:29 / cg" |
6141 ! ! |
6161 ! ! |
6142 |
6162 |
6143 !MenuEditor::RootItem methodsFor:'queries'! |
6163 !MenuEditor::RootItem methodsFor:'queries'! |
6144 |
6164 |
6145 canCollapse |
6165 canCollapse |