DialogBox.st
changeset 2112 46a837520f47
parent 2111 9beb40bb6b4c
child 2116 c51b55fda393
equal deleted inserted replaced
2111:9beb40bb6b4c 2112:46a837520f47
  3025         listView multipleSelectOk:multiple.
  3025         listView multipleSelectOk:multiple.
  3026         box addComponent:listView indent:(ViewSpacing // 2) withHeight:(listView heightForLines:maxLines).
  3026         box addComponent:listView indent:(ViewSpacing // 2) withHeight:(listView heightForLines:maxLines).
  3027         box makeTabable:listView.
  3027         box makeTabable:listView.
  3028     ].
  3028     ].
  3029 
  3029 
  3030     buttonLabels notNil ifTrue:[
  3030     buttonLabels size > 0 ifTrue:[
  3031         panel := HorizontalPanelView new.
  3031         panel := HorizontalPanelView new.
  3032         panel horizontalLayout:#fitSpace.
  3032         panel horizontalLayout:#fitSpace.
  3033         buttonLabels keysAndValuesDo:[:index :label |
  3033         buttonLabels keysAndValuesDo:[:index :label |
  3034             |b|
  3034             |b|
  3035 
  3035 
  3255     "
  3255     "
  3256      full example:
  3256      full example:
  3257 
  3257 
  3258          Transcript showCR:(
  3258          Transcript showCR:(
  3259              Dialog 
  3259              Dialog 
  3260                 chooseMultiple:'choose any' 
  3260                 chooseMultiple:'choose selected' 
  3261                 fromList:#('one' 'two' 'three' 'four') 
  3261                 fromList:#('one' 'two' 'three' 'four') 
  3262                 values:#(1 2 3 4) 
  3262                 values:#(1 2 3 4) 
  3263                 buttons:nil
  3263                 buttons:nil
  3264                 values:nil
  3264                 values:nil
       
  3265                 lines:10 
       
  3266                 cancel:nil
       
  3267          )
       
  3268 
       
  3269          Transcript showCR:(
       
  3270              Dialog 
       
  3271                 chooseMultiple:'choose selected' 
       
  3272                 fromList:#('one' 'two' 'three' 'four') 
       
  3273                 values:#(1 2 3 4) 
       
  3274                 buttons:#()
       
  3275                 values:#()
  3265                 lines:10 
  3276                 lines:10 
  3266                 cancel:nil
  3277                 cancel:nil
  3267          )
  3278          )
  3268     "
  3279     "
  3269 
  3280 
  6332 ! !
  6343 ! !
  6333 
  6344 
  6334 !DialogBox class methodsFor:'documentation'!
  6345 !DialogBox class methodsFor:'documentation'!
  6335 
  6346 
  6336 version
  6347 version
  6337     ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.142 2000-02-01 11:21:28 cg Exp $'
  6348     ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.143 2000-02-01 11:23:14 cg Exp $'
  6338 ! !
  6349 ! !
  6339 DialogBox initialize!
  6350 DialogBox initialize!