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:libview' }" |
12 "{ Package: 'stx:libview' }" |
14 |
13 |
15 StandardSystemView subclass:#ModalBox |
14 StandardSystemView subclass:#ModalBox |
16 instanceVariableNames:'shadowView exclusiveKeyboard escapeIsCancel' |
15 instanceVariableNames:'shadowView exclusiveKeyboard escapeIsCancel' |
17 classVariableNames:'UseTransientViews DefaultExtent' |
16 classVariableNames:'UseTransientViews DefaultExtent' |
334 2r00000011 |
333 2r00000011 |
335 2r00000111 |
334 2r00000111 |
336 2r00001111 |
335 2r00001111 |
337 2r00011111 |
336 2r00011111 |
338 ] |
337 ] |
339 on:device. |
338 onDevice:device. |
340 resizeButton := Button label:form in:self. |
339 resizeButton := Button label:form in:self. |
341 resizeButton origin:1.0 @ 1.0 corner:1.0@1.0. |
340 resizeButton origin:1.0 @ 1.0 corner:1.0@1.0. |
342 resizeButton activeForegroundColor:(resizeButton foregroundColor). |
341 resizeButton activeForegroundColor:(resizeButton foregroundColor). |
343 resizeButton activeBackgroundColor:(resizeButton backgroundColor). |
342 resizeButton activeBackgroundColor:(resizeButton backgroundColor). |
344 resizeButton enteredBackgroundColor:(resizeButton backgroundColor). |
343 resizeButton enteredBackgroundColor:(resizeButton backgroundColor). |
357 2r10000000 |
356 2r10000000 |
358 2r00000000 |
357 2r00000000 |
359 2r00000000 |
358 2r00000000 |
360 2r00000000 |
359 2r00000000 |
361 ] |
360 ] |
362 on:device. |
361 onDevice:device. |
363 moveButton := Button label:form in:self. |
362 moveButton := Button label:form in:self. |
364 moveButton origin:0.0 @ 0.0 corner:0.0@0.0. |
363 moveButton origin:0.0 @ 0.0 corner:0.0@0.0. |
365 moveButton activeForegroundColor:(moveButton foregroundColor). |
364 moveButton activeForegroundColor:(moveButton foregroundColor). |
366 moveButton activeBackgroundColor:(moveButton backgroundColor). |
365 moveButton activeBackgroundColor:(moveButton backgroundColor). |
367 moveButton enteredBackgroundColor:(moveButton backgroundColor). |
366 moveButton enteredBackgroundColor:(moveButton backgroundColor). |
911 ! ! |
910 ! ! |
912 |
911 |
913 !ModalBox class methodsFor:'documentation'! |
912 !ModalBox class methodsFor:'documentation'! |
914 |
913 |
915 version |
914 version |
916 ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.92 2005-07-26 08:51:12 cg Exp $' |
915 ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.93 2007-05-30 11:42:18 stefan Exp $' |
917 ! ! |
916 ! ! |
918 |
917 |
919 ModalBox initialize! |
918 ModalBox initialize! |