DirectoryView.st
changeset 451 a8da4f1924a4
parent 424 2137dff405f0
child 473 396ab247a5af
equal deleted inserted replaced
450:845121b3901b 451:a8da4f1924a4
   297         [
   297         [
   298             fileDoubleClickAction value
   298             fileDoubleClickAction value
   299         ].
   299         ].
   300         fileDoubleClickAction numArgs = 1
   300         fileDoubleClickAction numArgs = 1
   301         ifTrue:
   301         ifTrue:
   302         [
   302         [                
   303             fileDoubleClickAction value: self selectionOfFile value baseName
   303             fileDoubleClickAction value: (directory asFilename construct: self selectionOfFile value baseName) name
   304         ]
   304         ]
   305     ]
   305     ]
   306 !
   306 !
   307 
   307 
   308 fileSelected
   308 fileSelected
   316             fileSelectAction value
   316             fileSelectAction value
   317         ].
   317         ].
   318         fileSelectAction numArgs = 1
   318         fileSelectAction numArgs = 1
   319         ifTrue:
   319         ifTrue:
   320         [
   320         [
   321             fileSelectAction value: self selectionOfFile value baseName
   321             fileSelectAction value: (directory asFilename construct: self selectionOfFile value baseName) name
   322         ]
   322         ]
   323     ]
   323     ]
   324 ! !
   324 ! !
   325 
   325 
   326 !DirectoryView methodsFor:'initialization'!
   326 !DirectoryView methodsFor:'initialization'!