--- a/UILayoutTool.st Fri Feb 21 11:23:33 2003 +0100
+++ b/UILayoutTool.st Fri Feb 21 11:24:49 2003 +0100
@@ -1788,6 +1788,28 @@
ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"H"@@@@@@HQDQH@@@@@@!!DQD @@@@@BDQDR@@@@@@HQDQH@@@@@@"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:'??>@@X@A @F@@X@A @F@@XG? _>A?8G? _>A?8G???<b') ; yourself); yourself]
!
+setFullIcon
+ "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 setFullIcon inspect
+ ImageEditor openOnClass:self andSelector:#setFullIcon
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:#'UILayoutTool::LayoutFrame class setFullIcon'
+ ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@BH"H"H"H"H@HQDQDQDQD @!!DQDQDQDR@BDQDQDQDQH@HQDQDQDQD @!!DQDQDQDR@BDQDQDQDQH@HQDQDQDQD @!!DQDQDQDR@BDQDQDQDQH@HQ
+DQDQDQD @!!DQDQDQDR@BDQDQDQDQH@H"H"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:'??????????????????????????????????????????<b') ; yourself); yourself]
+!
+
setHorizontalFixPartIcon
"This resource specification was automatically generated
by the ImageEditor of ST/X."
@@ -2012,7 +2034,7 @@
#name: 'UILayoutTool-LayoutFrame'
#min: #(#Point 10 10)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 12 22 411 325)
+ #bounds: #(#Rectangle 16 46 415 349)
#forceRecursiveBackground: false
)
#component:
@@ -2153,11 +2175,19 @@
)
)
#(#MenuPanelSpec
- #name: 'commonLayoutToolBar'
- #layout: #(#LayoutFrame 6 0.0 231 0 -4 1.0 263 0)
+ #name: 'commonLayoutToolBar1'
+ #layout: #(#LayoutFrame 6 0.0 215 0 -4 1.0 247 0)
#level: 0
#tabable: true
- #menu: #commonFrameLayoutsMenu
+ #menu: #commonFrameLayoutsMenu1
+ #textDefault: true
+ )
+ #(#MenuPanelSpec
+ #name: 'commonLayoutToolBar2'
+ #layout: #(#LayoutFrame 6 0.0 255 0 -4 1.0 287 0)
+ #level: 0
+ #tabable: true
+ #menu: #commonFrameLayoutsMenu2
#textDefault: true
)
)
@@ -2168,7 +2198,7 @@
!UILayoutTool::LayoutFrame class methodsFor:'menu specs'!
-commonFrameLayoutsMenu
+commonFrameLayoutsMenu1
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -2176,154 +2206,185 @@
the MenuEditor may not be able to read the specification."
"
- MenuEditor new openOnClass:UILayoutTool::LayoutFrame andSelector:#commonFrameLayoutsMenu
- (Menu new fromLiteralArrayEncoding:(UILayoutTool::LayoutFrame commonFrameLayoutsMenu)) startUp
+ MenuEditor new openOnClass:UILayoutTool::LayoutFrame andSelector:#commonFrameLayoutsMenu1
+ (Menu new fromLiteralArrayEncoding:(UILayoutTool::LayoutFrame commonFrameLayoutsMenu1)) startUp
"
<resource: #menu>
- ^
-
- #(#Menu
-
- #(
- #(#MenuItem
- #label: 'setTopHalfFrame'
- #translateLabel: true
- #isButton: true
- #nameKey: #setTopHalfFrame
- #value: #setTopHalfFrame
- #activeHelpKey: #topHalfLayout
- #labelImage: #(#ResourceRetriever #'UILayoutTool::LayoutFrame' #setTopHalfIcon)
- )
- #(#MenuItem
- #label: 'setBottomHalfFrame'
- #translateLabel: true
- #isButton: true
- #nameKey: #setBottomHalfFrame
- #value: #setBottomHalfFrame
- #activeHelpKey: #bottomHalfLayout
- #labelImage: #(#ResourceRetriever nil #setBottomHalfIcon)
- )
- #(#MenuItem
- #label: 'setLeftHalfFrame'
- #translateLabel: true
- #isButton: true
- #nameKey: #setLeftHalfFrame
- #value: #setLeftHalfFrame
- #activeHelpKey: #leftHalfLayout
- #labelImage: #(#ResourceRetriever nil #setLeftHalfIcon)
- )
- #(#MenuItem
- #label: 'setRightHalfFrame'
- #translateLabel: true
- #isButton: true
- #nameKey: #setRightHalfFrame
- #value: #setRightHalfFrame
- #activeHelpKey: #rightHalfLayout
- #labelImage: #(#ResourceRetriever nil #setRightHalfIcon)
- )
- #(#MenuItem
- #label: ''
- )
- #(#MenuItem
- #label: 'setTopLeftQuarterFrame'
- #translateLabel: true
- #isButton: true
- #activeHelpKey: #topLeftQuarterLayout
- #nameKey: #setTopLeftQuarterFrame
- #value: #setTopLeftQuarterFrame
- #labelImage: #(#ResourceRetriever nil #setTopLeftQuarterIcon)
- )
- #(#MenuItem
- #label: 'setTopRightQuarterFrame'
- #translateLabel: true
- #isButton: true
- #activeHelpKey: #topRightQuarterLayout
- #nameKey: #setTopRightQuarterFrame
- #value: #setTopRightQuarterFrame
- #labelImage: #(#ResourceRetriever nil #setToRightQuarterIcon)
- )
- #(#MenuItem
- #label: 'setBottomRightQuarterFrame'
- #translateLabel: true
- #isButton: true
- #activeHelpKey: #bottomRightQuarterLayout
- #nameKey: #setBottomRightQuarterFrame
- #value: #setBottomRightQuarterFrame
- #labelImage: #(#ResourceRetriever nil #setBottomRightQuarterIcon)
- )
- #(#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: 'setHorizontalFixPartFrame'
- #translateLabel: true
- #isButton: true
- #nameKey: #setHorizontalFixPartFrame
- #value: #setHorizontalFixPartFrame
- #activeHelpKey: #horizontalFixPartLayout
- #labelImage: #(#ResourceRetriever nil #setHorizontalFixPartIcon)
- )
- #(#MenuItem
- #label: 'setBottomFixPartFrame'
- #translateLabel: true
- #isButton: true
- #nameKey: #setBottomFixPartFrame
- #value: #setBottomFixPartFrame
- #activeHelpKey: #bottomFixPartLayout
- #labelImage: #(#ResourceRetriever nil #setBottomFixPartIcon)
- )
- #(#MenuItem
- #label: ''
- )
- #(#MenuItem
- #label: 'setLeftFixPartFrame'
- #translateLabel: true
- #isButton: true
- #nameKey: #setLeftFixPartFrame
- #value: #setLeftFixPartFrame
- #activeHelpKey: #leftFixPartLayout
- #labelImage: #(#ResourceRetriever nil #setLeftFixPartIcon)
- )
- #(#MenuItem
- #label: 'setVerticalFixPartFrame'
- #translateLabel: true
- #isButton: true
- #nameKey: #setVerticalFixPartFrame
- #value: #setVerticalFixPartFrame
- #activeHelpKey: #verticalFixPartLayout
- #labelImage: #(#ResourceRetriever nil #setVerticalFixPartIcon)
- )
- #(#MenuItem
- #label: 'setRightFixPartFrame'
- #translateLabel: true
- #isButton: true
- #nameKey: #setRightFixPartFrame
- #value: #setRightFixPartFrame
- #activeHelpKey: #rightFixPartLayout
- #labelImage: #(#ResourceRetriever nil #setRightFixPartIcon)
- )
- ) nil
- nil
+ ^
+ #(#Menu
+ #(
+ #(#MenuItem
+ #activeHelpKey: #fullLayout
+ #label: 'setFullFrame'
+ #itemValue: #setFullFrame
+ #nameKey: #setFullFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #'UILayoutTool::LayoutFrame' #setFullIcon)
+ )
+ #(#MenuItem
+ #label: ''
+ )
+ #(#MenuItem
+ #activeHelpKey: #topHalfLayout
+ #label: 'setTopHalfFrame'
+ #itemValue: #setTopHalfFrame
+ #nameKey: #setTopHalfFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #'UILayoutTool::LayoutFrame' #setTopHalfIcon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #bottomHalfLayout
+ #label: 'setBottomHalfFrame'
+ #itemValue: #setBottomHalfFrame
+ #nameKey: #setBottomHalfFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setBottomHalfIcon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #leftHalfLayout
+ #label: 'setLeftHalfFrame'
+ #itemValue: #setLeftHalfFrame
+ #nameKey: #setLeftHalfFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setLeftHalfIcon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #rightHalfLayout
+ #label: 'setRightHalfFrame'
+ #itemValue: #setRightHalfFrame
+ #nameKey: #setRightHalfFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setRightHalfIcon)
+ )
+ #(#MenuItem
+ #label: ''
+ )
+ #(#MenuItem
+ #activeHelpKey: #topLeftQuarterLayout
+ #label: 'setTopLeftQuarterFrame'
+ #itemValue: #setTopLeftQuarterFrame
+ #nameKey: #setTopLeftQuarterFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setTopLeftQuarterIcon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #topRightQuarterLayout
+ #label: 'setTopRightQuarterFrame'
+ #itemValue: #setTopRightQuarterFrame
+ #nameKey: #setTopRightQuarterFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setToRightQuarterIcon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #bottomRightQuarterLayout
+ #label: 'setBottomRightQuarterFrame'
+ #itemValue: #setBottomRightQuarterFrame
+ #nameKey: #setBottomRightQuarterFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setBottomRightQuarterIcon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #bottomLeftQuarterLayout
+ #label: 'setBottomLeftQuarterFrame'
+ #itemValue: #setBottomLeftQuarterFrame
+ #nameKey: #setBottomLeftQuarterFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setBottomLeftQuarterIcon)
+ )
+ )
+ nil
+ nil
+ )
+!
+
+commonFrameLayoutsMenu2
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+ "
+ MenuEditor new openOnClass:UILayoutTool::LayoutFrame andSelector:#commonFrameLayoutsMenu2
+ (Menu new fromLiteralArrayEncoding:(UILayoutTool::LayoutFrame commonFrameLayoutsMenu2)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(#Menu
+ #(
+ #(#MenuItem
+ #activeHelpKey: #topFixPartLayout
+ #label: 'setTopFixPartFrame'
+ #itemValue: #setTopFixPartFrame
+ #nameKey: #setTopFixPartFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setTopFixPartIcon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #horizontalFixPartLayout
+ #label: 'setHorizontalFixPartFrame'
+ #itemValue: #setHorizontalFixPartFrame
+ #nameKey: #setHorizontalFixPartFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setHorizontalFixPartIcon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #bottomFixPartLayout
+ #label: 'setBottomFixPartFrame'
+ #itemValue: #setBottomFixPartFrame
+ #nameKey: #setBottomFixPartFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setBottomFixPartIcon)
+ )
+ #(#MenuItem
+ #label: ''
+ )
+ #(#MenuItem
+ #activeHelpKey: #leftFixPartLayout
+ #label: 'setLeftFixPartFrame'
+ #itemValue: #setLeftFixPartFrame
+ #nameKey: #setLeftFixPartFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setLeftFixPartIcon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #verticalFixPartLayout
+ #label: 'setVerticalFixPartFrame'
+ #itemValue: #setVerticalFixPartFrame
+ #nameKey: #setVerticalFixPartFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setVerticalFixPartIcon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #rightFixPartLayout
+ #label: 'setRightFixPartFrame'
+ #itemValue: #setRightFixPartFrame
+ #nameKey: #setRightFixPartFrame
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever nil #setRightFixPartIcon)
+ )
+ )
+ nil
+ nil
)
! !
@@ -2411,6 +2472,14 @@
(self aspectFor:#bottomFraction) value:bF.
!
+setFullFrame
+ self
+ setFrameLeft:0 offset:0
+ right:1 offset:0
+ top:0 offset:0
+ bottom:1 offset:0
+!
+
setHorizontalFixPartFrame
self
setFrameLeft:0 offset:0