--- a/UILayoutTool.st Wed Dec 05 11:54:52 2007 +0100
+++ b/UILayoutTool.st Wed Dec 05 12:51:40 2007 +0100
@@ -9,10 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
-
"{ Package: 'stx:libtool2' }"
ApplicationModel subclass:#UILayoutTool
@@ -202,7 +198,7 @@
label: 'UILayoutTool'
name: 'UILayoutTool'
min: (Point 10 10)
- bounds: (Rectangle 14 46 359 228)
+ bounds: (Rectangle 0 0 345 107)
)
component:
(SpecCollection
@@ -212,7 +208,7 @@
name: 'FramedBox'
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 108 0)
labelPosition: topLeft
- translateLabel: true
+ translateLabel: true
component:
(SpecCollection
collection: (
@@ -245,7 +241,7 @@
)
(InputFieldSpec
name: 'fieldLeftFraction'
- layout: (LayoutFrame 103 0 24 0 153 0 46 0)
+ layout: (LayoutFrame 102 0 25 0 152 0 47 0)
activeHelpKey: leftRelative
tabable: true
model: leftFraction
@@ -256,6 +252,27 @@
acceptOnPointerLeave: false
)
(ActionButtonSpec
+ label: 'imageAbsX'
+ name: 'actionAbsoluteLeft'
+ layout: (LayoutFrame 178 0 24 0 200 0 46 0)
+ activeHelpKey: makeLeftAbsolute
+ hasCharacterOrientedLabel: false
+ tabable: true
+ model: absoluteLeft
+ )
+ (InputFieldSpec
+ name: 'fieldLeftOffset'
+ layout: (LayoutFrame 203 0 24 0 253 0 46 0)
+ activeHelpKey: leftAbsolute
+ tabable: true
+ model: leftOffset
+ group: inputGroup
+ type: numberOrNil
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ (ActionButtonSpec
label: 'imageAbsXFromRight'
name: 'actionRightRelativeLeft'
layout: (LayoutFrame 257 0 24 0 279 0 46 0)
@@ -264,27 +281,6 @@
tabable: true
model: rightRelativeLeft
)
- (InputFieldSpec
- name: 'fieldLeftOffset'
- layout: (LayoutFrame 203 0 24 0 253 0 46 0)
- activeHelpKey: leftAbsolute
- tabable: true
- model: leftOffset
- group: inputGroup
- type: numberOrNil
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
- (ActionButtonSpec
- label: 'imageAbsX'
- name: 'actionAbsoluteLeft'
- layout: (LayoutFrame 178 0 24 0 200 0 46 0)
- activeHelpKey: makeLeftAbsolute
- hasCharacterOrientedLabel: false
- tabable: true
- model: absoluteLeft
- )
(LabelSpec
label: 'Top:'
name: 'labelTop'
@@ -313,13 +309,13 @@
acceptOnPointerLeave: false
)
(ActionButtonSpec
- label: 'imageAbsYFromBottom'
- name: 'actionBottomRelativeTop'
- layout: (LayoutFrame 257 0 51 0 279 0 73 0)
- activeHelpKey: makeTopRelativeFromBottom
+ label: 'imageAbsY'
+ name: 'actionAbsoluteTop'
+ layout: (LayoutFrame 178 0 51 0 200 0 73 0)
+ activeHelpKey: makeTopAbsolute
hasCharacterOrientedLabel: false
tabable: true
- model: bottomRelativeTop
+ model: absoluteTop
)
(InputFieldSpec
name: 'fieldTopOffset'
@@ -334,13 +330,13 @@
acceptOnPointerLeave: false
)
(ActionButtonSpec
- label: 'imageAbsY'
- name: 'actionAbsoluteTop'
- layout: (LayoutFrame 178 0 51 0 200 0 73 0)
- activeHelpKey: makeTopAbsolute
+ label: 'imageAbsYFromBottom'
+ name: 'actionBottomRelativeTop'
+ layout: (LayoutFrame 257 0 51 0 279 0 73 0)
+ activeHelpKey: makeTopRelativeFromBottom
hasCharacterOrientedLabel: false
tabable: true
- model: absoluteTop
+ model: bottomRelativeTop
)
)
@@ -2120,7 +2116,7 @@
label: 'UILayoutTool-LayoutFrame'
name: 'UILayoutTool-LayoutFrame'
min: (Point 10 10)
- bounds: (Rectangle 14 46 413 349)
+ bounds: (Rectangle 0 0 399 303)
forceRecursiveBackground: false
)
component:
@@ -2137,7 +2133,7 @@
name: 'FramedBox'
layout: (LayoutFrame 1 0.0 113 0 0 1.0 214 0)
labelPosition: topLeft
- translateLabel: true
+ translateLabel: true
component:
(SpecCollection
collection: (
@@ -2170,13 +2166,13 @@
acceptOnPointerLeave: false
)
(ActionButtonSpec
- label: 'imageAbsXFromRight'
- name: 'actionRightRelativeRight'
- layout: (LayoutFrame 257 0 14 0 279 0 36 0)
- activeHelpKey: makeRightRelativeFromRight
+ label: 'imageAbsX'
+ name: 'actionAbsoluteRight'
+ layout: (LayoutFrame 178 0 14 0 200 0 36 0)
+ activeHelpKey: makeRightAbsolute
hasCharacterOrientedLabel: false
tabable: true
- model: rightRelativeRight
+ model: absoluteRight
)
(InputFieldSpec
name: 'fieldRightOffset'
@@ -2192,13 +2188,13 @@
acceptOnPointerLeave: false
)
(ActionButtonSpec
- label: 'imageAbsX'
- name: 'actionAbsoluteRight'
- layout: (LayoutFrame 178 0 14 0 200 0 36 0)
- activeHelpKey: makeRightAbsolute
+ label: 'imageAbsXFromRight'
+ name: 'actionRightRelativeRight'
+ layout: (LayoutFrame 257 0 14 0 279 0 36 0)
+ activeHelpKey: makeRightRelativeFromRight
hasCharacterOrientedLabel: false
tabable: true
- model: absoluteRight
+ model: rightRelativeRight
)
(LabelSpec
label: 'Bottom:'
@@ -2229,13 +2225,13 @@
acceptOnPointerLeave: false
)
(ActionButtonSpec
- label: 'imageAbsYFromBottom'
- name: 'actionBottomRelativeBottom'
- layout: (LayoutFrame 257 0 42 0 279 0 64 0)
- activeHelpKey: makeBottomRelativeFromBottom
+ label: 'imageAbsY'
+ name: 'actionAbsoluteBottom'
+ layout: (LayoutFrame 178 0 42 0 200 0 64 0)
+ activeHelpKey: makeBottomAbsolute
hasCharacterOrientedLabel: false
tabable: true
- model: bottomRelativeBottom
+ model: absoluteBottom
)
(InputFieldSpec
name: 'fieldBottomOffset'
@@ -2251,13 +2247,13 @@
acceptOnPointerLeave: false
)
(ActionButtonSpec
- label: 'imageAbsY'
- name: 'actionAbsoluteBottom'
- layout: (LayoutFrame 178 0 42 0 200 0 64 0)
- activeHelpKey: makeBottomAbsolute
+ label: 'imageAbsYFromBottom'
+ name: 'actionBottomRelativeBottom'
+ layout: (LayoutFrame 257 0 42 0 279 0 64 0)
+ activeHelpKey: makeBottomRelativeFromBottom
hasCharacterOrientedLabel: false
tabable: true
- model: absoluteBottom
+ model: bottomRelativeBottom
)
)
@@ -2279,21 +2275,13 @@
menu: commonFrameLayoutsMenu2
textDefault: true
)
- #(#MenuPanelSpec
- #name: 'commonLayoutToolBar3'
- #layout: #(LayoutFrame 6 0.0 295 0 -4 1.0 327 0)
- #level: 0
- #tabable: true
- #menu: #commonFrameLayoutsMenu3
- #textDefault: true
-
-
-
-
-
-
-
-
+ (MenuPanelSpec
+ name: 'commonLayoutToolBar3'
+ layout: (LayoutFrame 6 0.0 295 0 -4 1.0 327 0)
+ level: 0
+ tabable: true
+ menu: commonFrameLayoutsMenu3
+ textDefault: true
)
)