equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libwidg' }" |
12 "{ Package: 'stx:libwidg' }" |
14 |
13 |
15 ModalBox subclass:#DialogBox |
14 ModalBox subclass:#DialogBox |
16 instanceVariableNames:'buttonPanel okButton okAction abortButton abortAction |
15 instanceVariableNames:'buttonPanel okButton okAction abortButton abortAction |
17 acceptReturnAsOK yPosition leftIndent rightIndent addedComponents |
16 acceptReturnAsOK yPosition leftIndent rightIndent addedComponents |
5463 requires that a corresponding dataModel has been set (usually during |
5462 requires that a corresponding dataModel has been set (usually during |
5464 initialization) via the #aspectAt:put: message. |
5463 initialization) via the #aspectAt:put: message. |
5465 Allows users of boxes to access individual values - especially useful, |
5464 Allows users of boxes to access individual values - especially useful, |
5466 in multi-field dialogs." |
5465 in multi-field dialogs." |
5467 |
5466 |
|
5467 "/ subclasses may redefine some aspects... |
|
5468 (self respondsTo:anAspectSymbol) ifTrue:[ |
|
5469 ^ self perform:anAspectSymbol |
|
5470 ]. |
|
5471 |
5468 bindings isNil ifTrue:[^ nil]. |
5472 bindings isNil ifTrue:[^ nil]. |
5469 ^ bindings at:anAspectSymbol ifAbsent:nil |
5473 ^ bindings at:anAspectSymbol ifAbsent:nil |
5470 |
5474 |
5471 "Modified: 16.1.1997 / 11:41:34 / cg" |
5475 "Modified: / 11-10-2006 / 21:48:14 / cg" |
5472 ! ! |
5476 ! ! |
5473 |
5477 |
5474 !DialogBox methodsFor:'construction-adding'! |
5478 !DialogBox methodsFor:'construction-adding'! |
5475 |
5479 |
5476 addComponent:aComponent |
5480 addComponent:aComponent |
8351 ! ! |
8355 ! ! |
8352 |
8356 |
8353 !DialogBox class methodsFor:'documentation'! |
8357 !DialogBox class methodsFor:'documentation'! |
8354 |
8358 |
8355 version |
8359 version |
8356 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.254 2006-09-18 09:07:07 cg Exp $' |
8360 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.255 2006-10-11 19:49:01 cg Exp $' |
8357 ! ! |
8361 ! ! |
8358 |
8362 |
8359 DialogBox initialize! |
8363 DialogBox initialize! |