hg/stx-libtool: comparison Tools_

equal deleted inserted replaced

-:6e92a0aa4e55
+:462e872a3fb6
+"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 2000 by eXept Software AG
 All Rights Reserved
 This software is furnished under a license and may be used
 Tools::NewSystemBrowser new openInterface:#codePaneSpec
 "
 <resource: #canvas>
 ^
 #(FullSpec
 name: codePaneSpec
 window:
 (WindowSpec
 label: 'SystemBrowser'
 name: 'SystemBrowser'
 min: (Point 0 0)
 bounds: (Rectangle 0 0 998 535)
 icon: defaultIcon
 )
 component:
 (SpecCollection
 collection: (
 (VariableHorizontalPanelSpec
 name: 'EditorAndBrowsletBox'
 layout: (LayoutFrame 0 0 0 0 0 1 0 1)
 component:
 (SpecCollection
 collection: (
 (ViewSpec
 name: 'EditorBox'
 component:
 (SpecCollection
 collection: (
 (NoteBookViewSpec
 name: 'EditorNoteBook'
 layout: (LayoutFrame 0 0 0 0 0 1 -26 1)
 level: 0
 model: selectedEditorNoteBookTabIndexHolder
 menu: editorNoteBookListHolder
 useIndex: true
-canvas: editorNoteBookCanvasHolder
+translateLabel: false
-keepCanvasAlive: true
+canvas: editorNoteBookCanvasHolder
-postBuildCallback: postBuildEditorNoteBook:
+keepCanvasAlive: true
-translateLabel: false
+postBuildCallback: postBuildEditorNoteBook:
-)
-(SubCanvasSpec
-name: 'StringSearchToolCanvas'
-layout: (LayoutFrame 0 0 -24 1 0 1 0 1)
-visibilityChannel: stringSearchToolVisibleHolder
-hasHorizontalScrollBar: false
-hasVerticalScrollBar: false
-majorKey: StringSearchToolForTextView
-createNewApplication: true
-createNewBuilder: false
-postBuildCallback: postBuildStringSearchTool:
-)
 )
+(SubCanvasSpec
-)
+name: 'StringSearchToolCanvas'
-)
+layout: (LayoutFrame 0 0 -24 1 0 1 0 1)
+visibilityChannel: stringSearchToolVisibleHolder
+hasHorizontalScrollBar: false
+hasVerticalScrollBar: false
+majorKey: StringSearchToolForTextView
+createNewApplication: true
+createNewBuilder: false
+postBuildCallback: postBuildStringSearchTool:
+)
+)
+)
 )
+)
-)
-handles: (Any 1.0)
+)
-postBuildCallback: postBuildCodePaneAndPluginView:
+handles: (Any 1.0)
-)
+postBuildCallback: postBuildCodePaneAndPluginView:
-(ViewSpec
+)
-name: 'InfoBox'
+(ViewSpec
-layout: (LayoutFrame 0 0 -24 1 0 1 0 1)
+name: 'InfoBox'
-visibilityChannel: codeInfoVisible
+layout: (LayoutFrame 0 0 -24 1 -16 1 0 1)
-component:
+visibilityChannel: codeInfoVisible
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(VariableHorizontalPanelSpec
+collection: (
-name: 'InfoBoxPanel'
+(VariableHorizontalPanelSpec
-layout: (LayoutFrame 0 0.0 0 0.0 -60 1.0 0 1.0)
+name: 'InfoBoxPanel'
-showHandle: false
+layout: (LayoutFrame 0 0.0 0 0.0 -60 1.0 0 1.0)
-component:
+showHandle: false
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(LabelSpec
+collection: (
-label: 'Info'
+(LabelSpec
-name: 'InfoLabel'
+label: 'Info'
-level: -1
+name: 'InfoLabel'
-translateLabel: true
+level: -1
-labelChannel: infoLabelHolder
+translateLabel: true
-adjust: left
+labelChannel: infoLabelHolder
-)
+adjust: left
-(HorizontalPanelViewSpec
+)
-name: 'PackageInfoPanel'
+(HorizontalPanelViewSpec
-level: -1
+name: 'PackageInfoPanel'
-horizontalLayout: rightSpaceFit
+level: -1
-verticalLayout: fitSpace
+horizontalLayout: rightSpaceFit
-horizontalSpace: 0
+verticalLayout: fitSpace
-verticalSpace: 0
+horizontalSpace: 0
-elementsChangeSize: true
+verticalSpace: 0
-component:
+elementsChangeSize: true
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(LabelSpec
+collection: (
-label: 'Package'
+(LabelSpec
-name: 'PackageLabel'
+label: 'Package'
-activeHelpKey: packageInfoLabel
+name: 'PackageLabel'
-level: 0
+activeHelpKey: packageInfoLabel
-backgroundChannel: packageInfoBackgroundColorHolder
+level: 0
-translateLabel: true
+backgroundChannel: packageInfoBackgroundColorHolder
-labelChannel: packageLabelHolder
+translateLabel: true
-adjust: left
+labelChannel: packageLabelHolder
-useDefaultExtent: true
+adjust: left
-)
+useDefaultExtent: true
-(ActionButtonSpec
-label: 'Info'
-name: 'PackageInfoButton'
-level: 0
-initiallyInvisible: true
-backgroundChannel: packageInfoBackgroundColorHolder
-foregroundColor: (Color 0.0 0.0 100.0)
-translateLabel: true
-resizeForLabel: true
-extent: (Point 36 23)
-postBuildCallback: postBuildPackageInfoButton:
-)
 )
+(ActionButtonSpec
-)
+label: 'Info'
-)
+name: 'PackageInfoButton'
+level: 0
+initiallyInvisible: true
+backgroundChannel: packageInfoBackgroundColorHolder
+foregroundColor: (Color 0.0 0.0 100.0)
+translateLabel: true
+resizeForLabel: true
+extent: (Point 36 23)
+postBuildCallback: postBuildPackageInfoButton:
+)
+)
+)
 )
+)
-)
-handles: (Any 0.66 1.0)
+)
-)
+handles: (Any 0.66000000000000003 1.0)
-(LabelSpec
-name: 'ModeLabel'
-layout: (LayoutFrame -60 1 0 0.0 -50 1 0 1.0)
-activeHelpKey: modeLabel
-level: -1
-translateLabel: true
-labelChannel: modeLabelHolder
-postBuildCallback: postBuildEditModeInfoLabel:
-)
-(LabelSpec
-name: 'CursorLineLabel'
-layout: (LayoutFrame -50 1 0 0.0 -20 1 0 1.0)
-activeHelpKey: lineLabel
-level: -1
-translateLabel: true
-labelChannel: cursorLineLabelHolder
-adjust: right
-)
-(LabelSpec
-name: 'CursorColLabel'
-layout: (LayoutFrame -20 1 0 0.0 0 1.0 0 1.0)
-activeHelpKey: columnLabel
-level: -1
-translateLabel: true
-labelChannel: cursorColLabelHolder
-adjust: right
-)
 )
