Mercurial Mercurial > hg > stx-libtool / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
AbstractFileBrowser.st
changeset 14126 454c06ae7055
parent 14049 699198ae9a95
child 14262 5a728b895f24
equal deleted inserted replaced
14125:058fcff9f58b 14126:454c06ae7055 
    10  hereby transferred.
 
    10  hereby transferred.
 
    11 "
 
    11 "
 
    12 "{ Package: 'stx:libtool' }"
 
    12 "{ Package: 'stx:libtool' }"
 
    13 
    13 
    14 ApplicationModel subclass:#AbstractFileBrowser
 
    14 ApplicationModel subclass:#AbstractFileBrowser
 
    15         instanceVariableNames:'aspects'
 
    15 	instanceVariableNames:'aspects'
 
    16         classVariableNames:'VisitedDirectories RuntimeAspects DirectoryBookmarks
 
    16 	classVariableNames:'VisitedDirectories RuntimeAspects DirectoryBookmarks
 
    17                 LastEnforcedNameSpace CommandHistory DefaultCommandPerSuffix
 
    17 		LastEnforcedNameSpace CommandHistory DefaultCommandPerSuffix
 
    18                 CommandHistorySize LastFileDiffFile DefaultFilters RootHolder
 
    18 		CommandHistorySize LastFileDiffFile DefaultFilters RootHolder
 
    19                 LastFileSelection LastMoveDestination LastScriptBlockString
 
    19 		LastFileSelection LastMoveDestination LastScriptBlockString
 
    20                 LastMustMatchPattern LastFileDiffDirectory
 
    20 		LastMustMatchPattern LastFileDiffDirectory
 
    21                 LastMercurialRepository'
 
    21 		LastMercurialRepository'
 
    22         poolDictionaries:''
 
    22 	poolDictionaries:''
 
    23         category:'Interface-Tools-File'
 
    23 	category:'Interface-Tools-File'
 
    24 !
 
    24 !
 
    25 
    25 
    26 AbstractFileBrowser class instanceVariableNames:'DisabledCursorImage EnabledCursorImage'
 
    26 AbstractFileBrowser class instanceVariableNames:'DisabledCursorImage EnabledCursorImage'
 
    27 
    27 
    28 "
 
    28 "
 
    29  The following class instance variables are inherited by this class:
 
    29  The following class instance variables are inherited by this class:
 
    30 
    30 
    31         ApplicationModel - ClassResources
 
    31 	ApplicationModel - ClassResources
 
    32         Model - 
    32 	Model - 
    33         Object - 
    33 	Object - 
    34 "
 
    34 "
 
    35 !
 
    35 !
 
    36 
    36 
    37 Object subclass:#Clipboard
 
    37 Object subclass:#Clipboard
 
    38         instanceVariableNames:'method files'
 
    38 	instanceVariableNames:'method files'
 
    39         classVariableNames:''
 
    39 	classVariableNames:''
 
    40         poolDictionaries:''
 
    40 	poolDictionaries:''
 
    41         privateIn:AbstractFileBrowser
 
    41 	privateIn:AbstractFileBrowser
 
    42 !
 
    42 !
 
    43 
    43 
    44 Object subclass:#CodeExecutionLock
 
    44 Object subclass:#CodeExecutionLock
 
    45         instanceVariableNames:'locked'
 
    45 	instanceVariableNames:'locked'
 
    46         classVariableNames:''
 
    46 	classVariableNames:''
 
    47         poolDictionaries:''
 
    47 	poolDictionaries:''
 
    48         privateIn:AbstractFileBrowser
 
    48 	privateIn:AbstractFileBrowser
 
    49 !
 
    49 !
 
    50 
    50 
    51 List subclass:#DirectoryHistory
 
    51 List subclass:#DirectoryHistory
 
    52         instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath
 
    52 	instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath
 
    53                 backForwardList backForwardIndex historySize'
 
    53 		backForwardList backForwardIndex historySize'
 
    54         classVariableNames:'HistorySize'
 
    54 	classVariableNames:'HistorySize'
 
    55         poolDictionaries:''
 
    55 	poolDictionaries:''
 
    56         privateIn:AbstractFileBrowser
 
    56 	privateIn:AbstractFileBrowser
 
    57 !
 
    57 !
 
    58 
    58 
    59 Object subclass:#DirectoryHistoryItem
 
    59 Object subclass:#DirectoryHistoryItem
 
    60         instanceVariableNames:'path position'
 
    60 	instanceVariableNames:'path position'
 
    61         classVariableNames:''
 
    61 	classVariableNames:''
 
    62         poolDictionaries:''
 
    62 	poolDictionaries:''
 
    63         privateIn:AbstractFileBrowser::DirectoryHistory
 
    63 	privateIn:AbstractFileBrowser::DirectoryHistory
 
    64 !
 
    64 !
 
    65 
    65 
    66 Object subclass:#SaveAspectItem
 
    66 Object subclass:#SaveAspectItem
 
    67         instanceVariableNames:'value isHolder'
 
    67 	instanceVariableNames:'value isHolder'
 
    68         classVariableNames:''
 
    68 	classVariableNames:''
 
    69         poolDictionaries:''
 
    69 	poolDictionaries:''
 
    70         privateIn:AbstractFileBrowser
 
    70 	privateIn:AbstractFileBrowser
 
    71 !
 
    71 !
 
    72 
    72 
    73 !AbstractFileBrowser class methodsFor:'documentation'!
 
    73 !AbstractFileBrowser class methodsFor:'documentation'!
 
    74 
    74 
    75 copyright
 
    75 copyright
 
  3948 shownFiles
 
  3948 shownFiles
 
  3949 
  3949 
  3950     ^ self aspectFor:#shownFiles ifAbsent:['-/-' asValue]
 
  3950     ^ self aspectFor:#shownFiles ifAbsent:['-/-' asValue]
 
  3951 ! !
 
  3951 ! !
 
  3952 
  3952 
       
  3953 
  3953 !AbstractFileBrowser methodsFor:'aspects-history'!
 
  3954 !AbstractFileBrowser methodsFor:'aspects-history'!
 
  3954 
  3955 
  3955 dirHistory
 
  3956 dirHistory
 
  3956     "obsolete"
 
  3957     "obsolete"
 
  3957     ^ self directoryHistory
 
  3958     ^ self directoryHistory
 
  5856                 self cvsRemoveAndRemoveFromCVS:files
 
  5857                 self cvsRemoveAndRemoveFromCVS:files
 
  5857             ]
 
  5858             ]
 
  5858         ]
 
  5859         ]
 
  5859     ]
 
  5860     ]
 
  5860 ! !
 
  5861 ! !
 
       
  5862 
  5861 
  5863 
  5862 !AbstractFileBrowser methodsFor:'menu actions-scm-mercurial'!
 
  5864 !AbstractFileBrowser methodsFor:'menu actions-scm-mercurial'!
 
  5863 
  5865 
  5864 mercurialAdd
 
  5866 mercurialAdd
 
  5865     |executionBlock sel maxCmdSize|
 
  5867     |executionBlock sel maxCmdSize|
 
  7588     ].
 
  7590     ].
 
  7589 
  7591 
  7590     self withWaitCursorDo:[
 
  7592     self withWaitCursorDo:[
 
  7591         (name1 isNil or:[name1 asString isEmpty]) ifTrue:[
 
  7593         (name1 isNil or:[name1 asString isEmpty]) ifTrue:[
 
  7592             text1 := self getAllFilesAsStrings asStringCollection withTabs.
 
  7594             text1 := self getAllFilesAsStrings asStringCollection withTabs.
 
  7593             text1 := text1 collect:[:l | l isNil ifTrue:[' '] ifFalse:[l]].
 
  7595             text1 := text1 collect:[:l | l isNil ifTrue:[' '] ifFalse:[l string]].
 
  7594             name1 := nil.
 
  7596             name1 := nil.
 
  7595             l1 := 'browser contents'
 
  7597             l1 := 'browser contents'
 
  7596         ] ifFalse:[
 
  7598         ] ifFalse:[
 
  7597             name1 := name1 asFilename.
 
  7599             name1 := name1 asFilename.
 
  7598             LastFileDiffFile := name1.
 
  7600             LastFileDiffFile := name1.
 
  8470 javaSupportLoaded
 
  8472 javaSupportLoaded
 
  8471 
  8473 
  8472     ^ false
 
  8474     ^ false
 
  8473 ! !
 
  8475 ! !
 
  8474 
  8476 
       
  8477 
       
  8478 
  8475 !AbstractFileBrowser methodsFor:'presentation'!
 
  8479 !AbstractFileBrowser methodsFor:'presentation'!
 
  8476 
  8480 
  8477 getModeString:modeBits
 
  8481 getModeString:modeBits
 
  8478     "convert file-mode bits into a more user-friendly string.
 
  8482     "convert file-mode bits into a more user-friendly string.
 
  8479      This is wrong here - should be moved into OperatingSystem."
 
  8483      This is wrong here - should be moved into OperatingSystem."
 
  9404 ! !
 
  9408 ! !
 
  9405 
  9409 
  9406 !AbstractFileBrowser class methodsFor:'documentation'!
 
  9410 !AbstractFileBrowser class methodsFor:'documentation'!
 
  9407 
  9411 
  9408 version
 
  9412 version
 
  9409     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.549 2014-02-25 15:02:19 cg Exp $'
 
  9413     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.550 2014-03-06 16:20:00 cg Exp $'
 
  9410 !
 
  9414 !
 
  9411 
  9415 
  9412 version_CVS
 
  9416 version_CVS
 
  9413     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.549 2014-02-25 15:02:19 cg Exp $'
 
  9417     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.550 2014-03-06 16:20:00 cg Exp $'
 
  9414 ! !
 
  9418 ! !
 
  9415 
  9419
hg/stx-libtool