--- a/UIPainter.st Wed Mar 11 19:28:34 1998 +0100
+++ b/UIPainter.st Wed Mar 11 19:46:53 1998 +0100
@@ -98,13 +98,6 @@
! !
-!UIPainter class methodsFor:'accessing'!
-
-label
-
- ^'GUI Builder'
-! !
-
!UIPainter class methodsFor:'accessing-defaults'!
defaultNameOfCanvas
@@ -195,6 +188,9 @@
#editDimensionPasteWidth
'Sets the width of the selected widgets to the width of the last copied layout/extent.'
+#editInspectSpec
+'Opens an inspector on the spec of the selected widget.'
+
#fileBrowseAspectMethods
'Opens a System Browser to browse the aspect methods.'
@@ -443,84 +439,83 @@
<resource: #canvas>
^
-
+
#(#FullSpec
- #'window:'
+ #window:
#(#WindowSpec
- #'name:' 'GUI Builder'
- #'layout:' #(#LayoutFrame 238 0 270 0 584 0 429 0)
- #'label:' 'GUI Builder'
- #'min:' #(#Point 10 10)
- #'max:' #(#Point 1152 900)
- #'bounds:' #(#Rectangle 238 270 585 430)
- #'usePreferredExtent:' false
+ #name: 'GUI Painter'
+ #layout: #(#LayoutFrame 296 0 349 0 642 0 508 0)
+ #label: 'GUI Painter'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1152 900)
+ #bounds: #(#Rectangle 296 349 643 509)
+ #usePreferredExtent: false
)
- #'component:'
+ #component:
#(#SpecCollection
- #'collection:'
+ #collection:
#(
#(#FramedBoxSpec
- #'name:' 'framedBox1'
- #'layout:' #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
- #'component:'
+ #name: 'framedBox1'
+ #layout: #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
+ #component:
#(#SpecCollection
- #'collection:'
+ #collection:
#(
#(#LabelSpec
- #'name:' 'selectorLabel'
- #'layout:' #(#AlignmentOrigin 77 0.11 39 0 1 0.5)
- #'label:' 'Selector:'
- #'adjust:' #right
- #'resizeForLabel:' true
+ #name: 'selectorLabel'
+ #layout: #(#AlignmentOrigin 77 0.11 39 0 1 0.5)
+ #label: 'Selector:'
+ #adjust: #right
+ #resizeForLabel: true
)
#(#InputFieldSpec
- #'name:' 'methodNameField'
- #'layout:' #(#LayoutFrame 80 0.11 28 0 14 1.0 50 0)
- #'tabable:' true
- #'model:' #methodNameChannel
+ #name: 'methodNameField'
+ #layout: #(#LayoutFrame 80 0.11 28 0 14 1.0 50 0)
+ #tabable: true
+ #model: #methodNameChannel
)
#(#LabelSpec
- #'name:' 'classLabel'
- #'layout:' #(#AlignmentOrigin 77 0.11 64 0 1 0.5)
- #'label:' 'Class:'
- #'adjust:' #right
- #'resizeForLabel:' true
+ #name: 'classLabel'
+ #layout: #(#AlignmentOrigin 77 0.11 64 0 1 0.5)
+ #label: 'Class:'
+ #adjust: #right
+ #resizeForLabel: true
)
#(#InputFieldSpec
- #'name:' 'classNameField'
- #'layout:' #(#LayoutFrame 80 0.11 53 0 14 1.0 75 0)
- #'tabable:' true
- #'model:' #classNameChannel
+ #name: 'classNameField'
+ #layout: #(#LayoutFrame 80 0.11 53 0 14 1.0 75 0)
+ #tabable: true
+ #model: #classNameChannel
)
#(#LabelSpec
- #'name:' 'superClassLabel'
- #'layout:' #(#AlignmentOrigin 77 0.11 89 0 1 0.5)
- #'label:' 'Superclass:'
- #'adjust:' #right
- #'resizeForLabel:' true
+ #name: 'superClassLabel'
+ #layout: #(#AlignmentOrigin 77 0.11 89 0 1 0.5)
+ #label: 'Superclass:'
+ #adjust: #right
+ #resizeForLabel: true
)
#(#ComboBoxSpec
- #'name:' 'superclassNameComboBox'
- #'layout:' #(#LayoutFrame 80 0.11 78 0 14 1.0 100 0)
- #'tabable:' true
- #'model:' #superclassNameChannel
- #'comboList:' #superclassNameDefaults
+ #name: 'superclassNameComboBox'
+ #layout: #(#LayoutFrame 80 0.11 78 0 14 1.0 100 0)
+ #tabable: true
+ #model: #superclassNameChannel
+ #comboList: #superclassNameDefaults
)
)
)
- #'label:' 'Define Class And Selector'
- #'labelPosition:' #topLeft
+ #label: 'Define Class And Selector'
+ #labelPosition: #topLeft
)
#(#UISubSpecification
- #'name:' 'uISubSpecifica1'
- #'layout:' #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
- #'majorKey:' #ToolApplicationModel
- #'minorKey:' #windowSpecForCommitWithoutChannels
+ #name: 'uISubSpecifica1'
+ #layout: #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
+ #majorKey: #ToolApplicationModel
+ #minorKey: #windowSpecForCommitWithoutChannels
)
)
)
)
-
!
windowSpec
@@ -940,18 +935,28 @@
#(
#(#MenuItem
- #label: 'Documentation'
+ #label: 'Tutorial'
#translateLabel: true
- #value: #openDocumentation
+ #value: #openHTMLDocument:
#activeHelpKey: #helpTutorial
- #enabled: #valueOfHavingDocumentation
+ #argument: 'tools/uipainter/TOP.html'
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Functions'
+ #translateLabel: true
+ #value: #openHTMLDocument:
+ #activeHelpKey: #helpTutorial
+ #argument: 'tools/uipainter/Functions.html'
)
#(#MenuItem
#label: 'Examples'
#translateLabel: true
- #value: #openExamples
+ #value: #openHTMLDocument:
#activeHelpKey: #helpTutorial
- #enabled: #valueOfHavingExamples
+ #argument: 'tools/uipainter/Examples.html'
)
#(#MenuItem
#label: '-'
@@ -1112,7 +1117,7 @@
)
#(#MenuItem
#label: 'Cut'
- #value: #cutSelection
+ #value: #deleteSelection
#activeHelpKey: #editCut
#enabled: #valueOfCanCut
#shortcutKeyCharacter: #Cut
@@ -1133,7 +1138,8 @@
)
#(#MenuItem
#label: 'Delete'
- #value: #deleteSelection
+ #value: #deleteTotalSelection
+ #activeHelpKey: #editDelete
#enabled: #valueOfCanCut
#shortcutKeyCharacter: #Delete
)
@@ -1230,12 +1236,11 @@
#(#MenuItem
#label: 'Inspect Spec'
#value: #inspectSpec
+ #activeHelpKey: #editInspectSpec
)
) nil
nil
)
-
- "Modified: / 10.3.1998 / 18:12:11 / stefan"
!
menuMove
@@ -1344,7 +1349,7 @@
#(#MenuItem
#label: 'Cut'
#isButton: true
- #value: #cutSelection
+ #value: #deleteSelection
#activeHelpKey: #editCut
#enabled: #valueOfCanCut
#labelImage: #(#ResourceRetriever nil #cutIcon)
@@ -1368,7 +1373,7 @@
#(#MenuItem
#label: 'Delete'
#isButton: true
- #value: #deleteSelection
+ #value: #deleteTotalSelection
#activeHelpKey: #editDelete
#enabled: #valueOfCanCut
#labelImage: #(#ResourceRetriever nil #deleteIcon)
@@ -1715,6 +1720,12 @@
!UIPainter methodsFor:'aspects'!
+aspectFor:aKey
+ "aspect for a key
+ "
+ ^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
+!
+
canChangeOrderInContainer
"returns a boolean value holder which is true if the component order can be changed within their container.
"
@@ -1858,14 +1869,6 @@
^ treeView
! !
-!UIPainter methodsFor:'binding access'!
-
-aspectFor:aKey
- "aspect for a key
- "
- ^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
-! !
-
!UIPainter methodsFor:'building editors'!
openDataSetColumnEditor
@@ -2113,16 +2116,6 @@
^specClass printString, ' >> ', specSelector
!
-openDocumentation
-
- self openHTMLDocument: 'tools/uipainter/TOP.html'
-!
-
-openExamples
-
- self openHTMLDocument: 'tools/uipainter/Examples.html'
-!
-
showHelp:aHelpText for:view
"display active help texts in my own info area."
@@ -2860,7 +2853,7 @@
painter resetModification.
(ReadStream on:code) fileIn.
- self helpTool installHelpSpecInto:specClass.
+ self helpTool installHelpSpecsOnClass:specClass.
self updateInfoLabel.
self painter resetModification.