--- a/WindowBuilder.st	Fri Jul 16 16:41:50 2004 +0200
+++ b/WindowBuilder.st	Wed Aug 18 11:21:00 2004 +0200
@@ -222,8 +222,8 @@
 !
 
 aspectAt:aSymbol
-    "return the aspect for a symbol or nil.
-    "
+    "return the aspect for a symbol or nil."
+
     ^ self 
         aspectAt:aSymbol 
         ifAbsent:[self aspectNotFound:aSymbol error:'no aspect for:']
@@ -232,8 +232,8 @@
 !
 
 aspectAt:aSymbol ifAbsent:exceptionBlock
-    "return the aspect for a symbol or the value from exceptionBlock.
-    "
+    "return the aspect for a symbol or the value from exceptionBlock."
+
     |b|
 
     aSymbol notNil ifTrue:[
@@ -264,8 +264,8 @@
 !
 
 aspectAt:aSymbol put:aModel
-    "store an aspect identified by its symbol and its value
-    "
+    "store an aspect identified by its symbol and its value"
+
     bindings isNil ifTrue:[
         bindings := IdentityDictionary new
     ].
@@ -275,8 +275,8 @@
 !
 
 bindingAt:aSymbol
-    "return the binding for a symbol or nil if there is none
-    "
+    "return the binding for a symbol or nil if there is none"
+
     bindings notNil ifTrue:[
         ^ bindings at:aSymbol ifAbsent:nil.
     ].
@@ -284,14 +284,14 @@
 !
 
 bindings
-    "return my bindings
-    "
+    "return my bindings"
+
     ^ bindings
 !
 
 bindings:aDictionary
-    "set bindings to a dictionary
-    "
+    "set bindings to a dictionary"
+
     bindings := aDictionary
 !
 
@@ -334,8 +334,8 @@
 !
 
 componentAt:name put:aComponent
-    "store a component identified by its name.
-    "
+    "store a component identified by its name."
+
     namedComponents isNil ifTrue:[
         namedComponents := IdentityDictionary new.
     ].
@@ -350,8 +350,7 @@
 
 findComponentAt:name
     "recursively search for a component identified by its name in myself
-     and all of my subApplications.
-    "
+     and all of my subApplications."
 
     ^ self 
         findComponentAt:name 
@@ -364,8 +363,7 @@
      and all of my subApplications.
      As a builders applications view might be different from the builders view,
      we must be careful to avoid endless recursion if a subview refers to the topviews builder,
-     (sigh)
-    "
+     (sigh)"
 
     |comp "window" app b|
 
@@ -403,8 +401,7 @@
 findVisibleComponentAt:name
     "recursively search for a visible component identified by its name in myself
      and all of my subApplications.
-     Be careful: this also searches for components in unmapped canvases.
-    "
+     Be careful: this also searches for components in unmapped canvases."
 
     ^ self 
         findComponentAt:name 
@@ -413,8 +410,7 @@
 !
 
 focusSequence 
-    "return my focus sequence
-    "
+    "return my focus sequence"
 
     focusSequence isNil ifTrue:[
         focusSequence := OrderedCollection new
@@ -425,8 +421,8 @@
 !
 
 helpKeyFor:aComponent
-    "return the helpkey for a component or nil
-    "
+    "return the helpkey for a component or nil"
+
     |v key|
 
     helpKeys isNil ifTrue:[^ nil].
@@ -442,8 +438,8 @@
 
 helpKeyFor:aComponent put:aKey
     "assign a key for a component which is used to access the help text
-     from the application.
-    "
+     from the application."
+
     aKey isNil ifTrue:[
         helpKeys isNil ifFalse:[
             helpKeys removeKey:aComponent ifAbsent:nil
@@ -454,12 +450,11 @@
         ].
         helpKeys at:aComponent put:aKey
     ]
-
 !
 
 keyboardProcessor
-    "return my keyboard processor
-    "
+    "return my keyboard processor"
+
     keyboardProcessor isNil ifTrue:[
         keyboardProcessor := KeyboardProcessor new    
     ].
@@ -470,8 +465,8 @@
 !
 
 keyboardProcessor:aKeyboardProcessor
-    "set my keyboard processor
-    "
+    "set my keyboard processor"
+
     keyboardProcessor := aKeyboardProcessor
 
     "Created: / 18.6.1998 / 19:59:38 / cg"
@@ -510,8 +505,8 @@
 !
 
 namedComponents
-    "return list of named components
-    "
+    "return a list of named components"
+
     ^ namedComponents
 !
 
@@ -538,8 +533,7 @@
      #specificationFor: (if majorKey is nil) or by sending the minorKey
      message to the class named as majorKey.
      Notice, that the class named majorKey is first searched in the
-     application classes namespace - allowing private classes as majorKey.
-    "
+     application classes namespace - allowing private classes as majorKey."
 
     |spec cls dict dkey|
 
@@ -797,8 +791,8 @@
 
 safelyPerform:aSelector with:anArgument ifNone:aBlock
     "send the one-arg-message aSelector to the application;
-     the result returned from the send or nil is returned
-    "
+     the result returned from the send or nil is returned"
+
     |handlerBlock|
 
     aSelector notNil ifTrue:[
@@ -834,8 +828,8 @@
 
 safelyPerform:aSelector with:arg1 with:arg2 ifNone:aBlock
     "send the two-arg-message aSelector to the application;
-     the result returned from the send or nil is returned
-    "
+     the result returned from the send or nil is returned"
+
     |cls handlerBlock|
 
     aSelector notNil ifTrue:[
@@ -1375,5 +1369,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.117 2004-07-06 12:33:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.118 2004-08-18 09:21:00 cg Exp $'
 ! !