+(LabelSpec
-)
+name: 'ModeLabel'
-keepSpaceForOSXResizeHandleH: true
+layout: (LayoutFrame -60 1 0 0.0 -50 1 0 1.0)
-)
+activeHelpKey: modeLabel
+level: -1
+translateLabel: true
+labelChannel: modeLabelHolder
+postBuildCallback: postBuildEditModeInfoLabel:
+)
+(LabelSpec
+name: 'CursorLineAndColumnLabel'
+layout: (LayoutFrame -50 1 0 0.0 0 1 0 1.0)
+activeHelpKey: lineAndColumnLabel
+level: -1
+translateLabel: false
+labelChannel: cursorLineAndColumnLabelHolder
+adjust: left
+)
+)
+)
+keepSpaceForOSXResizeHandleH: true
 )
+)
-)
 )
+)
 !
 fullBrowserSpec
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 "the current buffers cursorColumn Holder (info field)"
 ^ self navigationState cursorColLabelHolder
 !
+cursorLineAndColumnLabelHolder
+"the current buffers cursor position holder (info field)"
+^ self navigationState cursorLineAndColumnLabelHolder
+!
 cursorLineLabelHolder
 "the current buffers cursorLineumn Holder (info field)"
 ^ self navigationState cursorLineLabelHolder
 !
 !
 classMenuBrowseClassesPackageDirectory
 "open a filebrowser in the classes package directory"
-UserPreferences fileBrowserClass
+|fileBrowser cls dir fn|
-openIn:(self theSingleSelectedClass theNonMetaclass packageDirectory)
+fileBrowser := UserPreferences fileBrowserClass.
+cls := self theSingleSelectedClass theNonMetaclass.
+dir := cls packageDirectory.
+(dir asFilename exists and:[(fn := dir / cls classFilename) exists]) ifTrue:[
+fileBrowser openOn:fn
+] ifFalse:[
+fileBrowser openIn:dir
+]
 !
 classMenuChangeAspect:aspect
 "show a classes comment/hierarchy or definition"
 ]
 ].
 ].
 anEvent isButtonMultiPressEvent ifTrue:[
-anEvent view name = 'CursorLineLabel' ifTrue:[
+(anEvent view name = 'CursorLineLabel'
+or:[ anEvent view name = 'CursorLineAndColumnLabel' ]) ifTrue:[
 self codeView gotoLine
 ].
 ].
 ^ false

branch	jv
changeset 15825	462e872a3fb6
parent 15809	92b9fe0764d0
parent 15819	8418d59019da
child 15839	aac7b8d588ce