--- a/UILayoutTool.st Fri Jun 27 14:54:23 1997 +0200
+++ b/UILayoutTool.st Fri Jun 27 15:24:37 1997 +0200
@@ -1252,82 +1252,6 @@
! !
-!UILayoutTool::LayoutFrame methodsFor:'actions'!
-
-absoluteBottom
- "automatically generated by UIPainter ..."
-
- "action to be added ..."
- Transcript showCR:self class name , ': action for absoluteBottom ...'.
-!
-
-absoluteRight
- "automatically generated by UIPainter ..."
-
- "action to be added ..."
- Transcript showCR:self class name , ': action for absoluteRight ...'.
-!
-
-relativeBottom
- "automatically generated by UIPainter ..."
-
- "action to be added ..."
- Transcript showCR:self class name , ': action for relativeBottom ...'.
-!
-
-relativeRight
- "automatically generated by UIPainter ..."
-
- "action to be added ..."
- Transcript showCR:self class name , ': action for relativeRight ...'.
-! !
-
-!UILayoutTool::LayoutFrame methodsFor:'aspects'!
-
-bottomFraction
- "automatically generated by UIPainter ..."
-
- |holder|
-
- (holder := builder bindingAt:#bottomFraction) isNil ifTrue:[
- builder aspectAt:#bottomFraction put:(holder := ValueHolder new).
- ].
- ^ holder
-!
-
-bottomOffset
- "automatically generated by UIPainter ..."
-
- |holder|
-
- (holder := builder bindingAt:#bottomOffset) isNil ifTrue:[
- builder aspectAt:#bottomOffset put:(holder := ValueHolder new).
- ].
- ^ holder
-!
-
-rightFraction
- "automatically generated by UIPainter ..."
-
- |holder|
-
- (holder := builder bindingAt:#rightFraction) isNil ifTrue:[
- builder aspectAt:#rightFraction put:(holder := ValueHolder new).
- ].
- ^ holder
-!
-
-rightOffset
- "automatically generated by UIPainter ..."
-
- |holder|
-
- (holder := builder bindingAt:#rightOffset) isNil ifTrue:[
- builder aspectAt:#rightOffset put:(holder := ValueHolder new).
- ].
- ^ holder
-! !
-
!UILayoutTool::LayoutOrigin class methodsFor:'interface specs'!
windowSpec