--- a/FileApplicationNoteBook.st	Thu Jan 12 02:12:35 2012 +0100
+++ b/FileApplicationNoteBook.st	Thu Jan 12 02:22:36 2012 +0100
@@ -547,7 +547,13 @@
 
 openApplicationClass:aClass withItem:anItem withType:aType
 
-    ^ self openApplicationClass:aClass withItem:anItem withType:aType checkExisting:true
+    ^ self 
+        openApplicationClass:aClass 
+        withItem:anItem 
+        withType:aType 
+        checkExisting:true
+
+    "Modified (format): / 12-01-2012 / 01:10:50 / cg"
 !
 
 openApplicationClass:aClass withItem:anItem withType:aType checkExisting:checkExisting 
@@ -803,6 +809,20 @@
     ^ self openApplicationClass:CommandResult withItem:nil withType:#commandResult
 !
 
+openCompareDirectory:directory1 with:directory2
+    |newAppl|
+
+    newAppl := DirectoryDifferenceViewApplication new.
+    newAppl masterApplication:self.
+    newAppl directory1:directory1 directory2:directory2.
+
+    self setSameFileIndexFor:newAppl.
+    self startApplication:newAppl.
+    ^ newAppl
+
+    "Created: / 12-01-2012 / 01:10:05 / cg"
+!
+
 openDirectoryDescription
 
     | appl aInfoItem|
@@ -820,7 +840,13 @@
 
 openSearchFileOn:anItem
 
-    ^ self openApplicationClass:FindFileApplication withItem:anItem withType:nil checkExisting:false
+    ^ self 
+        openApplicationClass:FindFileApplication 
+        withItem:anItem 
+        withType:nil 
+        checkExisting:false
+
+    "Modified (format): / 12-01-2012 / 01:02:30 / cg"
 !
 
 openTerminalApplication:anItem
@@ -6681,9 +6707,9 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.263 2012-01-11 23:56:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.264 2012-01-12 01:22:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.263 2012-01-11 23:56:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.264 2012-01-12 01:22:36 cg Exp $'
 ! !