--- a/UIPainter.st Tue Feb 03 16:08:53 2004 +0100
+++ b/UIPainter.st Tue Feb 03 16:14:01 2004 +0100
@@ -745,89 +745,89 @@
<resource: #canvas>
- ^
-
- #(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'GUI Painter'
- #layout: #(#LayoutFrame 291 0 130 0 572 0 327 0)
- #label: 'GUI Painter'
- #min: #(#Point 300 200)
- #max: #(#Point 300 200)
- #bounds: #(#Rectangle 291 130 573 328)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#FramedBoxSpec
- #name: 'FramedBox'
- #layout: #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#CheckBoxSpec
- #name: 'ShowGridCheckBox'
- #layout: #(#Point 13 14)
- #model: #showGrid
- #label: 'Show Grid'
- )
- #(#CheckBoxSpec
- #name: 'AlignCheckBox'
- #layout: #(#Point 13 42)
- #model: #alignToGrid
- #label: 'Align To Grid'
- )
- #(#LabelSpec
- #name: 'HorizontalPixelsLabel'
- #layout: #(#AlignmentOrigin 138 0 89 0 1 0.5)
- #label: 'Horizontal Pixels:'
- #translateLabel: true
- #adjust: #right
- #resizeForLabel: true
- )
- #(#InputFieldSpec
- #name: 'HorizontalPixelsField'
- #layout: #(#LayoutFrame 144 0 77 0 197 0 99 0)
- #model: #hspace
- #group: #inputGroup
- #type: #numberOrNil
- )
- #(#LabelSpec
- #name: 'VerticalPixelsLabel'
- #layout: #(#AlignmentOrigin 139 0 114 0 1 0.5)
- #label: 'Vertical Pixels:'
- #translateLabel: true
- #adjust: #right
- #resizeForLabel: true
- )
- #(#InputFieldSpec
- #name: 'VerticalPixelsField'
- #layout: #(#LayoutFrame 144 0 102 0 197 0 124 0)
- #model: #vspace
- #group: #inputGroup
- #type: #numberOrNil
- )
- )
- )
- #label: 'Grid Parameter'
- #labelPosition: #topLeft
- #translateLabel: true
- )
- #(#UISubSpecification
- #name: 'subSpec'
- #layout: #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
- #majorKey: #ToolApplicationModel
- #minorKey: #windowSpecForCommitWithoutChannels
- )
- )
- )
+ ^
+ #(FullSpec
+ name: dialogSpecForDefiningGridParameters
+ window:
+ (WindowSpec
+ label: 'GUI Painter'
+ name: 'GUI Painter'
+ min: (Point 300 200)
+ max: (Point 300 200)
+ bounds: (Rectangle 16 46 298 244)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Grid Parameter'
+ name: 'FramedBox'
+ layout: (LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Show Grid'
+ name: 'ShowGridCheckBox'
+ layout: (Point 13 14)
+ model: showGrid
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Align To Grid'
+ name: 'AlignCheckBox'
+ layout: (Point 13 42)
+ model: alignToGrid
+ translateLabel: true
+ )
+ (LabelSpec
+ label: 'Horizontal Pixels:'
+ name: 'HorizontalPixelsLabel'
+ layout: (AlignmentOrigin 138 0 89 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'HorizontalPixelsField'
+ layout: (LayoutFrame 144 0 77 0 197 0 99 0)
+ model: hspace
+ group: inputGroup
+ type: numberOrNil
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Vertical Pixels:'
+ name: 'VerticalPixelsLabel'
+ layout: (AlignmentOrigin 139 0 114 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'VerticalPixelsField'
+ layout: (LayoutFrame 144 0 102 0 197 0 124 0)
+ model: vspace
+ group: inputGroup
+ type: numberOrNil
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
+ )
+ (UISubSpecification
+ name: 'subSpec'
+ layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
+ majorKey: ToolApplicationModel
+ minorKey: windowSpecForCommitWithoutChannels
+ )
+ )
+
+ )
)
-
- "Modified: / 13.8.1998 / 20:00:00 / cg"
!
windowSpec
@@ -853,7 +853,7 @@
label: 'GUI Painter'
name: 'GUI Painter'
min: (Point 560 460)
- bounds: (Rectangle 14 46 622 569)
+ bounds: (Rectangle 16 46 624 569)
menu: menu
)
component:
@@ -922,6 +922,7 @@
label: 'Cancel'
name: 'cancelButton'
activeHelpKey: commitCancel
+ translateLabel: true
tabable: true
model: cancel
enableChannel: modifiedChannel
@@ -931,6 +932,7 @@
label: 'OK'
name: 'acceptButton'
activeHelpKey: commitOK
+ translateLabel: true
tabable: true
model: accept
enableChannel: modifiedChannel
@@ -2125,10 +2127,11 @@
tabList
"returns a value holder which keeps a list of the section labels in the notebook"
- |holder|
+ |tabs holder|
(holder := builder bindingAt:#tabList) isNil ifTrue:[
- builder aspectAt:#tabList put:(holder := #(Basics Details Layout) asValue).
+ tabs := #(Basics Details Layout).
+ builder aspectAt:#tabList put:(holder := (resources array:tabs) asValue).
].
^ holder
!