UILayoutTool.st
changeset 3239 d6d4d8ed0421
parent 3235 62205b199fc6
child 3240 28a65ccd21cc
equal deleted inserted replaced
3238:04a843a6ae79 3239:d6d4d8ed0421
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1995 by eXept Software AG
     2  COPYRIGHT (c) 1995 by eXept Software AG
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
  3056 layout
  3054 layout
  3057     "returns the current layout as layoutFrame
  3055     "returns the current layout as layoutFrame
  3058     "
  3056     "
  3059     |layout|
  3057     |layout|
  3060 
  3058 
  3061     layout  := (Smalltalk at:LayoutFrame) new.
  3059     layout  := (Smalltalk at:#LayoutFrame) new.
  3062 
  3060 
  3063     layout 
  3061     layout 
  3064         leftFraction:(self aspectValueOr0For:#leftFraction)
  3062         leftFraction:(self aspectValueOr0For:#leftFraction)
  3065             offset:(self aspectValueOr0For:#leftOffset)
  3063             offset:(self aspectValueOr0For:#leftOffset)
  3066         rightFraction:(self aspectValueOr0For:#rightFraction)
  3064         rightFraction:(self aspectValueOr0For:#rightFraction)