DirectoryView.st
changeset 2878 241be37ce37b
parent 2439 9f6c2575f2b1
child 2938 8e9207531826
equal deleted inserted replaced
2877:1a7cd3e6eea1 2878:241be37ce37b
   404     self selectionOfFileFilter value: (self listOfFileFilters at: 1 ifAbsent: [nil]).
   404     self selectionOfFileFilter value: (self listOfFileFilters at: 1 ifAbsent: [nil]).
   405 
   405 
   406     "Modified: / 20.6.1998 / 14:46:10 / cg"
   406     "Modified: / 20.6.1998 / 14:46:10 / cg"
   407 ! !
   407 ! !
   408 
   408 
       
   409 !DirectoryView methodsFor:'initialize-release'!
       
   410 
       
   411 release
       
   412 
       
   413     monitoring ifTrue:
       
   414     [
       
   415         Processor removeTimedBlock:monitoringTimeBlock.
       
   416         monitoringTimeBlock := nil
       
   417     ].
       
   418 
       
   419     super release
       
   420 
       
   421 ! !
       
   422 
   409 !DirectoryView methodsFor:'menu actions'!
   423 !DirectoryView methodsFor:'menu actions'!
   410 
   424 
   411 updateFileList
   425 updateFileList
   412     DirectoryContents flushCache.
   426     DirectoryContents flushCache.
   413     self readDirectory
   427     self readDirectory
   590 
   604 
   591     self release.
   605     self release.
   592 
   606 
   593     super closeRequest
   607     super closeRequest
   594 
   608 
   595 !
       
   596 
       
   597 release
       
   598 
       
   599     monitoring ifTrue:
       
   600     [
       
   601         Processor removeTimedBlock:monitoringTimeBlock.
       
   602         monitoringTimeBlock := nil
       
   603     ].
       
   604 
       
   605     super release
       
   606 
       
   607 ! !
   609 ! !
   608 
   610 
   609 !DirectoryView::FileRow class methodsFor:'resources'!
   611 !DirectoryView::FileRow class methodsFor:'resources'!
   610 
   612 
   611 HFileIcon
   613 HFileIcon