#REFACTORING by exept
authorClaus Gittinger <cg@exept.de>
Sun, 11 Aug 2019 01:19:39 +0200
changeset 18984 92c9452680f9
parent 18983 bb34ad441321
child 18985 07c8f4612bf4
#REFACTORING by exept class: FileBrowser added: #fileListDoubleClick: changed: #fileDoubleClick: #initialize (send #fileListDoubleClick: instead of #fileDoubleClick:) #selectFile: (send #fileListDoubleClick: instead of #fileDoubleClick:)
FileBrowser.st
--- a/FileBrowser.st	Sat Aug 10 17:47:24 2019 +0200
+++ b/FileBrowser.st	Sun Aug 11 01:19:39 2019 +0200
@@ -2238,10 +2238,11 @@
 !
 
 fileDoubleClick:lineNr
+    <resource: #obsolete>
     "double click on a file - get its contents"
 
-    self fileSelect:lineNr.
-    self fileGet:true
+    self fileListDoubleClick:lineNr.
+
 !
 
 fileEncoding
@@ -2969,6 +2970,13 @@
     "Modified: 23.4.1997 / 13:06:06 / cg"
 !
 
+fileListDoubleClick:lineNr
+    "double click on a file - get its contents"
+
+    self fileSelect:lineNr.
+    self fileGet:true
+!
+
 fileListMenu
     "return the menu to show in the fileList"
 
@@ -4104,7 +4112,7 @@
     fileListView := SelectionInListView new.
     scrollView scrolledView:fileListView.
     fileListView action:[:lineNr | self fileSelect:lineNr].
-    fileListView doubleClickAction:[:lineNr | self fileDoubleClick:lineNr].
+    fileListView doubleClickAction:[:lineNr | self fileListDoubleClick:lineNr].
     fileListView multipleSelectOk:true.
     fileListView delegate:self.
     fileListView menuHolder:self; menuPerformer:self; menuMessage:#fileListMenu.
@@ -5296,8 +5304,9 @@
 selectFile:aFilename
     (currentDirectory filenameFor:aFilename) exists ifTrue:[
         fileListView selection:(fileList indexOf:aFilename).
-        self fileDoubleClick:fileListView selection.
-    ].
+        self fileListDoubleClick:fileListView selection.
+    ].
+
 !
 
 selectedFilesDo:aBlock