class: Tools::ChangeSetBrowser2
authorClaus Gittinger <cg@exept.de>
Fri, 27 Feb 2015 19:56:01 +0100
changeset 15454 51caa391b185
parent 15453 8e8f26585ce1
child 15455 9091f8069ac3
class: Tools::ChangeSetBrowser2 comment/format in: #doSaveAs changed: #doOpen (send #box instead of #parameter) #doOpenCypress (send #box instead of #parameter)
Tools__ChangeSetBrowser2.st
--- a/Tools__ChangeSetBrowser2.st	Fri Feb 27 19:55:33 2015 +0100
+++ b/Tools__ChangeSetBrowser2.st	Fri Feb 27 19:56:01 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
 	      All Rights Reserved
@@ -2952,14 +2954,15 @@
 
 doOpen
     | file |
+
     [
-	file := Dialog requestFileName:'Select Changeset to Load' pattern:'*.chg;*.st'.
+        file := Dialog requestFileName:'Select Changeset to Load' pattern:'*.chg;*.st'.
     ] on: Dialog aboutToOpenBoxNotificationSignal do:[:ex|
-	| dialog |
-
-	dialog := ex parameter.
-
-	ex pass.
+        | dialog |
+
+        dialog := ex box.
+        "/ cg: who wanted to do something here?
+        ex pass.
     ].
     file isNil ifTrue:[^self].
     self doOpenFile: file
@@ -2998,13 +3001,13 @@
 
     | file |
     [
-	file := Dialog requestDirectoryName:(resources string: 'Select Cypress Package')."/ pattern:'*.package'.
+        file := Dialog requestDirectoryName:(resources string: 'Select Cypress Package')."/ pattern:'*.package'.
     ] on: Dialog aboutToOpenBoxNotificationSignal do:[:ex|
-	| dialog |
-
-	dialog := ex parameter.
-
-	ex pass.
+        | dialog |
+
+        dialog := ex box.
+        "/ cg: who wanted to do something here?
+        ex pass.
     ].
 
     file isNil ifTrue:[^self].
@@ -3112,13 +3115,13 @@
 "/        OOPS, not supported!!!!!!!!
 
 "/        | box |
-"/        box := ex parameter.
+"/        box := ex box.
 "/        box verticalPanel
 "/                add:(CheckBox label:'x'
 "/                              model:true asValue).
-	ex pass.
+        ex pass.
     ] do:[
-	file := Dialog requestFileName:'Select File for Save' default: (changesetFile ? 'somechanges.chg') pattern:('*.chg').
+        file := Dialog requestFileName:'Select File for Save' default: (changesetFile ? 'somechanges.chg') pattern:('*.chg').
     ].
     file isNil ifTrue:[^self].
     self doSaveAs: file.
@@ -4251,11 +4254,11 @@
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.66 2015-02-25 21:29:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.67 2015-02-27 18:56:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.66 2015-02-25 21:29:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.67 2015-02-27 18:56:01 cg Exp $'
 !
 
 version_HG
@@ -4264,6 +4267,6 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeSetBrowser2.st,v 1.66 2015-02-25 21:29:22 cg Exp $'
+    ^ '$Id: Tools__ChangeSetBrowser2.st,v 1.67 2015-02-27 18:56:01 cg Exp $'
 ! !