equal
deleted
inserted
replaced
1254 ^ nil |
1254 ^ nil |
1255 |
1255 |
1256 "Modified: / 7.9.1998 / 23:37:00 / cg" |
1256 "Modified: / 7.9.1998 / 23:37:00 / cg" |
1257 ! ! |
1257 ! ! |
1258 |
1258 |
1259 |
|
1260 !ApplicationModel methodsFor:'binding access'! |
1259 !ApplicationModel methodsFor:'binding access'! |
1261 |
1260 |
1262 actionFor:aKey |
1261 actionFor:aKey |
1263 "sent by the builder to ask for an actionBlock for |
1262 "sent by the builder to ask for an actionBlock for |
1264 a Button. The argument, aKey comes from an UI-spec |
1263 a Button. The argument, aKey comes from an UI-spec |
3760 "evaluate aBlock, showing a waitCursor in my topView and all of its subviews. |
3759 "evaluate aBlock, showing a waitCursor in my topView and all of its subviews. |
3761 Return the value of aBlock. |
3760 Return the value of aBlock. |
3762 Guarantee, that the cursor is visible by the user for a minimal amount of time." |
3761 Guarantee, that the cursor is visible by the user for a minimal amount of time." |
3763 |
3762 |
3764 ^ self withVisibleCursor:(Cursor wait) do:aBlock |
3763 ^ self withVisibleCursor:(Cursor wait) do:aBlock |
|
3764 ! |
|
3765 |
|
3766 withWriteCursorDo:aBlock |
|
3767 "evaluate aBlock, showing a writeCursor in my topView and all of its subviews. |
|
3768 Return the value of aBlock." |
|
3769 |
|
3770 ^ self withCursor:(Cursor write) do:aBlock |
|
3771 |
|
3772 "Created: / 27-07-2012 / 09:42:53 / cg" |
3765 ! ! |
3773 ! ! |
3766 |
3774 |
3767 !ApplicationModel methodsFor:'window events'! |
3775 !ApplicationModel methodsFor:'window events'! |
3768 |
3776 |
3769 clientMessage:msgType format:msgFormat eventData:msgData |
3777 clientMessage:msgType format:msgFormat eventData:msgData |
3929 ! ! |
3937 ! ! |
3930 |
3938 |
3931 !ApplicationModel class methodsFor:'documentation'! |
3939 !ApplicationModel class methodsFor:'documentation'! |
3932 |
3940 |
3933 version |
3941 version |
3934 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.330 2012-05-11 14:28:48 vrany Exp $' |
3942 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.331 2012-07-27 07:52:05 cg Exp $' |
3935 ! |
3943 ! |
3936 |
3944 |
3937 version_CVS |
3945 version_CVS |
3938 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.330 2012-05-11 14:28:48 vrany Exp $' |
3946 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.331 2012-07-27 07:52:05 cg Exp $' |
3939 ! ! |
3947 ! ! |
3940 |
3948 |
3941 ApplicationModel initialize! |
3949 ApplicationModel initialize! |