equal
deleted
inserted
replaced
6791 leftInset:ViewSpacing; |
6791 leftInset:ViewSpacing; |
6792 rightInset:ViewSpacing; |
6792 rightInset:ViewSpacing; |
6793 width:relW*(1.0 - relativeX); |
6793 width:relW*(1.0 - relativeX); |
6794 left:leftX+(relW*relativeX). |
6794 left:leftX+(relW*relativeX). |
6795 ]. |
6795 ]. |
6796 "/ aView height:max. |
6796 |
|
6797 self todo "/ someone changes this later, back to a too small height !!!!!! |
|
6798 aView height:max. |
6797 |
6799 |
6798 aView isInputField ifTrue:[ |
6800 aView isInputField ifTrue:[ |
6799 self addToInputFieldGroup:aView |
6801 self addToInputFieldGroup:aView |
6800 ]. |
6802 ]. |
6801 |
6803 |
6864 dialog open. |
6866 dialog open. |
6865 dialog accepted ifTrue:[Transcript showCR:model value]. |
6867 dialog accepted ifTrue:[Transcript showCR:model value]. |
6866 " |
6868 " |
6867 |
6869 |
6868 "Created: / 17-07-1996 / 15:03:32 / cg" |
6870 "Created: / 17-07-1996 / 15:03:32 / cg" |
6869 "Modified: / 23-01-2011 / 03:00:24 / cg" |
6871 "Modified: / 25-01-2011 / 13:04:44 / cg" |
6870 ! |
6872 ! |
6871 |
6873 |
6872 addLabelledField:aView label:labelString adjust:labelAdjust tabable:tabable separateAtX:relativeX |
6874 addLabelledField:aView label:labelString adjust:labelAdjust tabable:tabable separateAtX:relativeX |
6873 "add a label and some view side-by-side. |
6875 "add a label and some view side-by-side. |
6874 The labels goes from 0.0 to relativeX; the inputField from relativeX to 1.0. |
6876 The labels goes from 0.0 to relativeX; the inputField from relativeX to 1.0. |
9531 ! ! |
9533 ! ! |
9532 |
9534 |
9533 !DialogBox class methodsFor:'documentation'! |
9535 !DialogBox class methodsFor:'documentation'! |
9534 |
9536 |
9535 version |
9537 version |
9536 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.307 2011-01-23 02:01:21 cg Exp $' |
9538 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.308 2011-01-25 12:53:47 cg Exp $' |
9537 ! |
9539 ! |
9538 |
9540 |
9539 version_CVS |
9541 version_CVS |
9540 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.307 2011-01-23 02:01:21 cg Exp $' |
9542 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.308 2011-01-25 12:53:47 cg Exp $' |
9541 ! ! |
9543 ! ! |
9542 |
9544 |
9543 DialogBox initialize! |
9545 DialogBox initialize! |