--- a/TwoColumnTextView.st	Tue Oct 06 09:55:56 2009 +0200
+++ b/TwoColumnTextView.st	Tue Oct 06 12:26:19 2009 +0200
@@ -101,11 +101,7 @@
     "open up a view showing firstText and secondText side-by-side.
      This does not make much sense for unrelated texts - of course."
 
-    |top v|
-
-    top := StandardSystemView label:'two texts'.
-    self openOn:firstText and:secondText in:top.
-    ^ top open
+    ^ self openOn:firstText and:secondText title:'Two Texts'
 
     "
      TwoColumnTextView
@@ -133,22 +129,42 @@
         in:aView.
 !
 
+openOn:firstText and:secondText title:titleOrNil
+    "open up a view showing firstText and secondText side-by-side.
+     This does not make much sense for unrelated texts - of course."
+
+    |top|
+
+    top := StandardSystemView new.
+    titleOrNil notNil ifTrue:[ top label:titleOrNil ].
+    self openOn:firstText and:secondText in:top.
+    ^ top open
+
+    "
+     TwoColumnTextView
+        openOn:('smalltalk.rc' asFilename contentsOfEntireFile)
+        and:('display.rc' asFilename contentsOfEntireFile)
+
+
+     TwoColumnTextView
+        openOn:('display.rc' asFilename contentsOfEntireFile)
+        and:('smalltalk.rc' asFilename contentsOfEntireFile)
+    "
+
+    "Modified: 25.4.1996 / 13:31:03 / cg"
+!
+
 openOn:firstText label:firstLabel and:secondText label:secondLabel 
     "open up a view showing firstText and secondText side-by-side,
      and labels for both views.
      This does not make much sense for unrelated texts - of course."
     
-    |top v|
-
-    top := StandardSystemView label:'two texts'.
-    v := self 
-                openOn:firstText
-                label:firstLabel
-                and:secondText
-                label:secondLabel
-                in:top.
-    top open.
-    ^ v
+    ^ self 
+        openOn:firstText 
+        label:firstLabel 
+        and:secondText 
+        label:secondLabel 
+        title:'Two Texts'
 
     "
      TwoColumnTextView
@@ -191,6 +207,34 @@
     scr moveToNextChanged.
 
     ^ scr.
+!
+
+openOn:firstText label:firstLabel and:secondText label:secondLabel title:titleOrNil
+    "open up a view showing firstText and secondText side-by-side,
+     and labels for both views.
+     This does not make much sense for unrelated texts - of course."
+    
+    |top v|
+
+    top := StandardSystemView new.
+    titleOrNil notNil ifTrue:[ top label:titleOrNil ].
+    v := self 
+            openOn:firstText
+            label:firstLabel
+            and:secondText
+            label:secondLabel
+            in:top.
+    top open.
+    ^ v
+
+    "
+     TwoColumnTextView
+        openOn:('smalltalk.rc' asFilename contentsOfEntireFile)
+        label:'smalltalk.rc'
+        and:('display.rc' asFilename contentsOfEntireFile)
+        label:'display.rc'
+    "
+    "Modified: 15.8.1996 / 19:46:38 / cg"
 ! !
 
 !TwoColumnTextView class methodsFor:'specification'!
@@ -350,5 +394,9 @@
 !TwoColumnTextView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.23 2008-05-30 12:24:51 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.24 2009-10-06 10:26:19 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.24 2009-10-06 10:26:19 cg Exp $'
 ! !