--- a/ApplicationModel.st Thu Feb 20 22:15:30 2003 +0100
+++ b/ApplicationModel.st Fri Feb 21 15:07:19 2003 +0100
@@ -1572,11 +1572,37 @@
"like Objects information, but translates the string via the
resourcePack, thus giving a translated string automatically"
- super information:(resources string:aString) withCRs
+ |s|
+
+ resources isNil ifTrue:[
+ "/ mhmh an early warning ...
+ s := aString
+ ] ifFalse:[
+ s := resources string:aString
+ ].
+ super information:s withCRs
"Created: / 20.5.1998 / 03:48:43 / cg"
!
+notify:aString
+ "like Objects notify, but translates the string via the
+ resourcePack, thus giving a translated string automatically"
+
+ |s|
+
+ resources isNil ifTrue:[
+ "/ mhmh an early warning ...
+ s := aString
+ ] ifFalse:[
+ s := resources string:aString
+ ].
+ super notify:s withCRs
+
+ "Created: / 20.5.1998 / 01:14:52 / cg"
+ "Modified: / 13.11.2001 / 20:10:12 / cg"
+!
+
restoreCursors
"restore the original cursors in all of my views"
@@ -2694,7 +2720,7 @@
!ApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.178 2002-12-06 10:10:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.179 2003-02-21 14:07:19 stefan Exp $'
! !
ApplicationModel initialize!