diff -r 10b797de4c2d -r 23d754f0864b UILayoutTool.st --- 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