--- a/Tools__HierarchicalChangesetDialog.st	Fri Nov 18 15:06:17 2011 +0100
+++ b/Tools__HierarchicalChangesetDialog.st	Fri Nov 18 15:06:26 2011 +0100
@@ -378,20 +378,24 @@
 
 codeView
 
-    codeView ifNil:
-        [codeView := HVScrollableView for: CodeView].
+    codeView isNil ifTrue:[
+        codeView := HVScrollableView for: CodeView
+    ].
     ^codeView
 
     "Created: / 06-11-2008 / 14:52:57 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:58:32 / cg"
 !
 
 diffView
 
-    diffView ifNil:
-        [diffView := HVScrollableView for: DiffTextView].
+    diffView isNil ifTrue:[
+        diffView := HVScrollableView for: DiffTextView
+    ].
     ^diffView
 
     "Created: / 06-11-2008 / 15:01:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:58:41 / cg"
 !
 
 selectedChangeSetHolder
@@ -457,17 +461,18 @@
 !
 
 updateCode
+    | change scrolledCodeView |
 
-    | change |
     change := self selectedChange.
-    change ifNil:[^self].
-    self codeView scrolledView ifNil:[^self].
-    self codeView scrolledView
+    change isNil ifTrue:[^self].
+    (scrolledCodeView := self codeView scrolledView) isNil ifTrue:[^self].
+    scrolledCodeView
         contents: change source;
         raise.
 
     "Created: / 06-11-2008 / 15:01:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 02-04-2009 / 17:59:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified (format): / 18-11-2011 / 14:59:31 / cg"
 ! !
 
 !HierarchicalChangesetDialog methodsFor:'hooks'!
@@ -483,7 +488,7 @@
 !HierarchicalChangesetDialog::Change class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__HierarchicalChangesetDialog.st,v 1.2 2011-07-03 19:53:24 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangesetDialog.st,v 1.3 2011-11-18 14:06:26 cg Exp $'
 ! !
 
 !HierarchicalChangesetDialog::Change class methodsFor:'image specs'!
@@ -587,14 +592,16 @@
 
 label
 
-    label ifNil:
-        [label := change
+    label isNil ifTrue:[
+        label := change
                     ifNil:['Composite change']
-                    ifNotNil:[change printString"displayStringForBrowser: self application"]].
+                    ifNotNil:[change printString"displayStringForBrowser: self application"]
+    ].
     ^label
 
     "Created: / 05-11-2008 / 08:20:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 07-11-2008 / 08:25:47 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:59:53 / cg"
 !
 
 label:something
@@ -677,16 +684,17 @@
 
 isRemoved
 
-    removed ifNil:[removed := false].
+    removed isNil ifTrue:[removed := false].
     ^removed
 
     "Created: / 05-11-2008 / 08:21:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:59:39 / cg"
 ! !
 
 !HierarchicalChangesetDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangesetDialog.st,v 1.2 2011-07-03 19:53:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangesetDialog.st,v 1.3 2011-11-18 14:06:26 cg Exp $'
 !
 
 version_SVN