AbstractFileBrowser.st
changeset 4958 1c94cca82fd3
parent 4957 34b3c650f982
child 4959 3dbba56f30af
equal deleted inserted replaced
4957:34b3c650f982 4958:1c94cca82fd3
     1 "{ Package: 'stx:libtool' }"
     1 "{ Package: 'stx:libtool' }"
     2 
     2 
     3 ApplicationModel subclass:#AbstractFileBrowser
     3 ApplicationModel subclass:#AbstractFileBrowser
     4 	instanceVariableNames:'aspects'
     4         instanceVariableNames:'aspects'
     5 	classVariableNames:'DirectoryHistory RuntimeAspects DirectoryBookmarks
     5         classVariableNames:'DirectoryHistory RuntimeAspects DirectoryBookmarks
     6 		LastEnforcedNameSpace CommandHistory DefaultCommandPerSuffix
     6                 LastEnforcedNameSpace CommandHistory DefaultCommandPerSuffix
     7 		CommandHistorySize LastFileDiffFile DefaultFilters RootHolder
     7                 CommandHistorySize LastFileDiffFile DefaultFilters RootHolder
     8 		LastFileSelection'
     8                 LastFileSelection'
     9 	poolDictionaries:''
     9         poolDictionaries:''
    10 	category:'Interface-Tools-File'
    10         category:'Interface-Tools-File'
    11 !
    11 !
    12 
    12 
    13 AbstractFileBrowser class instanceVariableNames:'DisabledCursorImage EnabledCursorImage'
    13 AbstractFileBrowser class instanceVariableNames:'DisabledCursorImage EnabledCursorImage'
    14 
    14 
    15 "
    15 "
    16  The following class instance variables are inherited by this class:
    16  The following class instance variables are inherited by this class:
    17 
    17 
    18 	ApplicationModel - ClassResources
    18         ApplicationModel - ClassResources
    19 	Model - 
    19         Model - 
    20 	Object - 
    20         Object - 
    21 "
    21 "
    22 !
    22 !
    23 
    23 
    24 Object subclass:#Clipboard
    24 Object subclass:#Clipboard
    25 	instanceVariableNames:'method files'
    25         instanceVariableNames:'method files'
    26 	classVariableNames:''
    26         classVariableNames:''
    27 	poolDictionaries:''
    27         poolDictionaries:''
    28 	privateIn:AbstractFileBrowser
    28         privateIn:AbstractFileBrowser
    29 !
    29 !
    30 
    30 
    31 Object subclass:#CodeExecutionLock
    31 Object subclass:#CodeExecutionLock
    32 	instanceVariableNames:'locked'
    32         instanceVariableNames:'locked'
    33 	classVariableNames:''
    33         classVariableNames:''
    34 	poolDictionaries:''
    34         poolDictionaries:''
    35 	privateIn:AbstractFileBrowser
    35         privateIn:AbstractFileBrowser
    36 !
    36 !
    37 
    37 
    38 List subclass:#DirectoryHistory
    38 List subclass:#DirectoryHistory
    39 	instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath
    39         instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath
    40 		backForwardList backForwardIndex'
    40                 backForwardList backForwardIndex'
    41 	classVariableNames:'HistorySize'
    41         classVariableNames:'HistorySize'
    42 	poolDictionaries:''
    42         poolDictionaries:''
    43 	privateIn:AbstractFileBrowser
    43         privateIn:AbstractFileBrowser
    44 !
    44 !
    45 
    45 
    46 Object subclass:#DirectoryHistoryItem
    46 Object subclass:#DirectoryHistoryItem
    47 	instanceVariableNames:'path position'
    47         instanceVariableNames:'path position'
    48 	classVariableNames:''
    48         classVariableNames:''
    49 	poolDictionaries:''
    49         poolDictionaries:''
    50 	privateIn:AbstractFileBrowser::DirectoryHistory
    50         privateIn:AbstractFileBrowser::DirectoryHistory
    51 !
    51 !
    52 
    52 
    53 OrderedSet subclass:#FilenameHistory
    53 OrderedSet subclass:#FilenameHistory
    54 	instanceVariableNames:''
    54         instanceVariableNames:''
    55 	classVariableNames:''
    55         classVariableNames:''
    56 	poolDictionaries:''
    56         poolDictionaries:''
    57 	privateIn:AbstractFileBrowser
    57         privateIn:AbstractFileBrowser
    58 !
    58 !
    59 
    59 
    60 Object subclass:#SaveAspectItem
    60 Object subclass:#SaveAspectItem
    61 	instanceVariableNames:'value isHolder'
    61         instanceVariableNames:'value isHolder'
    62 	classVariableNames:''
    62         classVariableNames:''
    63 	poolDictionaries:''
    63         poolDictionaries:''
    64 	privateIn:AbstractFileBrowser
    64         privateIn:AbstractFileBrowser
    65 !
    65 !
    66 
    66 
    67 
    67 
    68 !AbstractFileBrowser class methodsFor:'accessing'!
    68 !AbstractFileBrowser class methodsFor:'accessing'!
    69 
    69 
  2002                   #enabled: #hasFileSelection
  2002                   #enabled: #hasFileSelection
  2003                   #label: 'gv (Postscript Viewer)'
  2003                   #label: 'gv (Postscript Viewer)'
  2004                   #itemValue: #openGV
  2004                   #itemValue: #openGV
  2005                   #translateLabel: true
  2005                   #translateLabel: true
  2006                 )
  2006                 )
       
  2007                #(#MenuItem
       
  2008                   #enabled: #hasFileSelection
       
  2009                   #label: 'realplay (avi viewer)'
       
  2010                   #itemValue: #openRP
       
  2011                   #translateLabel: true
       
  2012                 )
  2007                )
  2013                )
  2008               nil
  2014               nil
  2009               nil
  2015               nil
  2010             )
  2016             )
  2011           )
  2017           )
  5043 
  5049 
  5044     [
  5050     [
  5045         OperatingSystem 
  5051         OperatingSystem 
  5046             executeCommand:'acroread ' , fileNames asStringCollection asString.
  5052             executeCommand:'acroread ' , fileNames asStringCollection asString.
  5047     ] fork
  5053     ] fork
       
  5054 !
       
  5055 
       
  5056 openRP
       
  5057     self openOSCommandWithFiles:'realplay'
  5048 !
  5058 !
  5049 
  5059 
  5050 openSlideShow
  5060 openSlideShow
  5051 
  5061 
  5052     |directories dir|
  5062     |directories dir|
  6341 ! !
  6351 ! !
  6342 
  6352 
  6343 !AbstractFileBrowser class methodsFor:'documentation'!
  6353 !AbstractFileBrowser class methodsFor:'documentation'!
  6344 
  6354 
  6345 version
  6355 version
  6346     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.151 2003-06-10 17:09:45 cg Exp $'
  6356     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.152 2003-06-10 21:09:10 cg Exp $'
  6347 ! !
  6357 ! !