--- a/ApplicationModel.st	Mon Sep 11 15:01:30 2006 +0200
+++ b/ApplicationModel.st	Wed Sep 13 12:42:04 2006 +0200
@@ -543,8 +543,17 @@
     ResourcePack flushCachedResourcePacks.
     self flushClassResources.
     self allSubclassesDo:[:aClass |
-	aClass flushClassResources.
-    ]
+        aClass flushClassResources.
+    ].
+
+    WindowGroup scheduledWindowGroups
+        do:[:wg | |app| 
+                    (app := wg application) notNil ifTrue:[
+                        app initializeResources
+                    ]
+           ]
+
+    "Modified: / 13-09-2006 / 12:41:31 / cg"
 !
 
 flushClassResources
@@ -1789,9 +1798,9 @@
 
 "/    builder := self builderClass new.
 "/    builder notNil ifTrue:[builder application:self].
-    resources := self class classResources.
-
-    "Modified: / 20.6.1998 / 11:53:36 / cg"
+    self initializeResources.
+
+    "Modified: / 13-09-2006 / 12:39:30 / cg"
 !
 
 initialize
@@ -1799,6 +1808,14 @@
      but can be redefined in concrete applications"
 !
 
+initializeResources
+    "initialize the applications resources."
+
+    resources := self class classResources.
+
+    "Created: / 13-09-2006 / 12:39:22 / cg"
+!
+
 setDevice:aDevice
     "set the device (i.e. some Screen), where the application
      shall open its view(s).
@@ -2925,7 +2942,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.226 2006-08-26 10:57:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.227 2006-09-13 10:42:04 cg Exp $'
 ! !
 
 ApplicationModel initialize!