equal
deleted
inserted
replaced
15 |
15 |
16 ApplicationModel subclass:#Inspector2 |
16 ApplicationModel subclass:#Inspector2 |
17 instanceVariableNames:'tabViewAspect navigationHistoryHolder navigationStateAspect |
17 instanceVariableNames:'tabViewAspect navigationHistoryHolder navigationStateAspect |
18 browser currentObjectHolder colorProfileHolder |
18 browser currentObjectHolder colorProfileHolder |
19 toolbarBackgroundHolder evaluationLanguageHolder |
19 toolbarBackgroundHolder evaluationLanguageHolder |
20 evaluationLanguageList' |
20 evaluationLanguageList operationsMenuEnabledHolder' |
21 classVariableNames:'LastExtent ColorProfiles EvaluationLanguageMap' |
21 classVariableNames:'LastExtent ColorProfiles EvaluationLanguageMap' |
22 poolDictionaries:'' |
22 poolDictionaries:'' |
23 category:'Interface-Inspector2' |
23 category:'Interface-Inspector2' |
24 ! |
24 ! |
25 |
25 |
458 (MenuItem |
458 (MenuItem |
459 label: 'View' |
459 label: 'View' |
460 submenuChannel: viewMenu |
460 submenuChannel: viewMenu |
461 ) |
461 ) |
462 (MenuItem |
462 (MenuItem |
|
463 enabled: operationsMenuEnabledHolder |
|
464 label: 'Operations' |
|
465 submenuChannel: operationsMenu |
|
466 ) |
|
467 (MenuItem |
463 label: 'MENU_Help' |
468 label: 'MENU_Help' |
464 startGroup: conditionalRight |
469 startGroup: conditionalRight |
465 submenuChannel: helpMenu |
470 submenuChannel: helpMenu |
466 ) |
471 ) |
467 ) |
472 ) |
908 |
913 |
909 "Created: / 27-02-2008 / 12:05:22 / janfrog" |
914 "Created: / 27-02-2008 / 12:05:22 / janfrog" |
910 "Modified (format): / 19-08-2011 / 08:59:10 / cg" |
915 "Modified (format): / 19-08-2011 / 08:59:10 / cg" |
911 ! |
916 ! |
912 |
917 |
|
918 operationsMenuEnabledHolder |
|
919 operationsMenuEnabledHolder isNil ifTrue:[ |
|
920 operationsMenuEnabledHolder := false asValue. |
|
921 ]. |
|
922 ^ operationsMenuEnabledHolder |
|
923 ! |
|
924 |
913 showAlphabeticalHolder |
925 showAlphabeticalHolder |
914 ^ builder booleanValueAspectFor:#showAlphabeticalHolder |
926 ^ builder booleanValueAspectFor:#showAlphabeticalHolder |
915 ! |
927 ! |
916 |
928 |
917 sortOrderHolder |
929 sortOrderHolder |
986 |
998 |
987 "stub code automatically generated - please change as required" |
999 "stub code automatically generated - please change as required" |
988 |
1000 |
989 changedObject == currentObjectHolder ifTrue:[ |
1001 changedObject == currentObjectHolder ifTrue:[ |
990 self updateEvaluationLanguageList. |
1002 self updateEvaluationLanguageList. |
|
1003 self updateOperationsMenu. |
991 ^ self. |
1004 ^ self. |
992 ]. |
1005 ]. |
993 changedObject == evaluationLanguageHolder ifTrue:[ |
1006 changedObject == evaluationLanguageHolder ifTrue:[ |
994 self updateEvaluationLanguage. |
1007 self updateEvaluationLanguage. |
995 ^ self. |
1008 ^ self. |
1028 ]. |
1041 ]. |
1029 |
1042 |
1030 self evaluationLanguageHolder value:(EvaluationLanguageMap at: currentObjectLanguage ifAbsent:[currentObjectLanguage]) |
1043 self evaluationLanguageHolder value:(EvaluationLanguageMap at: currentObjectLanguage ifAbsent:[currentObjectLanguage]) |
1031 |
1044 |
1032 "Created: / 26-10-2013 / 00:40:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1045 "Created: / 26-10-2013 / 00:40:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1046 ! |
|
1047 |
|
1048 updateOperationsMenu |
|
1049 |items| |
|
1050 |
|
1051 items := currentObjectHolder value inspectorExtraMenuOperations. |
|
1052 self operationsMenuEnabledHolder value:(items notEmptyOrNil). |
1033 ! ! |
1053 ! ! |
1034 |
1054 |
1035 !Inspector2 methodsFor:'configuration'! |
1055 !Inspector2 methodsFor:'configuration'! |
1036 |
1056 |
1037 hideHashes:aBoolean |
1057 hideHashes:aBoolean |
1068 forwardButtonMenuChannel |
1088 forwardButtonMenuChannel |
1069 ^ [ self navigationHistoryHolder goForwardMenu ] |
1089 ^ [ self navigationHistoryHolder goForwardMenu ] |
1070 |
1090 |
1071 "Created: / 12-01-2008 / 18:57:30 / janfrog" |
1091 "Created: / 12-01-2008 / 18:57:30 / janfrog" |
1072 "Modified: / 22-02-2008 / 16:58:11 / janfrog" |
1092 "Modified: / 22-02-2008 / 16:58:11 / janfrog" |
|
1093 ! |
|
1094 |
|
1095 operationsMenu |
|
1096 |items menu| |
|
1097 |
|
1098 items := currentObjectHolder value inspectorExtraMenuOperations. |
|
1099 items isEmptyOrNil ifTrue:[^ nil]. |
|
1100 |
|
1101 menu := Menu new. |
|
1102 items do:[:eachPair | |
|
1103 menu addItem:(MenuItem |
|
1104 label:eachPair first |
|
1105 itemValue:eachPair second). |
|
1106 ]. |
|
1107 ^ menu |
1073 ! |
1108 ! |
1074 |
1109 |
1075 settingsMenu |
1110 settingsMenu |
1076 |m| |
1111 |m| |
1077 |
1112 |