equal
deleted
inserted
replaced
3111 |
3111 |
3112 box := Dialog new. |
3112 box := Dialog new. |
3113 (box addTextLabel:aString) adjust:#left. |
3113 (box addTextLabel:aString) adjust:#left. |
3114 |
3114 |
3115 list notNil ifTrue:[ |
3115 list notNil ifTrue:[ |
3116 maxLines > list size ifTrue:[ |
3116 maxLines <= list size ifTrue:[ |
3117 listView := ScrollableView for:SelectionInListView. |
3117 listView := ScrollableView for:SelectionInListView. |
3118 ] ifFalse:[ |
3118 ] ifFalse:[ |
3119 listView := SelectionInListView new. |
3119 listView := SelectionInListView new. |
3120 listView level:-1. |
3120 listView level:-1. |
3121 ]. |
3121 ]. |
6619 ! ! |
6619 ! ! |
6620 |
6620 |
6621 !DialogBox class methodsFor:'documentation'! |
6621 !DialogBox class methodsFor:'documentation'! |
6622 |
6622 |
6623 version |
6623 version |
6624 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.155 2000-10-12 16:52:20 stefan Exp $' |
6624 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.156 2000-10-13 12:43:16 cg Exp $' |
6625 ! ! |
6625 ! ! |
6626 DialogBox initialize! |
6626 DialogBox initialize! |