Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
care for updating listView while removing (get selection before)
authorClaus Gittinger <cg@exept.de>
Wed, 18 Nov 1998 20:19:19 +0100
changeset 1961 f81295571da7
parent 1960 e317efd283b8
child 1962 b3355227e9da
care for updating listView while removing (get selection before)
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FBrowser.st	Sat Nov 14 18:43:13 1998 +0100
+++ b/FBrowser.st	Wed Nov 18 20:19:19 1998 +0100
@@ -2053,16 +2053,17 @@
 
     |sel q|
 
-    sel := fileListView selection.
+    sel := fileListView selectionValue.
     sel notNil ifTrue:[
+        sel := sel collect:[:item | item string withoutSeparators].
         sel size > 1 ifTrue:[
-            q := resources string:'remove selected files ?'
+            q := resources string:'remove %1 selected files ?' with:(sel size)
         ] ifFalse:[
-            q := resources string:'remove ''%1'' ?' with:(fileList at:sel first)
+            q := resources string:'remove ''%1'' ?' with:(sel first)
         ].
         (self sensor shiftDown
         or:[self ask:q yesButton:'remove']) ifTrue:[
-            self doRemove
+            self doRemove:sel
         ]
     ]
 !
@@ -4647,7 +4648,7 @@
     "Modified: / 15.10.1998 / 12:50:48 / cg"
 !
 
-doRemove
+doRemove:filesToRemove
     "remove the selected file(s) - no questions asked"
 
     |msg idx needUpdate toRemove updateRunning yesToAll|
@@ -4664,7 +4665,7 @@
     yesToAll := false.
     lockUpdate := true.
     [
-        self selectedFilesDo:[:fileName |
+        filesToRemove do:[:fileName |
             |f|
 
             f := currentDirectory construct:fileName.
@@ -5895,5 +5896,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.272 1998-11-07 15:29:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.273 1998-11-18 19:19:19 cg Exp $'
 ! !
--- a/FileBrowser.st	Sat Nov 14 18:43:13 1998 +0100
+++ b/FileBrowser.st	Wed Nov 18 20:19:19 1998 +0100
@@ -2053,16 +2053,17 @@
 
     |sel q|
 
-    sel := fileListView selection.
+    sel := fileListView selectionValue.
     sel notNil ifTrue:[
+        sel := sel collect:[:item | item string withoutSeparators].
         sel size > 1 ifTrue:[
-            q := resources string:'remove selected files ?'
+            q := resources string:'remove %1 selected files ?' with:(sel size)
         ] ifFalse:[
-            q := resources string:'remove ''%1'' ?' with:(fileList at:sel first)
+            q := resources string:'remove ''%1'' ?' with:(sel first)
         ].
         (self sensor shiftDown
         or:[self ask:q yesButton:'remove']) ifTrue:[
-            self doRemove
+            self doRemove:sel
         ]
     ]
 !
@@ -4647,7 +4648,7 @@
     "Modified: / 15.10.1998 / 12:50:48 / cg"
 !
 
-doRemove
+doRemove:filesToRemove
     "remove the selected file(s) - no questions asked"
 
     |msg idx needUpdate toRemove updateRunning yesToAll|
@@ -4664,7 +4665,7 @@
     yesToAll := false.
     lockUpdate := true.
     [
-        self selectedFilesDo:[:fileName |
+        filesToRemove do:[:fileName |
             |f|
 
             f := currentDirectory construct:fileName.
@@ -5895,5 +5896,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.272 1998-11-07 15:29:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.273 1998-11-18 19:19:19 cg Exp $'
 ! !
hg/stx-libtool