UILayoutTool.st
changeset 1581 d7afe06ebbae
parent 1447 bf034d910b27
child 1625 4dc8b595e92f
equal deleted inserted replaced
1580:c606e46c4420 1581:d7afe06ebbae
  1364     "
  1364     "
  1365     |layout|
  1365     |layout|
  1366 
  1366 
  1367     layout  := Smalltalk::AlignmentOrigin new.
  1367     layout  := Smalltalk::AlignmentOrigin new.
  1368 
  1368 
  1369     layout   leftOffset:((self aspectFor:#leftOffset)   value) ? 0.
  1369     layout 
  1370     layout    topOffset:((self aspectFor:#topOffset)    value) ? 0.
  1370         leftFraction:(((self aspectFor:#leftFraction) value) ? 0)
  1371     layout leftFraction:((self aspectFor:#leftFraction) value) ? 0.
  1371               offset:(((self aspectFor:#leftOffset)   value) ? 0)
  1372     layout  topFraction:((self aspectFor:#topFraction)  value) ? 0.
  1372         topFraction:(((self aspectFor:#topFraction)  value) ? 0)
  1373 
  1373              offset:(((self aspectFor:#topOffset)    value) ? 0).
  1374     layout leftAlignmentFraction:((self aspectFor:#leftAlignmentFraction) value) ? 0.
  1374 
  1375     layout  topAlignmentFraction:((self aspectFor:#topAlignmentFraction)  value) ? 0.
  1375     layout 
       
  1376         leftAlignmentFraction:(((self aspectFor:#leftAlignmentFraction) value) ? 0)
       
  1377         topAlignmentFraction:(((self aspectFor:#topAlignmentFraction)  value) ? 0).
  1376 
  1378 
  1377   ^ layout
  1379   ^ layout
  1378 ! !
  1380 ! !
  1379 
  1381 
  1380 !UILayoutTool::AlignmentOrigin methodsFor:'alignment'!
  1382 !UILayoutTool::AlignmentOrigin methodsFor:'alignment'!
  2351     "
  2353     "
  2352     |layout|
  2354     |layout|
  2353 
  2355 
  2354     layout  := Smalltalk::LayoutFrame new.
  2356     layout  := Smalltalk::LayoutFrame new.
  2355 
  2357 
  2356     layout     leftOffset:((self aspectFor:#leftOffset)     value) ? 0.
  2358     layout 
  2357     layout    rightOffset:((self aspectFor:#rightOffset)    value) ? 0.
  2359         leftFraction:(((self aspectFor:#leftFraction)   value) ? 0)
  2358     layout      topOffset:((self aspectFor:#topOffset)      value) ? 0.
  2360               offset:(((self aspectFor:#leftOffset)     value) ? 0)
  2359     layout   bottomOffset:((self aspectFor:#bottomOffset)   value) ? 0.
  2361         rightFraction:(((self aspectFor:#rightFraction)  value) ? 0)
  2360     layout   leftFraction:((self aspectFor:#leftFraction)   value) ? 0.
  2362               offset:(((self aspectFor:#rightOffset)    value) ? 0)
  2361     layout  rightFraction:((self aspectFor:#rightFraction)  value) ? 0.
  2363         topFraction:(((self aspectFor:#topFraction)    value) ? 0)
  2362     layout    topFraction:((self aspectFor:#topFraction)    value) ? 0.
  2364               offset:(((self aspectFor:#topOffset)      value) ? 0)
  2363     layout bottomFraction:((self aspectFor:#bottomFraction) value) ? 0.
  2365         bottomFraction:(((self aspectFor:#bottomFraction) value) ? 0)
       
  2366               offset:(((self aspectFor:#bottomOffset)   value) ? 0).
  2364 
  2367 
  2365   ^ layout
  2368   ^ layout
  2366 
       
  2367 ! !
  2369 ! !
  2368 
  2370 
  2369 !UILayoutTool::LayoutFrame methodsFor:'common frames'!
  2371 !UILayoutTool::LayoutFrame methodsFor:'common frames'!
  2370 
  2372 
  2371 setBottomFixPartFrame
  2373 setBottomFixPartFrame
  2559     "
  2561     "
  2560     |layout|
  2562     |layout|
  2561 
  2563 
  2562     layout  := Smalltalk::LayoutOrigin new.
  2564     layout  := Smalltalk::LayoutOrigin new.
  2563 
  2565 
  2564     layout   leftOffset:((self aspectFor:#leftOffset)   value) ? 0.
  2566     layout 
  2565     layout    topOffset:((self aspectFor:#topOffset)    value) ? 0.
  2567         leftFraction:(((self aspectFor:#leftFraction) value) ? 0)
  2566     layout leftFraction:((self aspectFor:#leftFraction) value) ? 0.
  2568               offset:(((self aspectFor:#leftOffset)   value) ? 0)
  2567     layout  topFraction:((self aspectFor:#topFraction)  value) ? 0.
  2569         topFraction:(((self aspectFor:#topFraction)  value) ? 0)
       
  2570              offset:(((self aspectFor:#topOffset)    value) ? 0).
  2568 
  2571 
  2569   ^ layout
  2572   ^ layout
  2570 
       
  2571 ! !
  2573 ! !
  2572 
  2574 
  2573 !UILayoutTool::Point class methodsFor:'interface specs'!
  2575 !UILayoutTool::Point class methodsFor:'interface specs'!
  2574 
  2576 
  2575 windowSpec
  2577 windowSpec