HorizontalPanelView.st
changeset 3515 25470e3161e1
parent 3503 6af61918313a
child 3674 d9a22791dc50
equal deleted inserted replaced
3514:98e103cad51d 3515:25470e3161e1
  1111 ! !
  1111 ! !
  1112 
  1112 
  1113 !HorizontalPanelView methodsFor:'focus handling'!
  1113 !HorizontalPanelView methodsFor:'focus handling'!
  1114 
  1114 
  1115 subviewsInFocusOrder
  1115 subviewsInFocusOrder
       
  1116 
       
  1117     subViews isEmptyOrNil ifTrue:[ ^ #() ].
       
  1118     
  1116     (reverseOrderIfOKAtLeft == true
  1119     (reverseOrderIfOKAtLeft == true
  1117     and:[Dialog defaultOKButtonAtLeft]) ifTrue:[
  1120     and:[Dialog defaultOKButtonAtLeft]) ifTrue:[
  1118         ^ (subViews ? #()) reversed
  1121         ^ subViews reversed
  1119     ].
  1122     ].
  1120     ^ subViews
  1123     ^ subViews
  1121 ! !
  1124 ! !
  1122 
  1125 
  1123 !HorizontalPanelView methodsFor:'layout'!
  1126 !HorizontalPanelView methodsFor:'layout'!
  1511 ! !
  1514 ! !
  1512 
  1515 
  1513 !HorizontalPanelView class methodsFor:'documentation'!
  1516 !HorizontalPanelView class methodsFor:'documentation'!
  1514 
  1517 
  1515 version
  1518 version
  1516     ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.54 2007-10-10 11:48:32 cg Exp $'
  1519     ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.55 2007-11-28 12:16:04 ca Exp $'
  1517 ! !
  1520 ! !