--- a/UILayoutTool.st Tue Mar 23 10:59:43 1999 +0100
+++ b/UILayoutTool.st Tue Mar 23 11:33:40 1999 +0100
@@ -1308,9 +1308,18 @@
#bottomAbsolute
'Offset of the bottom edge; positive is to the bottom, negative to the top.'
+#bottomFixPartLayout
+'Set the layout for a fixed area at the bottom of the widgets containers space'
+
+#bottomHalfLayout
+'Set the layout for the bottom half of the widgets containers space'
+
#bottomRelative
'Relative corner y of the selected widget.'
+#leftHalfLayout
+'Set the layout for the left half of the widgets containers space'
+
#makeBottomAbsolute
'Computes current bottom offset and relative corner y to an absolute corner y.'
@@ -1326,27 +1335,53 @@
#rightAbsolute
'Offset of the right edge; positive is to the right, negative to the left.'
+#rightHalfLayout
+'Set the layout for the right half of the widgets containers space'
+
#rightRelative
'Relative corner x of the selected widget.'
+#topFixPartLayout
+'Set the layout for a fixed area at the top of the widgets containers space'
+
#topHalfLayout
'Set the layout for the top half of the widgets containers space'
-#bottomHalfLayout
-'Set the layout for the bottom half of the widgets containers space'
+#topLeftQuarterLayout
+'Set the layout for the top-left quarter of the widgets containers space'
+
+#topRightQuarterLayout
+'Set the layout for the top-right quarter of the widgets containers space'
-#leftHalfLayout
-'Set the layout for the left half of the widgets containers space'
+#bottomRightQuarterLayout
+'Set the layout for the bottom-right quarter of the widgets containers space'
-#rightHalfLayout
-'Set the layout for the right half of the widgets containers space'
-
+#bottomLeftQuarterLayout
+'Set the layout for the bottom-left quarter of the widgets containers space'
)
! !
!UILayoutTool::LayoutFrame class methodsFor:'image specs'!
+setBottomFixPartIcon
+ "This resource specification was automatically generated
+ by the ImageEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the ImageEditor may not be able to read the specification."
+
+ "
+ self setBottomFixPartIcon inspect
+ ImageEditor openOnClass:self andSelector:#setBottomFixPartIcon
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:#'UILayoutTool::LayoutFrame setBottomFixPartIcon'
+ ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H"H"@BH"H @!!DQD@DQDR@BDQDP@QDQH@H"H"@BH"H @@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??>@@X@A @F@@X@A @F@@X@A @G???????????????<b') ; yourself); yourself]!
+
setBottomHalfIcon
"This resource specification was automatically generated
by the ImageEditor of ST/X."
@@ -1455,6 +1490,24 @@
constantNamed:#'UILayoutTool::LayoutFrame setToRightQuarterIcon'
ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@"H"H@@@@@@BDQD @@@@@@HQDR@@@@@@@!!DQH@@@@@@BDQD @@@@@@HQDR@@@@@@@"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??>@?8C? O>@?8C? O>@?8C? @F@@X@A @F@@X@A??<b') ; yourself); yourself]!
+setTopFixPartIcon
+ "This resource specification was automatically generated
+ by the ImageEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the ImageEditor may not be able to read the specification."
+
+ "
+ self setTopFixPartIcon inspect
+ ImageEditor openOnClass:self andSelector:#setTopFixPartIcon
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:#'UILayoutTool::LayoutFrame setTopFixPartIcon'
+ ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@BH"H @"H"H@HQDQ@ADQD @!!DQD@DQDR@BH"H @"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???????????????? @F@@X@A @F@@X@A @F@@X@A??<b') ; yourself); yourself]!
+
setTopHalfIcon
"This resource specification was automatically generated
by the ImageEditor of ST/X."
@@ -1702,6 +1755,7 @@
#label: 'setTopLeftQuarterFrame'
#translateLabel: true
#isButton: true
+ #activeHelpKey: #topLeftQuarterLayout
#nameKey: #setTopLeftQuarterFrame
#value: #setTopLeftQuarterFrame
#labelImage: #(#ResourceRetriever nil #setTopLeftQuarterIcon)
@@ -1710,6 +1764,7 @@
#label: 'setTopRightQuarterFrame'
#translateLabel: true
#isButton: true
+ #activeHelpKey: #topRightQuarterLayout
#nameKey: #setTopRightQuarterFrame
#value: #setTopRightQuarterFrame
#labelImage: #(#ResourceRetriever nil #setToRightQuarterIcon)
@@ -1718,6 +1773,7 @@
#label: 'setBottomRightQuarterFrame'
#translateLabel: true
#isButton: true
+ #activeHelpKey: #bottomRightQuarterLayout
#nameKey: #setBottomRightQuarterFrame
#value: #setBottomRightQuarterFrame
#labelImage: #(#ResourceRetriever nil #setBottomRightQuarterIcon)
@@ -1725,11 +1781,33 @@
#(#MenuItem
#label: 'setBottomLeftQuarterFrame'
#translateLabel: true
+ #activeHelpKey: #bottomLeftQuarterLayout
#isButton: true
#nameKey: #setBottomLeftQuarterFrame
#value: #setBottomLeftQuarterFrame
#labelImage: #(#ResourceRetriever nil #setBottomLeftQuarterIcon)
)
+ #(#MenuItem
+ #label: ''
+ )
+ #(#MenuItem
+ #label: 'setTopFixPartFrame'
+ #translateLabel: true
+ #isButton: true
+ #nameKey: #setTopFixPartFrame
+ #value: #setTopFixPartFrame
+ #activeHelpKey: #topFixPartLayout
+ #labelImage: #(#ResourceRetriever nil #setTopFixPartIcon)
+ )
+ #(#MenuItem
+ #label: 'setBottomFixPartFrame'
+ #translateLabel: true
+ #isButton: true
+ #nameKey: #setBottomFixPartFrame
+ #value: #setBottomFixPartFrame
+ #activeHelpKey: #bottomFixPartLayout
+ #labelImage: #(#ResourceRetriever nil #setBottomFixPartIcon)
+ )
) nil
nil
)
@@ -1775,6 +1853,14 @@
!UILayoutTool::LayoutFrame methodsFor:'common frames'!
+setBottomFixPartFrame
+ self
+ setFrameLeft:0 offset:0
+ right:1 offset:0
+ top:1 offset:-30
+ bottom:1 offset:0
+!
+
setBottomHalfFrame
self
setFrameLeft:0 offset:0
@@ -1827,6 +1913,14 @@
bottom:1 offset:0
!
+setTopFixPartFrame
+ self
+ setFrameLeft:0 offset:0
+ right:1 offset:0
+ top:0 offset:0
+ bottom:0 offset:30
+!
+
setTopHalfFrame
self
setFrameLeft:0 offset:0