equal
deleted
inserted
replaced
18 ApplicationModel subclass:#Inspector2 |
18 ApplicationModel subclass:#Inspector2 |
19 instanceVariableNames:'tabViewAspect navigationHistoryHolder navigationStateAspect |
19 instanceVariableNames:'tabViewAspect navigationHistoryHolder navigationStateAspect |
20 browser currentObjectHolder colorProfileHolder |
20 browser currentObjectHolder colorProfileHolder |
21 toolbarBackgroundHolder evaluationLanguageHolder |
21 toolbarBackgroundHolder evaluationLanguageHolder |
22 evaluationLanguageList operationsMenuEnabledHolder' |
22 evaluationLanguageList operationsMenuEnabledHolder' |
23 classVariableNames:'ColorProfiles EvaluationLanguageMap LastExtent' |
23 classVariableNames:'ColorProfiles EvaluationLanguageMap LastExtent LastAlphabetical' |
24 poolDictionaries:'' |
24 poolDictionaries:'' |
25 category:'Interface-Inspector2' |
25 category:'Interface-Inspector2' |
26 ! |
26 ! |
27 |
27 |
28 Model subclass:#NavigationState |
28 Model subclass:#NavigationState |
950 ]. |
950 ]. |
951 ^ operationsMenuEnabledHolder |
951 ^ operationsMenuEnabledHolder |
952 ! |
952 ! |
953 |
953 |
954 showAlphabeticalHolder |
954 showAlphabeticalHolder |
955 ^ builder booleanValueAspectFor:#showAlphabeticalHolder |
955 ^ builder valueAspectFor:#showAlphabeticalHolder initialValue:(LastAlphabetical ? false) |
956 ! |
956 ! |
957 |
957 |
958 sortOrderHolder |
958 sortOrderHolder |
959 ^ builder |
959 ^ builder |
960 valueAspectFor:#sortOrderHolder |
960 valueAspectFor:#sortOrderHolder |
1022 "Modified: / 27-02-2008 / 12:05:56 / janfrog" |
1022 "Modified: / 27-02-2008 / 12:05:56 / janfrog" |
1023 ! ! |
1023 ! ! |
1024 |
1024 |
1025 !Inspector2 methodsFor:'change & update'! |
1025 !Inspector2 methodsFor:'change & update'! |
1026 |
1026 |
|
1027 setShowAlphabeticalInSubInspectors |
|
1028 |nowAlphabetical| |
|
1029 |
|
1030 nowAlphabetical := self showAlphabeticalHolder value. |
|
1031 self navigationHistoryHolder currentItem tabViews do:[:each | |
|
1032 (each isKindOf:InspectorView) ifTrue:[ |
|
1033 each showAlphabetical:nowAlphabetical |
|
1034 ] |
|
1035 ]. |
|
1036 ! |
|
1037 |
|
1038 showAlphabeticalHolderChanged |
|
1039 LastAlphabetical := self showAlphabeticalHolder value. |
|
1040 self setShowAlphabeticalInSubInspectors. |
|
1041 ! |
|
1042 |
|
1043 suppressPseudoSlotsHolderChanged |
|
1044 self navigationHistoryHolder currentItem tabViews do:[:each | |
|
1045 (each isKindOf:InspectorView) ifTrue:[ |
|
1046 each suppressPseudoSlots:(self suppressPseudoSlotsHolder value) |
|
1047 ] |
|
1048 ]. |
|
1049 |
|
1050 "Created: / 18-07-2017 / 15:22:02 / cg" |
|
1051 ! |
|
1052 |
1027 update:something with:aParameter from:changedObject |
1053 update:something with:aParameter from:changedObject |
1028 "Invoked when an object that I depend upon sends a change notification." |
1054 "Invoked when an object that I depend upon sends a change notification." |
1029 |
1055 |
1030 "stub code automatically generated - please change as required" |
1056 "stub code automatically generated - please change as required" |
1031 |
1057 |
1081 |
1107 |
1082 currentObjectHolder value isProtoObject ifFalse:[ |
1108 currentObjectHolder value isProtoObject ifFalse:[ |
1083 items := currentObjectHolder value inspectorExtraMenuOperations. |
1109 items := currentObjectHolder value inspectorExtraMenuOperations. |
1084 ]. |
1110 ]. |
1085 self operationsMenuEnabledHolder value:(items notEmptyOrNil). |
1111 self operationsMenuEnabledHolder value:(items notEmptyOrNil). |
|
1112 ! |
|
1113 |
|
1114 updateWindowLabel |
|
1115 "not only the label is updated; |
|
1116 also the current inspected object is fetched from the navigation state" |
|
1117 |
|
1118 |currentItem object| |
|
1119 |
|
1120 (currentItem := self navigationHistoryHolder currentItem) notNil ifTrue:[ |
|
1121 object := currentItem theObject. |
|
1122 ]. |
|
1123 self currentObjectHolder value:object. |
|
1124 self window label:(InspectorView commonLabelFor:object). |
|
1125 |
|
1126 "Created: / 15-07-2011 / 16:25:42 / cg" |
1086 ! ! |
1127 ! ! |
1087 |
1128 |
1088 !Inspector2 methodsFor:'configuration'! |
1129 !Inspector2 methodsFor:'configuration'! |
1089 |
1130 |
1090 headLineLabelView |
1131 headLineLabelView |
1317 "/ sel := selectionIndex. |
1358 "/ sel := selectionIndex. |
1318 "/ self selectionIndex:nil. |
1359 "/ self selectionIndex:nil. |
1319 "/ self selectionIndex:sel. |
1360 "/ self selectionIndex:sel. |
1320 |
1361 |
1321 "Created: / 21-08-2011 / 08:23:00 / cg" |
1362 "Created: / 21-08-2011 / 08:23:00 / cg" |
1322 ! |
1363 ! ! |
1323 |
1364 |
1324 showAlphabeticalHolderChanged |
1365 !Inspector2 methodsFor:'open & close'! |
1325 self navigationHistoryHolder currentItem tabViews do:[:each | |
|
1326 (each isKindOf:InspectorView) ifTrue:[ |
|
1327 each showAlphabetical:(self showAlphabeticalHolder value) |
|
1328 ] |
|
1329 ]. |
|
1330 ! |
|
1331 |
|
1332 suppressPseudoSlotsHolderChanged |
|
1333 self navigationHistoryHolder currentItem tabViews do:[:each | |
|
1334 (each isKindOf:InspectorView) ifTrue:[ |
|
1335 each suppressPseudoSlots:(self suppressPseudoSlotsHolder value) |
|
1336 ] |
|
1337 ]. |
|
1338 |
|
1339 "Created: / 18-07-2017 / 15:22:02 / cg" |
|
1340 ! ! |
|
1341 |
|
1342 !Inspector2 methodsFor:'opening'! |
|
1343 |
1366 |
1344 closeDownViews |
1367 closeDownViews |
1345 LastExtent := self window extent. |
1368 LastExtent := self window extent. |
1346 super closeDownViews. |
1369 super closeDownViews. |
1347 |
1370 |
1383 ! |
1406 ! |
1384 |
1407 |
1385 postBuildWith:aBuilder |
1408 postBuildWith:aBuilder |
1386 super postBuildWith:aBuilder. |
1409 super postBuildWith:aBuilder. |
1387 self updateWindowLabel. |
1410 self updateWindowLabel. |
|
1411 self setShowAlphabeticalInSubInspectors. |
1388 |
1412 |
1389 "Created: / 15-07-2011 / 16:25:36 / cg" |
1413 "Created: / 15-07-2011 / 16:25:36 / cg" |
1390 "Modified: / 12-08-2014 / 20:01:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1414 "Modified: / 12-08-2014 / 20:01:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1391 ! |
|
1392 |
|
1393 updateWindowLabel |
|
1394 "not only the label is updated; |
|
1395 also the current inspected object is fetched from the navigation state" |
|
1396 |
|
1397 |currentItem object| |
|
1398 |
|
1399 (currentItem := self navigationHistoryHolder currentItem) notNil ifTrue:[ |
|
1400 object := currentItem theObject. |
|
1401 ]. |
|
1402 self currentObjectHolder value:object. |
|
1403 self window label:(InspectorView commonLabelFor:object). |
|
1404 |
|
1405 "Created: / 15-07-2011 / 16:25:42 / cg" |
|
1406 ! ! |
1415 ! ! |
1407 |
1416 |
1408 !Inspector2 methodsFor:'private'! |
1417 !Inspector2 methodsFor:'private'! |
1409 |
1418 |
1410 navigationStateFor: anObject |
1419 navigationStateFor: anObject |