# HG changeset patch # User tz # Date 892228881 -7200 # Node ID de5c99bd3078e22cf9cd56e20ad534bf2e39d5f5 # Parent 6cf444ab3cf5e16bc929989a38665c4c5b3377e0 help diff -r 6cf444ab3cf5 -r de5c99bd3078 MethodSelectionBrowser.st --- 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 diff -r 6cf444ab3cf5 -r de5c99bd3078 ResourceSelectionBrowser.st --- 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" diff -r 6cf444ab3cf5 -r de5c99bd3078 SelectionBrowser.st --- 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