--- a/Tools__Inspector2.st Fri Jun 26 17:33:28 2015 +0200
+++ b/Tools__Inspector2.st Fri Jun 26 17:41:16 2015 +0200
@@ -470,6 +470,69 @@
!Inspector2 class methodsFor:'menu specs'!
+fileMenu
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu
+ (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Exit'
+ itemValue: closeRequest
+ )
+ )
+ nil
+ nil
+ )
+!
+
+helpMenu
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu
+ (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Inspector Documentation'
+ itemValue: openDocumentation
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'About this Application...'
+ itemValue: openAboutThisApplication
+ )
+ )
+ nil
+ nil
+ )
+!
+
mainMenu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -490,61 +553,16 @@
(
(MenuItem
label: 'File'
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Exit'
- itemValue: closeRequest
- )
- )
- nil
- nil
- )
+ submenuChannel: viewMenu
)
(MenuItem
label: 'View'
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Expand Arrays in "all xxx"-Lists'
- itemValue: expandArraysInAllList:
- indication: expandArraysInAllList
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Color Setting'
- submenuChannel: settingsMenu
- )
- )
- nil
- nil
- )
+ submenuChannel: viewMenu
)
(MenuItem
label: 'MENU_Help'
startGroup: conditionalRight
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Inspector Documentation'
- itemValue: openDocumentation
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'About this Application...'
- itemValue: openAboutThisApplication
- )
- )
- nil
- nil
- )
+ submenuChannel: helpMenu
)
)
nil
@@ -716,6 +734,47 @@
nil
nil
)
+!
+
+viewMenu
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:Tools::Inspector2 andSelector:#viewMenu
+ (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 viewMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Expand Arrays in "all xxx"-Lists'
+ itemValue: expandArraysInAllList:
+ indication: expandArraysInAllList
+ )
+ (MenuItem
+ label: 'Alphabetical'
+ itemValue: showAlphabeticalHolderChanged
+ indication: showAlphabeticalHolder
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Color Setting'
+ submenuChannel: settingsMenu
+ )
+ )
+ nil
+ nil
+ )
! !
!Inspector2 class methodsFor:'startup'!
@@ -944,6 +1003,10 @@
"Modified (format): / 19-08-2011 / 08:59:10 / cg"
!
+showAlphabeticalHolder
+ ^ builder booleanValueAspectFor:#showAlphabeticalHolder
+!
+
tabLabelsAspect
^ (AspectAdaptor forAspect:#tabLabels)
subjectChannel:self navigationStateAspect
@@ -1080,7 +1143,6 @@
#todo
! !
-
!Inspector2 methodsFor:'hooks'!
postBuildEvaluationLanguageCombo: aComboBoxView
@@ -1151,9 +1213,9 @@
"/ ^ self.
"/ ].
"/ ].
+
"/ if that fails, open a new one
-
- browser := UserPreferences systemBrowserClass
+ UserPreferences systemBrowserClass
openInClass:class selector:nil "/ browseSingleClass: class
"Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -1210,6 +1272,14 @@
"/ self selectionIndex:sel.
"Created: / 21-08-2011 / 08:23:00 / cg"
+!
+
+showAlphabeticalHolderChanged
+ self navigationHistoryHolder currentItem tabViews do:[:each |
+ (each isKindOf:InspectorView) ifTrue:[
+ each showAlphabetical:(self showAlphabeticalHolder value)
+ ]
+ ].
! !
!Inspector2 methodsFor:'opening'!
@@ -1286,6 +1356,11 @@
newSelectionIndex ~~ 0 ifTrue:[
new selectionIndex: newSelectionIndex.
].
+ new tabViews do:[:each |
+ (each isKindOf:InspectorView) ifTrue:[
+ each showAlphabetical:(self showAlphabeticalHolder value)
+ ]
+ ].
].
^ new
@@ -1323,6 +1398,7 @@
"Modified: / 10-03-2015 / 09:46:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!Inspector2::NavigationState class methodsFor:'creating classes'!
for:anObject
@@ -1338,11 +1414,11 @@
!Inspector2::NavigationState class methodsFor:'documentation'!
version
- ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
+ ^'$Header$'
!
version_SVN
- ^'$Id: Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
+ ^'$Id$'
! !
!Inspector2::NavigationState methodsFor:'accessing'!
@@ -1529,19 +1605,19 @@
!Inspector2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
+ ^ '$Header$'
!
version_CVS_jvrany
- ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
+ ^ '$Header$'
!
version_SVN
- ^ '$Id: Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $'
+ ^ '$Id$'
! !