class: Tools::ChangeSetBrowser2
comment/format in: #doSaveAs
changed:
#doOpen (send #box instead of #parameter)
#doOpenCypress (send #box instead of #parameter)
--- 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 $'
! !