equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
18 Model subclass:#Menu |
16 Model subclass:#Menu |
19 instanceVariableNames:'items groupSizes receiver' |
17 instanceVariableNames:'items groupSizes receiver' |
20 classVariableNames:'' |
18 classVariableNames:'' |
21 poolDictionaries:'' |
19 poolDictionaries:'' |
22 category:'Views-Support' |
20 category:'Views-Support' |
|
21 ! |
|
22 |
|
23 Query subclass:#NeedResourcesQuery |
|
24 instanceVariableNames:'' |
|
25 classVariableNames:'' |
|
26 poolDictionaries:'' |
|
27 privateIn:Menu |
23 ! |
28 ! |
24 |
29 |
25 !Menu class methodsFor:'documentation'! |
30 !Menu class methodsFor:'documentation'! |
26 |
31 |
27 copyright |
32 copyright |
554 "setup a resource owner" |
559 "setup a resource owner" |
555 |
560 |
556 receiver isNil ifTrue:[ |
561 receiver isNil ifTrue:[ |
557 receiver := aResourceContainerOrApplication |
562 receiver := aResourceContainerOrApplication |
558 ]. |
563 ]. |
559 ^ self |
564 self |
560 findGuiResourcesIn:aResourceContainerOrApplication |
565 findGuiResourcesIn:aResourceContainerOrApplication |
561 rememberResourcesIn:(ValueHolder new) |
566 rememberResourcesIn:(ValueHolder new) |
562 |
567 |
563 "Modified: / 26-10-2006 / 16:37:57 / cg" |
568 "Modified: / 26-10-2006 / 16:37:57 / cg" |
564 ! |
569 ! |
575 |
580 |
576 "/ receiver isNil ifTrue:[ |
581 "/ receiver isNil ifTrue:[ |
577 "/ receiver := aResourceContainerOrApplication |
582 "/ receiver := aResourceContainerOrApplication |
578 "/ ]. |
583 "/ ]. |
579 items isEmptyOrNil ifTrue:[^ self]. |
584 items isEmptyOrNil ifTrue:[^ self]. |
|
585 NeedResourcesQuery query ifFalse:[^self]. |
580 |
586 |
581 resolvedItems := OrderedCollection new. |
587 resolvedItems := OrderedCollection new. |
582 |
588 |
583 items do:[:anItem | |
589 items do:[:anItem | |
584 anItem isMenuSlice ifTrue:[ |
590 anItem isMenuSlice ifTrue:[ |
1295 ] |
1301 ] |
1296 |
1302 |
1297 "Created: / 12-10-2011 / 20:11:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1303 "Created: / 12-10-2011 / 20:11:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1298 ! ! |
1304 ! ! |
1299 |
1305 |
|
1306 !Menu::NeedResourcesQuery class methodsFor:'defaults'! |
|
1307 |
|
1308 defaultAnswer |
|
1309 ^ true |
|
1310 ! ! |
|
1311 |
1300 !Menu class methodsFor:'documentation'! |
1312 !Menu class methodsFor:'documentation'! |
1301 |
1313 |
1302 version_CVS |
1314 version_CVS |
1303 ^ '$Header$' |
1315 ^ '$Header$' |
1304 ! ! |
1316 ! ! |