--- a/ApplicationModel.st	Fri Nov 17 01:43:56 2000 +0100
+++ b/ApplicationModel.st	Wed Nov 22 14:15:39 2000 +0100
@@ -156,6 +156,8 @@
 !ApplicationModel class methodsFor:'active help'!
 
 helpSpec
+    "default is: no help-spec (should be redefined by concrete class if help is wanted)."
+
     ^ IdentityDictionary new.
 ! !
 
@@ -348,14 +350,20 @@
 !ApplicationModel class methodsFor:'defaults'!
 
 defaultIcon
+    "default is: no icon (should be redefined by concrete class if an icon is wanted)."
+
     ^ nil
 !
 
 labelAt:aKey
+    "default is: no label (could be redefined by concrete class )."
+
     ^ nil
 !
 
 labelAt:aKey ifAbsent:aBlock
+    "default is: no label (could be redefined by concrete class )."
+
     ^ aBlock value
 !
 
@@ -369,10 +377,14 @@
 !
 
 visualAt:aKey
+    "default is: no visual (could be redefined by concrete class )."
+
     ^ nil
 !
 
 visualAt:aKey ifAbsent:aBlock
+    "default is: no visual (could be redefined by concrete class )."
+
     ^ aBlock value
 !
 
@@ -1977,6 +1989,8 @@
 !
 
 createBuilder
+    "create a WindowBuilder if not already present"
+
     builder isNil ifTrue:[
         builder := self builderClass new.
         builder application:self.
@@ -1996,6 +2010,8 @@
 !
 
 selfResponsibleFor:aKey
+    "internal: return true, if I am to provide a value for some aspect."
+
     ^ (aKey isNil or:[masterApplication isNil or:[self respondsTo:aKey]])
 ! !
 
@@ -2091,6 +2107,8 @@
 !ApplicationModel methodsFor:'startup / release'!
 
 applicationWindowClass
+    "return the class used for my (top-) windows"
+
     ^ ApplicationWindow
 !
 
@@ -2408,6 +2426,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.148 2000-11-15 12:36:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.149 2000-11-22 13:15:39 cg Exp $'
 ! !
 ApplicationModel initialize!