equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1994 by Claus Gittinger |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
4697 box entryCompletionBlock:entryCompletionBlock. |
4695 box entryCompletionBlock:entryCompletionBlock. |
4698 ]. |
4696 ]. |
4699 |
4697 |
4700 centered := centeredOrNil ? (ForceModalBoxesToOpenAtCenter ? false). |
4698 centered := centeredOrNil ? (ForceModalBoxesToOpenAtCenter ? false). |
4701 |
4699 |
4702 aPoint notNil ifTrue:[ |
4700 [ |
4703 box showAt:aPoint center:centered |
4701 aPoint notNil ifTrue:[ |
4704 ] ifFalse:[ |
4702 box showAt:aPoint center:centered |
4705 centered ifTrue:[ |
|
4706 box showAtCenter |
|
4707 ] ifFalse:[ |
4703 ] ifFalse:[ |
4708 box showAtPointer |
4704 centered ifTrue:[ |
4709 ] |
4705 box showAtCenter |
4710 ]. |
4706 ] ifFalse:[ |
4711 box destroy. |
4707 box showAtPointer |
|
4708 ] |
|
4709 ]. |
|
4710 ] ensure:[ |
|
4711 box destroy. |
|
4712 ]. |
4712 ^ cancelValue value. |
4713 ^ cancelValue value. |
4713 |
4714 |
4714 " |
4715 " |
4715 centered around 200@200: |
4716 centered around 200@200: |
4716 |
4717 |
4768 |
4769 |
4769 "Created: / 29-05-1996 / 14:35:04 / cg" |
4770 "Created: / 29-05-1996 / 14:35:04 / cg" |
4770 "Modified: / 05-05-1999 / 10:50:22 / cg" |
4771 "Modified: / 05-05-1999 / 10:50:22 / cg" |
4771 "Modified (comment): / 03-08-2017 / 14:38:57 / cg" |
4772 "Modified (comment): / 03-08-2017 / 14:38:57 / cg" |
4772 "Modified: / 01-07-2018 / 10:09:02 / Claus Gittinger" |
4773 "Modified: / 01-07-2018 / 10:09:02 / Claus Gittinger" |
|
4774 "Modified: / 05-02-2020 / 13:29:05 / Stefan Vogel" |
4773 ! |
4775 ! |
4774 |
4776 |
4775 request:aString displayAt:aPoint centered:centered action:resultAction initialAnswer:initial onCancel:cancelValue |
4777 request:aString displayAt:aPoint centered:centered action:resultAction initialAnswer:initial onCancel:cancelValue |
4776 "launch a Dialog, which allows user to enter a string. |
4778 "launch a Dialog, which allows user to enter a string. |
4777 If aPoint is nonNil, the box is shown there, optionally centered. |
4779 If aPoint is nonNil, the box is shown there, optionally centered. |