--- a/MethodSelectionBrowser.st Thu Apr 09 21:16:17 1998 +0200
+++ b/MethodSelectionBrowser.st Fri Apr 10 19:21:21 1998 +0200
@@ -110,6 +110,15 @@
! !
+!MethodSelectionBrowser methodsFor:'aspects'!
+
+helpEnabled
+ "returns whether there is a documentation file"
+
+ ^false
+
+! !
+
!MethodSelectionBrowser methodsFor:'callbacks - user'!
classSelected
@@ -187,26 +196,30 @@
!MethodSelectionBrowser::Method methodsFor:'accessing'!
protocol
+ "returns the protocol of the method (#instance or #class)"
^protocol
!
-protocol: aString
+protocol: aSymbol
+ "sets the protocol of the method (#instance or #class)"
- protocol := aString
+ protocol := aSymbol
!
selector
+ "returns the selector of the method"
^selector
!
selector: aSymbol
+ "sets the selector of the method"
selector := aSymbol
--- a/ResourceSelectionBrowser.st Thu Apr 09 21:16:17 1998 +0200
+++ b/ResourceSelectionBrowser.st Fri Apr 10 19:21:21 1998 +0200
@@ -204,152 +204,185 @@
^
#(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'Resource Selection Browser'
- #layout: #(#LayoutFrame 221 0 252 0 820 0 601 0)
- #label: 'Resource Selection Browser'
- #min: #(#Point 400 300)
- #max: #(#Point 1152 864)
- #bounds: #(#Rectangle 221 252 821 602)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#VariableHorizontalPanelSpec
- #name: 'VariableHorizontalPanel'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#ViewSpec
- #name: 'Box1'
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#SelectionInTreeViewSpec
- #name: 'listOfClassesView'
- #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -22 1.0)
- #tabable: true
- #model: #selectionOfClass
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #showDirectoryIndicatorForRoot: false
- #showDirectoryIndicator: true
- #valueChangeSelector: #classSelected
- #hierarchicalList: #rootOfClasses
- #validateDoubleClickSelector: #validateDoubleClick:
- #contentsSelector: #treeViewContents
- #labelSelector: #treeViewLabel
- #childrenSelector: #treeViewChildren
- #iconSelector: #treeViewIcon
- )
- #(#InputFieldSpec
- #name: 'classNameInputField'
- #layout: #(#LayoutFrame 2 0.0 -22 1 -1 1.0 0 1)
- #tabable: true
- #model: #valueOfClassName
- )
- #(#LabelSpec
- #name: 'ClassHierarchyLabel'
- #layout: #(#LayoutFrame 0 0 2 0 297 0 23 0)
- #label: ' Class Hierarchy'
- #level: 1
- #adjust: #left
- )
- )
- )
- )
- #(#ViewSpec
- #name: 'Box2'
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#DataSetSpec
- #name: 'resourcesDataSetView'
- #layout: #(#LayoutFrame 2 0.0 2 0.0 -2 1.0 -22 1.0)
- #model: #selectionOfResourceMethod
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #rowClassName: 'ResourceSelectionBrowser::Row'
- #dataList: #listOfResourceMethods
- #useIndex: false
- #has3Dsepartors: true
- #doubleClickSelector: #resourceDoubleClicked
- #columnHolder: #resourceMethodColumns
- #valueChangeSelector: #resourceSelected
- #verticalSpacing: 1
- )
- #(#InputFieldSpec
- #name: 'selectorInputField'
- #layout: #(#LayoutFrame 2 0.0 -22 1 -2 1.0 0 1)
- #tabable: true
- #model: #valueOfResourceSelector
- )
- )
- )
- )
- )
- )
- #handles: #(#Any 0.5 1.0)
- )
- #(#UISubSpecification
- #name: 'windowSpecForCommitWithoutChannels'
- #layout: #(#LayoutFrame 301 0.0 -32 1 -2 1.0 -8 1.0)
- #majorKey: #ToolApplicationModel
- #minorKey: #windowSpecForCommitWithoutChannels
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanelView'
- #layout: #(#LayoutFrame 3 0 76 0.691429 300 0 0 0.977143)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#LabelSpec
- #name: 'Label2'
- #label: 'Create: '
- #adjust: #right
- #extent: #(#Point 72 24)
- )
- #(#ActionButtonSpec
- #name: 'CreateClassButton'
- #activeHelpKey: #dss
- #label: 'Class'
- #model: #createClass:
- #actionValue: 'class'
- #extent: #(#Point 72 24)
- )
- #(#ActionButtonSpec
- #name: 'CreateSubclassButton'
- #activeHelpKey: #dss
- #label: 'Subclass'
- #model: #createClass:
- #actionValue: 'subclass'
- #extent: #(#Point 72 24)
- )
- #(#ActionButtonSpec
- #name: 'CreatePrivateClassButton'
- #activeHelpKey: #dss
- #label: 'Private'
- #model: #createClass:
- #actionValue: 'private'
- #extent: #(#Point 72 24)
- )
- )
- )
- #horizontalLayout: #fit
- #verticalLayout: #fit
- )
- )
- )
+ #window:
+ #(#WindowSpec
+ #name: 'Resource Selection Browser'
+ #layout: #(#LayoutFrame 76 0 236 0 675 0 585 0)
+ #label: 'Resource Selection Browser'
+ #min: #(#Point 400 300)
+ #max: #(#Point 1152 864)
+ #bounds: #(#Rectangle 76 236 676 586)
+ #usePreferredExtent: false
+ )
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#VariableHorizontalPanelSpec
+ #name: 'VariableHorizontalPanel'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#ViewSpec
+ #name: 'Box1'
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#LabelSpec
+ #name: 'ClassHierarchyLabel'
+ #layout: #(#LayoutFrame 0 0.0 2 0 0 1.0 23 0)
+ #label: ' Class Hierarchy:'
+ #level: 1
+ #adjust: #left
+ )
+ #(#SelectionInTreeViewSpec
+ #name: 'listOfClassesView'
+ #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -60 1.0)
+ #tabable: true
+ #model: #selectionOfClass
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #showDirectoryIndicatorForRoot: false
+ #showDirectoryIndicator: true
+ #valueChangeSelector: #classSelected
+ #hierarchicalList: #rootOfClasses
+ #validateDoubleClickSelector: #validateDoubleClick:
+ #contentsSelector: #treeViewContents
+ #labelSelector: #treeViewLabel
+ #childrenSelector: #treeViewChildren
+ #iconSelector: #treeViewIcon
+ )
+ #(#InputFieldSpec
+ #name: 'classNameInputField'
+ #layout: #(#LayoutFrame 2 0.0 -58 1 -1 1.0 -36 1)
+ #tabable: true
+ #model: #valueOfClassName
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanelView'
+ #layout: #(#LayoutFrame 0 0.0 -28 1 0 1.0 -4 1)
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#LabelSpec
+ #name: 'CreateLabel'
+ #label: 'Create: '
+ #adjust: #right
+ #extent: #(#Point 72 24)
+ )
+ #(#ActionButtonSpec
+ #name: 'CreateClassButton'
+ #activeHelpKey: #dss
+ #label: 'Class'
+ #model: #createClass:
+ #actionValue: 'class'
+ #extent: #(#Point 72 24)
+ )
+ #(#ActionButtonSpec
+ #name: 'CreateSubclassButton'
+ #activeHelpKey: #dss
+ #label: 'Subclass'
+ #model: #createClass:
+ #actionValue: 'subclass'
+ #extent: #(#Point 72 24)
+ )
+ #(#ActionButtonSpec
+ #name: 'CreatePrivateClassButton'
+ #activeHelpKey: #dss
+ #label: 'Private'
+ #model: #createClass:
+ #actionValue: 'private'
+ #extent: #(#Point 73 24)
+ )
+ )
+ )
+ #horizontalLayout: #fit
+ #verticalLayout: #fit
+ )
+ )
+ )
+ )
+ #(#ViewSpec
+ #name: 'Box2'
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#DataSetSpec
+ #name: 'resourcesDataSetView'
+ #layout: #(#LayoutFrame 2 0.0 2 0.0 -2 1.0 -60 1.0)
+ #model: #selectionOfResourceMethod
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #rowClassName: 'ResourceSelectionBrowser::Row'
+ #dataList: #listOfResourceMethods
+ #useIndex: false
+ #has3Dsepartors: true
+ #doubleClickSelector: #resourceDoubleClicked
+ #columnHolder: #resourceMethodColumns
+ #valueChangeSelector: #resourceSelected
+ #verticalSpacing: 1
+ )
+ #(#InputFieldSpec
+ #name: 'selectorInputField'
+ #layout: #(#LayoutFrame 2 0.0 -58 1 -2 1.0 -36 1)
+ #tabable: true
+ #model: #valueOfResourceSelector
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanel1'
+ #layout: #(#LayoutFrame 2 0.0 -28 1 -2 1.0 -4 1.0)
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#ActionButtonSpec
+ #name: 'HelpButton'
+ #activeHelpKey: #dss
+ #label: 'Help'
+ #model: #openHTMLDocument:
+ #initiallyDisabled: true
+ #enableChannel: #helpEnabled
+ #actionValue: 'tools/uipainter/ResourceSelectionBrowser.html'
+ #extent: #(#Point 96 24)
+ )
+ #(#ActionButtonSpec
+ #name: 'cancelButton'
+ #activeHelpKey: #commitCancel
+ #label: 'Cancel'
+ #tabable: true
+ #model: #cancel
+ #extent: #(#Point 96 24)
+ )
+ #(#ActionButtonSpec
+ #name: 'okButton'
+ #activeHelpKey: #commitOK
+ #label: 'OK'
+ #tabable: true
+ #model: #accept
+ #isDefault: true
+ #extent: #(#Point 96 24)
+ )
+ )
+ )
+ #horizontalLayout: #fit
+ #verticalLayout: #fit
+ )
+ )
+ )
+ )
+ )
+ )
+ #handles: #(#Any 0.5 1.0)
+ )
+ )
+ )
)
! !
@@ -380,6 +413,12 @@
!ResourceSelectionBrowser methodsFor:'aspects'!
+helpEnabled
+ "returns whether there is a documentation file"
+
+ ^true
+!
+
listOfResourceMethods
"returns the value holder for the list of the resource methods"
--- a/SelectionBrowser.st Thu Apr 09 21:16:17 1998 +0200
+++ b/SelectionBrowser.st Fri Apr 10 19:21:21 1998 +0200
@@ -92,6 +92,14 @@
! !
+!SelectionBrowser methodsFor:'help'!
+
+openHTMLDocument: aHTMLFilename
+ "open a HTMLDocumentView on aHTMLFilename"
+
+ HTMLDocumentView openFullOnDocumentationFile: aHTMLFilename
+! !
+
!SelectionBrowser methodsFor:'startup / release'!
postBuildWith:aBuilder