--- a/UILayoutTool.st Fri Mar 20 19:25:20 1998 +0100
+++ b/UILayoutTool.st Fri Mar 20 19:34:46 1998 +0100
@@ -106,64 +106,70 @@
!UILayoutTool class methodsFor:'help specs'!
helpSpec
- "return a dictionary filled with helpKey -> helptext associations.
- These are used by the activeHelp tool."
+ "This resource specification was automatically generated
+ by the UIHelpTool of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIHelpTool may not be able to read the specification."
"
- UIHelpTool openOnClass:UILayoutTool
+ UIHelpTool openOnClass:UILayoutTool
"
- ^ super helpSpec addPairsFrom:#(
+ <resource: #help>
+
+ ^super helpSpec addPairsFrom:#(
+
+#cornerX
+'Absolute corner x of the selected widget.'
+
+#cornerY
+'Absolute corner y of the selected widget.'
+
+#layoutTool
+'Tool to set the layout of the selected widget.'
#leftAbsolute
'Offset of the left edge; positive is to the right, negative to the left.'
-#originY
-'Absolute origin y of the selected widget.'
-
-#cornerY
-'Absolute corner y of the selected widget.'
+#leftRelative
+'Relative origin x of the selected widget.'
#makeLeftAbsolute
'Computes current left offset and relative origin x to an absolute origin x.'
+#makeLeftRelative
+'Compute current relative origin x and offset of the left edge to a relative origin x.'
+
+#makeTopAbsolute
+'Computes current top offset and relative origin y to an absolute origin y.'
+
+#makeTopRelative
+'Computes current relative origin y and offset of the top edge to a relative origin y.'
+
+#originX
+'Absolute origin x of the selected widget.'
+
+#originY
+'Absolute origin y of the selected widget.'
+
#topAbsolute
'Offset of the top edge; positive is to the bottom, negative to the top.'
-#makeTopRelative
-'Computes current relative origin y and offset of the top edge to a relative origin y.'
-
-#leftRelative
-'Relative origin x of the selected widget.'
-
-#makeLeftRelative
-'Compute current relative origin x and offset of the left edge to a relative origin x.'
-
#topRelative
'Relative origin y of the selected widget.'
-#originX
-'Absolute origin x of the selected widget.'
-
-#cornerX
-'Absolute corner x of the selected widget.'
-
-#layoutTool
-'Tool to set the layout of the selected widget.'
-
-#makeTopAbsolute
-'Computes current top offset and relative origin y to an absolute origin y.'
-
)
! !
!UILayoutTool class methodsFor:'interface specs'!
layoutOriginSpec
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:UILayoutTool andSelector:#layoutOriginSpec
@@ -177,12 +183,12 @@
#(#FullSpec
#window:
#(#WindowSpec
- #name: 'uIPainterView'
- #layout: #(#LayoutFrame 31 0 423 0 293 0 525 0)
- #label: 'unnamed'
+ #name: 'UILayoutTool'
+ #layout: #(#LayoutFrame 509 0 293 0 771 0 395 0)
+ #label: 'UILayoutTool'
#min: #(#Point 10 10)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 31 423 294 526)
+ #bounds: #(#Rectangle 509 293 772 396)
#usePreferredExtent: false
)
#component:
@@ -271,10 +277,11 @@
!
layoutPointSpec
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:UILayoutTool andSelector:#layoutPointSpec
@@ -288,12 +295,12 @@
#(#FullSpec
#window:
#(#WindowSpec
- #name: 'uIPainterView'
- #layout: #(#LayoutFrame 31 0 423 0 220 0 499 0)
- #label: 'unnamed'
+ #name: 'UILayoutTool'
+ #layout: #(#LayoutFrame 565 0 276 0 754 0 352 0)
+ #label: 'UILayoutTool'
#min: #(#Point 10 10)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 31 423 221 500)
+ #bounds: #(#Rectangle 565 276 755 353)
#usePreferredExtent: false
)
#component:
@@ -344,49 +351,48 @@
!
windowSpec
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:UILayoutTool andSelector:#windowSpec
UILayoutTool new openInterface:#windowSpec
+ UILayoutTool open
"
- "UILayoutTool open"
<resource: #canvas>
^
#(#FullSpec
- #'window:'
+ #window:
#(#WindowSpec
- #'name:' 'uIPainterView'
- #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #'label:' 'unnamed canvas'
- #'bounds:' #(#Rectangle 0 0 300 300)
+ #name: 'UILayoutTool'
+ #layout: #(#LayoutFrame 571 0 290 0 870 0 589 0)
+ #label: 'UILayoutTool'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1152 900)
+ #bounds: #(#Rectangle 571 290 871 590)
+ #usePreferredExtent: false
)
- #'component:'
+ #component:
#(#SpecCollection
- #'collection:'
+ #collection:
#(
#(#NoteBookViewSpec
- #'name:' 'NoteBook'
- #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #'activeHelpKey:' #layoutTool
- #'enableChannel:' #enableChannel
- #'tabable:' true
- #'menu:' #noteBookList
- #'style:'
- #(#FontDescription
- #helvetica #medium
- #roman #'10'
- )
- #'model:' #noteBookModel
- #'tabWidget:' #Window
- #'direction:' #bottom
- #'canvas:' #noteBookView
+ #name: 'NoteBook'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ #activeHelpKey: #layoutTool
+ #enableChannel: #enableChannel
+ #tabable: true
+ #model: #noteBookModel
+ #menu: #noteBookList
+ #style: #(#FontDescription #helvetica #medium #roman #'10')
+ #direction: #bottom
+ #canvas: #noteBookView
)
)
)
@@ -708,6 +714,7 @@
appl notNil ifTrue:[
noteBook scrolledView allViewBackground:(noteBook viewBackground).
+ masterApplication updateFonts
]
].
self update
@@ -717,26 +724,40 @@
!UILayoutTool::AlignmentOrigin class methodsFor:'help specs'!
helpSpec
- "return a dictionary filled with helpKey -> helptext associations.
- These are used by the activeHelp tool."
+ "This resource specification was automatically generated
+ by the UIHelpTool of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIHelpTool may not be able to read the specification."
"
- UIHelpTool openOnClass:UILayoutTool::AlignmentOrigin
+ UIHelpTool openOnClass:UILayoutTool::AlignmentOrigin
"
- ^ super helpSpec addPairsFrom:#(
+ <resource: #help>
+
+ ^super helpSpec addPairsFrom:#(
+
+#alignBottomCenter
+'Aligns the selected widget bottomCenter to location.'
+
+#alignBottomLeft
+'Aligns the selected widget bottomLeft to location.'
+
+#alignBottomRight
+'Aligns the selected widget bottomRight to location.'
+
+#alignCenter
+'Aligns the selected widget center to location.'
+
+#alignHorizontal
+'Horizontal inset to the location point of the selected widget.'
#alignLeftCenter
'Aligns the selected widget leftCenter to location.'
-#alignBottomCenter
-'Aligns the selected widget bottomCenter to location.'
-
-#alignHorizontal
-'Horizontal inset to the location point of the selected widget.'
-
-#alignBottomRight
-'Aligns the selected widget bottomRight to location.'
+#alignRightCenter
+'Aligns the selected widget rightCenter to location.'
#alignTopCenter
'Aligns the selected widget topCenter to location.'
@@ -747,34 +768,26 @@
#alignTopRight
'Aligns the selected widget topRight to location.'
-#alignCenter
-'Aligns the selected widget center to location.'
-
#alignVertical
'Vertical inset to the location point of the widget.'
-#alignBottomLeft
-'Aligns the selected widget bottomLeft to location.'
-
-#alignRightCenter
-'Aligns the selected widget rightCenter to location.'
-
)
! !
!UILayoutTool::AlignmentOrigin class methodsFor:'interface specs'!
windowSpec
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:UILayoutTool::AlignmentOrigin andSelector:#windowSpec
UILayoutTool::AlignmentOrigin new openInterface:#windowSpec
+ UILayoutTool::AlignmentOrigin open
"
- "UILayoutTool::AlignmentOrigin open"
<resource: #canvas>
@@ -783,12 +796,12 @@
#(#FullSpec
#window:
#(#WindowSpec
- #name: 'uIPainterView'
- #layout: #(#LayoutFrame 31 0 423 0 298 0 627 0)
- #label: 'AlignmentOrigin'
+ #name: 'UILayoutTool-AlignmentOrigin'
+ #layout: #(#LayoutFrame 206 0 285 0 473 0 489 0)
+ #label: 'UILayoutTool-AlignmentOrigin'
#min: #(#Point 10 10)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 31 423 299 628)
+ #bounds: #(#Rectangle 206 285 474 490)
#usePreferredExtent: false
)
#component:
@@ -796,25 +809,25 @@
#collection:
#(
#(#UISubSpecification
- #name: 'subSpecification'
+ #name: 'subSpec'
#layout: #(#LayoutOrigin 0 0 0 0)
#majorKey: #UILayoutTool
#minorKey: #layoutOriginSpec
)
#(#LabelSpec
- #name: 'label5'
+ #name: 'alignHLabel'
#layout: #(#AlignmentOrigin 78 0 102 0 1 0)
#label: 'Align H:'
#adjust: #right
)
#(#LabelSpec
- #name: 'label6'
+ #name: 'alignVLabel'
#layout: #(#AlignmentOrigin 78 0 128 0 1 0)
#label: 'Align V:'
#adjust: #right
)
#(#InputFieldSpec
- #name: 'editField5'
+ #name: 'leftAlignmentFractionField'
#layout: #(#LayoutFrame 80 0 99 0 137 0 121 0)
#activeHelpKey: #alignHorizontal
#tabable: true
@@ -822,7 +835,7 @@
#type: #numberOrNil
)
#(#InputFieldSpec
- #name: 'editField6'
+ #name: 'topAlignmentFractionField'
#layout: #(#LayoutFrame 80 0 125 0 137 0 147 0)
#activeHelpKey: #alignVertical
#tabable: true
@@ -1047,21 +1060,26 @@
!UILayoutTool::Extent class methodsFor:'help specs'!
helpSpec
- "return a dictionary filled with helpKey -> helptext associations.
- These are used by the activeHelp tool."
+ "This resource specification was automatically generated
+ by the UIHelpTool of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIHelpTool may not be able to read the specification."
"
- UIHelpTool openOnClass:UILayoutTool::Extent
+ UIHelpTool openOnClass:UILayoutTool::Extent
"
- ^ super helpSpec addPairsFrom:#(
+ <resource: #help>
+
+ ^super helpSpec addPairsFrom:#(
+
+#hrzExtent
+'Horizontal extent of the selected widget.'
#vrtExtent
'Vertical extent of the selected widget.'
-#hrzExtent
-'Horizontal extent of the selected widget.'
-
)
! !
@@ -1086,9 +1104,9 @@
#(#FullSpec
#window:
#(#WindowSpec
- #name: 'uIPainterView'
+ #name: 'UILayoutTool-Extent'
#layout: #(#LayoutFrame 31 0 423 0 256 0 508 0)
- #label: 'unnamed'
+ #label: 'UILayoutTool-Extent'
#min: #(#Point 10 10)
#max: #(#Point 1152 900)
#bounds: #(#Rectangle 31 423 257 509)
@@ -1157,26 +1175,28 @@
!UILayoutTool::LayoutFrame class methodsFor:'help specs'!
helpSpec
- "return a dictionary filled with helpKey -> helptext associations.
- These are used by the activeHelp tool."
+ "This resource specification was automatically generated
+ by the UIHelpTool of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIHelpTool may not be able to read the specification."
"
- UIHelpTool openOnClass:UILayoutTool::LayoutFrame
+ UIHelpTool openOnClass:UILayoutTool::LayoutFrame
"
- ^ super helpSpec addPairsFrom:#(
+ <resource: #help>
-#makeRightRelative
-'Computes current relative corner x and offset of the right edge to a relative corner x.'
-
-#makeBottomAbsolute
-'Computes current bottom offset and relative corner y to an absolute corner y.'
+ ^super helpSpec addPairsFrom:#(
#bottomAbsolute
'Offset of the bottom edge; positive is to the bottom, negative to the top.'
-#rightRelative
-'Relative corner x of the selected widget.'
+#bottomRelative
+'Relative corner y of the selected widget.'
+
+#makeBottomAbsolute
+'Computes current bottom offset and relative corner y to an absolute corner y.'
#makeBottomRelative
'Computes current relative corner y and offset of the bottom edge to a relative corner y.'
@@ -1184,12 +1204,15 @@
#makeRightAbsolute
'Computes current right offset and relative corner x to an absolute corner x.'
-#bottomRelative
-'Relative corner y of the selected widget.'
+#makeRightRelative
+'Computes current relative corner x and offset of the right edge to a relative corner x.'
#rightAbsolute
'Offset of the right edge; positive is to the right, negative to the left.'
+#rightRelative
+'Relative corner x of the selected widget.'
+
)
! !
@@ -1214,9 +1237,9 @@
#(#FullSpec
#window:
#(#WindowSpec
- #name: 'uIPainterView'
+ #name: 'UILayoutTool-LayoutFrame'
#layout: #(#LayoutFrame 31 0 423 0 280 0 615 0)
- #label: 'unnamed'
+ #label: 'UILayoutTool-LayoutFrame'
#min: #(#Point 10 10)
#max: #(#Point 1152 900)
#bounds: #(#Rectangle 31 423 281 616)
@@ -1340,38 +1363,42 @@
!UILayoutTool::LayoutOrigin class methodsFor:'interface specs'!
windowSpec
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:UILayoutTool::LayoutOrigin andSelector:#windowSpec
UILayoutTool::LayoutOrigin new openInterface:#windowSpec
+ UILayoutTool::LayoutOrigin open
"
- "UILayoutTool::LayoutOrigin open"
<resource: #canvas>
^
#(#FullSpec
- #'window:'
+ #window:
#(#WindowSpec
- #'name:' 'uIPainterView'
- #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #'label:' 'unnamed'
- #'bounds:' #(#Rectangle 0 0 258 93)
+ #name: 'UILayoutTool-LayoutOrigin'
+ #layout: #(#LayoutFrame 417 0 298 0 674 0 390 0)
+ #label: 'UILayoutTool-LayoutOrigin'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1152 900)
+ #bounds: #(#Rectangle 417 298 675 391)
+ #usePreferredExtent: false
)
- #'component:'
+ #component:
#(#SpecCollection
- #'collection:'
+ #collection:
#(
#(#UISubSpecification
- #'name:' 'subSpecification'
- #'layout:' #(#LayoutOrigin 0 0 0 0)
- #'majorKey:' #UILayoutTool
- #'minorKey:' #layoutOriginSpec
+ #name: 'subSpec'
+ #layout: #(#LayoutOrigin 0 0 0 0)
+ #majorKey: #UILayoutTool
+ #minorKey: #layoutOriginSpec
)
)
)
@@ -1414,38 +1441,42 @@
!UILayoutTool::Point class methodsFor:'interface specs'!
windowSpec
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:UILayoutTool::Point andSelector:#windowSpec
UILayoutTool::Point new openInterface:#windowSpec
+ UILayoutTool::Point open
"
- "UILayoutTool::Point open"
<resource: #canvas>
^
#(#FullSpec
- #'window:'
+ #window:
#(#WindowSpec
- #'name:' 'uIPainterView'
- #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #'label:' 'unnamed'
- #'bounds:' #(#Rectangle 0 0 194 66)
+ #name: 'UILayoutTool-Point'
+ #layout: #(#LayoutFrame 427 0 336 0 635 0 423 0)
+ #label: 'UILayoutTool-Point'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1152 900)
+ #bounds: #(#Rectangle 427 336 636 424)
+ #usePreferredExtent: false
)
- #'component:'
+ #component:
#(#SpecCollection
- #'collection:'
+ #collection:
#(
#(#UISubSpecification
- #'name:' 'subSpecification'
- #'layout:' #(#LayoutOrigin 0 0 0 0)
- #'majorKey:' #UILayoutTool
- #'minorKey:' #layoutPointSpec
+ #name: 'subSpec'
+ #layout: #(#LayoutOrigin 0 0 0 0)
+ #majorKey: #UILayoutTool
+ #minorKey: #layoutPointSpec
)
)
)
@@ -1478,16 +1509,17 @@
!UILayoutTool::Rectangle class methodsFor:'interface specs'!
windowSpec
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:UILayoutTool::Rectangle andSelector:#windowSpec
UILayoutTool::Rectangle new openInterface:#windowSpec
+ UILayoutTool::Rectangle open
"
- "UILayoutTool::Rectangle open"
<resource: #canvas>
@@ -1496,12 +1528,12 @@
#(#FullSpec
#window:
#(#WindowSpec
- #name: 'uIPainterView'
- #layout: #(#LayoutFrame 31 0 423 0 254 0 568 0)
- #label: 'unnamed'
+ #name: 'UILayoutTool-Rectangle'
+ #layout: #(#LayoutFrame 357 0 349 0 580 0 494 0)
+ #label: 'UILayoutTool-Rectangle'
#min: #(#Point 10 10)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 31 423 255 569)
+ #bounds: #(#Rectangle 357 349 581 495)
#usePreferredExtent: false
)
#component: