equal
deleted
inserted
replaced
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 |
6796 |
6797 self todo "/ someone changes this later, back to a too small height !!!!!! |
6797 "/ self todo. "/ someone changes this later, back to a too small height !!!!!! |
6798 aView height:max. |
6798 aView height:max. |
6799 |
6799 |
6800 aView isInputField ifTrue:[ |
6800 aView isInputField ifTrue:[ |
6801 self addToInputFieldGroup:aView |
6801 self addToInputFieldGroup:aView |
6802 ]. |
6802 ]. |
6866 dialog open. |
6866 dialog open. |
6867 dialog accepted ifTrue:[Transcript showCR:model value]. |
6867 dialog accepted ifTrue:[Transcript showCR:model value]. |
6868 " |
6868 " |
6869 |
6869 |
6870 "Created: / 17-07-1996 / 15:03:32 / cg" |
6870 "Created: / 17-07-1996 / 15:03:32 / cg" |
6871 "Modified: / 25-01-2011 / 13:04:44 / cg" |
6871 "Modified: / 25-01-2011 / 18:46:44 / cg" |
6872 ! |
6872 ! |
6873 |
6873 |
6874 addLabelledField:aView label:labelString adjust:labelAdjust tabable:tabable separateAtX:relativeX |
6874 addLabelledField:aView label:labelString adjust:labelAdjust tabable:tabable separateAtX:relativeX |
6875 "add a label and some view side-by-side. |
6875 "add a label and some view side-by-side. |
6876 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. |
9533 ! ! |
9533 ! ! |
9534 |
9534 |
9535 !DialogBox class methodsFor:'documentation'! |
9535 !DialogBox class methodsFor:'documentation'! |
9536 |
9536 |
9537 version |
9537 version |
9538 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.308 2011-01-25 12:53:47 cg Exp $' |
9538 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.309 2011-01-25 17:47:03 cg Exp $' |
9539 ! |
9539 ! |
9540 |
9540 |
9541 version_CVS |
9541 version_CVS |
9542 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.308 2011-01-25 12:53:47 cg Exp $' |
9542 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.309 2011-01-25 17:47:03 cg Exp $' |
9543 ! ! |
9543 ! ! |
9544 |
9544 |
9545 DialogBox initialize! |
9545 DialogBox initialize! |