Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
--- a/AboutBox.st Tue Feb 26 12:38:54 2013 +0000
+++ b/AboutBox.st Wed Feb 27 12:34:59 2013 +0000
@@ -245,6 +245,12 @@
^ '§Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.38 2011/03/24 14:34:18 stefan Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: AboutBox.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/AbstractDirectoryBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/AbstractDirectoryBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -218,6 +218,12 @@
^ '§Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.25 2010/02/02 14:34:58 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: AbstractDirectoryBrowser.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/AbstractFileApplicationNoteBookComponent.st Tue Feb 26 12:38:54 2013 +0000
+++ b/AbstractFileApplicationNoteBookComponent.st Wed Feb 27 12:34:59 2013 +0000
@@ -342,6 +342,12 @@
^ '§Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.23 2012/01/27 14:01:09 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: AbstractFileApplicationNoteBookComponent.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/AbstractFileBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/AbstractFileBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -98,7 +98,6 @@
"
! !
-
!AbstractFileBrowser class methodsFor:'accessing'!
currentSelection
@@ -147,7 +146,6 @@
RootHolder := aRoot
! !
-
!AbstractFileBrowser class methodsFor:'accessing-bookmarks'!
addBookmark:aDirectoryPath
@@ -299,7 +297,6 @@
self saveBookmarksIn:(self defaultBookMarksFileDirectory construct:self defaultBookMarksFilename)
! !
-
!AbstractFileBrowser class methodsFor:'accessing-classes'!
directoryHistoryClass
@@ -308,7 +305,6 @@
"Modified: / 21-11-2012 / 08:46:34 / cg"
! !
-
!AbstractFileBrowser class methodsFor:'defaults'!
commandHistory
@@ -558,7 +554,6 @@
"Modified: / 11-05-2012 / 09:22:04 / cg"
! !
-
!AbstractFileBrowser class methodsFor:'help specs'!
basicFlyByHelpSpec
@@ -713,7 +708,6 @@
"Modified: / 03-11-2007 / 12:05:01 / cg"
! !
-
!AbstractFileBrowser class methodsFor:'image specs'!
clearHistoryIcon
@@ -925,7 +919,6 @@
^ ToolbarIconLibrary shell20x20Icon
! !
-
!AbstractFileBrowser class methodsFor:'interface specs'!
encodingDialogSpec
@@ -1275,7 +1268,6 @@
"Modified: / 28-02-2012 / 11:12:38 / cg"
! !
-
!AbstractFileBrowser class methodsFor:'menu specs'!
baseBookmarksMenuSpec
@@ -2595,7 +2587,6 @@
)
! !
-
!AbstractFileBrowser class methodsFor:'menu specs-scm'!
cvsMenu
@@ -2773,21 +2764,18 @@
"Created: / 15-01-2012 / 13:12:30 / cg"
! !
-
!AbstractFileBrowser class methodsFor:'misc'!
newLock
^ CodeExecutionLock new
! !
-
!AbstractFileBrowser class methodsFor:'resources'!
classResources
^ FileBrowser classResources
! !
-
!AbstractFileBrowser class methodsFor:'utilities'!
contentsOfBytesAsHexDump:data numberOfAddressDigits:addrDigits addressStart:virtualStart
@@ -2957,7 +2945,6 @@
"Modified: / 13-02-2012 / 15:01:19 / cg"
! !
-
!AbstractFileBrowser methodsFor:'actions'!
askForCommandFor:fileName thenDo:aBlock
@@ -3309,7 +3296,6 @@
]
! !
-
!AbstractFileBrowser methodsFor:'actions bookmarks'!
addBookmark
@@ -3355,7 +3341,6 @@
self class saveBookmarks
! !
-
!AbstractFileBrowser methodsFor:'actions history'!
addToCommandHistory:aCommandString for:aFilename
@@ -3408,7 +3393,6 @@
].
! !
-
!AbstractFileBrowser methodsFor:'applications'!
applicationNamed:anApplicationName ifPresentDo:aBlock
@@ -3425,7 +3409,6 @@
^ self applications at:#DirectoryContentsBrowser ifAbsent:nil.
! !
-
!AbstractFileBrowser methodsFor:'aspects'!
applications
@@ -3782,7 +3765,6 @@
self aspectFor:#rootHolder put:aHolder
! !
-
!AbstractFileBrowser methodsFor:'aspects handling'!
aspectFor:something ifAbsent:aBlock
@@ -3892,7 +3874,6 @@
"Modified: / 14-10-2010 / 19:16:38 / cg"
! !
-
!AbstractFileBrowser methodsFor:'aspects-filter'!
filter:aString
@@ -4015,7 +3996,6 @@
^ self aspectFor:#fileHistory ifAbsent:[OrderedSet new]
! !
-
!AbstractFileBrowser methodsFor:'aspects-visibility'!
activityVisibilityChannel
@@ -4245,7 +4225,6 @@
^ self directoryContentsBrowser viewType
! !
-
!AbstractFileBrowser methodsFor:'background processing'!
executeCommand:cmd
@@ -4328,7 +4307,6 @@
process resume.
! !
-
!AbstractFileBrowser methodsFor:'change & update'!
currentFileNameHolderChanged
@@ -4456,7 +4434,6 @@
self updateCurrentDirectory
! !
-
!AbstractFileBrowser methodsFor:'clipboard'!
canPaste
@@ -4508,7 +4485,6 @@
self canPaste value:true.
! !
-
!AbstractFileBrowser methodsFor:'drag & drop'!
canDropFiles:dropedObjects for:filename
@@ -4640,7 +4616,6 @@
"Created: / 13-10-2006 / 18:26:41 / cg"
! !
-
!AbstractFileBrowser methodsFor:'file operations'!
copyFile:aSourceFile to:aDestFile
@@ -5154,7 +5129,6 @@
"Modified: / 04-12-2006 / 13:15:24 / cg"
! !
-
!AbstractFileBrowser methodsFor:'menu accessing'!
bookmarksMenu
@@ -5389,7 +5363,6 @@
"Modified: / 09-09-2012 / 13:07:45 / cg"
! !
-
!AbstractFileBrowser methodsFor:'menu actions'!
doCompareTwoFiles
@@ -5480,7 +5453,6 @@
"Created: / 29-12-2010 / 11:03:00 / cg"
! !
-
!AbstractFileBrowser methodsFor:'menu actions-file'!
copyFiles
@@ -5527,7 +5499,6 @@
].
! !
-
!AbstractFileBrowser methodsFor:'menu actions-help'!
openAboutThisApplication
@@ -5540,7 +5511,6 @@
HTMLDocumentView openFullOnDocumentationFile:relativeDocPath
! !
-
!AbstractFileBrowser methodsFor:'menu actions-scm-cvs'!
cvsAddAndCommit
@@ -8117,7 +8087,6 @@
"Modified: / 04-12-2006 / 13:15:28 / cg"
! !
-
!AbstractFileBrowser methodsFor:'menu queries-cvs'!
canCvsAddAndCommit
@@ -8139,7 +8108,6 @@
].
! !
-
!AbstractFileBrowser methodsFor:'menu queries-tools'!
anySTFilesOrDirectoriesPresent
@@ -8330,6 +8298,8 @@
! !
+
+
!AbstractFileBrowser methodsFor:'presentation'!
getModeString:modeBits
@@ -8369,7 +8339,6 @@
^ modeString
! !
-
!AbstractFileBrowser methodsFor:'private'!
theSingleSelectedDirectoryOrHomeDir
@@ -8388,7 +8357,6 @@
^ dirs anElement.
! !
-
!AbstractFileBrowser methodsFor:'queries'!
cBrowserLoaded
@@ -8536,7 +8504,6 @@
^ OperatingSystem isUNIXlike
! !
-
!AbstractFileBrowser methodsFor:'queries-file'!
allItemsOfCurrentDirectory
@@ -8720,7 +8687,6 @@
^ self recursiveAnyFilesPresentWithSuffix:'st'
! !
-
!AbstractFileBrowser methodsFor:'selection'!
currentSelectedDirectories
@@ -8774,7 +8740,6 @@
"Modified: / 04-12-2006 / 13:15:04 / cg"
! !
-
!AbstractFileBrowser methodsFor:'sorting'!
currentSortOrder
@@ -8857,7 +8822,6 @@
"Modified: / 18-09-2007 / 09:42:47 / cg"
! !
-
!AbstractFileBrowser methodsFor:'startup & release'!
makeDependent
@@ -8899,7 +8863,6 @@
"Modified: / 25-07-2006 / 09:12:45 / cg"
! !
-
!AbstractFileBrowser::Clipboard methodsFor:'accessing'!
files
@@ -8926,7 +8889,6 @@
method := something.
! !
-
!AbstractFileBrowser::CodeExecutionLock methodsFor:'accessing'!
locked
@@ -8938,7 +8900,6 @@
^ locked
! !
-
!AbstractFileBrowser::CodeExecutionLock methodsFor:'actions'!
doIfUnLocked:aBlock
@@ -8956,21 +8917,18 @@
]
! !
-
!AbstractFileBrowser::DirectoryHistory class methodsFor:'defaults'!
defaultHistorySize
^ 50
! !
-
!AbstractFileBrowser::DirectoryHistory class methodsFor:'instance creation'!
new
^ (super new) initializeHistory.
! !
-
!AbstractFileBrowser::DirectoryHistory methodsFor:'accessing'!
historySize
@@ -8982,7 +8940,6 @@
historySize := aNumber
! !
-
!AbstractFileBrowser::DirectoryHistory methodsFor:'actions'!
addToHistory:aPath
@@ -9076,7 +9033,6 @@
].
! !
-
!AbstractFileBrowser::DirectoryHistory methodsFor:'initialization'!
initializeHistory
@@ -9088,7 +9044,6 @@
backForwardIndex := backForwardList size.
! !
-
!AbstractFileBrowser::DirectoryHistory methodsFor:'queries'!
canBackward
@@ -9174,7 +9129,6 @@
^ retPath.
! !
-
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem class methodsFor:'instance creation'!
path:aPath
@@ -9182,7 +9136,6 @@
^ self new path:aPath
! !
-
!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem methodsFor:'accessing'!
asFilename
@@ -9218,7 +9171,6 @@
^ self path asString
! !
-
!AbstractFileBrowser::SaveAspectItem class methodsFor:'instance creation'!
withValue:aValue isHolder:aBoolean
@@ -9231,7 +9183,6 @@
^ instance
! !
-
!AbstractFileBrowser::SaveAspectItem methodsFor:'accessing'!
isHolder
@@ -9258,7 +9209,6 @@
value := something.
! !
-
!AbstractFileBrowser class methodsFor:'documentation'!
version
@@ -9269,6 +9219,11 @@
^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.507 2013-01-15 14:07:08 stefan Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: AbstractFileBrowser.st 8084 2013-01-14 12:06:02Z vranyj1 $'
! !
--- a/AbstractFileFinderApplicationComponent.st Tue Feb 26 12:38:54 2013 +0000
+++ b/AbstractFileFinderApplicationComponent.st Wed Feb 27 12:34:59 2013 +0000
@@ -37,7 +37,6 @@
"
! !
-
!AbstractFileFinderApplicationComponent methodsFor:'accessing'!
accessLock
@@ -58,7 +57,6 @@
"Modified (format): / 11-01-2012 / 22:41:01 / cg"
! !
-
!AbstractFileFinderApplicationComponent methodsFor:'actions'!
changeInformationTo:aString
@@ -198,7 +196,6 @@
].
! !
-
!AbstractFileFinderApplicationComponent methodsFor:'aspects'!
autoSelectInBrowser
@@ -290,7 +287,6 @@
^ shownListHolder.
! !
-
!AbstractFileFinderApplicationComponent methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -307,7 +303,6 @@
super update:something with:aParameter from:changedObject
! !
-
!AbstractFileFinderApplicationComponent methodsFor:'drag & drop'!
getDisplayObjects:anArgument
@@ -350,7 +345,6 @@
].
! !
-
!AbstractFileFinderApplicationComponent methodsFor:'event handling'!
fileDoubleClick:entries
@@ -438,7 +432,6 @@
^ false
! !
-
!AbstractFileFinderApplicationComponent methodsFor:'initialization'!
initialize
@@ -451,7 +444,6 @@
"Modified: / 12-01-2012 / 01:39:27 / cg"
! !
-
!AbstractFileFinderApplicationComponent methodsFor:'queries'!
hasOneFileSelected
@@ -467,7 +459,6 @@
^ sel notEmptyOrNil
! !
-
!AbstractFileFinderApplicationComponent methodsFor:'tasks'!
stopSearchTaskOrAbort
@@ -483,7 +474,6 @@
"Created: / 12-01-2012 / 01:48:42 / cg"
! !
-
!AbstractFileFinderApplicationComponent class methodsFor:'documentation'!
version
@@ -494,6 +484,11 @@
^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.8 2013-01-26 21:27:34 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: AbstractFileFinderApplicationComponent.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
--- a/AbstractLauncherApplication.st Tue Feb 26 12:38:54 2013 +0000
+++ b/AbstractLauncherApplication.st Wed Feb 27 12:34:59 2013 +0000
@@ -19,18 +19,6 @@
category:'Interface-Smalltalk'
!
-AbstractLauncherApplication class instanceVariableNames:''
-
-"
- The following class instance variables are inherited by this class:
-
- ToolApplicationModel - history fileHistory clipboard settings showingHelp instances
- ApplicationModel - ClassResources
- Model -
- Object -
-"
-!
-
Object subclass:#LauncherDialogs
instanceVariableNames:''
classVariableNames:''
@@ -69,7 +57,6 @@
! !
-
!AbstractLauncherApplication class methodsFor:'accessing'!
closeAllLaunchers
@@ -114,7 +101,6 @@
^ OpenLaunchers
! !
-
!AbstractLauncherApplication class methodsFor:'defaults'!
notifyingEmergencyHandler
@@ -134,7 +120,6 @@
"Modified: 15.1.1997 / 21:15:38 / cg"
! !
-
!AbstractLauncherApplication class methodsFor:'image specs'!
communicationIcon
@@ -199,7 +184,6 @@
^ ToolbarIconLibrary systemBrowser24x24Icon
! !
-
!AbstractLauncherApplication class methodsFor:'queries'!
isVisualStartable
@@ -215,7 +199,6 @@
"
! !
-
!AbstractLauncherApplication class methodsFor:'settings application list'!
addSettingsApplicationByClass:aClass withName:aName icon:anIcon
@@ -374,7 +357,6 @@
^ UserSettingsList
! !
-
!AbstractLauncherApplication methodsFor:'drag & drop'!
canDropObjects:aCollectionOfDropObjects
@@ -423,7 +405,6 @@
WorkspaceApplication openWith:aDropContext.
! !
-
!AbstractLauncherApplication methodsFor:'menu actions - tools'!
clearAllCoverageInfo
@@ -441,7 +422,6 @@
self openApplication:#Tools::TestRunner2
! !
-
!AbstractLauncherApplication methodsFor:'oldStyle-user actions-settings'!
communicationsSettings
@@ -617,7 +597,6 @@
"Modified: / 31.7.1998 / 22:47:33 / cg"
! !
-
!AbstractLauncherApplication methodsFor:'private'!
allTopViewsAndLabelsSortedFilteringWindowGroups: windowGroupFilterOrNil
@@ -951,7 +930,6 @@
"Modified: / 25.2.1998 / 21:24:20 / cg"
! !
-
!AbstractLauncherApplication methodsFor:'private-settings callBacks'!
changeViewStyleTo:newStyle
@@ -1104,7 +1082,6 @@
"Modified: / 4.8.1998 / 17:08:33 / cg"
! !
-
!AbstractLauncherApplication methodsFor:'queries'!
bugReporterAvailable
@@ -1146,7 +1123,6 @@
^ false "/ WindowTreeView notNil
! !
-
!AbstractLauncherApplication methodsFor:'settings dialog'!
openSettings
@@ -1181,7 +1157,6 @@
OpenSettingsDialog := nil.
! !
-
!AbstractLauncherApplication methodsFor:'startup & release'!
addTopViewsToCurrentProject
@@ -1252,7 +1227,6 @@
! !
-
!AbstractLauncherApplication methodsFor:'user actions-about'!
openLicenseConditions
@@ -1279,7 +1253,6 @@
"Modified: / 23.4.1998 / 11:45:53 / cg"
! !
-
!AbstractLauncherApplication methodsFor:'user actions-classes'!
browseAllBreakAndTracePoints
@@ -1567,7 +1540,6 @@
SystemBrowser openOnSnapShotImage:imageFileName
! !
-
!AbstractLauncherApplication methodsFor:'user actions-demos'!
startPDALauncher
@@ -1620,7 +1592,6 @@
"Created: / 10.9.1998 / 11:48:42 / cg"
! !
-
!AbstractLauncherApplication methodsFor:'user actions-file'!
exit
@@ -1673,7 +1644,6 @@
"Modified: / 27-07-2012 / 09:46:19 / cg"
! !
-
!AbstractLauncherApplication methodsFor:'user actions-help'!
showBookPrintDocument
@@ -1778,7 +1748,6 @@
! !
-
!AbstractLauncherApplication methodsFor:'user actions-system'!
compressingGarbageCollect
@@ -1832,7 +1801,6 @@
]
! !
-
!AbstractLauncherApplication methodsFor:'user actions-tools'!
inspectGlobalVariables
@@ -2029,7 +1997,6 @@
"Modified: / 17.10.1998 / 14:38:18 / cg"
! !
-
!AbstractLauncherApplication methodsFor:'user actions-windows'!
allTopViewsDo:aBlock
@@ -2436,7 +2403,6 @@
"Created: / 21.8.1998 / 20:44:12 / cg"
! !
-
!AbstractLauncherApplication::LauncherDialogs class methodsFor:'dialogs'!
communicationsSettings
@@ -5384,7 +5350,6 @@
"Modified: / 07-11-2006 / 13:58:06 / cg"
! !
-
!AbstractLauncherApplication::LauncherDialogs class methodsFor:'dialogs-file'!
objectModuleDialog
@@ -5947,7 +5912,6 @@
"
! !
-
!AbstractLauncherApplication::LauncherDialogs class methodsFor:'dialogs-private'!
cvsConfigurationDialog
@@ -6613,7 +6577,6 @@
"Modified: / 7.7.1999 / 00:27:02 / cg"
! !
-
!AbstractLauncherApplication::LauncherDialogs class methodsFor:'interface specs'!
cvsSetupSpec
@@ -7029,7 +6992,6 @@
)
! !
-
!AbstractLauncherApplication class methodsFor:'documentation'!
version
@@ -7040,6 +7002,11 @@
^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.423 2012-11-26 11:24:30 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: AbstractLauncherApplication.st 7796 2011-06-23 16:01:32Z vranyj1 §'
! !
--- a/AbstractRevisionItem.st Tue Feb 26 12:38:54 2013 +0000
+++ b/AbstractRevisionItem.st Wed Feb 27 12:34:59 2013 +0000
@@ -151,6 +151,12 @@
^ '$Id: AbstractRevisionItem.st 7854 2012-01-30 17:49:41Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: AbstractRevisionItem.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/AbstractSettingsApplication.st Tue Feb 26 12:38:54 2013 +0000
+++ b/AbstractSettingsApplication.st Wed Feb 27 12:34:59 2013 +0000
@@ -98,7 +98,8 @@
instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
searchDialogIsModal startTextDragWithControl
extendedWordSelectMode whitespaceWordSelectMode
- enforceContentsDropForFiles selectAllWhenClickingBeyondEnd useCodeView2InTools showAcceptCancelBarInBrowser'
+ enforceContentsDropForFiles selectAllWhenClickingBeyondEnd
+ useCodeView2InTools showAcceptCancelBarInBrowser'
classVariableNames:''
poolDictionaries:''
privateIn:AbstractSettingsApplication
@@ -410,7 +411,6 @@
"
! !
-
!AbstractSettingsApplication class methodsFor:'defaults'!
classResources
@@ -433,14 +433,12 @@
"Created: / 25-10-2010 / 09:37:21 / cg"
! !
-
!AbstractSettingsApplication class methodsFor:'interface specs'!
windowSpec
self subclassResponsibility
! !
-
!AbstractSettingsApplication class methodsFor:'queries'!
isVisualStartable
@@ -451,7 +449,6 @@
^ super isVisualStartable
! !
-
!AbstractSettingsApplication methodsFor:'accessing'!
requestor:anotherApplication
@@ -470,7 +467,6 @@
"Modified: / 12-05-2010 / 18:44:09 / cg"
! !
-
!AbstractSettingsApplication methodsFor:'actions'!
evaluateModified
@@ -546,7 +542,6 @@
self modifiedChannel value:self hasUnsavedChanges
! !
-
!AbstractSettingsApplication methodsFor:'aspects'!
modifiedChannel
@@ -557,7 +552,6 @@
^ modifiedChannel
! !
-
!AbstractSettingsApplication methodsFor:'helpers'!
hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
@@ -629,7 +623,6 @@
"Modified: / 24-08-2010 / 16:52:42 / sr"
! !
-
!AbstractSettingsApplication methodsFor:'initialization'!
initialize
@@ -646,14 +639,12 @@
currentUserPrefs := UserPreferences current.
! !
-
!AbstractSettingsApplication methodsFor:'menu'!
settingsDialogPopUpMenu
^ nil
! !
-
!AbstractSettingsApplication methodsFor:'protocol'!
askForChangeOnRelease
@@ -693,7 +684,6 @@
^ nil.
! !
-
!AbstractSettingsApplication methodsFor:'queries'!
hasUnsavedChanges
@@ -711,7 +701,6 @@
^ settingsDialog getNameOfApplication:self.
! !
-
!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -722,7 +711,6 @@
"Modified: / 17-09-2007 / 11:35:02 / cg"
! !
-
!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -881,7 +869,6 @@
"Modified: / 22-01-2012 / 10:59:44 / cg"
! !
-
!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -944,7 +931,6 @@
].
! !
-
!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'!
buildDirectory
@@ -983,14 +969,12 @@
"Created: / 22-01-2012 / 10:59:30 / cg"
! !
-
!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/buildSetup.html'
! !
-
!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'initialization'!
postBuildDirectoryField:aField
@@ -999,7 +983,6 @@
with:(Filename currentDirectory construct:'stx_build') pathName)
! !
-
!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -1017,7 +1000,6 @@
"Modified: / 22-01-2012 / 10:50:15 / cg"
! !
-
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
constantFoldingOptions
@@ -1030,7 +1012,6 @@
^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
! !
-
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -1117,7 +1098,6 @@
@@PC@@LD@@P@@0PDA@PC@0LC@0LD@0LC@0LC@@LC@0LC@0PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@O5+<HT*DHTJDO7;<') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -1560,7 +1540,6 @@
"Modified: / 08-03-2012 / 10:26:26 / cg"
! !
-
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -1664,7 +1643,6 @@
AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
! !
-
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
allowAssignmentToPoolVariable
@@ -2043,7 +2021,6 @@
^ warnings.
! !
-
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -2065,14 +2042,12 @@
super update:something with:aParameter from:changedObject
! !
-
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/compilerSettings.html'
! !
-
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -2096,7 +2071,6 @@
^ ObjectMemory supportsJustInTimeCompilation
! !
-
!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -2125,7 +2099,6 @@
A@PDA@PDA@PDB@(JB (HB@ HB@ HB@ HB@ HB@ HB@ JB @a') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_?? _??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0O??0') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -2220,7 +2193,6 @@
)
! !
-
!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -2240,7 +2212,6 @@
"Modified: / 09-02-2011 / 20:32:47 / cg"
! !
-
!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'aspects'!
changeFileName
@@ -2273,14 +2244,12 @@
"Modified (format): / 25-11-2011 / 15:43:45 / cg"
! !
-
!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/messageSettings.html'
! !
-
!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -2292,7 +2261,6 @@
"Modified: / 27-10-2010 / 10:17:21 / cg"
! !
-
!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -2321,7 +2289,6 @@
A@PDA@PDA@PDB@(JB (HB@ HB@ HB@ HB@ HB@ HB@ JB @a') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160 255 248 248 207 216 240 240 240 248 239 232 240 48 88 176 224 224 232 240 144 24 255 248 48 255 248 96 255 248 24 240 208 24 255 248 152 255 248 88 255 248 136 255 248 176 255 248 200]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_?? _??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0O??0') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -2400,7 +2367,6 @@
"Modified: / 04-07-2011 / 16:58:44 / cg"
! !
-
!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -2415,7 +2381,6 @@
to:currentUserPrefs.
! !
-
!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'aspects'!
aspectSelectors
@@ -2450,14 +2415,12 @@
^ generateCommentsForSetters.
! !
-
!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/codeGeneratorSettings.html'
! !
-
!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -2468,7 +2431,6 @@
"Modified: / 25-11-2011 / 15:22:51 / cg"
! !
-
!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -2528,7 +2490,6 @@
@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128]; mask:((Depth1Image new) width: 17; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_?<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??8@@@@@@@@@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -2593,7 +2554,6 @@
)
! !
-
!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'actions'!
aspectsFromUserPreferences
@@ -2615,7 +2575,6 @@
to:currentUserPrefs.
! !
-
!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'aspects'!
logHTTPRequests
@@ -2634,14 +2593,12 @@
^ logSOAPRequests.
! !
-
!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/comLoggingSettings.html'
! !
-
!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -2650,7 +2607,6 @@
asComparedTo:currentUserPrefs
! !
-
!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -2659,7 +2615,6 @@
^ ToolbarIconLibrary bugReporter24x24Icon
! !
-
!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -2795,7 +2750,6 @@
)
! !
-
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -2823,7 +2777,6 @@
"Modified: / 10-06-2012 / 21:23:32 / cg"
! !
-
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
allowSendMailFromDebugger
@@ -2873,14 +2826,12 @@
^ verboseBacktraceInDebugger.
! !
-
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/debuggerSettings.html'
! !
-
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -2894,7 +2845,6 @@
"Modified: / 10-06-2012 / 21:23:54 / cg"
! !
-
!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
clipEncodingStrings
@@ -2927,7 +2877,6 @@
^ #(ordered floydSteinberg)
! !
-
!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -2936,7 +2885,6 @@
^ ToolbarIconLibrary displayScreenIcon
! !
-
!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -3144,7 +3092,6 @@
)
! !
-
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -3204,7 +3151,6 @@
screen clipboardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
! !
-
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
clipEncodingList
@@ -3380,7 +3326,6 @@
^ visualIsPseudoColor.
! !
-
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
monitorSelectionChanged
@@ -3422,14 +3367,12 @@
super update:something with:aParameter from:changedObject
! !
-
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/screenSettings.html'
! !
-
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
initialize
@@ -3465,7 +3408,6 @@
! !
-
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -3483,7 +3425,6 @@
^ false
! !
-
!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'help specs'!
flyByHelpSpec
@@ -3526,7 +3467,6 @@
"Created: / 17-03-2012 / 11:37:51 / cg"
! !
-
!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -3535,7 +3475,6 @@
^ ToolbarIconLibrary editorIcon
! !
-
!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -3661,7 +3600,6 @@
)
! !
-
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -3713,7 +3651,6 @@
"Modified: / 07-03-2012 / 14:33:40 / cg"
! !
-
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
enforceContentsDropForFiles
@@ -3809,14 +3746,12 @@
^ whitespaceWordSelectMode.
! !
-
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/editSettings.html'
! !
-
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -3835,7 +3770,6 @@
"Modified: / 25-11-2011 / 15:23:02 / cg"
! !
-
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
widgetList
@@ -3850,7 +3784,6 @@
)
! !
-
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'help specs'!
flyByHelpSpec
@@ -3893,7 +3826,6 @@
"Created: / 17-03-2012 / 11:37:51 / cg"
! !
-
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -3925,7 +3857,6 @@
P @@@@@@@@@@@DQ@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 150 150 150 213 213 213 215 48 48 134 54 54 240 240 240]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @OG0@O''<@O7>@O<?@A>? A?? A??@A<?@A<>@A<>@A<>@A=>@C?>@G<>@C<\@@8D@@H@@@@@@@@@@@@@@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
fontForEncoding:encodingMatch
@@ -3938,7 +3869,6 @@
self open.
! !
-
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -4360,7 +4290,6 @@
"Modified: / 17-03-2012 / 11:44:29 / cg"
! !
-
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
encodingMatch:aEncodingMatch
@@ -4371,7 +4300,6 @@
].
! !
-
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
basicReadFontSettings
@@ -4607,7 +4535,6 @@
"Created: / 17-03-2012 / 11:22:18 / cg"
! !
-
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
allFontLabelHolder
@@ -4767,7 +4694,6 @@
^ textFontLabelHolder.
! !
-
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -4828,14 +4754,12 @@
self updateModifiedChannel
! !
-
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/fontSettings.html'
! !
-
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
postBuildAllFontLabel:aWidget
@@ -4879,7 +4803,6 @@
super postBuildWith:aBuilder
! !
-
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -4897,7 +4820,6 @@
"Modified: / 10-10-2011 / 12:14:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
keepSourceOptions
@@ -4910,7 +4832,6 @@
^ #('Keep as String' 'Reference to Filename' 'Reference to Full Path' 'Append and Ref in `st.src''' 'Discard' )
! !
-
!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -4970,7 +4891,6 @@
A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -5130,7 +5050,6 @@
)
! !
-
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -5179,7 +5098,6 @@
"Modified: / 08-07-2011 / 10:26:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
canLoadBinaries
@@ -5278,14 +5196,12 @@
"Modified: / 04-08-2010 / 18:37:53 / cg"
! !
-
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/compilerSettings.html'
! !
-
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -5302,7 +5218,6 @@
"Modified: / 08-07-2011 / 10:25:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
defaultIcon
@@ -5331,7 +5246,6 @@
JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a') ; colorMapFromArray:#[0 0 0 144 144 144 112 144 112 16 96 16 0 80 0 128 128 128 0 144 0 0 112 64 0 224 16 0 240 0 0 64 160 16 16 224 64 64 192 128 144 128 0 160 0 0 208 32 0 0 240 0 32 208 0 112 128 0 0 224 48 48 96 0 128 32 0 96 128 0 80 160 0 16 224 0 208 0 64 112 64 32 128 32 0 96 112 48 48 112 0 96 144 0 192 32 48 48 64 0 192 0 64 112 144 64 96 144 64 192 64 64 160 96 64 128 112 80 96 80 160 160 160 16 32 64 0 48 192 96 96 96 0 160 80 208 208 208 192 192 192 224 224 224 48 48 48 0 16 48 0 64 176 0 176 64 192 176 192 176 192 176 176 176 176 0 0 80 0 144 80 0 32 192 16 16 16 208 192 208 208 144 144 96 192 96 176 160 176 48 48 128 0 112 112 0 0 144 0 144 64 160 160 64 144 144 80 48 112 48 0 0 208 208 208 224 48 48 80 32 32 144 224 208 224 176 176 224 176 176 240 192 176 208]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C? @G?0@O?8@_?<@??<@??>@???@???@???@???@???@???@???@_??@O??@G??@A??@@??@@??@@??@@??@@??@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
windowSpec
@@ -5498,7 +5412,6 @@
)
! !
-
!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
addCreatedServer:aServer
@@ -5520,7 +5433,6 @@
self createdServers remove:aServer ifAbsent:nil.
! !
-
!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
basicReadSettings
@@ -5738,7 +5650,6 @@
"Modified: / 26-08-2012 / 10:26:20 / cg"
! !
-
!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
hasCreatedServerChannel
@@ -5778,7 +5689,6 @@
^ portNumberChannel.
! !
-
!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
createdServerChanged
@@ -5805,14 +5715,12 @@
"Modified: / 25-01-2007 / 16:38:52 / cg"
! !
-
!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'help'!
helpFilename
^ 'HTTPServer/index.html'
! !
-
!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
release
@@ -5826,7 +5734,6 @@
"Modified: / 25-01-2007 / 16:39:23 / cg"
! !
-
!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
hasCreatedServer
@@ -5874,7 +5781,6 @@
"Created: / 25-01-2007 / 17:16:46 / cg"
! !
-
!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -5883,7 +5789,6 @@
^ ToolbarIconLibrary keyboardMappingIcon
! !
-
!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -5990,7 +5895,6 @@
)
! !
-
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -6001,7 +5905,6 @@
"nothing done here"
! !
-
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
functionKeyList
@@ -6051,7 +5954,6 @@
^ selectedRawKey.
! !
-
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
changeFunctionKeySelection
@@ -6128,14 +6030,12 @@
super update:something with:aParameter from:changedObject
! !
-
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/keyboardSetting.html'
! !
-
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -6150,7 +6050,6 @@
self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
! !
-
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -6158,7 +6057,6 @@
^ false
! !
-
!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -6167,7 +6065,6 @@
^ ToolbarIconLibrary languagesIcon
! !
-
!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -6276,7 +6173,6 @@
)
! !
-
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
languageList
@@ -6285,7 +6181,6 @@
^ languageList
! !
-
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -6447,7 +6342,6 @@
self setNoticeLabel.
! !
-
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
currentFlagAndLanguageChannel
@@ -6513,14 +6407,12 @@
value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
! !
-
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/languageSetting.html'
! !
-
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -6667,7 +6559,6 @@
aWidget scrolledView backgroundColor:self window viewBackground.
! !
-
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
currentLanguage
@@ -6707,7 +6598,6 @@
"Modified: / 24-08-2010 / 18:50:11 / sr"
! !
-
!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -6716,7 +6606,6 @@
^ ToolbarIconLibrary memoryIcon
! !
-
!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -7235,7 +7124,6 @@
)
! !
-
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -7286,7 +7174,6 @@
"Modified: / 12-08-2010 / 15:34:47 / cg"
! !
-
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
codeLimit
@@ -7412,14 +7299,12 @@
^ warningLabelHolder.
! !
-
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/memorySettings.html'
! !
-
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
initialize
@@ -7431,7 +7316,6 @@
).
! !
-
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -7459,7 +7343,6 @@
"Modified: / 12-08-2010 / 15:33:12 / cg"
! !
-
!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -7485,7 +7368,6 @@
P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@b') ; colorMapFromArray:#[0 0 0 224 224 224 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 96 96 96 160 160 160 96 96 96]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G@C O G0_0O8?8_<?(W<?8_<???<=:^<???<???<???<_??<O??<O??<B?=\@?<8@?=0@?? @O?@@W>@@K @@D@@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -7867,7 +7749,6 @@
)
! !
-
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -7981,7 +7862,6 @@
"Modified: / 20-09-2007 / 16:05:01 / cg"
! !
-
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
acceptChannel
@@ -8136,7 +8016,6 @@
^ windowMigrationPassword.
! !
-
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
selectedSmallTeamHostChanged
@@ -8157,14 +8036,12 @@
"Created: / 12-11-2006 / 19:09:40 / cg"
! !
-
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/communicationsSettings.html'
! !
-
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -8172,7 +8049,6 @@
self readSettings.
! !
-
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
addHostEnabled
@@ -8224,7 +8100,6 @@
^ WindowMigrationServer notNil
! !
-
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'user actions'!
addSmallTeamHost
@@ -8263,7 +8138,6 @@
"Modified: / 12-11-2006 / 19:15:05 / cg"
! !
-
!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -8292,7 +8166,6 @@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112 100 100 100 127 127 127 255 255 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@8@@@8@@@P@@@P_?<P??<P??<P??<P??<8??=<???<??>8??<8??<8??=<??=<??=<??=<??9<@@@8@@@@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -8428,7 +8301,6 @@
)
! !
-
!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'actions'!
aspectsFromUserPreferences
@@ -8509,7 +8381,6 @@
"Modified: / 24-08-2010 / 17:27:25 / sr"
! !
-
!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'aspects'!
displaySupportsNativeDialogs
@@ -8592,14 +8463,12 @@
^ shadows.
! !
-
!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/miscSettings.html'
! !
-
!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -8635,7 +8504,6 @@
^ Screen current platformName = 'WIN32'
! !
-
!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'help specs'!
flyByHelpSpec
@@ -8659,7 +8527,6 @@
)
! !
-
!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -8688,7 +8555,6 @@
B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -8938,7 +8804,6 @@
)
! !
-
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
aspectsFromUserPreferences
@@ -9021,7 +8886,6 @@
]
! !
-
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
activateOnClick
@@ -9192,14 +9056,12 @@
^ takeFocus.
! !
-
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/miscSettings.html'
! !
-
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -9216,7 +9078,6 @@
^ false
! !
-
!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -9225,7 +9086,6 @@
^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
! !
-
!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -9446,7 +9306,6 @@
)
! !
-
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -9487,7 +9346,6 @@
].
! !
-
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
osiACSEConnectionLogging
@@ -9570,14 +9428,12 @@
^ osiROSEResponseLogging.
! !
-
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/communicationsSettings.html'
! !
-
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -9596,7 +9452,6 @@
self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
! !
-
!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -9605,7 +9460,6 @@
^ ToolbarIconLibrary printerIcon
! !
-
!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -9929,7 +9783,6 @@
)
! !
-
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -9984,7 +9837,6 @@
].
! !
-
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
bottomMargin
@@ -10259,7 +10111,6 @@
^ unitList.
! !
-
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
printerTypeSelectionChanged
@@ -10343,14 +10194,12 @@
super update:something with:aParameter from:changedObject
! !
-
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/printerSettings.html'
! !
-
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
commandList
@@ -10411,7 +10260,6 @@
^ possiblePrinters
! !
-
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -10437,7 +10285,6 @@
DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 128 128 128 0 128 128 192 192 192]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @@?<@A?>@C??@G?? O??0O??0O??0_??8_??8_??8_??8O??0O??0O??0G?? C??@A?>@@?<@@G @@@@@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -10513,7 +10360,6 @@
)
! !
-
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -10535,7 +10381,6 @@
].
! !
-
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
dynamicPrios
@@ -10554,14 +10399,12 @@
^ preemptive.
! !
-
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/miscSettings.html'
! !
-
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -10570,7 +10413,6 @@
^ false
! !
-
!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -10596,7 +10438,6 @@
!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 64 80 96 240 240 0 80 112 112 240 240 240 64 64 64 48 64 80 64 96 96 128 128 0 128 128 128 48 80 80 80 96 96 112 112 112 64 80 80 80 96 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@G??0G??0G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8A??8@O?@@O?@@G>@@A0@@@@@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -10939,7 +10780,6 @@
"Modified: / 20-05-2010 / 12:15:22 / cg"
! !
-
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -11056,7 +10896,6 @@
^ portOrPath
! !
-
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
rDoitEnabledOnlyViaLocalConnection
@@ -11180,7 +11019,6 @@
^ scriptingServerPortOrPath.
! !
-
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
rDoitsEnabledChanged
@@ -11193,14 +11031,12 @@
]
! !
-
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/communicationsSettings.html'
! !
-
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
hasRDoitServer
@@ -11244,7 +11080,6 @@
"Modified: / 20-05-2010 / 14:48:52 / cg"
! !
-
!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
dbIcon1
@@ -11308,7 +11143,6 @@
^ self dbIcon2.
! !
-
!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -11523,7 +11357,6 @@
)
! !
-
!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -11589,7 +11422,6 @@
"Modified: / 25-01-2007 / 17:41:20 / cg"
! !
-
!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
sqlDataLogging
@@ -11656,7 +11488,6 @@
^ sqlStatementLogging.
! !
-
!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
sqlServerEnabledChanged
@@ -11681,14 +11512,12 @@
"Modified: / 25-01-2007 / 17:40:03 / cg"
! !
-
!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/communicationsSettings.html'
! !
-
!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
hasSQLServerClass
@@ -11724,7 +11553,6 @@
"Created: / 25-01-2007 / 17:29:59 / cg"
! !
-
!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
stcCompilationOptions
@@ -11736,7 +11564,6 @@
^ #('primitive code only' 'never')
! !
-
!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -11850,7 +11677,6 @@
@@LC@@LCA@PD@0PDA@PC@0PDA@PDA@PDA@PDA@PDA@PC@0PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@LC0LHA DP@@BH6[DL@@L') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -12309,7 +12135,6 @@
)
! !
-
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -12374,7 +12199,6 @@
"Modified: / 16-09-2011 / 18:45:28 / cg"
! !
-
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
canLoadBinaries
@@ -12527,7 +12351,6 @@
^ stcOptions.
! !
-
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'!
helpFilename
@@ -12543,7 +12366,6 @@
"Created: / 16-09-2011 / 18:18:32 / cg"
! !
-
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -12575,7 +12397,6 @@
"Modified: / 16-09-2011 / 18:42:00 / cg"
! !
-
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
exampleText
@@ -12622,7 +12443,6 @@
'.
! !
-
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -12648,7 +12468,6 @@
UUUUUUUH**"EUZUUUUUUUT"**HV*)UUUUUUURJ*(!!UUUUUUUUUUH**"TQDQDQDQDQD"**("H"H"H"H"H"J(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_?? _??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0O??0') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -12934,7 +12753,6 @@
)
! !
-
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -13081,7 +12899,6 @@
self reformat.
! !
-
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
autoFormat
@@ -13191,7 +13008,6 @@
^ tabIndent.
! !
-
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -13216,14 +13032,12 @@
from:changedObject
! !
-
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/sourceFormatSettings.html'
! !
-
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -13243,7 +13057,6 @@
scrollWhenUpdating:nil.
! !
-
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -13268,7 +13081,6 @@
^ false
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'documentation'!
documentation
@@ -13280,7 +13092,6 @@
"
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'help specs'!
helpSpec
@@ -13354,7 +13165,6 @@
"Modified: / 09-08-2012 / 09:41:28 / cg"
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -13383,7 +13193,6 @@
EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@O8@@?>@A??@A?C C<@0C8@PC8@@??@@??F@_>O@O<_ G8?0C1?8A#?<@C?<@@_@H@_@L@?@GC>@C?>@A?<@@_0@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -13775,7 +13584,6 @@
)
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
managerPerMatchingModuleColumns
@@ -13814,7 +13622,6 @@
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
manager
@@ -13822,7 +13629,6 @@
^ Smalltalk at:#SourceCodeManager
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
actionAdd
@@ -14094,7 +13900,6 @@
"Modified: / 16-08-2006 / 11:07:51 / cg"
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
acceptChannel
@@ -14381,7 +14186,6 @@
^ verboseSourceCodeAccess.
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
selectedPerModuleRootChanged
@@ -14505,7 +14309,6 @@
self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'help'!
helpFilename
@@ -14514,7 +14317,6 @@
"Modified: / 04-07-2011 / 17:22:39 / cg"
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -14546,7 +14348,6 @@
"Modified: / 18-04-2011 / 19:37:38 / cg"
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
cvsRootFromCVSRootFileOrNil
@@ -14609,7 +14410,6 @@
"Modified: / 27-07-2012 / 12:35:40 / cg"
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'help specs'!
flyByHelpSpec
@@ -14638,7 +14438,6 @@
"Created: / 01-12-2011 / 19:52:19 / cg"
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'interface specs'!
windowSpec
@@ -14748,7 +14547,6 @@
)
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'accessing'!
manager
@@ -14782,7 +14580,6 @@
"Created: / 09-07-2011 / 13:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'aspects'!
availableManagerTypeNames
@@ -14877,7 +14674,6 @@
"Modified: / 13-03-2012 / 13:12:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
standardStyles
@@ -14897,7 +14693,6 @@
)
! !
-
!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
closePreviewButtonImage
@@ -14930,7 +14725,6 @@
F1,[F1,S@@@@@@@@D1LSD1LSD1LSD1LSD1LSD0@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 80 112 0 80 128 0 96 128 0 96 144 0 112 144 0 112 160 16 112 144 16 128 160 16 128 176 16 144 192 32 80 80 32 96 80 32 96 96 48 112 112 48 128 112 48 128 128 64 96 96 64 144 128 80 80 80 112 112 0 128 128 0 128 128 128 160 160 0 176 176 0 192 192 192 208 208 0 224 224 224 240 240 240 255 255 129 255 255 193 255 255 225]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G?? O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -15092,7 +14886,6 @@
)
! !
-
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -15120,7 +14913,6 @@
self saveSettings.
! !
-
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
infoLabelHolder
@@ -15175,7 +14967,6 @@
^ styleList.
! !
-
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
changeInfoLabel
@@ -15252,14 +15043,12 @@
"Modified: / 07-11-2006 / 13:58:09 / cg"
! !
-
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/styleSettings.html'
! !
-
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
commonPostBuild
@@ -15314,7 +15103,6 @@
aWidget scrolledView backgroundColor:self window viewBackground.
! !
-
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -15322,7 +15110,6 @@
^ (self selectedStyle value ~= View defaultStyle)
! !
-
!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
emphasisList
@@ -15393,7 +15180,6 @@
)
! !
-
!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'help specs'!
flyByHelpSpec
@@ -15442,7 +15228,6 @@
"Created: / 14-02-2012 / 10:44:21 / cg"
! !
-
!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -15468,7 +15253,6 @@
A@PDQDQDPQQ@QDADPDQ@QDQAEDQDQDQDQDQDQDDTMCP4MCP4QDQDPQQCP4MCP4MDQDQADQDQDQDQDQDQDQDb') ; colorMapFromArray:#[0 0 0 88 88 88 0 0 255 255 0 0 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -15681,7 +15465,6 @@
)
! !
-
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
basicReadSettings
@@ -15755,7 +15538,6 @@
"Modified (format): / 16-03-2012 / 10:32:02 / cg"
! !
-
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
coloredText
@@ -15850,7 +15632,6 @@
^ syntaxEmphasisSelection.
! !
-
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
getEmphasis:anEmphasisOrSymbol
@@ -15905,14 +15686,12 @@
super update:something with:aParameter from:changedObject
! !
-
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/sourceSettings.html'
! !
-
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -15975,7 +15754,6 @@
"Modified: / 14-02-2012 / 11:01:49 / cg"
! !
-
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -16023,7 +15801,6 @@
asLowercaseFirst asSymbol
! !
-
!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -16034,7 +15811,6 @@
"Modified: / 17-09-2007 / 11:35:15 / cg"
! !
-
!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -16231,7 +16007,6 @@
)
! !
-
!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
aspects
@@ -16273,7 +16048,6 @@
"Modified: / 25-11-2011 / 15:09:49 / cg"
! !
-
!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
confirmRefactorings
@@ -16423,14 +16197,12 @@
"Created: / 07-06-2011 / 14:34:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/browserSettings.html'
! !
-
!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -16442,7 +16214,6 @@
"Modified: / 25-11-2011 / 15:23:47 / cg"
! !
-
!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'!
helpSpec
@@ -16469,7 +16240,6 @@
)
! !
-
!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -16498,7 +16268,6 @@
F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 64 32 16 128 96 48 112 48 0 176 112 48 176 96 32 208 160 128 160 96 16 48 32 0 192 128 80 160 80 16 112 80 32 176 112 32 96 48 16 160 112 32 80 80 16 128 64 16 64 64 16 208 208 176 224 224 208 160 160 128 144 144 80 112 112 64 128 128 64 80 80 32 192 192 160 160 160 112 96 96 48 48 48 16 240 240 224 176 176 128 176 176 144 144 144 96 112 112 48 32 32 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G @@O @@_0@@_0@@_0@@_0@@_0@@G @@G @@G @@?<@A?>@A?>@A?>@A?>@A?>@A?>@A?>@G??@G??@G??@A?>@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -16688,7 +16457,6 @@
)
! !
-
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
aspects
@@ -16728,7 +16496,6 @@
"Modified: / 10-11-2010 / 12:08:14 / cg"
! !
-
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
beepEnabled
@@ -16852,14 +16619,12 @@
^ vmInfo.
! !
-
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/messageSettings.html'
! !
-
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -16874,7 +16639,6 @@
"Modified: / 10-11-2010 / 12:08:25 / cg"
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -16904,7 +16668,6 @@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[107 107 107 253 252 252 180 180 180 254 102 102 154 154 154 255 0 0 46 49 49 98 53 53 171 80 80 155 25 25 128 128 128 73 74 74]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@C0@@C<@@G>@@G>@G??8O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??8G??@A?0@@F@@@@@@@@@@@@@@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'interface specs'!
developmentToolsSpec
@@ -17031,7 +16794,6 @@
)
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'list specs'!
notebookTabList
@@ -17066,7 +16828,6 @@
"Modified: / 03-04-2012 / 10:52:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'aspects'!
aspects
@@ -17127,7 +16888,6 @@
^ list
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'hooks'!
developmentToolSettingsInto:panel
@@ -17160,7 +16920,6 @@
"Created: / 03-04-2012 / 10:54:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'private'!
addClassToolSettingTo: panel
@@ -17179,7 +16938,6 @@
"Created: / 14-02-2012 / 18:56:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'protocol'!
basicReadSettings
@@ -17206,7 +16964,6 @@
^ self shouldImplement
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -17217,7 +16974,6 @@
"Modified: / 14-02-2012 / 18:38:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting class methodsFor:'interface specs'!
windowSpec
@@ -17282,7 +17038,6 @@
)
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'accessing'!
classes: aCollection
@@ -17316,7 +17071,6 @@
"Created: / 14-02-2012 / 18:22:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'aspects'!
optionCustomValueBackgroundHolder
@@ -17499,7 +17253,6 @@
].
! !
-
!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -17541,7 +17294,6 @@
"Modified: / 14-02-2012 / 19:01:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
flyByHelpSpec
@@ -17590,7 +17342,6 @@
"Modified: / 09-08-2012 / 09:34:41 / cg"
! !
-
!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -17616,7 +17367,6 @@
@@@@@@H0B*@@@@@@@@@@@@@J(@@@@@@@@@@@@@* @@@@@@@@@@@@B*****************************(b') ; colorMapFromArray:#[0 0 0 160 160 160 240 240 240 224 224 224 48 48 48 128 128 128 208 208 208 112 112 112 192 192 192 96 96 96 176 176 176]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@?@@@?0@@_8@GO<@G3<@G?>@G??@G?? G?? C?? @?? @G? @@_ @@G @@A @@@@@@@@@@@@@@@@') ; yourself); yourself]
! !
-
!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -17875,7 +17625,6 @@
)
! !
-
!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
aspects
@@ -17980,7 +17729,6 @@
"Modified: / 27-07-2012 / 20:51:46 / cg"
! !
-
!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
autoRaiseTranscript
@@ -18159,14 +17907,12 @@
"Created: / 06-07-2011 / 13:52:33 / cg"
! !
-
!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/toolSettings.html'
! !
-
!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -18183,7 +17929,6 @@
"Modified: / 27-07-2012 / 20:51:56 / cg"
! !
-
!AbstractSettingsApplication class methodsFor:'documentation'!
version
@@ -18194,6 +17939,11 @@
^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.454 2013-02-01 14:13:20 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: AbstractSettingsApplication.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
--- a/AbstractSourceCodeManagementSettingsAppl.st Tue Feb 26 12:38:54 2013 +0000
+++ b/AbstractSourceCodeManagementSettingsAppl.st Wed Feb 27 12:34:59 2013 +0000
@@ -50,7 +50,6 @@
"
! !
-
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
helpSpec
@@ -79,7 +78,6 @@
"Created: / 11-01-2012 / 15:38:11 / cg"
! !
-
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -130,7 +128,6 @@
@@@@@@@VE @@@@@VE!!XVE!!X@@@@@@@@WE!!XV@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C0@_ C!!@N@C< G''@L>@G8DF@O8@_@@@a') ; yourself); yourself]
! !
-
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'queries'!
isAbstract
@@ -153,7 +150,6 @@
"Created: / 19-04-2011 / 12:48:37 / cg"
! !
-
!AbstractSourceCodeManagementSettingsAppl methodsFor:'actions'!
condenseSourceCache
@@ -169,7 +165,6 @@
"Modified: / 30-09-2011 / 13:33:47 / cg"
! !
-
!AbstractSourceCodeManagementSettingsAppl methodsFor:'aspects'!
acceptChannel
@@ -245,7 +240,6 @@
^ verboseSourceCodeAccess.
! !
-
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
@@ -256,6 +250,11 @@
^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.20 2012-09-26 16:16:47 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/AbstractVersionDiffBrowserItem.st Tue Feb 26 12:38:54 2013 +0000
+++ b/AbstractVersionDiffBrowserItem.st Wed Feb 27 12:34:59 2013 +0000
@@ -156,6 +156,12 @@
^ '$Id: AbstractVersionDiffBrowserItem.st 7854 2012-01-30 17:49:41Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: AbstractVersionDiffBrowserItem.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/ApplicationBuilder.st Tue Feb 26 12:38:54 2013 +0000
+++ b/ApplicationBuilder.st Wed Feb 27 12:34:59 2013 +0000
@@ -1391,6 +1391,12 @@
^ '$Id: ApplicationBuilder.st 7854 2012-01-30 17:49:41Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: ApplicationBuilder.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/Bookmark.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Bookmark.st Wed Feb 27 12:34:59 2013 +0000
@@ -903,6 +903,12 @@
^ '§Header: /cvs/stx/stx/libtool/Bookmark.st,v 1.8 2011/11/29 10:20:58 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Bookmark.st 7973 2012-04-06 15:56:16Z vranyj1 $'
! !
+
--- a/BookmarkAddMenuBuilder.st Tue Feb 26 12:38:54 2013 +0000
+++ b/BookmarkAddMenuBuilder.st Wed Feb 27 12:34:59 2013 +0000
@@ -107,6 +107,12 @@
^ '§Header: /cvs/stx/stx/libtool/BookmarkAddMenuBuilder.st,v 1.2 2011/07/03 18:00:56 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: BookmarkAddMenuBuilder.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/BookmarkBar.st Tue Feb 26 12:38:54 2013 +0000
+++ b/BookmarkBar.st Wed Feb 27 12:34:59 2013 +0000
@@ -63,7 +63,6 @@
"
! !
-
!BookmarkBar class methodsFor:'help specs'!
flyByHelpSpec
@@ -89,7 +88,6 @@
"Created: / 03-07-2011 / 23:09:48 / cg"
! !
-
!BookmarkBar class methodsFor:'interface specs'!
windowSpec
@@ -153,7 +151,6 @@
)
! !
-
!BookmarkBar class methodsFor:'menu specs'!
bookmarkMenu
@@ -193,7 +190,6 @@
)
! !
-
!BookmarkBar class methodsFor:'plugIn spec'!
aspectSelectors
@@ -214,7 +210,6 @@
! !
-
!BookmarkBar methodsFor:'actions'!
bookmark
@@ -236,7 +231,6 @@
"Modified: / 02-06-2011 / 20:05:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BookmarkBar methodsFor:'aspects'!
bookmarkButtonIconHolder
@@ -350,7 +344,6 @@
"Modified: / 18-05-2011 / 18:57:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BookmarkBar methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -399,7 +392,6 @@
"Modified: / 09-09-2012 / 13:07:51 / cg"
! !
-
!BookmarkBar methodsFor:'hooks'!
closeDownViews
@@ -431,7 +423,6 @@
"Created: / 03-07-2011 / 23:08:01 / cg"
! !
-
!BookmarkBar methodsFor:'initialization & release'!
release
@@ -450,7 +441,6 @@
"Created: / 15-03-2012 / 13:28:48 / Jan Vrany <jan.vrany.fit.cvut.cz>"
! !
-
!BookmarkBar methodsFor:'menu'!
bookmarkMenuAddSlice
@@ -460,7 +450,6 @@
"Modified: / 08-07-2011 / 11:38:29 / cg"
! !
-
!BookmarkBar methodsFor:'menu actions'!
menuAddBookmark
@@ -491,7 +480,6 @@
"Modified: / 02-06-2011 / 20:02:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BookmarkBar class methodsFor:'documentation'!
version
@@ -502,6 +490,11 @@
^ '$Header: /cvs/stx/stx/libtool/BookmarkBar.st,v 1.10 2012-09-09 13:11:47 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/BookmarkEditor.st Tue Feb 26 12:38:54 2013 +0000
+++ b/BookmarkEditor.st Wed Feb 27 12:34:59 2013 +0000
@@ -68,6 +68,12 @@
^ '§Header: /cvs/stx/stx/libtool/BookmarkEditor.st,v 1.2 2011/07/03 18:00:45 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: BookmarkEditor.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/BookmarkList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/BookmarkList.st Wed Feb 27 12:34:59 2013 +0000
@@ -62,7 +62,6 @@
"
! !
-
!BookmarkList class methodsFor:'instance creation'!
decodeFromLiteralArray:anArray
@@ -128,7 +127,6 @@
"Modified: / 18-11-2011 / 14:32:24 / cg"
! !
-
!BookmarkList class methodsFor:'accessing'!
forFileBrowser
@@ -167,7 +165,6 @@
"Created: / 20-06-2011 / 22:11:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BookmarkList class methodsFor:'accessing - defaults'!
defaultLabelForMyWorkspaces
@@ -184,7 +181,6 @@
"Created: / 21-06-2011 / 08:35:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BookmarkList class methodsFor:'class initialization'!
initializeBrowserBookmarks
@@ -269,7 +265,6 @@
"Modified: / 29-11-2011 / 11:21:16 / cg"
! !
-
!BookmarkList methodsFor:'accessing'!
/ label
@@ -287,7 +282,6 @@
fileName := aString.
! !
-
!BookmarkList methodsFor:'accessing - special folders'!
myWorkspaces
@@ -301,7 +295,6 @@
"Created: / 21-06-2011 / 08:53:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BookmarkList methodsFor:'change & update'!
changed:aParameter with:anArgument
@@ -313,7 +306,6 @@
"Modified: / 02-06-2011 / 13:35:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BookmarkList methodsFor:'collection protocol'!
add: item
@@ -340,7 +332,6 @@
"Modified: / 23-05-2011 / 13:48:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BookmarkList methodsFor:'converting'!
asMenu
@@ -367,7 +358,6 @@
"Created: / 23-05-2011 / 14:23:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BookmarkList methodsFor:'initialization'!
initialize
@@ -382,7 +372,6 @@
"Modified: / 23-05-2011 / 13:56:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BookmarkList methodsFor:'loading / saving'!
save
@@ -405,7 +394,6 @@
"Created: / 23-05-2011 / 16:39:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BookmarkList methodsFor:'visiting'!
acceptVisitor:aVisitor
@@ -417,13 +405,17 @@
^ aVisitor visitBookmarkList:self
! !
-
!BookmarkList class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/BookmarkList.st,v 1.5 2012-10-21 00:15:49 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/BookmarkListEditor.st Tue Feb 26 12:38:54 2013 +0000
+++ b/BookmarkListEditor.st Wed Feb 27 12:34:59 2013 +0000
@@ -520,6 +520,12 @@
^ '§Header: /cvs/stx/stx/libtool/BookmarkListEditor.st,v 1.3 2011/11/18 13:33:19 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: BookmarkListEditor.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/BookmarkMenuBuilder.st Tue Feb 26 12:38:54 2013 +0000
+++ b/BookmarkMenuBuilder.st Wed Feb 27 12:34:59 2013 +0000
@@ -197,6 +197,12 @@
^ '§Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.6 2011/11/29 10:21:54 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: BookmarkMenuBuilder.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/BookmarkToolbarMenuBuilder.st Tue Feb 26 12:38:54 2013 +0000
+++ b/BookmarkToolbarMenuBuilder.st Wed Feb 27 12:34:59 2013 +0000
@@ -88,6 +88,12 @@
^ '§Header: /cvs/stx/stx/libtool/BookmarkToolbarMenuBuilder.st,v 1.2 2011/07/03 18:01:01 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: BookmarkToolbarMenuBuilder.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/BookmarkVisitor.st Tue Feb 26 12:38:54 2013 +0000
+++ b/BookmarkVisitor.st Wed Feb 27 12:34:59 2013 +0000
@@ -134,6 +134,12 @@
^ '§Header: /cvs/stx/stx/libtool/BookmarkVisitor.st,v 1.2 2011/07/03 18:00:43 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: BookmarkVisitor.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/BookmarksEditDialog.st Tue Feb 26 12:38:54 2013 +0000
+++ b/BookmarksEditDialog.st Wed Feb 27 12:34:59 2013 +0000
@@ -652,6 +652,12 @@
^ '§Header: /cvs/stx/stx/libtool/BookmarksEditDialog.st,v 1.10 2011/01/17 12:06:37 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: BookmarksEditDialog.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/BrowserView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/BrowserView.st Wed Feb 27 12:34:59 2013 +0000
@@ -79,7 +79,6 @@
"
! !
-
!BrowserView class methodsFor:'initialization'!
initialize
@@ -129,7 +128,6 @@
"Modified: / 27.10.1997 / 17:34:25 / cg"
! !
-
!BrowserView class methodsFor:'class history'!
addToClassHistory:aClass selector:aSelector
@@ -142,7 +140,6 @@
SystemBrowser checkClassHistory
! !
-
!BrowserView class methodsFor:'cleanup'!
lowSpaceCleanup
@@ -159,7 +156,6 @@
Icons := DefaultIcon := nil.
! !
-
!BrowserView class methodsFor:'defaults'!
changeHistoryMaxSize
@@ -233,7 +229,6 @@
"Created: / 29.10.1997 / 03:32:43 / cg"
! !
-
!BrowserView class methodsFor:'interface specs'!
methodFilterSpec
@@ -616,7 +611,6 @@
)
! !
-
!BrowserView class methodsFor:'menu specs'!
menuSpec
@@ -1675,14 +1669,12 @@
)
! !
-
!BrowserView class methodsFor:'resources'!
classResources
^ SystemBrowser classResources
! !
-
!BrowserView methodsFor:'change & update'!
delayedUpdate:something with:someArgument from:changedObject
@@ -2094,7 +2086,6 @@
"Modified: 26.3.1997 / 18:29:51 / cg"
! !
-
!BrowserView methodsFor:'class category list menu'!
browserClone
@@ -2969,7 +2960,6 @@
"Modified: / 10.4.1998 / 12:25:38 / cg"
! !
-
!BrowserView methodsFor:'class category source administration'!
classCategoryCheckinEach
@@ -3426,7 +3416,6 @@
"Modified (format): / 29-09-2011 / 16:09:52 / cg"
! !
-
!BrowserView methodsFor:'class category stuff'!
checkClassCategorySelected
@@ -3711,7 +3700,6 @@
"Modified: / 27.7.1998 / 10:56:50 / cg"
! !
-
!BrowserView methodsFor:'class history'!
changeHistoryMenu
@@ -3909,7 +3897,6 @@
self class classHistory:savedHistory.
! !
-
!BrowserView methodsFor:'class list menu'!
classClassInstVars
@@ -5220,7 +5207,6 @@
"Modified: 17.6.1997 / 13:32:40 / cg"
! !
-
!BrowserView methodsFor:'class list source administration'!
classCheckin
@@ -5770,7 +5756,6 @@
"Modified: / 10.2.2000 / 14:14:09 / cg"
! !
-
!BrowserView methodsFor:'class stuff'!
allClasses
@@ -6946,7 +6931,6 @@
"Modified: 10.1.1997 / 14:01:20 / cg"
! !
-
!BrowserView methodsFor:'class-method list menu'!
classMethodBrowse
@@ -7160,7 +7144,6 @@
"Modified: / 7.8.1998 / 17:13:47 / cg"
! !
-
!BrowserView methodsFor:'class-method stuff'!
classFromClassMethodString:aString
@@ -7449,7 +7432,6 @@
"Modified: / 17.10.1998 / 11:30:35 / cg"
! !
-
!BrowserView methodsFor:'event handling'!
handlesKeyPress:key inView:view
@@ -7552,7 +7534,6 @@
"Modified: / 18.4.1998 / 15:56:36 / cg"
! !
-
!BrowserView methodsFor:'help'!
helpTextFor:aComponent
@@ -7574,7 +7555,6 @@
"Modified: 28.6.1997 / 15:00:18 / cg"
! !
-
!BrowserView methodsFor:'initialization & release'!
autoSearch:aString
@@ -7761,7 +7741,6 @@
"Modified: 18.8.1997 / 15:19:50 / cg"
! !
-
!BrowserView methodsFor:'initialize subviews'!
createClassListViewIn:frame
@@ -8332,7 +8311,6 @@
"Modified: / 25.10.1997 / 19:27:40 / cg"
! !
-
!BrowserView methodsFor:'method category list menu'!
createAccessMethodsFor:aCollectionOfInstVarNames withChange:withChange
@@ -8874,7 +8852,6 @@
]
! !
-
!BrowserView methodsFor:'method category stuff'!
asBrowserList:aList
@@ -9121,7 +9098,6 @@
"Modified: 18.8.1997 / 15:44:38 / cg"
! !
-
!BrowserView methodsFor:'method list menu'!
commonTraceHelperWith:aSelector
@@ -10547,7 +10523,6 @@
"Modified: / 12.1.1998 / 19:16:22 / cg"
! !
-
!BrowserView methodsFor:'method stuff'!
checkMethodSelected
@@ -11091,7 +11066,6 @@
"Modified: 30.7.1997 / 15:55:06 / cg"
! !
-
!BrowserView methodsFor:'misc'!
beep
@@ -11388,7 +11362,6 @@
"Modified: / 10.2.2000 / 14:15:03 / cg"
! !
-
!BrowserView methodsFor:'namespace menu'!
nameSpaceCheckInEach
@@ -11541,7 +11514,6 @@
"Modified: / 3.2.1999 / 20:18:13 / cg"
! !
-
!BrowserView methodsFor:'namespace stuff'!
changeNameSpaceTo:nsName
@@ -11727,7 +11699,6 @@
"Created: 8.1.1997 / 10:54:03 / cg"
! !
-
!BrowserView methodsFor:'private'!
askAndBrowseMethodCategory:title action:aBlock
@@ -13030,7 +13001,9 @@
].
codeView error:ex description position:1 to:nil from:nil.
] do:[
- cls := JavaCompiler
+ | compiler |
+ compiler := (Smalltalk at:#JavaCompiler).
+ cls := compiler
evaluateClassDefinition:theCode asString
notifying:codeView.
@@ -13047,7 +13020,8 @@
].
self clearExplainAction.
- "Modified: / 16.11.2001 / 17:37:58 / cg"
+ "Modified: / 16-11-2001 / 17:37:58 / cg"
+ "Modified: / 27-02-2013 / 12:18:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
setAcceptAndExplainActionsForMethod
@@ -13279,7 +13253,6 @@
"Created: 18.8.1997 / 15:41:52 / cg"
! !
-
!BrowserView methodsFor:'private-defaults'!
canvasIcon
@@ -13397,7 +13370,6 @@
^ self fetchIcon:#trace selector:#traceIcon
! !
-
!BrowserView methodsFor:'private-queries'!
hasClassCategorySelected
@@ -13521,7 +13493,6 @@
and:[ variableListView selectionValue notNil ]]
! !
-
!BrowserView methodsFor:'syntax coloring'!
startSyntaxHighlightProcess
@@ -13709,7 +13680,6 @@
"Modified: / 20.11.2001 / 00:38:09 / cg"
! !
-
!BrowserView methodsFor:'unused'!
listOfAllMethodCategoriesInHierarchy:aClass
@@ -13756,7 +13726,6 @@
"Modified: 5.6.1996 / 11:42:12 / stefan"
! !
-
!BrowserView methodsFor:'variable list menu'!
allClassInstVarMods
@@ -14269,7 +14238,6 @@
"Modified: 25.5.1996 / 12:26:07 / cg"
! !
-
!BrowserView methodsFor:'variable stuff'!
hilightEntryFor:entry
@@ -14581,13 +14549,17 @@
"Modified: / 17.9.1998 / 13:45:02 / cg"
! !
-
!BrowserView class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.839 2012-09-09 12:58:33 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: BrowserView.st 8054 2012-09-13 09:15:20Z vranyj1 $'
! !
--- a/CVSSourceCodeManagementSettingsAppl.st Tue Feb 26 12:38:54 2013 +0000
+++ b/CVSSourceCodeManagementSettingsAppl.st Wed Feb 27 12:34:59 2013 +0000
@@ -47,7 +47,6 @@
"
! !
-
!CVSSourceCodeManagementSettingsAppl class methodsFor:'defaults'!
defaultRepositoryName
@@ -57,7 +56,6 @@
"Created: / 19-04-2011 / 11:00:11 / cg"
! !
-
!CVSSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
helpSpec
@@ -164,7 +162,6 @@
"Modified: / 09-08-2012 / 09:41:23 / cg"
! !
-
!CVSSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -227,7 +224,6 @@
K"DZKR4ZHR8@@@@@@@@@@@@@@@@@@@@@@@@@E14@@@@@@@@@') ; colorMapFromArray:#[0 0 0 160 176 200 176 192 210 176 200 220 192 208 220 224 232 240 176 208 220 208 224 220 144 168 180 192 200 220 208 216 220 208 224 240 224 232 250 224 240 250 208 232 240 160 192 210 176 184 180 128 136 140 192 216 220 160 184 210 208 240 250 144 144 160 192 224 240 160 168 180 192 232 240 160 176 180 224 224 220 192 232 250 144 168 200 176 184 200 160 200 220 192 216 240 176 192 200 160 184 200 192 224 220 176 224 250 176 216 250 160 208 240 144 192 250 144 176 210 255 248 250 160 192 220 144 184 210 160 200 240 160 192 240 128 160 180 128 152 180 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@X@@C?@@C?@@O?0@O?0@OG @_C8@_C8@OG @O?0@O?6@G??0C??0C??<GC?<GC18_''0>OO0>F_18@??<HO?<G=?0C8?0@@F@') ; yourself); yourself]
! !
-
!CVSSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -613,7 +609,6 @@
)
! !
-
!CVSSourceCodeManagementSettingsAppl class methodsFor:'queries'!
managerClass
@@ -624,7 +619,6 @@
"Created: / 19-04-2011 / 12:46:52 / cg"
! !
-
!CVSSourceCodeManagementSettingsAppl methodsFor:'actions'!
addModule:module withData:data
@@ -735,7 +729,6 @@
"Modified (format): / 21-12-2011 / 14:25:29 / cg"
! !
-
!CVSSourceCodeManagementSettingsAppl methodsFor:'actions - cvs'!
addPerModuleRoot
@@ -819,7 +812,6 @@
self cvsLogin:perModuleRoot value.
! !
-
!CVSSourceCodeManagementSettingsAppl methodsFor:'aspects'!
cvsCommandTimeoutHolder
@@ -930,7 +922,6 @@
^ selectedPerModuleRoot.
! !
-
!CVSSourceCodeManagementSettingsAppl methodsFor:'change & update'!
selectedPerModuleRootChanged
@@ -984,14 +975,12 @@
self cvsLoginInModuleEnabled value:((perModuleRoot value ? '') startsWith:':pserver:').
! !
-
!CVSSourceCodeManagementSettingsAppl methodsFor:'help'!
helpFilename
^ 'Launcher/cvsSetup.html'
! !
-
!CVSSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -1016,7 +1005,6 @@
"Modified: / 14-01-2012 / 20:28:00 / cg"
! !
-
!CVSSourceCodeManagementSettingsAppl methodsFor:'queries'!
cvsRootFromCVSRootFileOrNil
@@ -1072,7 +1060,6 @@
"Modified: / 22-01-2012 / 11:25:53 / cg"
! !
-
!CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
@@ -1083,6 +1070,11 @@
^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.26 2012-10-15 18:46:00 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: CVSSourceCodeManagementSettingsAppl.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
--- a/ChangesBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/ChangesBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -104,7 +104,6 @@
"
! !
-
!ChangesBrowser class methodsFor:'instance creation'!
new
@@ -138,7 +137,6 @@
"Modified: / 18-07-2010 / 10:32:18 / cg"
! !
-
!ChangesBrowser class methodsFor:'behavior'!
autoSelectNext
@@ -148,7 +146,6 @@
^ true
! !
-
!ChangesBrowser class methodsFor:'defaults'!
defaultIcon
@@ -172,7 +169,6 @@
"Created: / 27.9.1999 / 12:28:27 / cg"
! !
-
!ChangesBrowser class methodsFor:'menu specs'!
flyByHelpSpec
@@ -755,7 +751,6 @@
)
! !
-
!ChangesBrowser class methodsFor:'private-changeFile access'!
readXMLChangesFrom:aStream inBackground:inBackground
@@ -794,7 +789,6 @@
^ set.
! !
-
!ChangesBrowser class methodsFor:'utilities'!
isXMLFile:aFilename
@@ -828,7 +822,6 @@
)
! !
-
!ChangesBrowser methodsFor:'aspects'!
applyInOriginalNameSpace
@@ -972,7 +965,6 @@
^ updateChangeSet
! !
-
!ChangesBrowser methodsFor:'compiler interface'!
wantChangeLog
@@ -982,7 +974,6 @@
^ false
! !
-
!ChangesBrowser methodsFor:'compiler interface-error handling'!
correctableError:aString position:relPos to:relEndPos from:aCompiler
@@ -1084,7 +1075,6 @@
^ self
! !
-
!ChangesBrowser methodsFor:'event handling'!
handlesKeyPress:key inView:view
@@ -1144,7 +1134,6 @@
"Modified: / 18.6.1998 / 22:15:36 / cg"
! !
-
!ChangesBrowser methodsFor:'help'!
showActivity:someMessage
@@ -1161,7 +1150,6 @@
"Modified: 23.4.1996 / 21:39:36 / cg"
! !
-
!ChangesBrowser methodsFor:'initialization & release'!
autoCompareChanged
@@ -1625,7 +1613,6 @@
"Modified: / 03-01-2012 / 15:23:13 / cg"
! !
-
!ChangesBrowser methodsFor:'menu actions'!
doApply
@@ -3010,7 +2997,6 @@
ToolApplicationModel openAboutSTX
! !
-
!ChangesBrowser methodsFor:'private'!
autoSelect:changeNr
@@ -3493,7 +3479,6 @@
self withSelectedChangesInOrder:nil do:aBlock
! !
-
!ChangesBrowser methodsFor:'private-change access'!
changeIsFollowupMethodChange:changeNr
@@ -4045,7 +4030,6 @@
^ aStream
! !
-
!ChangesBrowser methodsFor:'private-changeFile access'!
changeFileName:aFileName
@@ -4309,7 +4293,6 @@
"Modified: / 27-07-2012 / 09:46:00 / cg"
! !
-
!ChangesBrowser methodsFor:'private-user interaction ops'!
appendChange:changeNr toFile:aFileNameOrFileNameString
@@ -5487,7 +5470,6 @@
"Modified: / 05-03-2012 / 14:33:16 / cg"
! !
-
!ChangesBrowser methodsFor:'termination'!
askIfChangesAreToBeWrittenBack
@@ -5534,7 +5516,6 @@
"Modified: / 3.8.1998 / 19:54:00 / cg"
! !
-
!ChangesBrowser methodsFor:'user interaction'!
askForSearch:msg initialAnswer:initial thenSearchUsing:searchBlock2 onCancel:cancelBlock
@@ -5806,7 +5787,6 @@
"Created: / 03-01-2012 / 15:26:36 / cg"
! !
-
!ChangesBrowser::ChangeFileReader methodsFor:'accessing'!
autoCompare:something
@@ -5879,7 +5859,6 @@
"Modified: / 06-10-2006 / 11:18:49 / cg"
! !
-
!ChangesBrowser::ChangeFileReader methodsFor:'private'!
contractClass:className selector:selector to:maxLen
@@ -5949,7 +5928,6 @@
^ browser nameSpaceForApply
! !
-
!ChangesBrowser::ChangeFileReader methodsFor:'reading'!
addHeaderLineForChangeType:changeType changeString:changeString changeDelta:changeDelta timeStampInfo:timeStampInfo
@@ -6478,7 +6456,6 @@
"Modified: / 10-07-2010 / 10:58:08 / cg"
! !
-
!ChangesBrowser class methodsFor:'documentation'!
version
@@ -6489,6 +6466,11 @@
^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.433 2012-10-22 22:32:07 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: ChangesBrowser.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
--- a/ClassInspectorView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/ClassInspectorView.st Wed Feb 27 12:34:59 2013 +0000
@@ -9,9 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
"{ Package: 'stx:libtool' }"
InspectorView subclass:#ClassInspectorView
@@ -79,4 +76,10 @@
version
^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.11 2001/09/25 13:04:06 cg Exp $'
+!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
! !
+
--- a/ClassItemRoot.st Tue Feb 26 12:38:54 2013 +0000
+++ b/ClassItemRoot.st Wed Feb 27 12:34:59 2013 +0000
@@ -136,6 +136,12 @@
^ '$Id: ClassItemRoot.st 7854 2012-01-30 17:49:41Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: ClassItemRoot.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/CodeGenerator.st Tue Feb 26 12:38:54 2013 +0000
+++ b/CodeGenerator.st Wed Feb 27 12:34:59 2013 +0000
@@ -208,6 +208,12 @@
^ '§Header: /cvs/stx/stx/libtool/CodeGenerator.st,v 1.2 2011/07/03 13:41:45 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: CodeGenerator.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/CodeGeneratorTool.st Tue Feb 26 12:38:54 2013 +0000
+++ b/CodeGeneratorTool.st Wed Feb 27 12:34:59 2013 +0000
@@ -49,14 +49,12 @@
"
! !
-
!CodeGeneratorTool class methodsFor:'instance creation'!
new
^ self basicNew initialize.
! !
-
!CodeGeneratorTool class methodsFor:'code generation'!
createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly
@@ -227,7 +225,6 @@
"
! !
-
!CodeGeneratorTool class methodsFor:'code generation-basic'!
createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly lazyInitialization:lazyInitialization
@@ -237,7 +234,6 @@
createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly lazyInitialization:lazyInitialization
! !
-
!CodeGeneratorTool class methodsFor:'code generation-individual methods'!
createAcceptVisitorMethod:selector in:aClass
@@ -330,7 +326,6 @@
"Modified (comment): / 21-08-2012 / 11:55:15 / cg"
! !
-
!CodeGeneratorTool class methodsFor:'code generation-menus'!
createActionMethodFor:aSelector in:aClass category:aCategory redefine:redefine
@@ -341,7 +336,6 @@
self subclassResponsibility
! !
-
!CodeGeneratorTool class methodsFor:'compilation'!
compile:theCode forClass:aClass inCategory:cat
@@ -351,7 +345,6 @@
^ self new compile:theCode forClass:aClass inCategory:cat
! !
-
!CodeGeneratorTool class methodsFor:'defaults'!
copyrightTemplate
@@ -387,7 +380,6 @@
CopyrightTemplate := aString.
! !
-
!CodeGeneratorTool class methodsFor:'interface specs'!
initialMenuSpecForApplications
@@ -813,7 +805,6 @@
"Modified: / 07-05-2010 / 14:21:55 / cg"
! !
-
!CodeGeneratorTool class methodsFor:'private'!
canUseRefactoringSupport
@@ -828,7 +819,6 @@
self subclassResponsibility
! !
-
!CodeGeneratorTool class methodsFor:'utilities'!
missingRequiredProtocolFor:aClass
@@ -859,7 +849,6 @@
"Modified: / 08-08-2011 / 18:44:58 / cg"
! !
-
!CodeGeneratorTool methodsFor:'bulk changes'!
addChange:aChange
@@ -902,7 +891,6 @@
]
! !
-
!CodeGeneratorTool methodsFor:'code generation'!
createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly
@@ -1329,7 +1317,6 @@
self subclassResponsibility
! !
-
!CodeGeneratorTool methodsFor:'code generation-basic'!
createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly lazyInitialization:lazyInitialization
@@ -1348,7 +1335,6 @@
self subclassResponsibility
! !
-
!CodeGeneratorTool methodsFor:'code generation-individual methods'!
createAcceptVisitorMethod:selector in:aClass
@@ -1459,7 +1445,6 @@
self subclassResponsibility
! !
-
!CodeGeneratorTool methodsFor:'code templates'!
codeFor_classInitialize
@@ -1605,7 +1590,6 @@
self subclassResponsibility
! !
-
!CodeGeneratorTool methodsFor:'compilation'!
compile:theCode forClass:aClass inCategory:cat
@@ -1656,7 +1640,6 @@
"Modified (format): / 21-01-2012 / 10:40:59 / cg"
! !
-
!CodeGeneratorTool methodsFor:'initialization'!
confirmChanges
@@ -1680,7 +1663,6 @@
generateComments := userPreferences generateComments.
! !
-
!CodeGeneratorTool methodsFor:'private'!
canUseRefactoringSupport
@@ -1711,7 +1693,6 @@
].
! !
-
!CodeGeneratorTool class methodsFor:'documentation'!
version
@@ -1722,6 +1703,11 @@
^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.100 2012-10-15 20:17:19 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: CodeGeneratorTool.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
--- a/ContextInspectorView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/ContextInspectorView.st Wed Feb 27 12:34:59 2013 +0000
@@ -51,7 +51,6 @@
"
! !
-
!ContextInspectorView methodsFor:'accessing'!
inspect:aContext
@@ -370,7 +369,6 @@
"Modified: 14.12.1995 / 21:49:43 / cg"
! !
-
!ContextInspectorView methodsFor:'initialization'!
initialize
@@ -379,7 +377,6 @@
! !
-
!ContextInspectorView methodsFor:'menu'!
fieldMenu
@@ -460,7 +457,6 @@
"Modified: / 20-07-2012 / 10:51:12 / cg"
! !
-
!ContextInspectorView methodsFor:'private'!
defaultLabel
@@ -630,7 +626,6 @@
"Created: / 31.10.2001 / 09:17:45 / cg"
! !
-
!ContextInspectorView methodsFor:'user actions'!
doAccept:theText
@@ -674,7 +669,6 @@
inspectedContext at:selectionIndex put:newValue.
! !
-
!ContextInspectorView class methodsFor:'documentation'!
version
@@ -685,6 +679,11 @@
^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.79 2012-07-20 09:22:08 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: ContextInspectorView.st 8022 2012-07-25 09:51:30Z vranyj1 $'
! !
--- a/DataBaseSourceCodeManagementSettingsAppl.st Tue Feb 26 12:38:54 2013 +0000
+++ b/DataBaseSourceCodeManagementSettingsAppl.st Wed Feb 27 12:34:59 2013 +0000
@@ -41,7 +41,6 @@
"
! !
-
!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'defaults'!
defaultTableName
@@ -51,7 +50,6 @@
"Created: / 21-12-2011 / 23:43:04 / cg"
! !
-
!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
flyByHelpSpec
@@ -86,7 +84,6 @@
"Created: / 25-12-2011 / 13:46:07 / cg"
! !
-
!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -115,7 +112,6 @@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[219 185 65 198 168 74 219 190 79 243 243 243 247 247 247 212 188 103 224 198 109 222 200 122 234 215 144 254 223 141 240 223 165 253 234 173 253 237 183 241 231 193 188 151 42 211 174 48 191 161 59 254 242 210 208 176 66 242 239 229 220 189 76 242 242 242 245 245 245 255 255 255 222 198 111 244 220 117 237 216 141 255 233 149 254 227 155 250 228 170 196 152 26 252 239 190 253 238 192 212 212 212 249 242 210 207 171 55 211 178 65 225 194 72 230 197 74 255 251 236 250 248 244 231 203 98 246 219 105 245 221 117 227 210 143 241 216 146 253 228 154 249 232 171 253 237 182 174 139 37 239 228 192 202 168 50 209 174 52 210 173 51 214 179 60 222 188 68 210 174 70 224 193 81 208 180 89 254 254 254 225 200 105 232 208 118 220 202 138 252 229 143 252 235 160 205 200 181 186 147 30 202 156 27 251 235 189 255 244 201 216 216 216 233 228 211 193 161 65 207 177 72 230 197 73 252 249 237 252 251 244 208 183 100 213 188 101 231 202 112 206 189 131 252 230 145 254 225 148 254 228 160 254 233 176 187 149 35 198 153 27 211 211 211 215 215 215 248 241 209 225 225 225 223 192 70 231 231 231 231 201 81 225 195 86 253 253 253 219 192 114 251 228 125 243 221 145 253 226 149 247 229 168 252 236 180 201 155 26 253 243 195 255 240 196 255 239 199 217 217 217 220 185 61 254 249 224 223 188 69 232 203 81 244 244 244 252 252 252 211 183 100 236 208 111 227 205 125 252 230 144 253 226 148 236 222 171 197 156 25 202 156 26 190 149 32 187 154 48 197 165 54 203 172 59 215 179 59 224 224 224 228 196 72 236 236 236 210 184 89 249 249 249 250 223 100 251 225 111 217 194 122 233 215 148 246 222 149 253 230 161 186 145 25 200 158 27 251 236 189 209 209 209 205 168 48 218 218 218 208 177 64 0 0 0 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@O0@@?<@A?>@A??@A??@A??@A??@A??@A??@C??@C??@O??@G??@C??@@??@D_>@C>@@A<@@@@@@') ; yourself); yourself]
! !
-
!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -350,7 +346,6 @@
)
! !
-
!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'queries'!
managerClass
@@ -361,7 +356,6 @@
"Created: / 19-04-2011 / 12:46:52 / cg"
! !
-
!DataBaseSourceCodeManagementSettingsAppl methodsFor:'actions'!
addModule:module withData:data
@@ -468,7 +462,6 @@
"Created: / 21-12-2011 / 14:26:08 / cg"
! !
-
!DataBaseSourceCodeManagementSettingsAppl methodsFor:'aspects'!
dbNameHolder
@@ -527,7 +520,6 @@
"Created: / 25-12-2011 / 13:15:10 / cg"
! !
-
!DataBaseSourceCodeManagementSettingsAppl methodsFor:'change & update'!
selectedPerModuleDatabaseChanged
@@ -624,7 +616,6 @@
"Created: / 21-12-2011 / 14:43:11 / cg"
! !
-
!DataBaseSourceCodeManagementSettingsAppl methodsFor:'help'!
helpFilename
@@ -633,7 +624,6 @@
"Modified: / 12-01-2012 / 14:03:04 / cg"
! !
-
!DataBaseSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -654,7 +644,6 @@
"Modified: / 25-12-2011 / 13:23:44 / cg"
! !
-
!DataBaseSourceCodeManagementSettingsAppl methodsFor:'queries'!
cvsRootFromCVSRootFileOrNil
@@ -694,7 +683,6 @@
"Modified: / 10-01-2012 / 00:31:19 / cg"
! !
-
!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
@@ -705,6 +693,11 @@
^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.14 2012-03-16 11:17:07 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: DataBaseSourceCodeManagementSettingsAppl.st 7952 2012-03-21 17:50:14Z vranyj1 $'
! !
--- a/DebugView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/DebugView.st Wed Feb 27 12:34:59 2013 +0000
@@ -122,7 +122,6 @@
"
! !
-
!DebugView class methodsFor:'initialization'!
initialize
@@ -141,7 +140,6 @@
self newDebugger
! !
-
!DebugView class methodsFor:'cleanup'!
lowSpaceCleanup
@@ -175,7 +173,6 @@
"
! !
-
!DebugView class methodsFor:'defaults'!
defaultIcon
@@ -219,7 +216,6 @@
"Modified: / 17.11.2001 / 17:31:42 / cg"
! !
-
!DebugView class methodsFor:'ignoring halts'!
haltIgnoreInformationFor:haltingMethod atLineNr:lineNrInHaltingMethod
@@ -360,7 +356,6 @@
Smalltalk changed:#ignoredHalts.
! !
-
!DebugView class methodsFor:'instance creation / entering'!
enter
@@ -624,7 +619,6 @@
"Modified: 4.4.1997 / 16:22:36 / cg"
! !
-
!DebugView class methodsFor:'menu specs'!
menuSpec
@@ -1129,7 +1123,6 @@
)
! !
-
!DebugView class methodsFor:'misc'!
interestingContextFrom:aContext
@@ -1389,7 +1382,6 @@
"Modified: / 08-07-2011 / 13:15:49 / cg"
! !
-
!DebugView methodsFor:'basic'!
enableDisableActions
@@ -2163,7 +2155,6 @@
"Created: / 16.11.2001 / 17:36:18 / cg"
! !
-
!DebugView methodsFor:'help'!
flyByHelpDependsOnPositionIn:aView
@@ -2361,7 +2352,6 @@
"Modified: 4.3.1997 / 01:54:03 / cg"
! !
-
!DebugView methodsFor:'initialization & release'!
addToCurrentProject
@@ -3040,7 +3030,6 @@
"Modified: / 06-07-2006 / 12:43:19 / cg"
! !
-
!DebugView methodsFor:'interrupt handling'!
contextInterrupt
@@ -3700,7 +3689,6 @@
"Modified: / 20-07-2012 / 15:26:26 / cg"
! !
-
!DebugView methodsFor:'menu & button actions'!
addBrowserBookmark
@@ -5103,7 +5091,6 @@
"Modified: / 19-07-2012 / 11:53:30 / cg"
! !
-
!DebugView methodsFor:'menu & button actions-breakpoints'!
addBreakpoint
@@ -5338,7 +5325,6 @@
self class stopIgnoringHalts
! !
-
!DebugView methodsFor:'private'!
abortAllIsHandled
@@ -5791,7 +5777,6 @@
"Modified: / 18-01-2011 / 17:57:34 / cg"
! !
-
!DebugView methodsFor:'private queries'!
canBrowseClassHierarchy
@@ -5915,7 +5900,6 @@
setOfHiddenCallingSelectors := aCollectionOfSymbols
! !
-
!DebugView methodsFor:'private-breakpoints'!
addIgnoredHaltForCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey forAll:aBoolean
@@ -5997,7 +5981,6 @@
"Created: / 17.11.2001 / 18:20:16 / cg"
! !
-
!DebugView methodsFor:'private-cache handling'!
cacheMyself
@@ -6068,7 +6051,6 @@
"Modified: 31.7.1997 / 21:20:11 / cg"
! !
-
!DebugView methodsFor:'private-code view'!
codeAspect
@@ -6078,7 +6060,6 @@
"Modified: / 27-07-2012 / 22:20:27 / cg"
! !
-
!DebugView methodsFor:'private-context handling'!
contextListEntryFor:aContext
@@ -6853,7 +6834,6 @@
"Modified: / 27-07-2012 / 17:26:54 / cg"
! !
-
!DebugView methodsFor:'private-control loop'!
controlLoop
@@ -7063,7 +7043,6 @@
"Modified: / 26-09-2012 / 15:03:39 / cg"
! !
-
!DebugView methodsFor:'user interaction'!
checkIfCodeIsReallyModified
@@ -7915,7 +7894,6 @@
"Modified: / 23-07-2012 / 12:23:49 / cg"
! !
-
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'accessing'!
ignoreCount:something
@@ -7932,7 +7910,6 @@
"Created: / 27-01-2012 / 11:35:23 / cg"
! !
-
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'misc'!
decrementIgnoreCount
@@ -7943,7 +7920,6 @@
]
! !
-
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'!
printConditionOn:aStream
@@ -7971,7 +7947,6 @@
"Created: / 06-03-2012 / 12:41:10 / cg"
! !
-
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'queries'!
haltIgnoredInfoString
@@ -8048,7 +8023,6 @@
"Modified: / 27-01-2012 / 11:36:01 / cg"
! !
-
!DebugView::IgnoredHalt methodsFor:'accessing'!
method
@@ -8084,7 +8058,6 @@
"Modified: / 08-05-2011 / 10:28:41 / cg"
! !
-
!DebugView::IgnoredHalt methodsFor:'printing'!
printOn:aStream
@@ -8106,7 +8079,6 @@
"Modified: / 27-07-2012 / 23:04:42 / cg"
! !
-
!DebugView::IgnoredHalt methodsFor:'queries'!
isActive
@@ -8136,7 +8108,6 @@
^ self isHaltIgnored
! !
-
!DebugView::IgnoredBreakpoint methodsFor:'accessing'!
parameter
@@ -8147,7 +8118,6 @@
parameter := something.
! !
-
!DebugView::IgnoredBreakpoint methodsFor:'printing'!
printOn:aStream
@@ -8157,7 +8127,6 @@
"Created: / 06-03-2012 / 12:42:10 / cg"
! !
-
!DebugView::IgnoredBreakpoint methodsFor:'queries'!
isForBreakpointWithParameter
@@ -8172,7 +8141,6 @@
"Created: / 06-03-2012 / 14:36:21 / cg"
! !
-
!DebugView class methodsFor:'documentation'!
version
@@ -8183,6 +8151,11 @@
^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.571 2013-01-24 15:23:31 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §'
! !
--- a/DictionaryInspectorView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/DictionaryInspectorView.st Wed Feb 27 12:34:59 2013 +0000
@@ -44,7 +44,6 @@
"
! !
-
!DictionaryInspectorView methodsFor:'event handling'!
keyPress:key x:x y:y
@@ -64,7 +63,6 @@
super keyPress:key x:x y:y
! !
-
!DictionaryInspectorView methodsFor:'initialization & release'!
initialize
@@ -80,7 +78,6 @@
hideNilValues := false.
! !
-
!DictionaryInspectorView methodsFor:'menu'!
fieldMenu
@@ -239,7 +236,6 @@
"Modified: / 26-09-2012 / 13:20:59 / cg"
! !
-
!DictionaryInspectorView methodsFor:'menu actions'!
browse
@@ -385,7 +381,6 @@
]
! !
-
!DictionaryInspectorView methodsFor:'private'!
allNumericKeys
@@ -647,7 +642,6 @@
].
! !
-
!DictionaryInspectorView methodsFor:'user interaction'!
indexedValueAtIndex:idx
@@ -665,7 +659,6 @@
inspectedObject at:key put:newValue.
! !
-
!DictionaryInspectorView class methodsFor:'documentation'!
version
@@ -676,6 +669,11 @@
^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.78 2013-01-17 10:48:34 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: DictionaryInspectorView.st 8059 2012-09-27 20:08:20Z vranyj1 $'
! !
--- a/Diff.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Diff.st Wed Feb 27 12:34:59 2013 +0000
@@ -257,7 +257,6 @@
"
! !
-
!Diff class methodsFor:'instance creation'!
new
@@ -266,7 +265,6 @@
^ self basicNew initialize.
! !
-
!Diff class methodsFor:'diffing'!
between: a and: b
@@ -285,7 +283,6 @@
"Created: / 16-02-2010 / 23:04:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!Diff methodsFor:'diffing'!
a:gA b:gB
@@ -379,7 +376,6 @@
"Modified: / 12-02-2010 / 13:57:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!Diff methodsFor:'initialization'!
initialize
@@ -399,7 +395,6 @@
"Modified: / 16-02-2010 / 22:51:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!Diff methodsFor:'private'!
compareseq:gXoff xlim:gXlim yoff:gYoff ylim:gYlim
@@ -698,7 +693,6 @@
second shiftBoundaries:first.
! !
-
!Diff::Change class methodsFor:'documentation'!
documentation
@@ -716,7 +710,6 @@
"
! !
-
!Diff::Change methodsFor:'accessing'!
deleted
@@ -739,7 +732,6 @@
^ line1
! !
-
!Diff::Change methodsFor:'enumerating'!
do: aBlock
@@ -753,7 +745,6 @@
"Created: / 16-02-2010 / 22:53:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!Diff::Change methodsFor:'instance creation'!
newLine0:aLine0 line1:aLine1 deleted:aDeleted inserted:aInserted next: nextChange
@@ -774,7 +765,6 @@
"Modified: / 12-02-2010 / 13:42:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!Diff::Data methodsFor:'accessing'!
bufferedLines
@@ -797,7 +787,6 @@
^ undiscarded
! !
-
!Diff::Data methodsFor:'default'!
clear
@@ -1184,7 +1173,6 @@
].
! !
-
!Diff::ForwardScript methodsFor:'default'!
buildScript:aChanged0 length0:aLen0 changed1:aChanged1 length1:aLen1
@@ -1218,7 +1206,6 @@
"Modified: / 16-02-2010 / 22:49:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!Diff::ReverseScript methodsFor:'default'!
buildScript:aChanged0 length0:aLen0 changed1:aChanged1 length1:aLen1
@@ -1252,13 +1239,17 @@
"Modified: / 12-02-2010 / 14:15:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!Diff class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Diff.st,v 1.3 2012-07-27 20:14:58 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Diff.st 7567 2010-04-17 10:59:53Z vranyj1 §'
! !
--- a/Diff2.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Diff2.st Wed Feb 27 12:34:59 2013 +0000
@@ -825,6 +825,12 @@
!Diff2 class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Diff2.st 7973 2012-04-06 15:56:16Z vranyj1 $'
! !
+
--- a/Diff3.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Diff3.st Wed Feb 27 12:34:59 2013 +0000
@@ -821,6 +821,12 @@
!Diff3 class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Diff3.st 7975 2012-04-09 18:34:24Z vranyj1 $'
! !
+
--- a/Diff3ExclusiveVisitor.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Diff3ExclusiveVisitor.st Wed Feb 27 12:34:59 2013 +0000
@@ -110,6 +110,12 @@
!Diff3ExclusiveVisitor class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Diff3ExclusiveVisitor.st 7927 2012-03-16 19:30:50Z vranyj1 $'
! !
+
--- a/Diff3Hunk.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Diff3Hunk.st Wed Feb 27 12:34:59 2013 +0000
@@ -152,6 +152,12 @@
!Diff3Hunk class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Diff3Hunk.st 7948 2012-03-21 01:52:35Z vranyj1 $'
! !
+
--- a/Diff3InclusiveVisitor.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Diff3InclusiveVisitor.st Wed Feb 27 12:34:59 2013 +0000
@@ -143,6 +143,12 @@
!Diff3InclusiveVisitor class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Diff3InclusiveVisitor.st 7927 2012-03-16 19:30:50Z vranyj1 $'
! !
+
--- a/DiffCodeView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/DiffCodeView.st Wed Feb 27 12:34:59 2013 +0000
@@ -62,6 +62,12 @@
^ '$Id: DiffCodeView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: DiffCodeView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/DiffListUtility.st Tue Feb 26 12:38:54 2013 +0000
+++ b/DiffListUtility.st Wed Feb 27 12:34:59 2013 +0000
@@ -51,7 +51,6 @@
"
! !
-
!DiffListUtility class methodsFor:'defaults'!
diffCommand
@@ -69,7 +68,6 @@
DiffCommandTemplate := aCommandTemplateString
! !
-
!DiffListUtility class methodsFor:'private'!
saveForDiff:text as:filename
@@ -116,7 +114,6 @@
"Modified: / 22-10-2008 / 17:52:52 / cg"
! !
-
!DiffListUtility class methodsFor:'utilities'!
diffListFor:text1 and:text2
@@ -207,7 +204,6 @@
"
! !
-
!DiffListUtility class methodsFor:'documentation'!
version
@@ -218,6 +214,11 @@
^ '$Header: /cvs/stx/stx/libtool/DiffListUtility.st,v 1.6 2013-02-01 15:13:18 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: DiffListUtility.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
--- a/DiffTextView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/DiffTextView.st Wed Feb 27 12:34:59 2013 +0000
@@ -100,7 +100,6 @@
"
! !
-
!DiffTextView class methodsFor:'instance creation'!
openOnClass:classA labelA:lblA andClass:classB labelB:lblB title:title ifSame:sameAction
@@ -161,7 +160,6 @@
^ v
! !
-
!DiffTextView class methodsFor:'defaults'!
diffCommand
@@ -178,7 +176,6 @@
DiffListUtility diffCommandTemplate:aCommandTemplateString
! !
-
!DiffTextView methodsFor:'accessing'!
text1:t1 text2:t2
@@ -229,7 +226,6 @@
"Modified: / 27-03-2007 / 12:06:46 / cg"
! !
-
!DiffTextView methodsFor:'initialization'!
addNextPreviousButtons
@@ -273,7 +269,6 @@
"Modified: 14.6.1996 / 16:14:39 / cg"
! !
-
!DiffTextView methodsFor:'private'!
diffListFor:text1 and:text2
@@ -585,7 +580,6 @@
textView2 list:lists second.
! !
-
!DiffTextView class methodsFor:'documentation'!
version
@@ -596,6 +590,11 @@
^ '$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.57 2013-02-01 15:13:02 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: DiffTextView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
--- a/DirectoryContentsBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/DirectoryContentsBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -72,7 +72,6 @@
"
! !
-
!DirectoryContentsBrowser class methodsFor:'instance creation'!
openIn:aDirectory
@@ -103,7 +102,6 @@
"
! !
-
!DirectoryContentsBrowser class methodsFor:'classAccess'!
itemClass
@@ -116,7 +114,6 @@
"
! !
-
!DirectoryContentsBrowser class methodsFor:'constant'!
updateTaskCyleTime
@@ -134,7 +131,6 @@
^ 8
! !
-
!DirectoryContentsBrowser class methodsFor:'image specs'!
detailsMenuIconDown
@@ -169,7 +165,6 @@
^ DataSetLabel sortIndicator
! !
-
!DirectoryContentsBrowser class methodsFor:'interface specs'!
tableColumns
@@ -471,7 +466,6 @@
)
! !
-
!DirectoryContentsBrowser class methodsFor:'menu specs'!
directoryContentsBrowserMenu
@@ -850,7 +844,6 @@
)
! !
-
!DirectoryContentsBrowser methodsFor:'accessing'!
allItems
@@ -1058,7 +1051,6 @@
^ updateContentsSelection
! !
-
!DirectoryContentsBrowser methodsFor:'actions'!
browserItemListAdd:addItemCol remove:remItemCol
@@ -1260,7 +1252,6 @@
self startDiskUsageInfoProcess.
! !
-
!DirectoryContentsBrowser methodsFor:'aspects'!
browserItemList
@@ -1327,7 +1318,6 @@
^ self viewTime
! !
-
!DirectoryContentsBrowser methodsFor:'aspects-visibility'!
colVisibilityAspectFor:aKey ifAbsent:absentBlock
@@ -1425,7 +1415,6 @@
^ self colVisibilityAspectFor:#viewType ifAbsent:[ false asValue ].
! !
-
!DirectoryContentsBrowser methodsFor:'change & update'!
currentFileNameHolderChanged
@@ -1642,7 +1631,6 @@
"Modified: / 27-03-2007 / 08:46:28 / cg"
! !
-
!DirectoryContentsBrowser methodsFor:'drag & drop'!
doStartDrag:aDropSource in:aView
@@ -1777,7 +1765,6 @@
)
! !
-
!DirectoryContentsBrowser methodsFor:'event handling'!
processEvent:anEvent
@@ -1849,7 +1836,6 @@
"Modified: / 25-07-2006 / 09:08:16 / cg"
! !
-
!DirectoryContentsBrowser methodsFor:'initialization'!
initialize
@@ -1867,7 +1853,6 @@
"Modified: / 07-01-2012 / 16:34:25 / cg"
! !
-
!DirectoryContentsBrowser methodsFor:'menu accessing'!
viewBrowserMenu
@@ -1887,7 +1872,6 @@
^ menu
! !
-
!DirectoryContentsBrowser methodsFor:'menu actions'!
doShowFileContents
@@ -1910,7 +1894,6 @@
].
! !
-
!DirectoryContentsBrowser methodsFor:'queries'!
allItemsOfCurrentDirectory
@@ -1939,7 +1922,6 @@
^ self allItems size ~~ browserItemList size
! !
-
!DirectoryContentsBrowser methodsFor:'selection'!
selectAll
@@ -2048,7 +2030,6 @@
^ selection.
! !
-
!DirectoryContentsBrowser methodsFor:'startup & release'!
makeDependent
@@ -2099,7 +2080,6 @@
^ super releaseAsSubCanvas.
! !
-
!DirectoryContentsBrowser methodsFor:'update columns cycle'!
findNextItemFor:aConditionBlock
@@ -2372,7 +2352,6 @@
"Modified: / 20-03-2012 / 13:05:28 / cg"
! !
-
!DirectoryContentsBrowser methodsFor:'update task'!
createItemList
@@ -2731,7 +2710,6 @@
"Modified: / 20-03-2012 / 13:07:22 / cg"
! !
-
!DirectoryContentsBrowser methodsFor:'update task trigger'!
wakeUp
@@ -2773,7 +2751,6 @@
self wakeUp.
! !
-
!DirectoryContentsBrowser methodsFor:'update task-disk usage'!
diskUsageInKiloBytesFor:aDirectory
@@ -2919,7 +2896,6 @@
] fork.
! !
-
!DirectoryContentsBrowser::DirectoryContentsItem class methodsFor:'instance creation'!
fileName:aFilename
@@ -2952,7 +2928,6 @@
^ instance
! !
-
!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'accessing'!
fileInfo:something
@@ -3143,7 +3118,6 @@
! !
-
!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'actions'!
resetImageFile
@@ -3168,7 +3142,6 @@
mimeType := nil.
! !
-
!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'change queries'!
hasBeenModified
@@ -3198,7 +3171,6 @@
^ false
! !
-
!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'comparing'!
= anItem
@@ -3213,7 +3185,6 @@
^ fileName hash
! !
-
!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'presentation'!
baseName
@@ -3418,7 +3389,6 @@
^ modTime printStringFormat:format.
! !
-
!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'printing'!
printOn:aStream
@@ -3429,7 +3399,6 @@
nextPut:$].
! !
-
!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'private'!
getFileInfo
@@ -3443,7 +3412,6 @@
^ fileInfo
! !
-
!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'queries'!
beRemoteDirectory
@@ -3478,7 +3446,6 @@
^ mimeTypeForContents
! !
-
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
@@ -3489,6 +3456,11 @@
^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.253 2013-01-29 10:49:08 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: DirectoryContentsBrowser.st 8086 2013-01-15 12:03:21Z vranyj1 $'
! !
--- a/DirectoryDifferenceViewApplication.st Tue Feb 26 12:38:54 2013 +0000
+++ b/DirectoryDifferenceViewApplication.st Wed Feb 27 12:34:59 2013 +0000
@@ -38,7 +38,6 @@
"
! !
-
!DirectoryDifferenceViewApplication class methodsFor:'help specs'!
flyByHelpSpec
@@ -73,7 +72,6 @@
"Modified: / 13-01-2012 / 14:41:36 / cg"
! !
-
!DirectoryDifferenceViewApplication class methodsFor:'interface specs'!
windowSpec
@@ -251,7 +249,6 @@
"Modified: / 13-01-2012 / 14:41:56 / cg"
! !
-
!DirectoryDifferenceViewApplication class methodsFor:'menu specs'!
searchMenu
@@ -303,7 +300,6 @@
)
! !
-
!DirectoryDifferenceViewApplication class methodsFor:'tableColumns specs'!
searchResultTable
@@ -344,7 +340,6 @@
! !
-
!DirectoryDifferenceViewApplication methodsFor:'accessing'!
directory1:directory1Arg directory2:directory2Arg
@@ -377,7 +372,6 @@
"Created: / 12-01-2012 / 01:37:41 / cg"
! !
-
!DirectoryDifferenceViewApplication methodsFor:'actions'!
fileSelected:entries
@@ -402,7 +396,6 @@
"Created: / 12-01-2012 / 03:21:52 / cg"
! !
-
!DirectoryDifferenceViewApplication methodsFor:'aspects'!
excludedNamePatternHolder
@@ -424,7 +417,6 @@
"Created: / 13-01-2012 / 14:37:28 / cg"
! !
-
!DirectoryDifferenceViewApplication methodsFor:'comparing'!
doSearch
@@ -536,7 +528,6 @@
"Created: / 12-01-2012 / 01:07:20 / cg"
! !
-
!DirectoryDifferenceViewApplication methodsFor:'startup & release'!
postOpenWith:aBuilder
@@ -546,7 +537,6 @@
"Created: / 12-01-2012 / 01:41:18 / cg"
! !
-
!DirectoryDifferenceViewApplication class methodsFor:'documentation'!
version
@@ -557,6 +547,11 @@
^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.5 2012-06-06 09:46:59 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: DirectoryDifferenceViewApplication.st 8018 2012-07-18 17:00:57Z vranyj1 $'
! !
--- a/DirectoryTreeBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/DirectoryTreeBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -66,7 +66,6 @@
"
! !
-
!DirectoryTreeBrowser class methodsFor:'instance creation'!
open
@@ -105,7 +104,6 @@
"
! !
-
!DirectoryTreeBrowser class methodsFor:'defaults'!
timeForExpandOnDropInMilliseconds
@@ -113,7 +111,6 @@
^ 1500
! !
-
!DirectoryTreeBrowser class methodsFor:'interface specs'!
windowSpec
@@ -182,7 +179,6 @@
)
! !
-
!DirectoryTreeBrowser class methodsFor:'menu specs'!
menu
@@ -403,7 +399,6 @@
)
! !
-
!DirectoryTreeBrowser class methodsFor:'plugIn spec'!
aspectSelectors
@@ -426,7 +421,6 @@
).
! !
-
!DirectoryTreeBrowser methodsFor:'accessing'!
allowRenameOnOneClick
@@ -459,7 +453,6 @@
^ updateTreeSelection
! !
-
!DirectoryTreeBrowser methodsFor:'actions'!
doDoubleClick:anIndex
@@ -715,7 +708,6 @@
]
! !
-
!DirectoryTreeBrowser methodsFor:'aspects'!
allowFileOperations
@@ -809,7 +801,6 @@
^ treeSelectionHolder
! !
-
!DirectoryTreeBrowser methodsFor:'change & update'!
changeMatchBlock
@@ -928,7 +919,6 @@
^ self
! !
-
!DirectoryTreeBrowser methodsFor:'drag & drop'!
dropDestinationPath
@@ -1055,7 +1045,6 @@
afterMilliseconds:(self class timeForExpandOnDropInMilliseconds).
! !
-
!DirectoryTreeBrowser methodsFor:'event handling'!
processEvent:anEvent
@@ -1117,7 +1106,6 @@
^ false
! !
-
!DirectoryTreeBrowser methodsFor:'queries'!
hasOpenEditor
@@ -1147,7 +1135,6 @@
"/ ^ false
! !
-
!DirectoryTreeBrowser methodsFor:'selection'!
firstSelectedDirectory
@@ -1271,7 +1258,6 @@
^ Array with:selection. "Wrap single value into Array"
! !
-
!DirectoryTreeBrowser methodsFor:'startup & release'!
makeDependent
@@ -1374,7 +1360,6 @@
^ super release.
! !
-
!DirectoryTreeBrowser::DirTreeBrowserHFL methodsFor:'accessing'!
draggedItem
@@ -1387,7 +1372,6 @@
draggedItem := anItemOrNil.
! !
-
!DirectoryTreeBrowser::DirTreeBrowserHFL methodsFor:'protocol'!
grayDirectoryIcon
@@ -1408,7 +1392,6 @@
^ super iconFor:anItem.
! !
-
!DirectoryTreeBrowser class methodsFor:'documentation'!
version
@@ -1419,6 +1402,11 @@
^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.122 2013-01-17 11:16:54 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: DirectoryTreeBrowser.st 8018 2012-07-18 17:00:57Z vranyj1 $'
! !
--- a/EditFieldWithCompletion.st Tue Feb 26 12:38:54 2013 +0000
+++ b/EditFieldWithCompletion.st Wed Feb 27 12:34:59 2013 +0000
@@ -82,7 +82,6 @@
"
! !
-
!EditFieldWithCompletion methodsFor:'accepting'!
accept
@@ -94,7 +93,6 @@
"Modified: / 12-02-2010 / 11:56:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!EditFieldWithCompletion methodsFor:'accessing-behavior'!
showOptions
@@ -105,7 +103,6 @@
showOptions := aBoolean.
! !
-
!EditFieldWithCompletion methodsFor:'accessing-dimensions'!
absoluteLeft
@@ -134,7 +131,6 @@
"Created: / 08-08-2009 / 22:30:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!EditFieldWithCompletion methodsFor:'accessing-mvc'!
optionsHolder
@@ -152,7 +148,6 @@
"Created: / 09-08-2009 / 08:14:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!EditFieldWithCompletion methodsFor:'event handling'!
completion:best options:options
@@ -278,7 +273,6 @@
"Created: / 09-12-2010 / 21:32:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!EditFieldWithCompletion methodsFor:'initialization & release'!
destroy
@@ -305,7 +299,6 @@
"Modified: / 03-08-2011 / 17:50:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!EditFieldWithCompletion methodsFor:'private'!
doCompletion
@@ -413,13 +406,17 @@
"Modified (format): / 03-08-2011 / 17:50:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!EditFieldWithCompletion class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/EditFieldWithCompletion.st,v 1.6 2013-01-17 10:47:17 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: EditFieldWithCompletion.st 7662 2010-12-09 21:05:19Z vranyj1 §'
! !
--- a/EditFieldWithCompletionSpec.st Tue Feb 26 12:38:54 2013 +0000
+++ b/EditFieldWithCompletionSpec.st Wed Feb 27 12:34:59 2013 +0000
@@ -71,6 +71,12 @@
^ '§Header: /cvs/stx/stx/libtool/EditFieldWithCompletionSpec.st,v 1.1 2011/07/01 13:30:32 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: EditFieldWithCompletionSpec.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/FileApplicationNoteBook.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FileApplicationNoteBook.st Wed Feb 27 12:34:59 2013 +0000
@@ -125,7 +125,6 @@
"
! !
-
!FileApplicationNoteBook class methodsFor:'application list'!
applicationList
@@ -178,7 +177,6 @@
^ aApplicationListItem at:2
! !
-
!FileApplicationNoteBook class methodsFor:'classAccess'!
textEditorClass
@@ -186,7 +184,6 @@
^ TextEditor
! !
-
!FileApplicationNoteBook class methodsFor:'defaults'!
openAnotherApplicationOnSameItem
@@ -194,7 +191,6 @@
^ false
! !
-
!FileApplicationNoteBook class methodsFor:'interface specs'!
windowSpec
@@ -242,7 +238,6 @@
)
! !
-
!FileApplicationNoteBook class methodsFor:'menu specs'!
tabMenu
@@ -311,7 +306,6 @@
"Modified: / 27-03-2007 / 11:13:52 / cg"
! !
-
!FileApplicationNoteBook methodsFor:'accessing'!
listOfApplications
@@ -336,7 +330,6 @@
selectionHistoryList := aCol
! !
-
!FileApplicationNoteBook methodsFor:'accessing-applications'!
getAllApplicationsByClass:aClass andType:aType
@@ -378,7 +371,6 @@
].
! !
-
!FileApplicationNoteBook methodsFor:'actions-app-common'!
changeItem:anItem for:anAppl
@@ -753,7 +745,6 @@
"Modified (format): / 29-11-2011 / 19:07:57 / cg"
! !
-
!FileApplicationNoteBook methodsFor:'actions-app-spec'!
addTerminalIn:aDirectory
@@ -892,14 +883,12 @@
preSetItem:[:aTextEditor | aTextEditor presentation:#hexDump].
! !
-
!FileApplicationNoteBook methodsFor:'applicationlist access'!
applicationList
^ self class applicationList
! !
-
!FileApplicationNoteBook methodsFor:'aspects'!
canvasHolder
@@ -1025,7 +1014,6 @@
tabList := aValue.
! !
-
!FileApplicationNoteBook methodsFor:'change & update'!
canvasChanged
@@ -1113,7 +1101,6 @@
^ self.
! !
-
!FileApplicationNoteBook methodsFor:'menu & actions'!
destroyTabAt:idx
@@ -1137,7 +1124,6 @@
"Modified: / 27-03-2007 / 10:57:25 / cg"
! !
-
!FileApplicationNoteBook methodsFor:'queries'!
getSameFilesModifiedFor:aAppl
@@ -1156,7 +1142,6 @@
^ colOfChanged
! !
-
!FileApplicationNoteBook methodsFor:'selection'!
currentTabMenusApplication
@@ -1194,7 +1179,6 @@
^ canvas application.
! !
-
!FileApplicationNoteBook methodsFor:'startup & release'!
closeRequest
@@ -1244,7 +1228,6 @@
^ true
! !
-
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'defaults'!
tabStringFor:aApplicationType
@@ -1255,7 +1238,6 @@
"Modified: / 01-03-2007 / 21:43:13 / cg"
! !
-
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'help specs'!
flyByHelpSpec
@@ -1318,7 +1300,6 @@
)
! !
-
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'image specs'!
extract28x28Icon
@@ -1400,7 +1381,6 @@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 8 4 8 105 133 190 121 133 157 129 129 129 194 194 194 255 0 0]; mask:((Depth1Image new) width: 28; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@LC@@@A!! @@@L0@@@A8@@@@L@@@@G @@@CL@@@A!! @@@0L@@@@@@@BY=5LAIUUT S5UU8D!!UUPAFU\#@@@@@@@LR9@@D)J @A:R(@@P$*@@CIN @@@@@@@@@a') ; yourself); yourself]
! !
-
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'interface specs'!
windowSpec
@@ -1498,7 +1478,6 @@
)
! !
-
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'menu specs'!
fileListMenu
@@ -1636,7 +1615,6 @@
"Modified: / 12-01-2012 / 00:34:06 / cg"
! !
-
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'queries'!
canOpenItem:anItem
@@ -1667,7 +1645,6 @@
^ false
! !
-
!FileApplicationNoteBook::ArchiveViewApplication class methodsFor:'tableColumns specs'!
tableColumns
@@ -1829,7 +1806,6 @@
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'accessing'!
archiver
@@ -1896,7 +1872,6 @@
^ temporaryDirectory
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'actions'!
changeItem:anItem
@@ -2007,7 +1982,6 @@
].
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'aspects'!
archiveFileList
@@ -2085,7 +2059,6 @@
^ viewErrorList
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -2105,7 +2078,6 @@
self errorListVisibilityHolder value:viewListValue.
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'command execution'!
getErrorBlock
@@ -2223,7 +2195,6 @@
].
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'command helper'!
selectDirectoryDialog
@@ -2286,7 +2257,6 @@
^ dir
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands add'!
addFilesToArchive:colOfFiles
@@ -2312,7 +2282,6 @@
^ true
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract'!
extractAll
@@ -2349,7 +2318,6 @@
"/ self updateFileBrowserIfPresentWith:dir.
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract private'!
extractAllTo:aDirectory
@@ -2433,7 +2401,6 @@
"Modified (format): / 29-11-2011 / 18:58:01 / cg"
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands list'!
listAllFiles
@@ -2458,7 +2425,6 @@
]
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands remove'!
removeFilesFromArchive
@@ -2488,7 +2454,6 @@
self archiveFileList value removeAllFoundIn:realSel
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'drag & drop'!
canDrop:aContext
@@ -2568,7 +2533,6 @@
^ sel collect:[:el| DropObject newFileInArchive:(el fileName asFilename) ].
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'event handling'!
processEvent:anEvent
@@ -2593,7 +2557,6 @@
^ false
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'initialization & release'!
postBuildFileTable:aWidget
@@ -2640,7 +2603,6 @@
^ super release.
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'queries'!
canDelete
@@ -2688,7 +2650,6 @@
^ newSel.
! !
-
!FileApplicationNoteBook::ArchiveViewApplication methodsFor:'sorting'!
generateSortBlock:instanceName
@@ -2750,7 +2711,6 @@
fileList addAll:sortCol.
! !
-
!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'accessing'!
compressSize
@@ -3003,14 +2963,12 @@
self year:(Integer readFrom:yearString)
! !
-
!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'printing'!
printOn:aStream
aStream nextPutAll:self fileName asString
! !
-
!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'queries'!
hasDirectoryPart
@@ -3018,7 +2976,6 @@
^ self fileName asFilename components size ~= 1
! !
-
!FileApplicationNoteBook::CommandResult class methodsFor:'defaults'!
tabStringFor:aApplicationType
@@ -3034,7 +2991,6 @@
^ false
! !
-
!FileApplicationNoteBook::CommandResult class methodsFor:'interface specs'!
windowSpec
@@ -3096,7 +3052,6 @@
)
! !
-
!FileApplicationNoteBook::CommandResult class methodsFor:'menu specs'!
menu
@@ -3144,7 +3099,6 @@
"Modified: / 12-01-2012 / 00:33:56 / cg"
! !
-
!FileApplicationNoteBook::CommandResult methodsFor:'accessing'!
resultStream
@@ -3159,7 +3113,6 @@
resultStream := something.
! !
-
!FileApplicationNoteBook::CommandResult methodsFor:'actions'!
changeTabTo:aString
@@ -3183,7 +3136,6 @@
].
! !
-
!FileApplicationNoteBook::CommandResult methodsFor:'aspects'!
enableStopButton
@@ -3204,7 +3156,6 @@
^ process
! !
-
!FileApplicationNoteBook::CommandResult methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -3215,7 +3166,6 @@
super update:something with:aParameter from:changedObject
! !
-
!FileApplicationNoteBook::CommandResult methodsFor:'initialization & release'!
postBuildTextCollector:aBuilder
@@ -3243,14 +3193,12 @@
^ super release
! !
-
!FileApplicationNoteBook::CommandResult methodsFor:'printing'!
printOn:aStream
aStream nextPutAll:'CommandResult Application'.
! !
-
!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'defaults'!
tabStringFor:anApplicationType
@@ -3261,7 +3209,6 @@
"Modified: / 01-03-2007 / 21:43:23 / cg"
! !
-
!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'documentation'!
documentation
@@ -3271,7 +3218,6 @@
"
! !
-
!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'help specs'!
flyByHelpSpec
@@ -3295,7 +3241,6 @@
)
! !
-
!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'interface specs'!
windowSpec
@@ -3352,7 +3297,6 @@
)
! !
-
!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'menu specs'!
menu
@@ -3411,7 +3355,6 @@
)
! !
-
!FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'queries'!
canOpenItem:anItem
@@ -3423,7 +3366,6 @@
^ false
! !
-
!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'accessing'!
imageView
@@ -3453,7 +3395,6 @@
"/ self notify:msg.
! !
-
!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'actions'!
changeItem:anItem
@@ -3467,7 +3408,6 @@
imageView readFile:self fileName
! !
-
!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'aspects'!
fitSize
@@ -3480,7 +3420,6 @@
^ fitSize
! !
-
!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -3495,7 +3434,6 @@
super update:something with:aParameter from:changedObject
! !
-
!FileApplicationNoteBook::DigitalNotepadFileViewApplication methodsFor:'initialization & release'!
postBuildImageView:aWidget
@@ -3528,7 +3466,6 @@
super postOpenWith:aBuilder
! !
-
!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'defaults'!
tabStringFor:aApplicationType
@@ -3539,7 +3476,6 @@
"Modified: / 01-03-2007 / 21:43:18 / cg"
! !
-
!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'help specs'!
helpSpec
@@ -3563,7 +3499,6 @@
)
! !
-
!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'interface specs'!
windowSpec
@@ -3705,7 +3640,6 @@
"Modified: / 11-08-2011 / 00:34:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'menu specs'!
menu
@@ -3809,7 +3743,6 @@
)
! !
-
!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'queries'!
canOpenItem:anItem
@@ -3822,7 +3755,6 @@
^ false
! !
-
!FileApplicationNoteBook::HtmlViewApplication methodsFor:'accessing'!
htmlView
@@ -3847,7 +3779,6 @@
^ retVal
! !
-
!FileApplicationNoteBook::HtmlViewApplication methodsFor:'accessing - subapps'!
webBrowserPage
@@ -3861,7 +3792,6 @@
"Created: / 11-08-2011 / 00:32:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!FileApplicationNoteBook::HtmlViewApplication methodsFor:'actions'!
doEdit
@@ -3916,7 +3846,6 @@
"Modified: / 17-02-2011 / 14:01:35 / cg"
! !
-
!FileApplicationNoteBook::HtmlViewApplication methodsFor:'aspects'!
labelHolder
@@ -3927,7 +3856,6 @@
^ labelHolder.
! !
-
!FileApplicationNoteBook::HtmlViewApplication methodsFor:'initialization & release'!
postBuildHtmlView:aWidget
@@ -3965,7 +3893,6 @@
"Modified: / 17-02-2011 / 13:27:12 / cg"
! !
-
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'defaults'!
tabStringFor:aApplicationType
@@ -3976,7 +3903,6 @@
"Modified: / 01-03-2007 / 21:43:23 / cg"
! !
-
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'documentation'!
documentation
@@ -3986,7 +3912,6 @@
"
! !
-
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'help specs'!
flyByHelpSpec
@@ -4010,7 +3935,6 @@
)
! !
-
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'image specs'!
fitSize20x20Icon
@@ -4042,7 +3966,6 @@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
! !
-
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'interface specs'!
windowSpec
@@ -4099,7 +4022,6 @@
)
! !
-
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'menu specs'!
menu
@@ -4158,7 +4080,6 @@
)
! !
-
!FileApplicationNoteBook::ImageViewApplication class methodsFor:'queries'!
canOpenItem:anItem
@@ -4171,7 +4092,6 @@
^ false
! !
-
!FileApplicationNoteBook::ImageViewApplication methodsFor:'accessing'!
image:something
@@ -4206,7 +4126,6 @@
self notify:msg.
! !
-
!FileApplicationNoteBook::ImageViewApplication methodsFor:'actions'!
changeItem:anItem
@@ -4262,7 +4181,6 @@
"Modified: / 25-07-2006 / 09:09:33 / cg"
! !
-
!FileApplicationNoteBook::ImageViewApplication methodsFor:'aspects'!
fitSize
@@ -4275,7 +4193,6 @@
^ fitSize
! !
-
!FileApplicationNoteBook::ImageViewApplication methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -4290,7 +4207,6 @@
super update:something with:aParameter from:changedObject
! !
-
!FileApplicationNoteBook::ImageViewApplication methodsFor:'initialization & release'!
postBuildImageView:aWidget
@@ -4324,7 +4240,6 @@
super postOpenWith:aBuilder
! !
-
!FileApplicationNoteBook::Terminal class methodsFor:'defaults'!
defaultLineLimit
@@ -4347,7 +4262,6 @@
"Modified: / 01-03-2007 / 21:43:38 / cg"
! !
-
!FileApplicationNoteBook::Terminal class methodsFor:'help specs'!
helpSpec
@@ -4371,7 +4285,6 @@
)
! !
-
!FileApplicationNoteBook::Terminal class methodsFor:'interface specs'!
windowSpec
@@ -4427,7 +4340,6 @@
)
! !
-
!FileApplicationNoteBook::Terminal class methodsFor:'menu specs'!
menu
@@ -4473,7 +4385,6 @@
)
! !
-
!FileApplicationNoteBook::Terminal methodsFor:'accessing'!
terminalView
@@ -4496,7 +4407,6 @@
"Modified: / 05-04-2012 / 15:58:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!FileApplicationNoteBook::Terminal methodsFor:'actions'!
saveAs
@@ -4504,7 +4414,6 @@
self terminalView save.
! !
-
!FileApplicationNoteBook::Terminal methodsFor:'initialization & release'!
shellFinished
@@ -4531,7 +4440,6 @@
vt100 startShellIn:(self fileName).
! !
-
!FileApplicationNoteBook::Terminal methodsFor:'printing'!
printOn:aStream
@@ -4539,7 +4447,6 @@
self fileName baseName printOn:aStream.
! !
-
!FileApplicationNoteBook::Terminal methodsFor:'queries'!
getTabValueString
@@ -4550,7 +4457,6 @@
"Created: / 01-03-2007 / 21:39:56 / cg"
! !
-
!FileApplicationNoteBook::Terminal methodsFor:'startup & release'!
postOpenWith:aBuilder
@@ -4564,7 +4470,6 @@
super postOpenWith:aBuilder.
! !
-
!FileApplicationNoteBook::TextEditor class methodsFor:'defaults'!
checkModifiedDelayTime
@@ -4593,7 +4498,6 @@
^ false
! !
-
!FileApplicationNoteBook::TextEditor class methodsFor:'documentation'!
documentation
@@ -4603,7 +4507,6 @@
"
! !
-
!FileApplicationNoteBook::TextEditor class methodsFor:'help specs'!
helpSpec
@@ -4627,7 +4530,6 @@
)
! !
-
!FileApplicationNoteBook::TextEditor class methodsFor:'interface specs'!
windowSpec
@@ -4759,7 +4661,6 @@
)
! !
-
!FileApplicationNoteBook::TextEditor class methodsFor:'menu specs'!
menu
@@ -4879,7 +4780,6 @@
)
! !
-
!FileApplicationNoteBook::TextEditor methodsFor:'accessing'!
fileEncoding
@@ -4947,7 +4847,6 @@
self changeInformation.
! !
-
!FileApplicationNoteBook::TextEditor methodsFor:'actions'!
accept
@@ -5569,7 +5468,6 @@
].
! !
-
!FileApplicationNoteBook::TextEditor methodsFor:'aspects'!
cursorColLabelHolder
@@ -5709,7 +5607,6 @@
^ viewModifiedChannel.
! !
-
!FileApplicationNoteBook::TextEditor methodsFor:'aspects-visibility'!
closeButtonShown
@@ -5754,7 +5651,6 @@
"Modified: / 06-10-2011 / 12:46:41 / cg"
! !
-
!FileApplicationNoteBook::TextEditor methodsFor:'change & update'!
changeTextColorForChanged
@@ -5930,7 +5826,6 @@
"Created: / 23-06-2011 / 16:32:44 / cg"
! !
-
!FileApplicationNoteBook::TextEditor methodsFor:'initialization'!
initialize
@@ -5938,7 +5833,6 @@
semaChangeItem := Semaphore forMutualExclusion.
! !
-
!FileApplicationNoteBook::TextEditor methodsFor:'printing'!
printOn:aStream
@@ -5950,7 +5844,6 @@
]
! !
-
!FileApplicationNoteBook::TextEditor methodsFor:'private-process'!
checkItemForChanges
@@ -6007,7 +5900,6 @@
Processor addTimedBlock:checkModifiedBlock afterSeconds:(self class checkModifiedDelayTime).
! !
-
!FileApplicationNoteBook::TextEditor methodsFor:'queries'!
additionalInfo
@@ -6031,7 +5923,6 @@
^ true
! !
-
!FileApplicationNoteBook::TextEditor methodsFor:'startup & release'!
closeRequest
@@ -6153,7 +6044,6 @@
"Modified: / 10-04-2007 / 15:24:22 / cg"
! !
-
!FileApplicationNoteBook::XMLViewApplication class methodsFor:'defaults'!
tabStringFor:aApplicationType
@@ -6164,7 +6054,6 @@
"Modified: / 17-02-2011 / 13:28:22 / cg"
! !
-
!FileApplicationNoteBook::XMLViewApplication class methodsFor:'help specs'!
helpSpec
@@ -6188,7 +6077,6 @@
"Modified: / 17-02-2011 / 13:28:28 / cg"
! !
-
!FileApplicationNoteBook::XMLViewApplication class methodsFor:'interface specs'!
windowSpec
@@ -6245,7 +6133,6 @@
)
! !
-
!FileApplicationNoteBook::XMLViewApplication class methodsFor:'menu specs'!
menu
@@ -6294,7 +6181,6 @@
"Modified: / 17-02-2011 / 17:30:26 / cg"
! !
-
!FileApplicationNoteBook::XMLViewApplication class methodsFor:'queries'!
canOpenItem:anItem
@@ -6310,7 +6196,6 @@
^ false
! !
-
!FileApplicationNoteBook::XMLViewApplication methodsFor:'accessing'!
item:anItem
@@ -6355,7 +6240,6 @@
"Modified: / 17-02-2011 / 17:39:15 / cg"
! !
-
!FileApplicationNoteBook::XMLViewApplication methodsFor:'actions'!
reload
@@ -6364,7 +6248,6 @@
"Created: / 17-02-2011 / 17:46:36 / cg"
! !
-
!FileApplicationNoteBook::XMLViewApplication methodsFor:'aspects'!
labelHolder
@@ -6375,7 +6258,6 @@
^ labelHolder.
! !
-
!FileApplicationNoteBook::XMLViewApplication methodsFor:'initialization & release'!
postBuildXMLCanvas:aWidget
@@ -6385,7 +6267,6 @@
"Modified: / 17-02-2011 / 13:39:18 / cg"
! !
-
!FileApplicationNoteBook::XViewApplication class methodsFor:'defaults'!
maxNumberOfVNCRestarts
@@ -6423,7 +6304,6 @@
^ true
! !
-
!FileApplicationNoteBook::XViewApplication class methodsFor:'interface specs'!
windowSpec
@@ -6480,7 +6360,6 @@
)
! !
-
!FileApplicationNoteBook::XViewApplication class methodsFor:'menu specs'!
menu
@@ -6516,7 +6395,6 @@
)
! !
-
!FileApplicationNoteBook::XViewApplication class methodsFor:'queries'!
canOpenItem:anItem
@@ -6539,7 +6417,6 @@
^ true
! !
-
!FileApplicationNoteBook::XViewApplication methodsFor:'accessing'!
xView
@@ -6554,7 +6431,6 @@
xView := something.
! !
-
!FileApplicationNoteBook::XViewApplication methodsFor:'actions'!
changeInformation
@@ -6593,7 +6469,6 @@
self startViewer.
! !
-
!FileApplicationNoteBook::XViewApplication methodsFor:'actions VNC'!
setupView
@@ -6762,7 +6637,6 @@
^ true
! !
-
!FileApplicationNoteBook::XViewApplication methodsFor:'actions viewer'!
startViewer
@@ -6840,7 +6714,6 @@
"/ Dialog information:'viewer has terminated'.
! !
-
!FileApplicationNoteBook::XViewApplication methodsFor:'initialization & release'!
postBuildXView:aWidget
@@ -6883,7 +6756,6 @@
^ super release
! !
-
!FileApplicationNoteBook class methodsFor:'documentation'!
version
@@ -6894,6 +6766,11 @@
^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.275 2013-01-29 14:20:07 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FileApplicationNoteBook.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
--- a/FileBasedSourceCodeManagementSettingsAppl.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FileBasedSourceCodeManagementSettingsAppl.st Wed Feb 27 12:34:59 2013 +0000
@@ -43,7 +43,6 @@
"
! !
-
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'defaults'!
defaultRepositoryPath
@@ -52,7 +51,6 @@
"Created: / 21-12-2011 / 14:55:40 / cg"
! !
-
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
flyByHelpSpec
@@ -87,7 +85,6 @@
"Created: / 25-12-2011 / 14:00:06 / cg"
! !
-
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -148,7 +145,6 @@
@@@@@@@@@@@@@@@@@@@@@JJ!!(ZFZ@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[223 191 95 128 127 112 160 144 128 175 143 112 224 223 207 255 224 127 207 192 160 207 175 112 144 112 48 224 192 128 240 224 191 192 176 144 239 224 223 175 143 111 239 224 176 223 192 111 191 175 160 159 112 64 255 240 176 240 240 208 255 239 176 240 208 127 160 127 63 176 159 112 255 224 96 207 160 64 224 208 175 239 208 144 240 223 95 128 96 64 240 224 127 255 240 224 255 239 175 192 160 111 255 255 224 255 223 112 255 240 223 255 223 143 255 208 64 208 192 191 255 255 223 160 143 127 160 144 111 240 240 175 160 159 112 240 239 176 208 176 111 239 223 159 207 176 127 255 224 144 239 208 112 255 240 192 175 159 128 240 239 175 192 176 159 224 207 111 207 191 128 239 208 111 144 112 96 255 240 191 255 239 192 240 224 95 192 144 48 240 239 208 224 192 64 144 112 95 160 127 47 127 80 47 255 224 111 176 144 96 176 159 96 240 223 176 240 239 144 176 175 159 240 224 144 255 239 191 240 208 64 255 239 128 239 208 79 223 208 208 191 144 64 240 223 143 240 208 63 255 239 127 240 240 192 255 239 159 144 112 79 240 224 143 191 159 63 240 223 80 207 176 112 240 240 191 175 143 127 224 192 112 240 223 112 208 176 80 176 159 127 255 224 160 240 223 79 255 240 208 207 191 112 239 239 207 208 176 79 255 223 95 192 160 63 128 111 48 255 223 127 255 224 159 159 127 95 176 160 112 255 240 207 255 255 240 240 224 112 176 143 96 160 143 48 240 239 160 207 160 80 239 223 175 239 192 96 143 111 64 160 143 95 255 224 128 255 248 200 255 248 24 15 56 160 255 248 88 239 232 240 240 240 240 255 248 152 48 80 176 255 248 96 48 88 176 240 240 248 207 216 240 223 216 224 255 248 48 224 224 232 255 248 176 255 248 248 240 144 24 255 248 136 63 96 184 240 208 24 239 239 224 176 159 111 240 207 96 207 160 127 240 207 111 191 191 160 223 208 175 240 208 111 255 255 239 192 176 175 208 207 176 0 0 0 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@O0@@_??@_??@_??8_??8_??8_??0_?? _?? _?? _??@_?>@_?<@_? @_<@@C8@@') ; yourself); yourself]
! !
-
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -376,14 +372,12 @@
)
! !
-
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'others'!
version_FileRepository
^ '§Path: stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st, Version: 1§'
! !
-
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'queries'!
managerClass
@@ -394,7 +388,6 @@
"Created: / 19-04-2011 / 12:46:52 / cg"
! !
-
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'actions'!
addModule:module withData:data
@@ -481,7 +474,6 @@
"Created: / 21-12-2011 / 14:26:08 / cg"
! !
-
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'aspects'!
initialListOfModules
@@ -537,7 +529,6 @@
"Created: / 21-12-2011 / 14:35:37 / cg"
! !
-
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'change & update'!
selectedPerModulePathChanged
@@ -634,7 +625,6 @@
"Created: / 21-12-2011 / 14:43:11 / cg"
! !
-
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'help'!
helpFilename
@@ -643,7 +633,6 @@
"Modified: / 21-12-2011 / 14:36:53 / cg"
! !
-
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -664,7 +653,6 @@
"Modified: / 21-12-2011 / 23:50:23 / cg"
! !
-
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -691,7 +679,6 @@
"Modified: / 10-01-2012 / 00:31:28 / cg"
! !
-
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
@@ -702,6 +689,11 @@
^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.14 2012-08-09 08:44:23 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FileBasedSourceCodeManagementSettingsAppl.st 8048 2012-09-07 17:28:09Z vranyj1 $'
! !
--- a/FileBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FileBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -84,7 +84,6 @@
"
! !
-
!FileBrowser class methodsFor:'instance creation'!
on:aDirectoryPath
@@ -150,7 +149,6 @@
"Modified: / 17.6.1998 / 11:25:29 / cg"
! !
-
!FileBrowser class methodsFor:'aspects'!
directoryBookmarks
@@ -162,7 +160,6 @@
^ AbstractFileBrowser directoryHistory.
! !
-
!FileBrowser class methodsFor:'defaults'!
defaultIcon
@@ -193,14 +190,12 @@
"Modified: / 17-09-2007 / 11:36:12 / cg"
! !
-
!FileBrowser class methodsFor:'fileList user interaction'!
goodRenameDefaultForFile:oldName lastOld:lastOldName lastNew:lastNewName
^ DoWhatIMeanSupport goodRenameDefaultForFile:oldName lastOld:lastOldName lastNew:lastNewName
! !
-
!FileBrowser class methodsFor:'history'!
addToCommandHistory:aCommandString for:aFilename
@@ -245,7 +240,6 @@
VisitedFileHistory addFirst:path.
! !
-
!FileBrowser class methodsFor:'icon-presentation'!
addOnIconsFor:aFilename to:anIcon
@@ -313,7 +307,6 @@
^ MIMETypeIconLibrary iconKeyForRemoteDirectory:aFilenameArg
! !
-
!FileBrowser class methodsFor:'interface specs'!
fileSearchDialogSpec
@@ -446,7 +439,6 @@
)
! !
-
!FileBrowser class methodsFor:'menu specs'!
baseBookmarksMenuSpec
@@ -1476,7 +1468,6 @@
^ m
! !
-
!FileBrowser class methodsFor:'queries'!
isVisualStartable
@@ -1486,7 +1477,6 @@
^ true
! !
-
!FileBrowser methodsFor:'aspects'!
anyFilesPresentWithSuffix:suffix
@@ -1882,7 +1872,6 @@
"Created: / 4.8.1998 / 13:37:37 / cg"
! !
-
!FileBrowser methodsFor:'drag & drop'!
canDropObjects:aCollectionOfDropObjects
@@ -1952,7 +1941,6 @@
"Modified: 6.4.1997 / 14:46:44 / cg"
! !
-
!FileBrowser methodsFor:'events'!
handlesKeyPress:key inView:view
@@ -2074,7 +2062,6 @@
"Modified: / 18.2.1998 / 17:57:44 / cg"
! !
-
!FileBrowser methodsFor:'fileList user interaction'!
bigImagePreviewSettingChanged
@@ -3841,7 +3828,6 @@
"Modified: / 4.8.1998 / 13:44:14 / cg"
! !
-
!FileBrowser methodsFor:'help'!
helpTextFor:aComponent
@@ -3868,7 +3854,6 @@
^ nil
! !
-
!FileBrowser methodsFor:'initialization & release'!
createTabRulerIn:topFrame
@@ -4373,7 +4358,6 @@
"Created: 24.7.1997 / 18:13:46 / cg"
! !
-
!FileBrowser methodsFor:'menu actions'!
addBookmark
@@ -4522,7 +4506,6 @@
"Modified: / 14.8.1998 / 16:44:00 / cg"
! !
-
!FileBrowser methodsFor:'menu actions-cvs'!
cvsAddAndCommitSelection
@@ -4737,7 +4720,6 @@
"Modified: / 21.10.1998 / 17:02:11 / cg"
! !
-
!FileBrowser methodsFor:'misc user interaction'!
closeRequest
@@ -4871,7 +4853,6 @@
"Modified: 29.5.1996 / 16:13:43 / cg"
! !
-
!FileBrowser methodsFor:'pathField user interaction'!
addDirToJavaClassPath
@@ -5203,7 +5184,6 @@
"Created: 2.8.1997 / 14:11:41 / cg"
! !
-
!FileBrowser methodsFor:'private'!
ask:question yesButton:yesButtonText
@@ -5385,7 +5365,6 @@
^ aCollection reject:[:fn | fn asFilename isHidden].
! !
-
!FileBrowser methodsFor:'private-actions & command execution'!
binaryFileAction:aFilename
@@ -5754,7 +5733,6 @@
"Modified: 18.9.1997 / 16:58:40 / stefan"
! !
-
!FileBrowser methodsFor:'private-directory stuff'!
changeToPreviousDirectory
@@ -6011,7 +5989,6 @@
"Modified: / 16.12.1998 / 22:55:44 / cg"
! !
-
!FileBrowser methodsFor:'private-file I/O'!
readFile:fileName
@@ -6322,7 +6299,6 @@
"Modified: / 6.5.1999 / 11:45:50 / cg"
! !
-
!FileBrowser methodsFor:'private-file stuff'!
doCreateFile:newName
@@ -6678,7 +6654,6 @@
"Modified: / 21-09-2006 / 18:34:45 / cg"
! !
-
!FileBrowser methodsFor:'private-file type & info'!
fileTypeSpecificActions
@@ -6897,7 +6872,6 @@
^ (n printStringLeftPaddedTo:5) , unitString.
! !
-
!FileBrowser methodsFor:'private-presentation'!
defineTabulatorsForLongList
@@ -7491,7 +7465,6 @@
"Modified: / 15.11.2001 / 23:49:03 / cg"
! !
-
!FileBrowser methodsFor:'queries'!
fileName
@@ -7526,7 +7499,6 @@
"Modified: / 12.8.1998 / 14:45:48 / cg"
! !
-
!FileBrowser class methodsFor:'documentation'!
version
@@ -7537,6 +7509,11 @@
^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.643 2012-07-27 09:07:58 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FileBrowser.st 8048 2012-09-07 17:28:09Z vranyj1 $'
! !
--- a/FileBrowserV2.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FileBrowserV2.st Wed Feb 27 12:34:59 2013 +0000
@@ -81,7 +81,6 @@
"
! !
-
!FileBrowserV2 class methodsFor:'instance creation'!
on:aDirectoryPath
@@ -198,7 +197,6 @@
^ clone
! !
-
!FileBrowserV2 class methodsFor:'class initialization'!
initialize
@@ -298,7 +296,6 @@
].
! !
-
!FileBrowserV2 class methodsFor:'defaults'!
entryFieldEndStringForMultipleSelection
@@ -306,7 +303,6 @@
^ ('[*]')
! !
-
!FileBrowserV2 class methodsFor:'help specs'!
flyByHelpSpec
@@ -372,7 +368,6 @@
)
! !
-
!FileBrowserV2 class methodsFor:'image specs'!
applicationIcon
@@ -408,7 +403,6 @@
^ ToolbarIconLibrary hideToolbarIconH26
! !
-
!FileBrowserV2 class methodsFor:'interface specs'!
windowSpec
@@ -761,7 +755,6 @@
)
! !
-
!FileBrowserV2 class methodsFor:'menu specs'!
editModeInfoLabelMenu
@@ -1254,7 +1247,6 @@
)
! !
-
!FileBrowserV2 methodsFor:'actions'!
changeFileBrowserTitleTo:aString
@@ -1294,7 +1286,6 @@
].
! !
-
!FileBrowserV2 methodsFor:'aspects'!
busyLabelHolder
@@ -1441,7 +1432,6 @@
^ selectedDeviceDrive
! !
-
!FileBrowserV2 methodsFor:'aspects-visibility'!
busyLabelVisibleHolder
@@ -1478,7 +1468,6 @@
^ self aspectFor:#toolBarVisibleHolder ifAbsent:[true asValue]
! !
-
!FileBrowserV2 methodsFor:'change & update'!
currentFileNameHolderChanged
@@ -1744,7 +1733,6 @@
].
! !
-
!FileBrowserV2 methodsFor:'event handling'!
crPressedInPathField
@@ -1820,7 +1808,6 @@
"Modified: / 17-05-2007 / 09:12:53 / cg"
! !
-
!FileBrowserV2 methodsFor:'menu accessing'!
menuFileHistory
@@ -1869,14 +1856,12 @@
"Modified: / 09-09-2012 / 13:08:42 / cg"
! !
-
!FileBrowserV2 methodsFor:'queries'!
getAllFilesAsStrings
^ self directoryContentsBrowser getAllFilesAsStrings
! !
-
!FileBrowserV2 methodsFor:'startup & release'!
closeRequest
@@ -2038,13 +2023,17 @@
^ super release
! !
-
!FileBrowserV2 class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.205 2013-01-26 21:04:45 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FileBrowserV2.st 8084 2013-01-14 12:06:02Z vranyj1 $'
! !
--- a/FileBrowserV2PanelView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FileBrowserV2PanelView.st Wed Feb 27 12:34:59 2013 +0000
@@ -192,6 +192,12 @@
^ '$Id: FileBrowserV2PanelView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FileBrowserV2PanelView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/FileBrowserV2SettingsAppl.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FileBrowserV2SettingsAppl.st Wed Feb 27 12:34:59 2013 +0000
@@ -608,6 +608,12 @@
^ '§Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.28 2011/11/25 14:25:40 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FileBrowserV2SettingsAppl.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/FileBrowserV2UISpecifications.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FileBrowserV2UISpecifications.st Wed Feb 27 12:34:59 2013 +0000
@@ -643,6 +643,12 @@
^ '$Id: FileBrowserV2UISpecifications.st 7854 2012-01-30 17:49:41Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FileBrowserV2UISpecifications.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/FileBrowserV3.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FileBrowserV3.st Wed Feb 27 12:34:59 2013 +0000
@@ -864,6 +864,12 @@
!FileBrowserV3 class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FileBrowserV3.st 7985 2012-04-21 08:36:31Z vranyj1 $'
! !
+
--- a/FileDialog.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FileDialog.st Wed Feb 27 12:34:59 2013 +0000
@@ -2003,6 +2003,12 @@
^ '§Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.116 2011/04/04 08:09:15 stefan Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FileDialog.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/FileDialogWithPreview.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FileDialogWithPreview.st Wed Feb 27 12:34:59 2013 +0000
@@ -331,6 +331,12 @@
^ '§Header: /cvs/stx/stx/libtool/FileDialogWithPreview.st,v 1.2 2011/02/14 17:13:03 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FileDialogWithPreview.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/FileOperation.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FileOperation.st Wed Feb 27 12:34:59 2013 +0000
@@ -83,7 +83,6 @@
"
! !
-
!FileOperation class methodsFor:'instance creation'!
copyCorruptedFile:aSourceFile to:aDestFile
@@ -152,14 +151,12 @@
^ Rename renameFiles:aCollectionofFilenames
! !
-
!FileOperation class methodsFor:'defaults'!
suffixForCopyOverExistingFile
^ '.copy'
! !
-
!FileOperation methodsFor:'accessing'!
errorString
@@ -178,7 +175,6 @@
result := something.
! !
-
!FileOperation methodsFor:'dialogs & helpers'!
checkDirectoryExists:aDirectory
@@ -331,14 +327,12 @@
"Created: / 20-03-2012 / 11:44:34 / cg"
! !
-
!FileOperation methodsFor:'queries'!
isErase
^ false
! !
-
!FileOperation::Copy class methodsFor:'actions'!
copyFile:aSourceFile to:aDestFile
@@ -389,7 +383,6 @@
^ instance
! !
-
!FileOperation::Copy methodsFor:'accessing'!
colOfCopiedFiles
@@ -412,7 +405,6 @@
^ newFiles
! !
-
!FileOperation::Copy methodsFor:'actions'!
copyFile:aSourceFile to:aDestFile
@@ -431,7 +423,6 @@
^ self copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:true.
! !
-
!FileOperation::Copy methodsFor:'actions-basic'!
basicCopy:aSourceFile to:newFile
@@ -558,7 +549,6 @@
"Modified: / 07-02-2007 / 18:36:54 / cg"
! !
-
!FileOperation::CopyCorrupted methodsFor:'actions-basic'!
basicCopy:aSourceFile to:newFile
@@ -695,7 +685,6 @@
"Modified: / 21-06-2010 / 14:25:22 / cg"
! !
-
!FileOperation::CopyCorrupted methodsFor:'defaults'!
bufferSize
@@ -719,7 +708,6 @@
"Modified: / 27-11-2010 / 18:05:19 / cg"
! !
-
!FileOperation::Create class methodsFor:'actions'!
createDirectoryIn:aDirectory
@@ -771,7 +759,6 @@
^ self createLinkIn:aFile soft:true
! !
-
!FileOperation::Create methodsFor:'accessing'!
createdFile
@@ -782,7 +769,6 @@
createdFile := something.
! !
-
!FileOperation::Create methodsFor:'actions'!
createDirectoryIn:startDirectory
@@ -814,7 +800,6 @@
self errorString:msg.
! !
-
!FileOperation::Create methodsFor:'actions-basic'!
createDirectoryIn:startDirectory initialAnswer:initialAnswerArg
@@ -1018,7 +1003,6 @@
].
! !
-
!FileOperation::Delete class methodsFor:'actions'!
deleteFile:aFileOrDirectory
@@ -1045,7 +1029,6 @@
^ instance
! !
-
!FileOperation::Delete methodsFor:'actions'!
deleteFiles:colOfFiles
@@ -1056,7 +1039,6 @@
"intentionally left blank"
! !
-
!FileOperation::Delete methodsFor:'actions-basic'!
deleteFile:aFileOrDirectory
@@ -1197,7 +1179,6 @@
"Modified: / 11-10-2010 / 13:08:20 / cg"
! !
-
!FileOperation::Erase methodsFor:'actions-basic'!
eraseFilesContentsBeforeRemoving:file
@@ -1227,14 +1208,12 @@
"Modified: / 07-02-2007 / 18:20:21 / cg"
! !
-
!FileOperation::Erase methodsFor:'queries'!
isErase
^ true
! !
-
!FileOperation::Move class methodsFor:'actions'!
moveFile:aSourceFile to:aDestFile
@@ -1285,7 +1264,6 @@
^ instance
! !
-
!FileOperation::Move methodsFor:'accessing'!
colOfMovedFiles
@@ -1301,7 +1279,6 @@
^ movedFiles
! !
-
!FileOperation::Move methodsFor:'actions'!
moveFile:aSourceFile to:aDestFile
@@ -1324,7 +1301,6 @@
^ self moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:true
! !
-
!FileOperation::Move methodsFor:'actions-basic'!
moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:move
@@ -1489,7 +1465,6 @@
"Modified: / 20-03-2012 / 11:53:35 / cg"
! !
-
!FileOperation::Rename class methodsFor:'actions'!
renameFile:oldFile to:newName
@@ -1508,7 +1483,6 @@
^ instance
! !
-
!FileOperation::Rename methodsFor:'accessing'!
renamedFiles
@@ -1518,7 +1492,6 @@
^ renamedFiles
! !
-
!FileOperation::Rename methodsFor:'actions-basic'!
renameFile:oldFile to:newName
@@ -1625,7 +1598,6 @@
]
! !
-
!FileOperation class methodsFor:'documentation'!
version
@@ -1636,6 +1608,11 @@
^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.90 2012-03-20 11:01:05 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FileOperation.st 7952 2012-03-21 17:50:14Z vranyj1 $'
! !
--- a/FilenameEditFieldV2.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FilenameEditFieldV2.st Wed Feb 27 12:34:59 2013 +0000
@@ -47,7 +47,6 @@
"
! !
-
!FilenameEditFieldV2 methodsFor:'accessing'!
acceptOnExpand
@@ -147,7 +146,6 @@
"Modified: 6.9.1995 / 20:34:57 / claus"
! !
-
!FilenameEditFieldV2 methodsFor:'initialization'!
initialize
@@ -214,7 +212,6 @@
"Created: 24.7.1997 / 18:21:51 / cg"
! !
-
!FilenameEditFieldV2 methodsFor:'menu'!
processEvent:anEvent
@@ -277,13 +274,17 @@
pullDownButton turnOff.
! !
-
!FilenameEditFieldV2 class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.14 2013-01-17 11:18:19 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FilenameEditFieldV2.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
--- a/FindFileApplication.st Tue Feb 26 12:38:54 2013 +0000
+++ b/FindFileApplication.st Wed Feb 27 12:34:59 2013 +0000
@@ -45,7 +45,6 @@
"
! !
-
!FindFileApplication class methodsFor:'instance creation'!
open
@@ -81,7 +80,6 @@
^ builder
! !
-
!FindFileApplication class methodsFor:'defaults'!
tabStringFor:aApplicationType
@@ -92,7 +90,6 @@
"Modified: / 01-03-2007 / 21:47:54 / cg"
! !
-
!FindFileApplication class methodsFor:'help specs'!
flyByHelpSpec
@@ -144,7 +141,6 @@
"Modified: / 28-03-2012 / 23:03:39 / cg"
! !
-
!FindFileApplication class methodsFor:'history'!
addToSearchStringHistory:aString
@@ -163,7 +159,6 @@
^ SearchStringHistory
! !
-
!FindFileApplication class methodsFor:'interface specs'!
windowSpec
@@ -544,7 +539,6 @@
! !
-
!FindFileApplication class methodsFor:'menu specs'!
menu
@@ -704,14 +698,12 @@
)
! !
-
!FindFileApplication class methodsFor:'startup & release'!
releaseContentsInfoCache
ContentsInfoCache := ContentsInfoCacheAccessLock := nil.
! !
-
!FindFileApplication class methodsFor:'tableColumns specs'!
searchResultTable
@@ -740,7 +732,6 @@
! !
-
!FindFileApplication methodsFor:'actions'!
clearCache
@@ -943,7 +934,6 @@
].
! !
-
!FindFileApplication methodsFor:'aspects'!
canUseGrep
@@ -1178,7 +1168,6 @@
^ useLocate.
! !
-
!FindFileApplication methodsFor:'private'!
changeExtentToSeeSearchResult
@@ -1199,7 +1188,6 @@
"Modified: / 08-08-2010 / 14:42:40 / cg"
! !
-
!FindFileApplication methodsFor:'private - searching'!
cachedFileSizeOf:aFilenameString
@@ -1769,7 +1757,6 @@
"Created: / 28-03-2012 / 23:18:32 / cg"
! !
-
!FindFileApplication methodsFor:'queries'!
getTabValueString
@@ -1780,7 +1767,6 @@
"Created: / 01-03-2007 / 21:39:54 / cg"
! !
-
!FindFileApplication methodsFor:'startup & release'!
initialize
@@ -1829,7 +1815,6 @@
^ super release
! !
-
!FindFileApplication class methodsFor:'documentation'!
version
@@ -1840,6 +1825,11 @@
^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.105 2013-02-01 23:33:23 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: FindFileApplication.st 7978 2012-04-13 13:15:47Z vranyj1 $'
! !
--- a/GitSourceCodeManagementSettingsAppl.st Tue Feb 26 12:38:54 2013 +0000
+++ b/GitSourceCodeManagementSettingsAppl.st Wed Feb 27 12:34:59 2013 +0000
@@ -49,7 +49,6 @@
"
! !
-
!GitSourceCodeManagementSettingsAppl class methodsFor:'defaults'!
defaultRepositoryName
@@ -59,7 +58,6 @@
"Created: / 19-04-2011 / 11:00:11 / cg"
! !
-
!GitSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
helpSpec
@@ -184,7 +182,6 @@
"Modified: / 09-08-2012 / 09:41:18 / cg"
! !
-
!GitSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -247,7 +244,6 @@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 0 64 0 0 128 0 32 32 32 32 64 32 32 96 32 32 128 32 32 128 64 32 160 64 64 64 64 96 96 96 96 192 128 128 128 128 192 0 0 209 87 87 255 255 255]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@>>>@>>>@@@@@@@@@XXX@^^^@>>>@<<<@LLL@@@@A<@@C<@@GR@@G@@@_$@@ON@@F_@@@O@@JL@@G<@@C8@@@@@@') ; yourself); yourself]
! !
-
!GitSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -767,7 +763,6 @@
)
! !
-
!GitSourceCodeManagementSettingsAppl class methodsFor:'queries'!
managerClass
@@ -778,7 +773,6 @@
"Created: / 19-04-2011 / 12:46:52 / cg"
! !
-
!GitSourceCodeManagementSettingsAppl methodsFor:'actions'!
addModule:module withData:data
@@ -882,7 +876,6 @@
"Modified: / 26-01-2012 / 13:50:08 / cg"
! !
-
!GitSourceCodeManagementSettingsAppl methodsFor:'actions - git'!
addPerModuleRoot
@@ -951,7 +944,6 @@
"Created: / 17-01-2012 / 17:42:27 / cg"
! !
-
!GitSourceCodeManagementSettingsAppl methodsFor:'aspects'!
gitCommandTimeoutHolder
@@ -1103,7 +1095,6 @@
"Created: / 03-03-2012 / 10:34:19 / cg"
! !
-
!GitSourceCodeManagementSettingsAppl methodsFor:'change & update'!
selectedPerModuleRepositoryChanged
@@ -1154,7 +1145,6 @@
"Modified: / 14-01-2012 / 20:26:51 / cg"
! !
-
!GitSourceCodeManagementSettingsAppl methodsFor:'help'!
helpFilename
@@ -1163,7 +1153,6 @@
"Modified: / 02-03-2012 / 15:20:09 / cg"
! !
-
!GitSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -1187,7 +1176,6 @@
"Modified: / 02-03-2012 / 15:20:19 / cg"
! !
-
!GitSourceCodeManagementSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -1226,7 +1214,6 @@
"Modified: / 02-03-2012 / 15:20:03 / cg"
! !
-
!GitSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
@@ -1237,6 +1224,11 @@
^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.9 2012-08-09 08:59:17 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: GitSourceCodeManagementSettingsAppl.st 8048 2012-09-07 17:28:09Z vranyj1 $'
! !
--- a/ImageInspectorView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/ImageInspectorView.st Wed Feb 27 12:34:59 2013 +0000
@@ -41,7 +41,6 @@
"
! !
-
!ImageInspectorView class methodsFor:'defaults'!
defaultTopViewExtent
@@ -56,7 +55,6 @@
"Created: / 23-10-2007 / 19:09:34 / cg"
! !
-
!ImageInspectorView class methodsFor:'menu specs'!
imageMenu
@@ -145,7 +143,6 @@
)
! !
-
!ImageInspectorView methodsFor:'accessing'!
inspect:anObject
@@ -159,7 +156,6 @@
"
! !
-
!ImageInspectorView methodsFor:'initialization'!
destroy
@@ -214,7 +210,6 @@
"Modified: / 28-05-2007 / 15:15:32 / cg"
! !
-
!ImageInspectorView methodsFor:'menu'!
imageMenu
@@ -247,7 +242,6 @@
imageView backgroundColor:(Color name:colorNameSymbol)
! !
-
!ImageInspectorView methodsFor:'queries'!
labelFor:anObject
@@ -262,7 +256,6 @@
"Modified: / 25-07-2012 / 12:53:13 / cg"
! !
-
!ImageInspectorView class methodsFor:'documentation'!
version
@@ -273,6 +266,11 @@
^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.26 2012-07-25 10:54:12 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: ImageInspectorView.st 8026 2012-07-26 16:09:41Z vranyj1 $'
! !
--- a/InspectorView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/InspectorView.st Wed Feb 27 12:34:59 2013 +0000
@@ -103,7 +103,6 @@
"
! !
-
!InspectorView class methodsFor:'instance creation'!
for:anObject
@@ -203,7 +202,6 @@
^ self openOn:anObject
! !
-
!InspectorView class methodsFor:'common label support'!
commonLabelFor:anObject
@@ -280,7 +278,6 @@
"Created: / 15-07-2011 / 16:20:06 / cg"
! !
-
!InspectorView class methodsFor:'defaults'!
defaultExtent
@@ -358,7 +355,6 @@
"Created: / 23-10-2007 / 19:10:02 / cg"
! !
-
!InspectorView class methodsFor:'image specs'!
imageFor_arrays
@@ -756,7 +752,6 @@
M#L3NBH"H#\@@@@@@@@@@@@-JS 8JSH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 98 255 0 75 198 0 25 74 0 57 156 0 34 99 0 92 206 16 60 132 16 31 74 0 79 206 0 128 131 142 88 231 0 70 189 0 38 90 0 148 198 123 57 115 16 92 239 0 103 255 8 76 189 0 154 198 123 85 214 0 53 132 0 106 255 0 138 255 49 107 156 74 44 115 0 119 206 66 85 222 0 142 206 99 68 139 33 33 90 0 57 148 0 135 206 99]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
! !
-
!InspectorView class methodsFor:'queries-plugin'!
aspectSelectors
@@ -765,7 +760,6 @@
"Modified: / 10.2.2000 / 12:25:28 / cg"
! !
-
!InspectorView methodsFor:'accessing'!
allowFollow:aBoolean
@@ -943,7 +937,6 @@
^ workspace
! !
-
!InspectorView methodsFor:'accessing-channels'!
inspectedObjectHolder
@@ -969,7 +962,6 @@
"Created: / 10.2.2000 / 13:34:53 / cg"
! !
-
!InspectorView methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -995,7 +987,6 @@
"Modified: / 10.2.2000 / 13:48:18 / cg"
! !
-
!InspectorView methodsFor:'drag & drop'!
getDisplayObjects
@@ -1014,7 +1005,6 @@
"Modified: / 18-09-2006 / 21:11:31 / cg"
! !
-
!InspectorView methodsFor:'event handling'!
doubleClickOnLine:lineNr
@@ -1072,7 +1062,6 @@
].
! !
-
!InspectorView methodsFor:'initialization & release'!
destroy
@@ -1232,7 +1221,6 @@
].
! !
-
!InspectorView methodsFor:'menu'!
fieldMenu
@@ -1567,7 +1555,6 @@
"Created: / 20-07-2012 / 10:47:53 / cg"
! !
-
!InspectorView methodsFor:'menu actions'!
browse
@@ -2042,7 +2029,6 @@
"Modified: / 6.2.2000 / 13:47:37 / cg"
! !
-
!InspectorView methodsFor:'presentation'!
appendDisplayStringForElementsOf:val indent:lvl pad:padding to:aStream
@@ -2396,7 +2382,6 @@
"Created: / 13-06-2012 / 12:04:31 / cg"
! !
-
!InspectorView methodsFor:'private'!
baseInspectedObjectClass
@@ -3120,7 +3105,6 @@
"Modified: / 06-06-2012 / 11:57:54 / cg"
! !
-
!InspectorView methodsFor:'queries'!
canInspect:anObject
@@ -3185,7 +3169,6 @@
^ suppressPseudoSlots ? false
! !
-
!InspectorView methodsFor:'selection'!
selection:lineNr
@@ -3241,7 +3224,6 @@
"Modified: / 28-10-2012 / 11:03:04 / cg"
! !
-
!InspectorView methodsFor:'user interaction'!
doAccept:theText
@@ -3392,7 +3374,6 @@
"Created: / 16-11-2001 / 13:48:51 / cg"
! !
-
!InspectorView methodsFor:'workspace protocol'!
modified:aBoolean
@@ -3403,7 +3384,6 @@
workspace saveAs:file doAppend:doAppend
! !
-
!InspectorView class methodsFor:'documentation'!
version
@@ -3414,6 +3394,11 @@
^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.296 2013-01-15 16:33:23 stefan Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: InspectorView.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
--- a/Make.proto Tue Feb 26 12:38:54 2013 +0000
+++ b/Make.proto Wed Feb 27 12:34:59 2013 +0000
@@ -34,7 +34,7 @@
# add the path(es) here:,
# ********** OPTIONAL: MODIFY the next lines ***
# LOCALINCLUDES=-Ifoo -Ibar
-LOCALINCLUDES= -I$(INCLUDE_TOP)/stx/libbasic -I$(INCLUDE_TOP)/stx/goodies/refactoryBrowser/parser -I$(INCLUDE_TOP)/stx/libwidg -I$(INCLUDE_TOP)/stx/goodies/sunit -I$(INCLUDE_TOP)/stx/libview2 -I$(INCLUDE_TOP)/stx/libbasic2 -I$(INCLUDE_TOP)/stx/libview -I$(INCLUDE_TOP)/stx/libhtml -I$(INCLUDE_TOP)/stx/libcomp -I$(INCLUDE_TOP)/stx/libboss -I$(INCLUDE_TOP)/stx/libwidg2 -I$(INCLUDE_TOP)/stx/libbasic3 -I$(INCLUDE_TOP)/stx/libui
+LOCALINCLUDES= -I$(INCLUDE_TOP)/stx/libcomp -I$(INCLUDE_TOP)/stx/libwidg2 -I$(INCLUDE_TOP)/stx/libbasic3 -I$(INCLUDE_TOP)/stx/libhtml -I$(INCLUDE_TOP)/stx/libbasic2 -I$(INCLUDE_TOP)/stx/libboss -I$(INCLUDE_TOP)/stx/goodies/refactoryBrowser/parser -I$(INCLUDE_TOP)/stx/libbasic -I$(INCLUDE_TOP)/stx/libview2 -I$(INCLUDE_TOP)/stx/goodies/sunit -I$(INCLUDE_TOP)/stx/libwidg -I$(INCLUDE_TOP)/stx/libui -I$(INCLUDE_TOP)/stx/libview
# if you need any additional defines for embedded C code,
@@ -92,6 +92,13 @@
+# Enforce recompilation of package definition class if Mercurial working
+# copy state changes. Together with --guessVersion it ensures that package
+# definition class always contains correct binary revision string.
+ifneq (**NOHG**, $(shell hg root 2> /dev/null || echo -n '**NOHG**'))
+stx_libtool.$(O): $(shell hg root)/.hg/dirstate
+endif
+
@@ -116,21 +123,20 @@
prereq: $(REQUIRED_SUPPORT_DIRS)
cd ../libbasic && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
- cd ../libdb/libodbc && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+ cd ../libcomp && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
cd ../libbasic2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
- cd ../libcomp && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+ cd ../libdb && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
cd ../libview && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
- cd ../libdb && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+ cd ../libdb/libsqlite && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+ cd ../libdb/libodbc && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+ cd ../libboss && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
cd ../libview2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
- cd ../libboss && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
- cd ../libdb/libsqlite && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+ cd ../libbasic3 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
cd ../goodies/sunit && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
cd ../libui && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
- cd ../libbasic3 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
cd ../libwidg && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+ cd ../libwidg2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
cd ../libhtml && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
- cd ../libwidg2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
- cd ../librun && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
@@ -212,6 +218,7 @@
$(OUTDIR)Tools__LintAnnotation.$(O) Tools__LintAnnotation.$(H): Tools__LintAnnotation.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__LintHighlighter.$(O) Tools__LintHighlighter.$(H): Tools__LintHighlighter.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__LintRuleDetail.$(O) Tools__LintRuleDetail.$(H): Tools__LintRuleDetail.st $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)Tools__LintRuleEditDialog.$(O) Tools__LintRuleEditDialog.$(H): Tools__LintRuleEditDialog.st $(INCLUDE_TOP)/stx/libview2/SimpleDialog.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__LintRuleSelectionDialog.$(O) Tools__LintRuleSelectionDialog.$(H): Tools__LintRuleSelectionDialog.st $(INCLUDE_TOP)/stx/libview2/SimpleDialog.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__MethodCategoryCache.$(O) Tools__MethodCategoryCache.$(H): Tools__MethodCategoryCache.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__MethodRewriter.$(O) Tools__MethodRewriter.$(H): Tools__MethodRewriter.st $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
@@ -256,7 +263,7 @@
$(OUTDIR)NewLauncher.$(O) NewLauncher.$(H): NewLauncher.st $(INCLUDE_TOP)/stx/libtool/AbstractLauncherApplication.$(H) $(INCLUDE_TOP)/stx/libview2/ToolApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)OrderedCollectionInspectorView.$(O) OrderedCollectionInspectorView.$(H): OrderedCollectionInspectorView.st $(INCLUDE_TOP)/stx/libtool/InspectorView.$(H) $(INCLUDE_TOP)/stx/libview/SimpleView.$(H) $(INCLUDE_TOP)/stx/libview/DisplaySurface.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsMedium.$(H) $(INCLUDE_TOP)/stx/libview/DeviceGraphicsContext.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsContext.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)SetInspectorView.$(O) SetInspectorView.$(H): SetInspectorView.st $(INCLUDE_TOP)/stx/libtool/InspectorView.$(H) $(INCLUDE_TOP)/stx/libview/SimpleView.$(H) $(INCLUDE_TOP)/stx/libview/DisplaySurface.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsMedium.$(H) $(INCLUDE_TOP)/stx/libview/DeviceGraphicsContext.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsContext.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
-$(OUTDIR)SettingsDialog.$(O) SettingsDialog.$(H): SettingsDialog.st $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libtool/AbstractSettingsApplication.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItemWithLabelAndIcon.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItemWithLabel.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItem.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalList.$(H) $(INCLUDE_TOP)/stx/libbasic2/List.$(H) $(INCLUDE_TOP)/stx/libbasic/OrderedCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/SequenceableCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/Collection.$(H) $(STCHDR)
+$(OUTDIR)SettingsDialog.$(O) SettingsDialog.$(H): SettingsDialog.st $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalList.$(H) $(INCLUDE_TOP)/stx/libbasic2/List.$(H) $(INCLUDE_TOP)/stx/libbasic/OrderedCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/SequenceableCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/Collection.$(H) $(INCLUDE_TOP)/stx/libtool/AbstractSettingsApplication.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItemWithLabelAndIcon.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItemWithLabel.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItem.$(H) $(STCHDR)
$(OUTDIR)SmalltalkCodeGeneratorTool.$(O) SmalltalkCodeGeneratorTool.$(H): SmalltalkCodeGeneratorTool.st $(INCLUDE_TOP)/stx/libtool/CodeGeneratorTool.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__BackgroundSourceProcessingService.$(O) Tools__BackgroundSourceProcessingService.$(H): Tools__BackgroundSourceProcessingService.st $(INCLUDE_TOP)/stx/libtool/Tools__CodeViewService.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__BreakpointService.$(O) Tools__BreakpointService.$(H): Tools__BreakpointService.st $(INCLUDE_TOP)/stx/libtool/Tools__CodeViewService.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
@@ -266,6 +273,7 @@
$(OUTDIR)Tools__CodeView2SettingsAppl.$(O) Tools__CodeView2SettingsAppl.$(H): Tools__CodeView2SettingsAppl.st $(INCLUDE_TOP)/stx/libtool/AbstractSettingsApplication.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__Diff2CodeView2.$(O) Tools__Diff2CodeView2.$(H): Tools__Diff2CodeView2.st $(INCLUDE_TOP)/stx/libtool/Tools__DiffCodeView2.$(H) $(INCLUDE_TOP)/stx/libwidg2/TwoColumnTextView.$(H) $(INCLUDE_TOP)/stx/libwidg2/SyncedMultiColumnTextView.$(H) $(INCLUDE_TOP)/stx/libview/SimpleView.$(H) $(INCLUDE_TOP)/stx/libview/DisplaySurface.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsMedium.$(H) $(INCLUDE_TOP)/stx/libview/DeviceGraphicsContext.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsContext.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__Diff3CodeView2.$(O) Tools__Diff3CodeView2.$(H): Tools__Diff3CodeView2.st $(INCLUDE_TOP)/stx/libtool/Tools__DiffCodeView2.$(H) $(INCLUDE_TOP)/stx/libwidg2/TwoColumnTextView.$(H) $(INCLUDE_TOP)/stx/libwidg2/SyncedMultiColumnTextView.$(H) $(INCLUDE_TOP)/stx/libview/SimpleView.$(H) $(INCLUDE_TOP)/stx/libview/DisplaySurface.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsMedium.$(H) $(INCLUDE_TOP)/stx/libview/DeviceGraphicsContext.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsContext.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)Tools__LintRuleSettingsApplication.$(O) Tools__LintRuleSettingsApplication.$(H): Tools__LintRuleSettingsApplication.st $(INCLUDE_TOP)/stx/libtool/AbstractSettingsApplication.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__LintService.$(O) Tools__LintService.$(H): Tools__LintService.st $(INCLUDE_TOP)/stx/libtool/Tools__CodeViewService.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__NavigatorCanvas.$(O) Tools__NavigatorCanvas.$(H): Tools__NavigatorCanvas.st $(INCLUDE_TOP)/stx/libtool/Tools__NavigatorModel.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__NewSystemBrowser.$(O) Tools__NewSystemBrowser.$(H): Tools__NewSystemBrowser.st $(INCLUDE_TOP)/stx/libtool/SystemBrowser.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
@@ -312,12 +320,12 @@
$(OUTDIR)Tools__ImplementingClassList.$(O) Tools__ImplementingClassList.$(H): Tools__ImplementingClassList.st $(INCLUDE_TOP)/stx/libtool/Tools__MethodList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__BrowserList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__NavigatorModel.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__ImplementingMethodList.$(O) Tools__ImplementingMethodList.$(H): Tools__ImplementingMethodList.st $(INCLUDE_TOP)/stx/libtool/Tools__MethodList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__BrowserList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__NavigatorModel.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__NamespaceFilter.$(O) Tools__NamespaceFilter.$(H): Tools__NamespaceFilter.st $(INCLUDE_TOP)/stx/libtool/Tools__NamespaceList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__BrowserList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__NavigatorModel.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
-$(OUTDIR)Tools__TestRunner2.$(O) Tools__TestRunner2.$(H): Tools__TestRunner2.st $(INCLUDE_TOP)/stx/libtool/Tools__AbstractTestRunner.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__ClassList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__BrowserList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__NavigatorModel.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItem.$(H) $(STCHDR)
+$(OUTDIR)Tools__TestRunner2.$(O) Tools__TestRunner2.$(H): Tools__TestRunner2.st $(INCLUDE_TOP)/stx/libtool/Tools__AbstractTestRunner.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItem.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__ClassList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__BrowserList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__NavigatorModel.$(H) $(STCHDR)
$(OUTDIR)Tools__HierarchicalChangeList.$(O) Tools__HierarchicalChangeList.$(H): Tools__HierarchicalChangeList.st $(INCLUDE_TOP)/stx/libtool/Tools__ChangeList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__BrowserListWithFilter.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__BrowserList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__NavigatorModel.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)Tools__HierarchicalPackageFilterList.$(O) Tools__HierarchicalPackageFilterList.$(H): Tools__HierarchicalPackageFilterList.st $(INCLUDE_TOP)/stx/libtool/Tools__HierarchicalProjectList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__ProjectList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__BrowserList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__NavigatorModel.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItemWithLabel.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItem.$(H) $(STCHDR)
$(OUTDIR)Tools__InheritanceClassList.$(O) Tools__InheritanceClassList.$(H): Tools__InheritanceClassList.st $(INCLUDE_TOP)/stx/libtool/Tools__HierarchicalClassList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__ClassList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__BrowserList.$(H) $(INCLUDE_TOP)/stx/libtool/Tools__NavigatorModel.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
$(OUTDIR)XTermView.$(O) XTermView.$(H): XTermView.st $(INCLUDE_TOP)/stx/libview/XEmbedContainerView.$(H) $(INCLUDE_TOP)/stx/libview/SimpleView.$(H) $(INCLUDE_TOP)/stx/libview/DisplaySurface.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsMedium.$(H) $(INCLUDE_TOP)/stx/libview/DeviceGraphicsContext.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsContext.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
-$(OUTDIR)extensions.$(O): extensions.st $(INCLUDE_TOP)/stx/libcomp/Breakpoint.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libcomp/BreakpointDescription.$(H) $(INCLUDE_TOP)/stx/libbasic/ByteArray.$(H) $(INCLUDE_TOP)/stx/libbasic/UninterpretedBytes.$(H) $(INCLUDE_TOP)/stx/libbasic/ArrayedCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/SequenceableCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/Collection.$(H) $(INCLUDE_TOP)/stx/libbasic3/Change.$(H) $(INCLUDE_TOP)/stx/libbasic3/ChangeSet.$(H) $(INCLUDE_TOP)/stx/libbasic/OrderedCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/Character.$(H) $(INCLUDE_TOP)/stx/libbasic/Magnitude.$(H) $(INCLUDE_TOP)/stx/libbasic/CharacterArray.$(H) $(INCLUDE_TOP)/stx/libview/Color.$(H) $(INCLUDE_TOP)/stx/libbasic3/CompositeChange.$(H) $(INCLUDE_TOP)/stx/libbasic/Date.$(H) $(INCLUDE_TOP)/stx/libbasic/Dictionary.$(H) $(INCLUDE_TOP)/stx/libbasic/Set.$(H) $(INCLUDE_TOP)/stx/libwidg/EditTextView.$(H) $(INCLUDE_TOP)/stx/libwidg/TextView.$(H) $(INCLUDE_TOP)/stx/libwidg/ListView.$(H) $(INCLUDE_TOP)/stx/libview/View.$(H) $(INCLUDE_TOP)/stx/libview/SimpleView.$(H) $(INCLUDE_TOP)/stx/libview/DisplaySurface.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsMedium.$(H) $(INCLUDE_TOP)/stx/libview/DeviceGraphicsContext.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsContext.$(H) $(INCLUDE_TOP)/stx/libbasic/ExecutableFunction.$(H) $(INCLUDE_TOP)/stx/libview/Form.$(H) $(INCLUDE_TOP)/stx/libview/Image.$(H) $(INCLUDE_TOP)/stx/libbasic/Integer.$(H) $(INCLUDE_TOP)/stx/libbasic/Number.$(H) $(INCLUDE_TOP)/stx/libbasic/ArithmeticValue.$(H) $(INCLUDE_TOP)/stx/libwidg/MenuView.$(H) $(INCLUDE_TOP)/stx/libwidg/SelectionInListView.$(H) $(INCLUDE_TOP)/stx/libbasic/Method.$(H) $(INCLUDE_TOP)/stx/libbasic/CompiledCode.$(H) $(INCLUDE_TOP)/stx/libbasic/MethodDictionary.$(H) $(INCLUDE_TOP)/stx/libbasic/KeyedCollection.$(H) $(INCLUDE_TOP)/stx/libwidg/PopUpMenu.$(H) $(INCLUDE_TOP)/stx/libview/PopUpView.$(H) $(INCLUDE_TOP)/stx/libview/TopView.$(H) $(INCLUDE_TOP)/stx/libbasic3/ProfileTree.$(H) $(INCLUDE_TOP)/stx/libbasic2/RunArray.$(H) $(INCLUDE_TOP)/stx/libwidg2/SelectionInListModelView.$(H) $(INCLUDE_TOP)/stx/libwidg2/ListModelView.$(H) $(INCLUDE_TOP)/stx/libbasic/StringCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/Symbol.$(H) $(INCLUDE_TOP)/stx/libbasic/String.$(H) $(INCLUDE_TOP)/stx/libbasic2/Text.$(H) $(INCLUDE_TOP)/stx/libbasic/Timestamp.$(H) $(INCLUDE_TOP)/stx/libbasic/AbstractTime.$(H) $(INCLUDE_TOP)/stx/libbasic/UserPreferences.$(H) $(INCLUDE_TOP)/stx/libbasic/IdentityDictionary.$(H) $(INCLUDE_TOP)/stx/libcomp/AbstractSyntaxHighlighter.$(H) $(INCLUDE_TOP)/stx/libcomp/Parser.$(H) $(INCLUDE_TOP)/stx/libcomp/Scanner.$(H) $(INCLUDE_TOP)/stx/libwidg/GenericToolbarIconLibrary.$(H) $(INCLUDE_TOP)/stx/libbasic/NameSpace.$(H) $(INCLUDE_TOP)/stx/libbasic/Block.$(H) $(INCLUDE_TOP)/stx/libbasic/LimitedPrecisionReal.$(H) $(INCLUDE_TOP)/stx/libbasic/UndefinedObject.$(H) $(INCLUDE_TOP)/stx/libbasic/Behavior.$(H) $(INCLUDE_TOP)/stx/libbasic2/Iterator.$(H) $(STCHDR)
+$(OUTDIR)extensions.$(O): extensions.st $(INCLUDE_TOP)/stx/libcomp/Breakpoint.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libcomp/BreakpointDescription.$(H) $(INCLUDE_TOP)/stx/libbasic/ByteArray.$(H) $(INCLUDE_TOP)/stx/libbasic/UninterpretedBytes.$(H) $(INCLUDE_TOP)/stx/libbasic/ArrayedCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/SequenceableCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/Collection.$(H) $(INCLUDE_TOP)/stx/libbasic3/Change.$(H) $(INCLUDE_TOP)/stx/libbasic3/ChangeSet.$(H) $(INCLUDE_TOP)/stx/libbasic/OrderedCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/Character.$(H) $(INCLUDE_TOP)/stx/libbasic/Magnitude.$(H) $(INCLUDE_TOP)/stx/libbasic/CharacterArray.$(H) $(INCLUDE_TOP)/stx/libview/Color.$(H) $(INCLUDE_TOP)/stx/libbasic3/CompositeChange.$(H) $(INCLUDE_TOP)/stx/libbasic/Date.$(H) $(INCLUDE_TOP)/stx/libbasic/Dictionary.$(H) $(INCLUDE_TOP)/stx/libbasic/Set.$(H) $(INCLUDE_TOP)/stx/libwidg/EditTextView.$(H) $(INCLUDE_TOP)/stx/libwidg/TextView.$(H) $(INCLUDE_TOP)/stx/libwidg/ListView.$(H) $(INCLUDE_TOP)/stx/libview/View.$(H) $(INCLUDE_TOP)/stx/libview/SimpleView.$(H) $(INCLUDE_TOP)/stx/libview/DisplaySurface.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsMedium.$(H) $(INCLUDE_TOP)/stx/libview/DeviceGraphicsContext.$(H) $(INCLUDE_TOP)/stx/libview/GraphicsContext.$(H) $(INCLUDE_TOP)/stx/libbasic/ExecutableFunction.$(H) $(INCLUDE_TOP)/stx/libview/Form.$(H) $(INCLUDE_TOP)/stx/libview/Image.$(H) $(INCLUDE_TOP)/stx/libbasic/Integer.$(H) $(INCLUDE_TOP)/stx/libbasic/Number.$(H) $(INCLUDE_TOP)/stx/libbasic/ArithmeticValue.$(H) $(INCLUDE_TOP)/stx/libwidg/MenuView.$(H) $(INCLUDE_TOP)/stx/libwidg/SelectionInListView.$(H) $(INCLUDE_TOP)/stx/libbasic/Method.$(H) $(INCLUDE_TOP)/stx/libbasic/CompiledCode.$(H) $(INCLUDE_TOP)/stx/libbasic/MethodDictionary.$(H) $(INCLUDE_TOP)/stx/libbasic/KeyedCollection.$(H) $(INCLUDE_TOP)/stx/libwidg/PopUpMenu.$(H) $(INCLUDE_TOP)/stx/libview/PopUpView.$(H) $(INCLUDE_TOP)/stx/libview/TopView.$(H) $(INCLUDE_TOP)/stx/libbasic3/ProfileTree.$(H) $(INCLUDE_TOP)/stx/libbasic2/RunArray.$(H) $(INCLUDE_TOP)/stx/libwidg2/SelectionInListModelView.$(H) $(INCLUDE_TOP)/stx/libwidg2/ListModelView.$(H) $(INCLUDE_TOP)/stx/libbasic/StringCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/Symbol.$(H) $(INCLUDE_TOP)/stx/libbasic/String.$(H) $(INCLUDE_TOP)/stx/libbasic2/Text.$(H) $(INCLUDE_TOP)/stx/libbasic/Timestamp.$(H) $(INCLUDE_TOP)/stx/libbasic/AbstractTime.$(H) $(INCLUDE_TOP)/stx/libbasic/UserPreferences.$(H) $(INCLUDE_TOP)/stx/libbasic/IdentityDictionary.$(H) $(INCLUDE_TOP)/stx/libcomp/AbstractSyntaxHighlighter.$(H) $(INCLUDE_TOP)/stx/libcomp/Parser.$(H) $(INCLUDE_TOP)/stx/libcomp/Scanner.$(H) $(INCLUDE_TOP)/stx/libwidg/GenericToolbarIconLibrary.$(H) $(INCLUDE_TOP)/stx/libbasic/NameSpace.$(H) $(INCLUDE_TOP)/stx/libbasic/Block.$(H) $(INCLUDE_TOP)/stx/libbasic/LimitedPrecisionReal.$(H) $(INCLUDE_TOP)/stx/libbasic/UndefinedObject.$(H) $(INCLUDE_TOP)/stx/libbasic/Behavior.$(H) $(INCLUDE_TOP)/stx/libbasic2/Iterator.$(H) $(INCLUDE_TOP)/stx/libbasic/Class.$(H) $(INCLUDE_TOP)/stx/libbasic/ClassDescription.$(H) $(STCHDR)
# ENDMAKEDEPEND --- do not remove this line
--- a/Make.spec Tue Feb 26 12:38:54 2013 +0000
+++ b/Make.spec Wed Feb 27 12:34:59 2013 +0000
@@ -49,9 +49,6 @@
# STCWARNINGS=-warnEOLComments
STCWARNINGS=-warnNonStandard
-UNIX_CLASSES= \
- XTermView \
-
COMMON_CLASSES= \
AboutBox \
AbstractFileApplicationNoteBookComponent \
@@ -224,186 +221,193 @@
FileBrowserV3 \
Tools::ChangeSetDiffInfo \
PerforceSourceCodeManagerUtilities \
+ Tools::LintRuleEditDialog \
+ Tools::LintRuleSettingsApplication \
+
+UNIX_CLASSES= \
+ XTermView \
-UNIX_OBJS= \
- $(OUTDIR)XTermView.$(O) \
+COMMON_OBJS= \
+ $(OUTDIR_SLASH)AboutBox.$(O) \
+ $(OUTDIR_SLASH)AbstractFileApplicationNoteBookComponent.$(O) \
+ $(OUTDIR_SLASH)AbstractFileBrowser.$(O) \
+ $(OUTDIR_SLASH)AbstractLauncherApplication.$(O) \
+ $(OUTDIR_SLASH)AbstractSettingsApplication.$(O) \
+ $(OUTDIR_SLASH)Bookmark.$(O) \
+ $(OUTDIR_SLASH)BookmarkBar.$(O) \
+ $(OUTDIR_SLASH)BookmarkEditor.$(O) \
+ $(OUTDIR_SLASH)BookmarkList.$(O) \
+ $(OUTDIR_SLASH)BookmarkListEditor.$(O) \
+ $(OUTDIR_SLASH)BookmarkVisitor.$(O) \
+ $(OUTDIR_SLASH)BookmarksEditDialog.$(O) \
+ $(OUTDIR_SLASH)BrowserView.$(O) \
+ $(OUTDIR_SLASH)ChangesBrowser.$(O) \
+ $(OUTDIR_SLASH)CodeGenerator.$(O) \
+ $(OUTDIR_SLASH)CodeGeneratorTool.$(O) \
+ $(OUTDIR_SLASH)DebugView.$(O) \
+ $(OUTDIR_SLASH)Diff.$(O) \
+ $(OUTDIR_SLASH)DiffListUtility.$(O) \
+ $(OUTDIR_SLASH)DiffTextView.$(O) \
+ $(OUTDIR_SLASH)EditFieldWithCompletion.$(O) \
+ $(OUTDIR_SLASH)EditFieldWithCompletionSpec.$(O) \
+ $(OUTDIR_SLASH)FileBrowser.$(O) \
+ $(OUTDIR_SLASH)FileBrowserV2PanelView.$(O) \
+ $(OUTDIR_SLASH)FileBrowserV2UISpecifications.$(O) \
+ $(OUTDIR_SLASH)FileDialog.$(O) \
+ $(OUTDIR_SLASH)FileOperation.$(O) \
+ $(OUTDIR_SLASH)FilenameEditFieldV2.$(O) \
+ $(OUTDIR_SLASH)InspectorView.$(O) \
+ $(OUTDIR_SLASH)MemoryMonitor.$(O) \
+ $(OUTDIR_SLASH)MemoryMonitorView.$(O) \
+ $(OUTDIR_SLASH)MultiViewToolApplication.$(O) \
+ $(OUTDIR_SLASH)ProcessMonitorV2.$(O) \
+ $(OUTDIR_SLASH)SettingsDialog.$(O) \
+ $(OUTDIR_SLASH)SyntaxElement.$(O) \
+ $(OUTDIR_SLASH)SyntaxHighlighter2.$(O) \
+ $(OUTDIR_SLASH)SystemBrowser.$(O) \
+ $(OUTDIR_SLASH)Tools__AbstractTestRunner.$(O) \
+ $(OUTDIR_SLASH)Tools__BreakpointBrowser.$(O) \
+ $(OUTDIR_SLASH)Tools__Browslet.$(O) \
+ $(OUTDIR_SLASH)Tools__BrowsletCanvas.$(O) \
+ $(OUTDIR_SLASH)Tools__CachedTags.$(O) \
+ $(OUTDIR_SLASH)Tools__ChangeSetBrowser2.$(O) \
+ $(OUTDIR_SLASH)Tools__ChangeSetDiffTool.$(O) \
+ $(OUTDIR_SLASH)Tools__ChangeSetSelectionDialog.$(O) \
+ $(OUTDIR_SLASH)Tools__ChangeSetSpec.$(O) \
+ $(OUTDIR_SLASH)Tools__CheckinInfoDialog.$(O) \
+ $(OUTDIR_SLASH)Tools__ClassChecker.$(O) \
+ $(OUTDIR_SLASH)Tools__ClassSorter.$(O) \
+ $(OUTDIR_SLASH)Tools__CodeCompletionMenu.$(O) \
+ $(OUTDIR_SLASH)Tools__CodeCritics.$(O) \
+ $(OUTDIR_SLASH)Tools__CodeView2.$(O) \
+ $(OUTDIR_SLASH)Tools__CodeViewService.$(O) \
+ $(OUTDIR_SLASH)Tools__BackgroundSourceProcessingService.$(O) \
+ $(OUTDIR_SLASH)Tools__DiffCodeView2.$(O) \
+ $(OUTDIR_SLASH)Tools__HierarchicalChangesetDialog.$(O) \
+ $(OUTDIR_SLASH)Tools__InlineMessageDialog.$(O) \
+ $(OUTDIR_SLASH)Tools__Inspector2.$(O) \
+ $(OUTDIR_SLASH)Tools__Inspector2Tab.$(O) \
+ $(OUTDIR_SLASH)Tools__LintRuleDetail.$(O) \
+ $(OUTDIR_SLASH)Tools__LintRuleSelectionDialog.$(O) \
+ $(OUTDIR_SLASH)Tools__MethodCategoryCache.$(O) \
+ $(OUTDIR_SLASH)Tools__MethodRewriter.$(O) \
+ $(OUTDIR_SLASH)Tools__NavigationHistory.$(O) \
+ $(OUTDIR_SLASH)Tools__NavigationState.$(O) \
+ $(OUTDIR_SLASH)Tools__NavigatorModel.$(O) \
+ $(OUTDIR_SLASH)Tools__NewClassWizardDialog.$(O) \
+ $(OUTDIR_SLASH)Tools__NewSystemBrowserCodeView.$(O) \
+ $(OUTDIR_SLASH)Tools__Profiler.$(O) \
+ $(OUTDIR_SLASH)Tools__ProfilerInfoBuilder.$(O) \
+ $(OUTDIR_SLASH)Tools__ProfilerInfoItem.$(O) \
+ $(OUTDIR_SLASH)Tools__ProjectLoader.$(O) \
+ $(OUTDIR_SLASH)Tools__SearchDialog.$(O) \
+ $(OUTDIR_SLASH)Tools__SmalltalkDiffTool.$(O) \
+ $(OUTDIR_SLASH)Tools__SpecialCodeView.$(O) \
+ $(OUTDIR_SLASH)Tools__StringSearchTool.$(O) \
+ $(OUTDIR_SLASH)Tools__Tag.$(O) \
+ $(OUTDIR_SLASH)Tools__TagList.$(O) \
+ $(OUTDIR_SLASH)Tools__TagsBrowser.$(O) \
+ $(OUTDIR_SLASH)Tools__TextDiffTool.$(O) \
+ $(OUTDIR_SLASH)Tools__WebBrowserPage.$(O) \
+ $(OUTDIR_SLASH)VersionDiffBrowser.$(O) \
+ $(OUTDIR_SLASH)ViewWithAcceptAndCancelBar.$(O) \
+ $(OUTDIR_SLASH)Win32FileDialog.$(O) \
+ $(OUTDIR_SLASH)stx_libtool.$(O) \
+ $(OUTDIR_SLASH)AbstractDirectoryBrowser.$(O) \
+ $(OUTDIR_SLASH)AbstractSourceCodeManagementSettingsAppl.$(O) \
+ $(OUTDIR_SLASH)BookmarkMenuBuilder.$(O) \
+ $(OUTDIR_SLASH)ContextInspectorView.$(O) \
+ $(OUTDIR_SLASH)DictionaryInspectorView.$(O) \
+ $(OUTDIR_SLASH)DiffCodeView.$(O) \
+ $(OUTDIR_SLASH)FileApplicationNoteBook.$(O) \
+ $(OUTDIR_SLASH)FileBrowserV2.$(O) \
+ $(OUTDIR_SLASH)FileBrowserV2SettingsAppl.$(O) \
+ $(OUTDIR_SLASH)FileDialogWithPreview.$(O) \
+ $(OUTDIR_SLASH)AbstractFileFinderApplicationComponent.$(O) \
+ $(OUTDIR_SLASH)FindFileApplication.$(O) \
+ $(OUTDIR_SLASH)ImageInspectorView.$(O) \
+ $(OUTDIR_SLASH)NewLauncher.$(O) \
+ $(OUTDIR_SLASH)OrderedCollectionInspectorView.$(O) \
+ $(OUTDIR_SLASH)SetInspectorView.$(O) \
+ $(OUTDIR_SLASH)SmalltalkCodeGeneratorTool.$(O) \
+ $(OUTDIR_SLASH)Tools__BreakpointService.$(O) \
+ $(OUTDIR_SLASH)Tools__BrowserList.$(O) \
+ $(OUTDIR_SLASH)Tools__BrowserListWithFilter.$(O) \
+ $(OUTDIR_SLASH)Tools__CodeCompletionService.$(O) \
+ $(OUTDIR_SLASH)Tools__CodeHighlightingService.$(O) \
+ $(OUTDIR_SLASH)Tools__CodeNavigationService.$(O) \
+ $(OUTDIR_SLASH)Tools__CodeView2SettingsAppl.$(O) \
+ $(OUTDIR_SLASH)Tools__NavigatorCanvas.$(O) \
+ $(OUTDIR_SLASH)Tools__NewSystemBrowser.$(O) \
+ $(OUTDIR_SLASH)Tools__OrganizerCanvas.$(O) \
+ $(OUTDIR_SLASH)Tools__SendersBrowslet.$(O) \
+ $(OUTDIR_SLASH)Tools__StringSearchToolForTextView.$(O) \
+ $(OUTDIR_SLASH)Tools__TestRunnerEmbedded.$(O) \
+ $(OUTDIR_SLASH)Tools__VisualProfilerCanvas.$(O) \
+ $(OUTDIR_SLASH)WorkspaceApplication.$(O) \
+ $(OUTDIR_SLASH)BookmarkAddMenuBuilder.$(O) \
+ $(OUTDIR_SLASH)BookmarkToolbarMenuBuilder.$(O) \
+ $(OUTDIR_SLASH)CVSSourceCodeManagementSettingsAppl.$(O) \
+ $(OUTDIR_SLASH)DirectoryContentsBrowser.$(O) \
+ $(OUTDIR_SLASH)DirectoryTreeBrowser.$(O) \
+ $(OUTDIR_SLASH)PerforceSourceCodeManagementSettingsAppl.$(O) \
+ $(OUTDIR_SLASH)StoreSourceCodeManagementSettingsAppl.$(O) \
+ $(OUTDIR_SLASH)Tools__ChangeList.$(O) \
+ $(OUTDIR_SLASH)Tools__ChangeSetDiffList.$(O) \
+ $(OUTDIR_SLASH)Tools__ClassCategoryList.$(O) \
+ $(OUTDIR_SLASH)Tools__ClassGeneratorList.$(O) \
+ $(OUTDIR_SLASH)Tools__ClassList.$(O) \
+ $(OUTDIR_SLASH)Tools__LintRuleList.$(O) \
+ $(OUTDIR_SLASH)Tools__MethodCategoryList.$(O) \
+ $(OUTDIR_SLASH)Tools__MethodList.$(O) \
+ $(OUTDIR_SLASH)Tools__NamespaceList.$(O) \
+ $(OUTDIR_SLASH)Tools__ProjectList.$(O) \
+ $(OUTDIR_SLASH)Tools__VariableList.$(O) \
+ $(OUTDIR_SLASH)Tools__FullMethodCategoryList.$(O) \
+ $(OUTDIR_SLASH)Tools__HierarchicalChangeList.$(O) \
+ $(OUTDIR_SLASH)Tools__HierarchicalClassCategoryList.$(O) \
+ $(OUTDIR_SLASH)Tools__HierarchicalClassList.$(O) \
+ $(OUTDIR_SLASH)Tools__HierarchicalLintRuleList.$(O) \
+ $(OUTDIR_SLASH)Tools__HierarchicalProjectList.$(O) \
+ $(OUTDIR_SLASH)Tools__ImplementingClassList.$(O) \
+ $(OUTDIR_SLASH)Tools__ImplementingMethodList.$(O) \
+ $(OUTDIR_SLASH)Tools__NamespaceFilter.$(O) \
+ $(OUTDIR_SLASH)Tools__TestRunner2.$(O) \
+ $(OUTDIR_SLASH)Tools__HierarchicalPackageFilterList.$(O) \
+ $(OUTDIR_SLASH)Tools__InheritanceClassList.$(O) \
+ $(OUTDIR_SLASH)Tools__LintHighlighter.$(O) \
+ $(OUTDIR_SLASH)Tools__LintService.$(O) \
+ $(OUTDIR_SLASH)Tools__SourceCodeManagerConfigurationTestTool.$(O) \
+ $(OUTDIR_SLASH)FileBasedSourceCodeManagementSettingsAppl.$(O) \
+ $(OUTDIR_SLASH)DataBaseSourceCodeManagementSettingsAppl.$(O) \
+ $(OUTDIR_SLASH)DirectoryDifferenceViewApplication.$(O) \
+ $(OUTDIR_SLASH)MercurialSourceCodeManagementSettingsAppl.$(O) \
+ $(OUTDIR_SLASH)GitSourceCodeManagementSettingsAppl.$(O) \
+ $(OUTDIR_SLASH)Tools__LintAnnotation.$(O) \
+ $(OUTDIR_SLASH)Tools__ProjectCheckerBrowser.$(O) \
+ $(OUTDIR_SLASH)ParseTreeIndex.$(O) \
+ $(OUTDIR_SLASH)Tools__Diff2CodeView2.$(O) \
+ $(OUTDIR_SLASH)Tools__Diff3CodeView2.$(O) \
+ $(OUTDIR_SLASH)Tools__TextDiff2Tool.$(O) \
+ $(OUTDIR_SLASH)Tools__TextDiff3Tool.$(O) \
+ $(OUTDIR_SLASH)Diff2.$(O) \
+ $(OUTDIR_SLASH)Diff3.$(O) \
+ $(OUTDIR_SLASH)Diff3Hunk.$(O) \
+ $(OUTDIR_SLASH)Diff3InclusiveVisitor.$(O) \
+ $(OUTDIR_SLASH)Diff3ExclusiveVisitor.$(O) \
+ $(OUTDIR_SLASH)Tools__TextMergeInfo.$(O) \
+ $(OUTDIR_SLASH)FileBrowserV3.$(O) \
+ $(OUTDIR_SLASH)Tools__ChangeSetDiffInfo.$(O) \
+ $(OUTDIR_SLASH)PerforceSourceCodeManagerUtilities.$(O) \
+ $(OUTDIR_SLASH)Tools__LintRuleEditDialog.$(O) \
+ $(OUTDIR_SLASH)Tools__LintRuleSettingsApplication.$(O) \
+ $(OUTDIR_SLASH)extensions.$(O) \
-COMMON_OBJS= \
- $(OUTDIR)AboutBox.$(O) \
- $(OUTDIR)AbstractFileApplicationNoteBookComponent.$(O) \
- $(OUTDIR)AbstractFileBrowser.$(O) \
- $(OUTDIR)AbstractLauncherApplication.$(O) \
- $(OUTDIR)AbstractSettingsApplication.$(O) \
- $(OUTDIR)Bookmark.$(O) \
- $(OUTDIR)BookmarkBar.$(O) \
- $(OUTDIR)BookmarkEditor.$(O) \
- $(OUTDIR)BookmarkList.$(O) \
- $(OUTDIR)BookmarkListEditor.$(O) \
- $(OUTDIR)BookmarkVisitor.$(O) \
- $(OUTDIR)BookmarksEditDialog.$(O) \
- $(OUTDIR)BrowserView.$(O) \
- $(OUTDIR)ChangesBrowser.$(O) \
- $(OUTDIR)CodeGenerator.$(O) \
- $(OUTDIR)CodeGeneratorTool.$(O) \
- $(OUTDIR)DebugView.$(O) \
- $(OUTDIR)Diff.$(O) \
- $(OUTDIR)DiffListUtility.$(O) \
- $(OUTDIR)DiffTextView.$(O) \
- $(OUTDIR)EditFieldWithCompletion.$(O) \
- $(OUTDIR)EditFieldWithCompletionSpec.$(O) \
- $(OUTDIR)FileBrowser.$(O) \
- $(OUTDIR)FileBrowserV2PanelView.$(O) \
- $(OUTDIR)FileBrowserV2UISpecifications.$(O) \
- $(OUTDIR)FileDialog.$(O) \
- $(OUTDIR)FileOperation.$(O) \
- $(OUTDIR)FilenameEditFieldV2.$(O) \
- $(OUTDIR)InspectorView.$(O) \
- $(OUTDIR)MemoryMonitor.$(O) \
- $(OUTDIR)MemoryMonitorView.$(O) \
- $(OUTDIR)MultiViewToolApplication.$(O) \
- $(OUTDIR)ProcessMonitorV2.$(O) \
- $(OUTDIR)SettingsDialog.$(O) \
- $(OUTDIR)SyntaxElement.$(O) \
- $(OUTDIR)SyntaxHighlighter2.$(O) \
- $(OUTDIR)SystemBrowser.$(O) \
- $(OUTDIR)Tools__AbstractTestRunner.$(O) \
- $(OUTDIR)Tools__BreakpointBrowser.$(O) \
- $(OUTDIR)Tools__Browslet.$(O) \
- $(OUTDIR)Tools__BrowsletCanvas.$(O) \
- $(OUTDIR)Tools__CachedTags.$(O) \
- $(OUTDIR)Tools__ChangeSetBrowser2.$(O) \
- $(OUTDIR)Tools__ChangeSetDiffTool.$(O) \
- $(OUTDIR)Tools__ChangeSetSelectionDialog.$(O) \
- $(OUTDIR)Tools__ChangeSetSpec.$(O) \
- $(OUTDIR)Tools__CheckinInfoDialog.$(O) \
- $(OUTDIR)Tools__ClassChecker.$(O) \
- $(OUTDIR)Tools__ClassSorter.$(O) \
- $(OUTDIR)Tools__CodeCompletionMenu.$(O) \
- $(OUTDIR)Tools__CodeCritics.$(O) \
- $(OUTDIR)Tools__CodeView2.$(O) \
- $(OUTDIR)Tools__CodeViewService.$(O) \
- $(OUTDIR)Tools__BackgroundSourceProcessingService.$(O) \
- $(OUTDIR)Tools__DiffCodeView2.$(O) \
- $(OUTDIR)Tools__HierarchicalChangesetDialog.$(O) \
- $(OUTDIR)Tools__InlineMessageDialog.$(O) \
- $(OUTDIR)Tools__Inspector2.$(O) \
- $(OUTDIR)Tools__Inspector2Tab.$(O) \
- $(OUTDIR)Tools__LintRuleDetail.$(O) \
- $(OUTDIR)Tools__LintRuleSelectionDialog.$(O) \
- $(OUTDIR)Tools__MethodCategoryCache.$(O) \
- $(OUTDIR)Tools__MethodRewriter.$(O) \
- $(OUTDIR)Tools__NavigationHistory.$(O) \
- $(OUTDIR)Tools__NavigationState.$(O) \
- $(OUTDIR)Tools__NavigatorModel.$(O) \
- $(OUTDIR)Tools__NewClassWizardDialog.$(O) \
- $(OUTDIR)Tools__NewSystemBrowserCodeView.$(O) \
- $(OUTDIR)Tools__Profiler.$(O) \
- $(OUTDIR)Tools__ProfilerInfoBuilder.$(O) \
- $(OUTDIR)Tools__ProfilerInfoItem.$(O) \
- $(OUTDIR)Tools__ProjectLoader.$(O) \
- $(OUTDIR)Tools__SearchDialog.$(O) \
- $(OUTDIR)Tools__SmalltalkDiffTool.$(O) \
- $(OUTDIR)Tools__SpecialCodeView.$(O) \
- $(OUTDIR)Tools__StringSearchTool.$(O) \
- $(OUTDIR)Tools__Tag.$(O) \
- $(OUTDIR)Tools__TagList.$(O) \
- $(OUTDIR)Tools__TagsBrowser.$(O) \
- $(OUTDIR)Tools__TextDiffTool.$(O) \
- $(OUTDIR)Tools__WebBrowserPage.$(O) \
- $(OUTDIR)VersionDiffBrowser.$(O) \
- $(OUTDIR)ViewWithAcceptAndCancelBar.$(O) \
- $(OUTDIR)Win32FileDialog.$(O) \
- $(OUTDIR)stx_libtool.$(O) \
- $(OUTDIR)AbstractDirectoryBrowser.$(O) \
- $(OUTDIR)AbstractSourceCodeManagementSettingsAppl.$(O) \
- $(OUTDIR)BookmarkMenuBuilder.$(O) \
- $(OUTDIR)ContextInspectorView.$(O) \
- $(OUTDIR)DictionaryInspectorView.$(O) \
- $(OUTDIR)DiffCodeView.$(O) \
- $(OUTDIR)FileApplicationNoteBook.$(O) \
- $(OUTDIR)FileBrowserV2.$(O) \
- $(OUTDIR)FileBrowserV2SettingsAppl.$(O) \
- $(OUTDIR)FileDialogWithPreview.$(O) \
- $(OUTDIR)AbstractFileFinderApplicationComponent.$(O) \
- $(OUTDIR)FindFileApplication.$(O) \
- $(OUTDIR)ImageInspectorView.$(O) \
- $(OUTDIR)NewLauncher.$(O) \
- $(OUTDIR)OrderedCollectionInspectorView.$(O) \
- $(OUTDIR)SetInspectorView.$(O) \
- $(OUTDIR)SmalltalkCodeGeneratorTool.$(O) \
- $(OUTDIR)Tools__BreakpointService.$(O) \
- $(OUTDIR)Tools__BrowserList.$(O) \
- $(OUTDIR)Tools__BrowserListWithFilter.$(O) \
- $(OUTDIR)Tools__CodeCompletionService.$(O) \
- $(OUTDIR)Tools__CodeHighlightingService.$(O) \
- $(OUTDIR)Tools__CodeNavigationService.$(O) \
- $(OUTDIR)Tools__CodeView2SettingsAppl.$(O) \
- $(OUTDIR)Tools__NavigatorCanvas.$(O) \
- $(OUTDIR)Tools__NewSystemBrowser.$(O) \
- $(OUTDIR)Tools__OrganizerCanvas.$(O) \
- $(OUTDIR)Tools__SendersBrowslet.$(O) \
- $(OUTDIR)Tools__StringSearchToolForTextView.$(O) \
- $(OUTDIR)Tools__TestRunnerEmbedded.$(O) \
- $(OUTDIR)Tools__VisualProfilerCanvas.$(O) \
- $(OUTDIR)WorkspaceApplication.$(O) \
- $(OUTDIR)BookmarkAddMenuBuilder.$(O) \
- $(OUTDIR)BookmarkToolbarMenuBuilder.$(O) \
- $(OUTDIR)CVSSourceCodeManagementSettingsAppl.$(O) \
- $(OUTDIR)DirectoryContentsBrowser.$(O) \
- $(OUTDIR)DirectoryTreeBrowser.$(O) \
- $(OUTDIR)PerforceSourceCodeManagementSettingsAppl.$(O) \
- $(OUTDIR)StoreSourceCodeManagementSettingsAppl.$(O) \
- $(OUTDIR)Tools__ChangeList.$(O) \
- $(OUTDIR)Tools__ChangeSetDiffList.$(O) \
- $(OUTDIR)Tools__ClassCategoryList.$(O) \
- $(OUTDIR)Tools__ClassGeneratorList.$(O) \
- $(OUTDIR)Tools__ClassList.$(O) \
- $(OUTDIR)Tools__LintRuleList.$(O) \
- $(OUTDIR)Tools__MethodCategoryList.$(O) \
- $(OUTDIR)Tools__MethodList.$(O) \
- $(OUTDIR)Tools__NamespaceList.$(O) \
- $(OUTDIR)Tools__ProjectList.$(O) \
- $(OUTDIR)Tools__VariableList.$(O) \
- $(OUTDIR)Tools__FullMethodCategoryList.$(O) \
- $(OUTDIR)Tools__HierarchicalChangeList.$(O) \
- $(OUTDIR)Tools__HierarchicalClassCategoryList.$(O) \
- $(OUTDIR)Tools__HierarchicalClassList.$(O) \
- $(OUTDIR)Tools__HierarchicalLintRuleList.$(O) \
- $(OUTDIR)Tools__HierarchicalProjectList.$(O) \
- $(OUTDIR)Tools__ImplementingClassList.$(O) \
- $(OUTDIR)Tools__ImplementingMethodList.$(O) \
- $(OUTDIR)Tools__NamespaceFilter.$(O) \
- $(OUTDIR)Tools__TestRunner2.$(O) \
- $(OUTDIR)Tools__HierarchicalPackageFilterList.$(O) \
- $(OUTDIR)Tools__InheritanceClassList.$(O) \
- $(OUTDIR)Tools__LintHighlighter.$(O) \
- $(OUTDIR)Tools__LintService.$(O) \
- $(OUTDIR)Tools__SourceCodeManagerConfigurationTestTool.$(O) \
- $(OUTDIR)FileBasedSourceCodeManagementSettingsAppl.$(O) \
- $(OUTDIR)DataBaseSourceCodeManagementSettingsAppl.$(O) \
- $(OUTDIR)DirectoryDifferenceViewApplication.$(O) \
- $(OUTDIR)MercurialSourceCodeManagementSettingsAppl.$(O) \
- $(OUTDIR)GitSourceCodeManagementSettingsAppl.$(O) \
- $(OUTDIR)Tools__LintAnnotation.$(O) \
- $(OUTDIR)Tools__ProjectCheckerBrowser.$(O) \
- $(OUTDIR)ParseTreeIndex.$(O) \
- $(OUTDIR)Tools__Diff2CodeView2.$(O) \
- $(OUTDIR)Tools__Diff3CodeView2.$(O) \
- $(OUTDIR)Tools__TextDiff2Tool.$(O) \
- $(OUTDIR)Tools__TextDiff3Tool.$(O) \
- $(OUTDIR)Diff2.$(O) \
- $(OUTDIR)Diff3.$(O) \
- $(OUTDIR)Diff3Hunk.$(O) \
- $(OUTDIR)Diff3InclusiveVisitor.$(O) \
- $(OUTDIR)Diff3ExclusiveVisitor.$(O) \
- $(OUTDIR)Tools__TextMergeInfo.$(O) \
- $(OUTDIR)FileBrowserV3.$(O) \
- $(OUTDIR)Tools__ChangeSetDiffInfo.$(O) \
- $(OUTDIR)PerforceSourceCodeManagerUtilities.$(O) \
- $(OUTDIR)extensions.$(O) \
+UNIX_OBJS= \
+ $(OUTDIR_SLASH)XTermView.$(O) \
--- a/MemoryMonitor.st Tue Feb 26 12:38:54 2013 +0000
+++ b/MemoryMonitor.st Wed Feb 27 12:34:59 2013 +0000
@@ -99,7 +99,6 @@
! !
-
!MemoryMonitor class methodsFor:'image specs'!
defaultIcon
@@ -126,7 +125,6 @@
@P(P)RH@@P/P&RH@@@@@@@@@') ; yourself]
! !
-
!MemoryMonitor class methodsFor:'interface specs'!
windowSpec
@@ -171,7 +169,6 @@
)
! !
-
!MemoryMonitor class methodsFor:'menu specs'!
mainMenu
@@ -264,7 +261,6 @@
)
! !
-
!MemoryMonitor methodsFor:'actions'!
collectGarbage
@@ -286,7 +282,6 @@
! !
-
!MemoryMonitor methodsFor:'initialization & release'!
postBuildWith:aBuilder
@@ -302,7 +297,6 @@
^ super postBuildWith:aBuilder
! !
-
!MemoryMonitor class methodsFor:'documentation'!
version
@@ -313,6 +307,11 @@
^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.70 2012-10-29 00:35:21 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: MemoryMonitor.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
--- a/MemoryMonitorView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/MemoryMonitorView.st Wed Feb 27 12:34:59 2013 +0000
@@ -1027,6 +1027,12 @@
^ '§Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.16 2011/08/16 13:13:38 stefan Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: MemoryMonitorView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/MercurialSourceCodeManagementSettingsAppl.st Tue Feb 26 12:38:54 2013 +0000
+++ b/MercurialSourceCodeManagementSettingsAppl.st Wed Feb 27 12:34:59 2013 +0000
@@ -49,7 +49,6 @@
"
! !
-
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'defaults'!
defaultRepositoryName
@@ -59,7 +58,6 @@
"Created: / 19-04-2011 / 11:00:11 / cg"
! !
-
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
helpSpec
@@ -193,7 +191,6 @@
"Modified: / 09-08-2012 / 09:41:11 / cg"
! !
-
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -283,7 +280,6 @@
@CP\L0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[174 169 169 255 255 255 233 233 230 216 216 216 213 209 209 214 209 209 232 229 229 229 223 223 191 187 181 197 197 197 255 255 255 233 230 230 194 189 194 247 244 245 251 250 250 177 177 177 255 255 255 194 189 194 155 149 149 175 175 169 157 157 157 136 128 128 251 251 251 255 255 255 117 108 108 118 118 118 97 89 98 139 139 147 240 240 242 255 255 255 137 128 118 98 98 98 79 79 79 255 255 255 156 149 156 38 30 30 39 39 30 97 89 79 79 69 69 58 49 49 255 255 255 255 255 255 77 59 59 229 226 223 137 137 128 79 79 69 77 69 69 59 59 59 59 49 59 154 140 147 199 199 204 251 251 251 255 255 255 0 0 0 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@G>@@O? @_?0@??8@??8@??<@??<O??>__?>_O?>_??>O=?>GR_>G<_<_>_<O>_8G?_8C??0K<? G<?@C8\@@@@@') ; yourself); yourself]
! !
-
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -807,7 +803,6 @@
)
! !
-
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'queries'!
managerClass
@@ -818,7 +813,6 @@
"Created: / 19-04-2011 / 12:46:52 / cg"
! !
-
!MercurialSourceCodeManagementSettingsAppl methodsFor:'actions'!
addModule:module withData:data
@@ -922,7 +916,6 @@
"Modified: / 26-01-2012 / 13:50:08 / cg"
! !
-
!MercurialSourceCodeManagementSettingsAppl methodsFor:'actions - mercurial'!
addPerModuleRoot
@@ -981,7 +974,6 @@
"Created: / 17-01-2012 / 17:42:27 / cg"
! !
-
!MercurialSourceCodeManagementSettingsAppl methodsFor:'aspects'!
hgCommandTimeoutHolder
@@ -1131,7 +1123,6 @@
"Created: / 03-03-2012 / 10:34:19 / cg"
! !
-
!MercurialSourceCodeManagementSettingsAppl methodsFor:'change & update'!
selectedPerModuleRepositoryChanged
@@ -1182,7 +1173,6 @@
"Modified: / 14-01-2012 / 20:26:51 / cg"
! !
-
!MercurialSourceCodeManagementSettingsAppl methodsFor:'help'!
helpFilename
@@ -1191,7 +1181,6 @@
"Modified: / 14-01-2012 / 20:27:00 / cg"
! !
-
!MercurialSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -1215,7 +1204,6 @@
"Modified: / 17-01-2012 / 17:39:13 / cg"
! !
-
!MercurialSourceCodeManagementSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -1254,7 +1242,6 @@
"Modified: / 14-01-2012 / 23:41:33 / cg"
! !
-
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
@@ -1265,6 +1252,11 @@
^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.19 2012-08-09 08:59:22 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: MercurialSourceCodeManagementSettingsAppl.st 8048 2012-09-07 17:28:09Z vranyj1 $'
! !
--- a/MultiViewToolApplication.st Tue Feb 26 12:38:54 2013 +0000
+++ b/MultiViewToolApplication.st Wed Feb 27 12:34:59 2013 +0000
@@ -44,7 +44,6 @@
"
! !
-
!MultiViewToolApplication class methodsFor:'defaults'!
defaultEditToolbarVisible
@@ -65,7 +64,6 @@
"Created: / 14-07-2007 / 16:38:47 / cg"
! !
-
!MultiViewToolApplication class methodsFor:'help specs'!
flyByHelpSpec
@@ -87,7 +85,6 @@
"Modified: / 06-07-2011 / 18:08:57 / cg"
! !
-
!MultiViewToolApplication class methodsFor:'image specs'!
hideToolBarIcon
@@ -98,7 +95,6 @@
"Created: / 18-02-2007 / 14:53:38 / cg"
! !
-
!MultiViewToolApplication class methodsFor:'interface specs'!
windowSpec
@@ -207,7 +203,6 @@
"Modified: / 11-05-2012 / 11:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!MultiViewToolApplication class methodsFor:'menu specs'!
editToolBarMenu
@@ -548,7 +543,6 @@
)
! !
-
!MultiViewToolApplication class methodsFor:'queries'!
isVisualStartable
@@ -559,7 +553,6 @@
^ super isVisualStartable
! !
-
!MultiViewToolApplication methodsFor:'accessing'!
selectedWorkspace
@@ -661,7 +654,6 @@
^ workspaces
! !
-
!MultiViewToolApplication methodsFor:'aspects'!
editToolBarVisibleHolder
@@ -729,7 +721,6 @@
"Modified: / 14-07-2007 / 16:39:55 / cg"
! !
-
!MultiViewToolApplication methodsFor:'aspects-queries'!
canRemoveAllWorkspacesExcept:idx
@@ -765,7 +756,6 @@
and:[v list contains:[:l | l notEmptyOrNil]]]
! !
-
!MultiViewToolApplication methodsFor:'change & update'!
infoVisibilityChanged
@@ -846,7 +836,6 @@
"Modified: / 14-07-2007 / 16:46:14 / cg"
! !
-
!MultiViewToolApplication methodsFor:'defaults'!
defaultFileNameForLoad
@@ -873,7 +862,6 @@
"Created: / 25-10-2006 / 14:57:18 / cg"
! !
-
!MultiViewToolApplication methodsFor:'initialization'!
hideToolBarButtonCreated:aButton
@@ -898,7 +886,6 @@
"Modified: / 22-01-2011 / 11:46:35 / cg"
! !
-
!MultiViewToolApplication methodsFor:'menu-actions'!
addWindow:aWindow named:name
@@ -1178,7 +1165,6 @@
].
! !
-
!MultiViewToolApplication methodsFor:'menu-actions-editing'!
copySelection
@@ -1255,7 +1241,6 @@
]
! !
-
!MultiViewToolApplication methodsFor:'private'!
askForFile:question default:defaultFilename thenDo:aBlock
@@ -1375,7 +1360,6 @@
^ view allSubViewsDetect:[:v| v name = #Workspace] ifNone:nil.
! !
-
!MultiViewToolApplication methodsFor:'user actions'!
hideEditToolbar
@@ -1388,13 +1372,17 @@
"Created: / 18-02-2007 / 14:55:54 / cg"
! !
-
!MultiViewToolApplication class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.45 2012-08-03 20:25:30 stefan Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: MultiViewToolApplication.st 8048 2012-09-07 17:28:09Z vranyj1 $'
! !
--- a/NewChangesBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/NewChangesBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -3913,6 +3913,12 @@
^ '§Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.35 2011/08/18 07:51:53 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: NewChangesBrowser.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/NewLauncher.st Tue Feb 26 12:38:54 2013 +0000
+++ b/NewLauncher.st Wed Feb 27 12:34:59 2013 +0000
@@ -128,7 +128,6 @@
"
! !
-
!NewLauncher class methodsFor:'accessing'!
label
@@ -138,7 +137,6 @@
! !
-
!NewLauncher class methodsFor:'defaults'!
defaultInfoLineTemplate
@@ -174,7 +172,6 @@
"Modified: / 17.8.1998 / 10:07:09 / cg"
! !
-
!NewLauncher class methodsFor:'help specs'!
flyByHelpSpec
@@ -785,7 +782,6 @@
"Modified: / 21-09-2012 / 10:59:33 / cg"
! !
-
!NewLauncher class methodsFor:'interface specs'!
windowSpec
@@ -973,7 +969,6 @@
)
! !
-
!NewLauncher class methodsFor:'menu configuration'!
addMenuItem:newItem from:anApplicationWhichProvidesResourcesOrNil in:where position:positionSpecOrNilArg space:space
@@ -1135,7 +1130,6 @@
"
! !
-
!NewLauncher class methodsFor:'menu specs'!
aboutMenu
@@ -3185,7 +3179,6 @@
)
! !
-
!NewLauncher class methodsFor:'oldstyle-menu specs'!
settingsMenu
@@ -3342,7 +3335,6 @@
)
! !
-
!NewLauncher methodsFor:'accessing'!
errorListCanvas
@@ -3450,7 +3442,6 @@
^ transcript
! !
-
!NewLauncher methodsFor:'aspects'!
canDoTerminal
@@ -3622,7 +3613,6 @@
^ false
! !
-
!NewLauncher methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -3744,7 +3734,6 @@
^projectInfo.
! !
-
!NewLauncher methodsFor:'help'!
defaultInfoLabel
@@ -3763,7 +3752,6 @@
^ text
! !
-
!NewLauncher methodsFor:'menu configuration'!
addMenuItem:newItem from:anApplicationClassWhichProvidesResourcesOrNil in:where position:positionSpecOrNilArg space:space
@@ -4128,7 +4116,6 @@
! !
-
!NewLauncher methodsFor:'menus-dynamic'!
allWindowsMenu
@@ -4425,7 +4412,6 @@
"Created: / 12-11-2006 / 16:06:06 / cg"
! !
-
!NewLauncher methodsFor:'private-settings callBacks'!
reopenLauncher
@@ -4442,7 +4428,6 @@
^ newLauncher
! !
-
!NewLauncher methodsFor:'queries'!
preferredExtent
@@ -4463,7 +4448,6 @@
^ XWorkstation notNil
! !
-
!NewLauncher methodsFor:'startup & release'!
allButOpenInterface:anInterface
@@ -4644,7 +4628,6 @@
Project notNil ifTrue:[Project removeDependent:self]
! !
-
!NewLauncher methodsFor:'user actions-classes'!
enableGlobalCoverageAnalysis
@@ -4715,7 +4698,6 @@
DebugView stopIgnoringHalts
! !
-
!NewLauncher methodsFor:'user actions-demos'!
openDemo:className
@@ -4780,7 +4762,6 @@
self openApplication:'TicTacToeGame' nameSpace:Games with:#open2UserGame
! !
-
!NewLauncher methodsFor:'user actions-file'!
clearTranscript
@@ -4819,7 +4800,6 @@
].
! !
-
!NewLauncher methodsFor:'user actions-help'!
activeHelp
@@ -4842,7 +4822,6 @@
"Modified: / 18.8.1998 / 16:06:27 / cg"
! !
-
!NewLauncher methodsFor:'user actions-system'!
initJavaVM
@@ -4889,14 +4868,12 @@
"Modified: / 20-04-2005 / 18:59:28 / janfrog"
! !
-
!NewLauncher methodsFor:'user actions-windows'!
redrawAllWindows
device redrawAllWindows.
! !
-
!NewLauncher::AddedToolInfo methodsFor:'accessing'!
before
@@ -4964,7 +4941,6 @@
where := something.
! !
-
!NewLauncher class methodsFor:'documentation'!
version
@@ -4975,6 +4951,11 @@
^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.450 2013-01-26 21:04:03 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: NewLauncher.st 7772 2011-06-08 21:59:15Z vranyj1 §'
! !
--- a/OrderedCollectionInspectorView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/OrderedCollectionInspectorView.st Wed Feb 27 12:34:59 2013 +0000
@@ -44,7 +44,6 @@
! !
-
!OrderedCollectionInspectorView methodsFor:'menu'!
fieldMenu
@@ -123,7 +122,6 @@
"Modified: / 06-08-2012 / 09:01:56 / cg"
! !
-
!OrderedCollectionInspectorView methodsFor:'private'!
baseInspectedObjectClass
@@ -166,7 +164,6 @@
"Created: / 13-06-2012 / 10:13:16 / cg"
! !
-
!OrderedCollectionInspectorView methodsFor:'user interaction'!
indexedValueAtIndex:idx
@@ -192,7 +189,6 @@
]
! !
-
!OrderedCollectionInspectorView class methodsFor:'documentation'!
version
@@ -203,6 +199,11 @@
^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.48 2012-08-06 07:02:02 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: OrderedCollectionInspectorView.st 8048 2012-09-07 17:28:09Z vranyj1 $'
! !
--- a/ParseTreeIndex.st Tue Feb 26 12:38:54 2013 +0000
+++ b/ParseTreeIndex.st Wed Feb 27 12:34:59 2013 +0000
@@ -273,6 +273,12 @@
!ParseTreeIndex class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: ParseTreeIndex.st 7911 2012-02-22 09:55:48Z vranyj1 $'
! !
+
--- a/PerforceSourceCodeManagementSettingsAppl.st Tue Feb 26 12:38:54 2013 +0000
+++ b/PerforceSourceCodeManagementSettingsAppl.st Wed Feb 27 12:34:59 2013 +0000
@@ -54,7 +54,6 @@
"
! !
-
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -166,7 +165,6 @@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 207 52 214 168 55 233 238 244 117 121 125 215 219 225 217 222 228 166 169 170 185 189 193 118 113 66 175 127 29 172 137 46 183 143 46 186 146 50 149 132 77 212 161 47 102 106 106 233 202 75 244 197 63 237 243 249 253 208 64 244 197 65 116 121 116 236 242 248 141 145 139 212 219 146 193 198 148 232 179 53 146 149 152 164 168 171 127 97 27 138 106 37 200 204 209 180 136 36 187 140 37 209 152 33 214 218 223 219 166 45 223 228 234 240 194 60 240 194 64 138 131 107 230 183 62 239 191 65 230 184 63 120 122 121 213 164 49 232 237 244 104 109 109 251 215 73 225 231 235 162 166 166 180 184 188 153 111 25 175 126 27 185 134 29 186 141 39 223 228 223 217 221 226 223 227 230 232 237 235 255 235 80 227 199 81 236 241 247 232 185 63 253 216 78 253 217 79 131 135 134 230 234 240 215 159 40 232 182 60 216 221 223 96 97 95 154 158 159 178 183 183 144 110 31 199 204 209 163 130 45 175 133 40 205 150 34 203 156 46 134 121 82 223 172 50 228 233 234 232 183 60 236 243 248 253 216 79 254 241 108 123 127 129 233 184 62 255 196 50 232 182 57 118 122 120 216 220 226 211 164 51 161 167 160 102 81 27 139 107 33 147 120 48 166 132 45 167 134 50 212 217 221 94 100 98 227 233 231 224 229 234 228 183 56 253 208 63 237 243 247 238 243 250 231 235 242 234 239 246 254 208 63 240 194 65 216 168 53 114 120 119 217 221 227 148 152 153 227 232 238 178 182 180 143 110 31 171 125 28 118 105 65 173 137 46 205 150 33 214 159 37 224 166 38 221 167 46 223 170 49 231 179 56 235 239 244 245 203 72 238 190 64 233 181 58 232 184 62 128 131 126 255 230 77 215 162 44 117 121 122 222 227 232 203 152 38 150 153 155 172 176 177 132 102 33 154 121 40 147 118 49 101 101 82 228 233 221 255 235 71 227 233 230 211 164 52 228 233 237 227 181 61 244 196 63 237 242 248 233 182 59 234 184 60 236 241 248 255 205 50 214 166 51 222 226 230 195 202 151 229 233 240 153 156 155 168 172 176 138 101 24 157 117 33 119 99 56 219 225 216 184 158 61 139 130 81 100 101 96 144 149 103 225 175 53 149 154 112 245 200 66 246 202 71 232 184 63 233 183 61 131 134 130 0 0 0 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@C@@@C@@@CA<@CA?OCA??CA??CA??CA??CA??CA?>CC?.CG??CG??#_/?#ON^CF_^C@?LCHL@CG<@CC8@C@@@C') ; yourself); yourself]
! !
-
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -459,7 +457,6 @@
)
! !
-
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'menu specs'!
menuPerModule
@@ -491,7 +488,6 @@
)
! !
-
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'queries'!
managerClass
@@ -502,7 +498,6 @@
"Created: / 19-04-2011 / 12:52:02 / cg"
! !
-
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
tableColumns
@@ -548,7 +543,6 @@
! !
-
!PerforceSourceCodeManagementSettingsAppl methodsFor:'actions'!
addModule:aModuleManager
@@ -711,7 +705,6 @@
self updateModifiedChannel.
! !
-
!PerforceSourceCodeManagementSettingsAppl methodsFor:'aspects'!
checkLabel
@@ -815,7 +808,6 @@
^ verboseSourceCodeAccess.
! !
-
!PerforceSourceCodeManagementSettingsAppl methodsFor:'change & update'!
selectedPerModuleRootChanged
@@ -844,7 +836,6 @@
"Modified: / 09-11-2006 / 14:41:10 / cg"
! !
-
!PerforceSourceCodeManagementSettingsAppl methodsFor:'help'!
helpFilename
@@ -853,7 +844,6 @@
"Modified: / 05-08-2011 / 09:10:03 / cg"
! !
-
!PerforceSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -867,7 +857,6 @@
"Modified: / 08-11-2006 / 19:20:32 / cg"
! !
-
!PerforceSourceCodeManagementSettingsAppl methodsFor:'queries'!
hasManager
@@ -935,7 +924,6 @@
^ repositoryInfoPerModule
! !
-
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'instance creation'!
openFromSourceCodeManagementSettingsApp:something
@@ -948,7 +936,6 @@
^ inst
! !
-
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'interface specs'!
windowSpec
@@ -1107,7 +1094,6 @@
)
! !
-
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'accessing'!
canceled
@@ -1130,7 +1116,6 @@
sourceCodeManagementSettingsApp := something.
! !
-
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'aspects'!
acceptChannel
@@ -1206,7 +1191,6 @@
^ settingsHolder.
! !
-
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'initialization & release'!
doCancel
@@ -1240,7 +1224,6 @@
^ super postOpenWith:aBuilder
! !
-
!PerforceSourceCodeManagementSettingsAppl::ModuleManager class methodsFor:'instance creation'!
newForApplication:anApplication
@@ -1251,7 +1234,6 @@
^instance
! !
-
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'accessing'!
app
@@ -1317,7 +1299,6 @@
].
! !
-
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'actions'!
doubleClick
@@ -1331,7 +1312,6 @@
self changed.
! !
-
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'comparing'!
< aModuleManager
@@ -1339,7 +1319,6 @@
^ self module < aModuleManager module
! !
-
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'queries'!
availableManagerTypeNames
@@ -1351,7 +1330,6 @@
^ AbstractSourceCodeManager availableManagers detect:[:cls | cls managerTypeName = manager] ifNone:[nil].
! !
-
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
@@ -1362,6 +1340,11 @@
^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.25 2012-07-19 15:27:52 stefan Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/PerforceSourceCodeManagerUtilities.st Tue Feb 26 12:38:54 2013 +0000
+++ b/PerforceSourceCodeManagerUtilities.st Wed Feb 27 12:34:59 2013 +0000
@@ -68,7 +68,6 @@
"
! !
-
!PerforceSourceCodeManagerUtilities class methodsFor:'class access'!
submitInfoDialogClass
@@ -84,7 +83,6 @@
"Created: / 01-06-2012 / 11:13:49 / cg"
! !
-
!PerforceSourceCodeManagerUtilities methodsFor:'utilities-cvs'!
checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass usingManager:managerOrNil
@@ -191,14 +189,12 @@
"Created: / 21-12-2011 / 18:19:14 / cg"
! !
-
!PerforceSourceCodeManagerUtilities methodsFor:'utilities-p4'!
submit
self defaultManager submit
! !
-
!PerforceSourceCodeManagerUtilities methodsFor:'utilities-p4-interaction'!
getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
@@ -227,7 +223,6 @@
"Modified: / 06-07-2010 / 11:21:28 / cg"
! !
-
!PerforceSourceCodeManagerUtilities::P4CheckinInfoDialog class methodsFor:'documentation'!
copyright
@@ -260,7 +255,6 @@
"
! !
-
!PerforceSourceCodeManagerUtilities::P4CheckinInfoDialog class methodsFor:'interface specs'!
windowSpec
@@ -406,7 +400,6 @@
)
! !
-
!PerforceSourceCodeManagerUtilities::P4CheckinInfoDialog class methodsFor:'opening'!
getCheckinInfoFor:aString initialAnswer:initialAnswer
@@ -474,7 +467,6 @@
"Created: / 12-03-2012 / 12:36:26 / cg"
! !
-
!PerforceSourceCodeManagerUtilities::P4CheckinInfoDialog methodsFor:'accessing'!
allowEmptyLogMessage
@@ -545,7 +537,6 @@
^ self quickCheckInVisibleHolder value:aBoolean
! !
-
!PerforceSourceCodeManagerUtilities::P4CheckinInfoDialog methodsFor:'aspects'!
descriptionHolder
@@ -633,7 +624,6 @@
"Created: / 06-07-2010 / 11:30:29 / cg"
! !
-
!PerforceSourceCodeManagerUtilities::SubmitInfoDialog class methodsFor:'documentation'!
copyright
@@ -666,7 +656,6 @@
"
! !
-
!PerforceSourceCodeManagerUtilities::SubmitInfoDialog class methodsFor:'interface specs'!
windowSpec
@@ -828,7 +817,6 @@
)
! !
-
!PerforceSourceCodeManagerUtilities::SubmitInfoDialog class methodsFor:'opening'!
getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswer withFileList:fileList
@@ -905,7 +893,6 @@
"Modified: / 06-07-2010 / 11:40:00 / cg"
! !
-
!PerforceSourceCodeManagerUtilities::SubmitInfoDialog methodsFor:'accessing'!
allowEmptyLogMessage
@@ -980,7 +967,6 @@
^ self quickCheckInVisibleHolder value:aBoolean
! !
-
!PerforceSourceCodeManagerUtilities::SubmitInfoDialog methodsFor:'aspects'!
descriptionHolder
@@ -1074,7 +1060,6 @@
"Created: / 06-07-2010 / 11:30:29 / cg"
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace class methodsFor:'instance creation'!
newWorkSpaceFor:aSettingsString
@@ -1099,7 +1084,6 @@
^ workSpace newWorkSpaceForSettings:settingsDict
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace methodsFor:'accessing'!
client
@@ -1167,7 +1151,6 @@
^ views
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace methodsFor:'actions'!
addCheckIn:checkInDefinition submit:doSubmit
@@ -2517,7 +2500,6 @@
^true
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace methodsFor:'basic administration'!
initialRevisionInfo:checkInDefinition
@@ -2614,7 +2596,6 @@
^versionInfo getVersionString
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace methodsFor:'command execution'!
executePerforceCommand:perforceCommand inDirectory:dirArg
@@ -2805,7 +2786,6 @@
^ commandStream contents.
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace methodsFor:'dialogs & helpers'!
checkinTroubleDialog:title message:message log:log abortable:abortable option:optionTitle
@@ -3028,7 +3008,6 @@
"
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace methodsFor:'initialization'!
initialize
@@ -3036,7 +3015,6 @@
PerforceCommandSemaphore := Semaphore new:10.
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace methodsFor:'queries'!
getDepotPathForLocalPath:aFilename
@@ -3282,7 +3260,6 @@
^ 'stxCheckinWorkSpace_', self owner, self host.
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace methodsFor:'read'!
getDefinitionFromServer
@@ -3404,7 +3381,6 @@
self perforceSettings:settingsDict.
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace::View class methodsFor:'instance creation'!
newFromLine:aLine workspace:aWorkspaceDefinition
@@ -3417,7 +3393,6 @@
^instance
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace::View methodsFor:'accessing'!
depot
@@ -3459,7 +3434,6 @@
workspace := something.
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace::View methodsFor:'queries'!
getDepotPathForLocalPath:aFilename
@@ -3543,7 +3517,6 @@
^localPathName pathName
! !
-
!PerforceSourceCodeManagerUtilities::WorkSpace::View methodsFor:'reading'!
newFromLine:aLine
@@ -3588,7 +3561,6 @@
"
! !
-
!PerforceSourceCodeManagerUtilities class methodsFor:'documentation'!
version
@@ -3599,6 +3571,11 @@
^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagerUtilities.st,v 1.2 2012-10-30 14:33:38 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id:: PerforceSourceCodeManagerUtilities.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
--- a/ProcessMonitorV2.st Tue Feb 26 12:38:54 2013 +0000
+++ b/ProcessMonitorV2.st Wed Feb 27 12:34:59 2013 +0000
@@ -105,7 +105,6 @@
"Created: / 14.1.2003 / 11:16:10 / penk"
! !
-
!ProcessMonitorV2 class methodsFor:'instance creation'!
openAllowNoModifications
@@ -118,7 +117,6 @@
application allowModifications value:false.
! !
-
!ProcessMonitorV2 class methodsFor:'defaults'!
defaultLabel
@@ -132,7 +130,6 @@
^ 'ProcessMonitor'
! !
-
!ProcessMonitorV2 class methodsFor:'help'!
aboutThisApplicationText
@@ -243,7 +240,6 @@
"Modified: / 05-06-2007 / 18:35:47 / cg"
! !
-
!ProcessMonitorV2 class methodsFor:'image specs'!
defaultIcon
@@ -714,7 +710,6 @@
ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@]+X@@@@@]+X@@@@@]+X@@@@@]+X@@@@@@@@b') ; yourself); yourself]
! !
-
!ProcessMonitorV2 class methodsFor:'interface specs'!
windowSpec
@@ -868,7 +863,6 @@
)
! !
-
!ProcessMonitorV2 class methodsFor:'menu specs'!
applicationMenu
@@ -1589,7 +1583,6 @@
)
! !
-
!ProcessMonitorV2 class methodsFor:'tableColumns specs'!
tableColumns
@@ -1825,7 +1818,6 @@
)
! !
-
!ProcessMonitorV2 methodsFor:'accessing'!
visibleBlock
@@ -1836,7 +1828,6 @@
visibleBlock := aProcessVisibleFilterBlock.
! !
-
!ProcessMonitorV2 methodsFor:'actions'!
changeSelectionTo:aSelection
@@ -1955,7 +1946,6 @@
"Modified: / 07-06-2007 / 12:38:29 / cg"
! !
-
!ProcessMonitorV2 methodsFor:'aspects'!
currentSortOrder
@@ -2057,7 +2047,6 @@
^ updateListDelayTime.
! !
-
!ProcessMonitorV2 methodsFor:'aspects-column'!
showApplication
@@ -2185,7 +2174,6 @@
"Created: / 17-08-2011 / 10:46:47 / cg"
! !
-
!ProcessMonitorV2 methodsFor:'aspects-menu enabling'!
allowModifications
@@ -2329,7 +2317,6 @@
^ selectionRestartable
! !
-
!ProcessMonitorV2 methodsFor:'change & update'!
selectionChanged
@@ -2453,7 +2440,6 @@
"Modified: / 17-08-2011 / 11:11:21 / cg"
! !
-
!ProcessMonitorV2 methodsFor:'event handling'!
processEvent:anEvent
@@ -2479,7 +2465,6 @@
^ false
! !
-
!ProcessMonitorV2 methodsFor:'initialization & release'!
commonPostOpen
@@ -2550,7 +2535,6 @@
self startUpdateProcess.
! !
-
!ProcessMonitorV2 methodsFor:'menu accessing'!
tableMenu
@@ -2574,7 +2558,6 @@
"Modified: / 27-03-2007 / 08:43:43 / cg"
! !
-
!ProcessMonitorV2 methodsFor:'menu actions'!
abortProcess
@@ -2689,7 +2672,6 @@
self updateList.
! !
-
!ProcessMonitorV2 methodsFor:'menu actions-application'!
closeApplication
@@ -2732,7 +2714,6 @@
"Created: / 07-06-2007 / 12:42:09 / cg"
! !
-
!ProcessMonitorV2 methodsFor:'menu actions-debug'!
browseApplication
@@ -2820,7 +2801,6 @@
self selectedProcessesSend:#inspect
! !
-
!ProcessMonitorV2 methodsFor:'private queries'!
isApplicationProcess:aProcess
@@ -2841,7 +2821,6 @@
^ nil
! !
-
!ProcessMonitorV2 methodsFor:'queries - table string'!
getActiveStringFor:aProcess running:isRunning
@@ -3200,7 +3179,6 @@
"Created: / 17-08-2011 / 11:01:21 / cg"
! !
-
!ProcessMonitorV2 methodsFor:'sorting'!
sortProcessListBy:instanceName
@@ -3252,7 +3230,6 @@
self viewedColumnsChanged.
! !
-
!ProcessMonitorV2 methodsFor:'update process'!
fillItemInformationIn:processItem
@@ -3613,7 +3590,6 @@
].
! !
-
!ProcessMonitorV2::ProcessItem methodsFor:'accessing'!
groupVal
@@ -3834,7 +3810,6 @@
weakArrayWithProcesses := something.
! !
-
!ProcessMonitorV2::ProcessItem methodsFor:'printing'!
printOn:aStream
@@ -3844,7 +3819,6 @@
aStream nextPut:$].
! !
-
!ProcessMonitorV2 class methodsFor:'documentation'!
version
@@ -3855,6 +3829,11 @@
^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.63 2013-01-17 11:19:31 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: ProcessMonitorV2.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
--- a/SetInspectorView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/SetInspectorView.st Wed Feb 27 12:34:59 2013 +0000
@@ -50,7 +50,6 @@
"
! !
-
!SetInspectorView methodsFor:'menu'!
fieldMenu
@@ -77,7 +76,6 @@
"Modified: / 29.10.1997 / 03:41:47 / cg"
! !
-
!SetInspectorView methodsFor:'private'!
baseInspectedObjectClass
@@ -155,7 +153,6 @@
^ false
! !
-
!SetInspectorView methodsFor:'user interaction'!
doRemoveKey
@@ -207,13 +204,17 @@
! !
-
!SetInspectorView class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.26 2012-10-22 22:23:59 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: SetInspectorView.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
--- a/SettingsDialog.st Tue Feb 26 12:38:54 2013 +0000
+++ b/SettingsDialog.st Wed Feb 27 12:34:59 2013 +0000
@@ -124,14 +124,12 @@
"
! !
-
!SettingsDialog class methodsFor:'initialization'!
initialize
AbstractSettingsApplication autoload.
! !
-
!SettingsDialog class methodsFor:'accessing'!
itemClass
@@ -139,7 +137,6 @@
^ SettingsDialog::HierarchicalApplicationList::ApplicationItem
! !
-
!SettingsDialog class methodsFor:'application icons'!
defaultSettingsAppIcon
@@ -179,7 +176,6 @@
^ self settingsIconOld.
! !
-
!SettingsDialog class methodsFor:'defaults'!
defaultIcon
@@ -238,7 +234,7 @@
"Modified: / 16-12-2002 / 18:12:28 / penk"
"Modified: / 25-11-2011 / 15:28:42 / cg"
- "Modified: / 14-02-2012 / 19:07:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 27-02-2013 / 12:08:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
expandParents
@@ -253,7 +249,6 @@
^ AbstractLauncherApplication resourcePackName
! !
-
!SettingsDialog class methodsFor:'help specs'!
flyByHelpSpec
@@ -279,7 +274,6 @@
)
! !
-
!SettingsDialog class methodsFor:'interface specs'!
windowSpec
@@ -466,7 +460,6 @@
)
! !
-
!SettingsDialog class methodsFor:'menu actions'!
askForFileAndSaveSettings
@@ -521,7 +514,6 @@
self saveSettingsAsDefaultSettings.
! !
-
!SettingsDialog class methodsFor:'menu specs'!
mainMenu
@@ -589,7 +581,6 @@
)
! !
-
!SettingsDialog methodsFor:'accessing'!
requestor
@@ -630,7 +621,6 @@
"Modified: / 15-10-2011 / 12:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!SettingsDialog methodsFor:'actions'!
changeLabelTo:aLabel application:aApplication
@@ -738,7 +728,6 @@
^ true
! !
-
!SettingsDialog methodsFor:'application list access'!
addApplClass:aClass forApplication:anApplication label:aLabel expand:aBoolean
@@ -1079,7 +1068,6 @@
item sort:[:a :b| a label < b label].
! !
-
!SettingsDialog methodsFor:'application list access-private'!
addCategoriesFor:aName
@@ -1246,7 +1234,6 @@
self treeName:aName butLast:0 do:aBlock
! !
-
!SettingsDialog methodsFor:'aspects'!
applicationList
@@ -1309,7 +1296,6 @@
"Created: / 25-01-2007 / 17:13:50 / cg"
! !
-
!SettingsDialog methodsFor:'change & update'!
modifiedChanged
@@ -1433,7 +1419,6 @@
super update:something with:aParameter from:changedObject
! !
-
!SettingsDialog methodsFor:'initialization & release'!
closeRequest
@@ -1496,7 +1481,6 @@
"Modified: / 03-10-2011 / 16:27:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!SettingsDialog methodsFor:'menu actions'!
askForFileAndSaveSettings
@@ -1546,7 +1530,6 @@
self class saveSettingsWithoutAskingForFile.
! !
-
!SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'accessing'!
application
@@ -1591,7 +1574,6 @@
nameString := something.
! !
-
!SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'menu'!
middleButtonMenu
@@ -1604,7 +1586,6 @@
^ application settingsDialogPopUpMenu
! !
-
!SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'printing & storing'!
displayString
@@ -1626,7 +1607,6 @@
^ super printString, ' [', (label isText ifTrue:[label string] ifFalse:[label]) ,']'
! !
-
!SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'queries'!
canCollapse
@@ -1639,7 +1619,6 @@
^ self applicationClass isNil
! !
-
!SettingsDialog::SettingsFilenameAppl class methodsFor:'interface specs'!
windowSpec
@@ -1705,7 +1684,6 @@
)
! !
-
!SettingsDialog::SettingsFilenameAppl methodsFor:'aspects'!
settingsFilenameAspect
@@ -1722,7 +1700,6 @@
"Created: / 07-02-2012 / 01:08:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!SettingsDialog::SettingsFilenameAppl methodsFor:'private'!
openSettingsFile
@@ -1763,7 +1740,6 @@
"Created: / 17-02-2012 / 10:27:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!SettingsDialog::SettingsFilenameAppl methodsFor:'protocol'!
basicReadSettings
@@ -1778,7 +1754,6 @@
"Modified: / 07-02-2012 / 01:03:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!SettingsDialog::SettingsFilenameAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -1787,7 +1762,6 @@
"Modified: / 07-02-2012 / 01:03:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!SettingsDialog class methodsFor:'documentation'!
version
@@ -1798,6 +1772,11 @@
^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.101 2012-11-04 21:47:51 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/SmalltalkCodeGeneratorTool.st Tue Feb 26 12:38:54 2013 +0000
+++ b/SmalltalkCodeGeneratorTool.st Wed Feb 27 12:34:59 2013 +0000
@@ -45,7 +45,6 @@
"
! !
-
!SmalltalkCodeGeneratorTool class methodsFor:'code generation'!
initialMenuSpecMethodSourceForApplications
@@ -181,7 +180,6 @@
self initialWindowSpecForDialogs decodeAsLiteralArray prettyPrintString
! !
-
!SmalltalkCodeGeneratorTool class methodsFor:'code generation-menus'!
createActionMethodFor:aSelector in:aClass category:aCategory redefine:redefine
@@ -256,7 +254,6 @@
^ code
! !
-
!SmalltalkCodeGeneratorTool class methodsFor:'private'!
methodNameTemplateFor:aSelector
@@ -278,7 +275,6 @@
^ method
! !
-
!SmalltalkCodeGeneratorTool methodsFor:'code generation'!
createClassInitializeMethodIn:aClass
@@ -1246,7 +1242,6 @@
self executeCollectedChangesNamed:('Add Widget Code for ' , className).
! !
-
!SmalltalkCodeGeneratorTool methodsFor:'code generation-basic'!
createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly lazyInitialization:lazyInitialization
@@ -1558,7 +1553,6 @@
self executeCollectedChangesNamed:('Add ValueHolder').
! !
-
!SmalltalkCodeGeneratorTool methodsFor:'code generation-individual methods'!
createAcceptVisitorMethod:selector in:aClass
@@ -1926,7 +1920,6 @@
"Modified (comment): / 21-08-2012 / 11:54:57 / cg"
! !
-
!SmalltalkCodeGeneratorTool methodsFor:'code templates'!
anyApplicationClassInProjectOf:aClass
@@ -2446,7 +2439,6 @@
'
! !
-
!SmalltalkCodeGeneratorTool methodsFor:'private'!
codeFor_shouldImplementFor:selector inClass:aClass
@@ -2513,7 +2505,6 @@
^ methodBodyStream contents
! !
-
!SmalltalkCodeGeneratorTool class methodsFor:'documentation'!
version
@@ -2524,6 +2515,11 @@
^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.17 2012-10-15 20:17:01 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/SmalltalkInspectorView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/SmalltalkInspectorView.st Wed Feb 27 12:34:59 2013 +0000
@@ -77,6 +77,12 @@
^ '§Header: /cvs/stx/stx/libtool/SmalltalkInspectorView.st,v 1.4 2010/03/03 11:16:38 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: SmalltalkInspectorView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/StoreSourceCodeManagementSettingsAppl.st Tue Feb 26 12:38:54 2013 +0000
+++ b/StoreSourceCodeManagementSettingsAppl.st Wed Feb 27 12:34:59 2013 +0000
@@ -53,7 +53,6 @@
"
! !
-
!StoreSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -82,7 +81,6 @@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[219 185 65 198 168 74 219 190 79 243 243 243 247 247 247 212 188 103 224 198 109 222 200 122 234 215 144 254 223 141 240 223 165 253 234 173 253 237 183 241 231 193 188 151 42 211 174 48 191 161 59 254 242 210 208 176 66 242 239 229 220 189 76 242 242 242 245 245 245 255 255 255 222 198 111 244 220 117 237 216 141 255 233 149 254 227 155 250 228 170 196 152 26 252 239 190 253 238 192 212 212 212 249 242 210 207 171 55 211 178 65 225 194 72 230 197 74 255 251 236 250 248 244 231 203 98 246 219 105 245 221 117 227 210 143 241 216 146 253 228 154 249 232 171 253 237 182 174 139 37 239 228 192 202 168 50 209 174 52 210 173 51 214 179 60 222 188 68 210 174 70 224 193 81 208 180 89 254 254 254 225 200 105 232 208 118 220 202 138 252 229 143 252 235 160 205 200 181 186 147 30 202 156 27 251 235 189 255 244 201 216 216 216 233 228 211 193 161 65 207 177 72 230 197 73 252 249 237 252 251 244 208 183 100 213 188 101 231 202 112 206 189 131 252 230 145 254 225 148 254 228 160 254 233 176 187 149 35 198 153 27 211 211 211 215 215 215 248 241 209 225 225 225 223 192 70 231 231 231 231 201 81 225 195 86 253 253 253 219 192 114 251 228 125 243 221 145 253 226 149 247 229 168 252 236 180 201 155 26 253 243 195 255 240 196 255 239 199 217 217 217 220 185 61 254 249 224 223 188 69 232 203 81 244 244 244 252 252 252 211 183 100 236 208 111 227 205 125 252 230 144 253 226 148 236 222 171 197 156 25 202 156 26 190 149 32 187 154 48 197 165 54 203 172 59 215 179 59 224 224 224 228 196 72 236 236 236 210 184 89 249 249 249 250 223 100 251 225 111 217 194 122 233 215 148 246 222 149 253 230 161 186 145 25 200 158 27 251 236 189 209 209 209 205 168 48 218 218 218 208 177 64 0 0 0 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@O0@@?<@A?>@A??@A??@A??@A??@A??@A??@C??@C??@O??@G??@C??@@??@D_>@C>@@A<@@@@@@') ; yourself); yourself]
! !
-
!StoreSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -496,7 +494,6 @@
)
! !
-
!StoreSourceCodeManagementSettingsAppl class methodsFor:'queries'!
managerClass
@@ -507,7 +504,6 @@
"Created: / 19-04-2011 / 12:48:57 / cg"
! !
-
!StoreSourceCodeManagementSettingsAppl methodsFor:'actions'!
addModule:module withData:data
@@ -621,7 +617,6 @@
"Modified: / 16-08-2006 / 11:07:51 / cg"
! !
-
!StoreSourceCodeManagementSettingsAppl methodsFor:'actions - store'!
addPerStoreModuleDB
@@ -727,7 +722,6 @@
^ true
! !
-
!StoreSourceCodeManagementSettingsAppl methodsFor:'aspects'!
acceptChannel
@@ -949,7 +943,6 @@
^ useManager.
! !
-
!StoreSourceCodeManagementSettingsAppl methodsFor:'change & update'!
selectedPerModuleRootChanged
@@ -1059,7 +1052,6 @@
and:[ perStoreModulePasswordHolder value notEmptyOrNil ]]).
! !
-
!StoreSourceCodeManagementSettingsAppl methodsFor:'help'!
helpFilename
@@ -1068,7 +1060,6 @@
"Modified: / 05-08-2011 / 09:20:28 / cg"
! !
-
!StoreSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
initialize
@@ -1096,7 +1087,6 @@
"Modified: / 14-01-2012 / 20:28:30 / cg"
! !
-
!StoreSourceCodeManagementSettingsAppl methodsFor:'queries'!
cvsRootFromCVSRootFileOrNil
@@ -1151,7 +1141,6 @@
"Modified: / 10-01-2012 / 00:31:49 / cg"
! !
-
!StoreSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
@@ -1162,6 +1151,11 @@
^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.19 2012-07-24 14:02:02 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/SyntaxElement.st Tue Feb 26 12:38:54 2013 +0000
+++ b/SyntaxElement.st Wed Feb 27 12:34:59 2013 +0000
@@ -62,7 +62,6 @@
"
! !
-
!SyntaxElement class methodsFor:'instance creation'!
from: start to: stop
@@ -95,7 +94,6 @@
"Created: / 14-02-2010 / 17:41:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!SyntaxElement methodsFor:'accessing'!
firstElementInChain
@@ -197,7 +195,6 @@
value := anObject.
! !
-
!SyntaxElement methodsFor:'comparing'!
< anObject
@@ -228,7 +225,6 @@
"Modified (format): / 27-07-2012 / 21:53:28 / cg"
! !
-
!SyntaxElement methodsFor:'double dispatching'!
lessFromInteger:anInteger
@@ -238,7 +234,6 @@
"Modified (format): / 27-07-2012 / 21:53:33 / cg"
! !
-
!SyntaxElement methodsFor:'printing & storing'!
printOn:aStream
@@ -255,7 +250,6 @@
"Modified: / 21-08-2011 / 09:33:51 / cg"
! !
-
!SyntaxElement methodsFor:'queries'!
isSelector
@@ -282,7 +276,6 @@
"Created: / 21-08-2011 / 09:31:33 / cg"
! !
-
!SyntaxElement class methodsFor:'documentation'!
version
@@ -293,6 +286,11 @@
^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.5 2013-01-11 09:56:30 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: SyntaxElement.st 7582 2010-06-25 13:26:33Z vranyj1 §'
! !
--- a/SyntaxHighlighter2.st Tue Feb 26 12:38:54 2013 +0000
+++ b/SyntaxHighlighter2.st Wed Feb 27 12:34:59 2013 +0000
@@ -63,7 +63,6 @@
"
! !
-
!SyntaxHighlighter2 class methodsFor:'highlighting'!
formatClassDefinition:aString in:aClass elementsInto: elements
@@ -212,7 +211,6 @@
"Created: / 05-07-2011 / 10:39:21 / cg"
! !
-
!SyntaxHighlighter2 methodsFor:'accessing'!
elements
@@ -234,7 +232,6 @@
"Created: / 16-02-2012 / 09:56:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!SyntaxHighlighter2 methodsFor:'initialization'!
initialize
@@ -248,7 +245,6 @@
"Modified: / 16-02-2012 / 09:59:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!SyntaxHighlighter2 methodsFor:'parsing-expressions'!
_binaryExpressionFor:receiverArg
@@ -546,8 +542,6 @@
"Created: / 16-02-2012 / 21:56:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-
-
expression
| node savedLastSelectorElement |
@@ -651,7 +645,6 @@
"Created: / 16-02-2012 / 22:21:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!SyntaxHighlighter2 methodsFor:'syntax detection'!
markArgumentIdentifierFrom:pos1 to:pos2
@@ -751,13 +744,17 @@
"Created: / 21-08-2011 / 09:26:24 / cg"
! !
-
!SyntaxHighlighter2 class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.10 2012-10-19 14:59:02 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: SyntaxHighlighter2.st 7715 2011-04-10 16:32:58Z vranyj1 §'
! !
--- a/SystemBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/SystemBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -60,7 +60,6 @@
"
! !
-
!SystemBrowser class methodsFor:'initialization'!
initialize
@@ -86,7 +85,6 @@
"
! !
-
!SystemBrowser class methodsFor:'instance creation'!
open
@@ -232,7 +230,6 @@
"
! !
-
!SystemBrowser class methodsFor:'Compatibility-ST80'!
newOnClass:aClass
@@ -241,7 +238,6 @@
"Created: / 27.10.1997 / 20:10:39 / cg"
! !
-
!SystemBrowser class methodsFor:'accessing-history'!
addToHistory:aClass selector:aSelectorOrNil
@@ -348,7 +344,6 @@
thenSelect:[:nm | nm notEmptyOrNil]
! !
-
!SystemBrowser class methodsFor:'defaults'!
classHistoryMaxLevels
@@ -371,7 +366,6 @@
^ 15
! !
-
!SystemBrowser class methodsFor:'defaults-presentation'!
emphasisForChangedCode
@@ -535,7 +529,6 @@
"Created: / 17-08-2006 / 09:08:11 / cg"
! !
-
!SystemBrowser class methodsFor:'dialogs'!
askForClassNameMatching:matchStringArg inEnvironment:anEnvironmentOrClassOrNil for:aBrowserOrNil
@@ -770,7 +763,6 @@
^ box
! !
-
!SystemBrowser class methodsFor:'image specs'!
abstractMethodIcon
@@ -1804,7 +1796,6 @@
"Created: / 5.11.2001 / 09:39:03 / cg"
! !
-
!SystemBrowser class methodsFor:'interface specs'!
metaSpec
@@ -1926,7 +1917,6 @@
"Modified: 25.6.1997 / 13:46:44 / cg"
! !
-
!SystemBrowser class methodsFor:'private-helpers'!
askForPackageChangeFrom:oldPkg to:newPkg
@@ -1980,7 +1970,6 @@
self information:((rs string:what) , (rs string:'...\\... none found.')) withCRs.
! !
-
!SystemBrowser class methodsFor:'private-instance creation'!
newWithLabel:aString setupBlock:aBlock
@@ -2020,7 +2009,6 @@
^ newBrowser
! !
-
!SystemBrowser class methodsFor:'special search startup'!
allCallsOn:aSelectorString
@@ -5028,7 +5016,6 @@
"Created: / 22-03-2012 / 06:56:51 / cg"
! !
-
!SystemBrowser class methodsFor:'startup'!
browseAllSelect:aBlock
@@ -5553,7 +5540,6 @@
where:aBlock
! !
-
!SystemBrowser class methodsFor:'startup with query'!
askThenBrowseClass
@@ -5607,7 +5593,6 @@
"Modified: / 10-08-2006 / 12:54:20 / cg"
! !
-
!SystemBrowser class methodsFor:'utilities'!
classWithNameSimilarTo:className
@@ -5861,7 +5846,6 @@
^ nil
! !
-
!SystemBrowser::BrowserHistoryEntry methodsFor:'accessing'!
className
@@ -5924,7 +5908,6 @@
^ Smalltalk at:className asSymbol
! !
-
!SystemBrowser::BrowserHistoryEntry methodsFor:'comparing'!
= anEntry
@@ -5933,7 +5916,6 @@
and:[selector = anEntry selector]]
! !
-
!SystemBrowser::BrowserHistoryEntry methodsFor:'displaying'!
displayString
@@ -5947,13 +5929,17 @@
"Modified: / 03-07-2011 / 13:44:32 / cg"
! !
-
!SystemBrowser class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.308 2012-12-04 10:13:26 stefan Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: SystemBrowser.st 7772 2011-06-08 21:59:15Z vranyj1 §'
! !
--- a/SystemStatusMonitor.st Tue Feb 26 12:38:54 2013 +0000
+++ b/SystemStatusMonitor.st Wed Feb 27 12:34:59 2013 +0000
@@ -259,6 +259,12 @@
^ '$Id: SystemStatusMonitor.st 7854 2012-01-30 17:49:41Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: SystemStatusMonitor.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/Tools_BrowserList.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,1883 +0,0 @@
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-NavigatorModel subclass:#BrowserList
- instanceVariableNames:'menuHolder inGeneratorHolder outGeneratorHolder
- selectionChangeCondition immediateUpdate doubleClickChannel
- filter updateTrigger forceGeneratorTrigger hideUnloadedClasses
- showClassPackages selectionHolder packageFilter nameSpaceFilter
- organizerMode slaveMode listValid pseudoListLabelHolder icons
- sortBy autoSelect showAllClassesInNameSpaceOrganisation
- nameFilter showCoverageInformation searchHandler
- autoUpdateOnChange'
- classVariableNames:'SynchronousUpdate Icons'
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-Object subclass:#SearchHandler
- instanceVariableNames:'listView listHolder listSelectionHolder searchField searchWindow
- searchHolder'
- classVariableNames:''
- poolDictionaries:''
- privateIn:BrowserList
-!
-
-!BrowserList class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- embeddable application displaying the class-categories.
- Provides an outputGenerator, which enumerates the classes in
- the selected categories.
-
- [author:]
- Claus Gittinger (cg@exept.de)
-
- [instance variables:]
- can someone please write a few words here...
-
- menuHolder
- inGeneratorHolder
- outGeneratorHolder
- selectionChangeCondition
- immediateUpdate
- doubleClickChannel
- filter a filterblock by the one who embedds this
- updateTrigger
- forceGeneratorTrigger
- hideUnloadedClasses
- showClassPackages
- selectionHolder
- packageFilter
- nameSpaceFilter
- organizerMode
- slaveMode
- listValid
- pseudoListLabelHolder
- icons
- sortBy
- autoSelect
- showAllClassesInNameSpaceOrganisation
- nameFilter a string or glob pattern (from the user, if a GUI for that is present)
-"
-! !
-
-!BrowserList class methodsFor:'image specs'!
-
-checkedIcon
- "This resource specification was automatically generated
- by the ImageEditor of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the ImageEditor may not be able to read the specification."
-
- "
- self checkedIcon inspect
- ImageEditor openOnClass:self andSelector:#checkedIcon
- Icon flushCachedIcons
- "
-
- <resource: #image>
-
- ^ MenuPanel iconIndicationOn
-
-"/ ^Icon
-"/ constantNamed:#'Tools::HierarchicalPackageFilterList::PackageItem class checkedIcon'
-"/ ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?<O?0??C?<O?0??C?<O?07?C?<O?0??@@@@@@b') ; colorMapFromArray:#[0 0 0 33 161 33]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
-"/?????<@C0@O@D<@30GOH8<7C38OG@<HC0@O@@?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
-
- "Created: / 06-11-2008 / 16:32:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
- "Modified: / 04-12-2011 / 15:35:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-nameSpaceIcon
- ^ SystemBrowser nameSpaceIcon
-!
-
-packageIcon
- ^ SystemBrowser packageIcon
-!
-
-padLockBlueMiniIcon
- ^ SystemBrowser padLockBlueMiniIcon
-!
-
-padLockGrayMiniIcon
- ^ SystemBrowser padLockGrayMiniIcon
-!
-
-padLockGreenMiniIcon
- ^ SystemBrowser padLockGreenMiniIcon
-!
-
-padLockRedMiniIcon
- ^ SystemBrowser padLockRedMiniIcon
-!
-
-programImageIcon
- ^ SystemBrowser programImageIcon
-!
-
-protectedMethod
- ^ self padLockRedMiniIcon
-!
-
-redLockIcon
- ^ SystemBrowser redLockIcon
-!
-
-uncheckedIcon
- "This resource specification was automatically generated
- by the ImageEditor of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the ImageEditor may not be able to read the specification."
-
- "
- self checkFrameForm inspect
- ImageEditor openOnClass:self andSelector:#checkFrameForm
- Icon flushCachedIcons
- "
-
- <resource: #image>
-
- ^MenuPanel iconIndicationOff
-
-"/ ^Icon
-"/ constantNamed:#'Tools::HierarchicalPackageFilterList::PackageItem class checkFrameForm'
-"/ ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?<O?0??C?<O?0??C?<O?0??C?<O?0??@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
-"/?????<@C0@O@@<@C0@O@@<@C0@O@@<@C0@O@@?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
-
- "Created: / 06-11-2008 / 16:32:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
- "Modified: / 04-12-2011 / 15:35:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!BrowserList methodsFor:'accessing'!
-
-nameFilter:something
- nameFilter := something.
-! !
-
-!BrowserList methodsFor:'aspects'!
-
-autoUpdateOnChange
- "automatic update of the list, when the system changes.
- For some (slow) search lists (such as string-search), autoupdate is
- disabled as it would otherwise make the browser unusable.
- Those lists need an explicit menu-update action."
-
- ^ autoUpdateOnChange ? true.
-
- "Modified: / 24-02-2000 / 23:57:13 / cg"
- "Created: / 15-05-2012 / 11:16:07 / cg"
-!
-
-autoUpdateOnChange: aBoolean
- "automatic update of the list, when the system changes.
- For some (slow) search lists (such as string-search), autoupdate is
- disabled as it would otherwise make the browser unusable.
- Those lists need an explicit menu-update action."
-
- autoUpdateOnChange := aBoolean
-
- "Modified: / 24-02-2000 / 23:57:13 / cg"
- "Created: / 15-05-2012 / 11:17:18 / cg"
-!
-
-defaultSlaveModeValue
- ^ nil.
-
- "Created: / 25.2.2000 / 22:36:40 / cg"
-!
-
-doubleClickChannel
- doubleClickChannel isNil ifTrue:[
- doubleClickChannel := TriggerValue new.
- ].
- ^ doubleClickChannel.
-
- "Modified: / 31.1.2000 / 00:42:44 / cg"
- "Created: / 5.2.2000 / 22:38:32 / cg"
-!
-
-doubleClickChannel:aChannel
- doubleClickChannel := aChannel
-!
-
-filter:aValueHolder
- filter notNil ifTrue:[
- filter removeDependent:self
- ].
- filter := aValueHolder.
- filter notNil ifTrue:[
- filter addDependent:self
- ].
-
- "Modified: / 4.2.2000 / 23:29:30 / cg"
- "Created: / 5.2.2000 / 13:42:12 / cg"
-!
-
-forceGeneratorTrigger
- forceGeneratorTrigger isNil ifTrue:[
- forceGeneratorTrigger := TriggerValue new.
- forceGeneratorTrigger addDependent:self.
- ].
- ^ forceGeneratorTrigger.
-
- "Modified: / 18.2.2000 / 02:02:52 / cg"
- "Created: / 18.2.2000 / 02:46:40 / cg"
-!
-
-forceGeneratorTrigger:aTriggerValue
- forceGeneratorTrigger notNil ifTrue:[
- forceGeneratorTrigger removeDependent:self
- ].
- forceGeneratorTrigger := aTriggerValue.
- forceGeneratorTrigger notNil ifTrue:[
- forceGeneratorTrigger addDependent:self
- ].
-
- "Modified: / 4.2.2000 / 23:29:30 / cg"
- "Created: / 18.2.2000 / 02:46:52 / cg"
-!
-
-hideUnloadedClasses
- hideUnloadedClasses isNil ifTrue:[
- hideUnloadedClasses := false asValue.
- hideUnloadedClasses addDependent:self.
- ].
- ^ hideUnloadedClasses.
-
- "Modified: / 18.2.2000 / 02:02:52 / cg"
- "Created: / 18.2.2000 / 17:36:30 / cg"
-!
-
-hideUnloadedClasses:aValueHolder
- hideUnloadedClasses notNil ifTrue:[
- hideUnloadedClasses removeDependent:self
- ].
- hideUnloadedClasses := aValueHolder.
- hideUnloadedClasses notNil ifTrue:[
- hideUnloadedClasses addDependent:self
- ].
-
- "Modified: / 4.2.2000 / 23:29:30 / cg"
- "Created: / 18.2.2000 / 17:46:36 / cg"
-!
-
-menuHolder
- ^ menuHolder
-
- "Created: / 5.2.2000 / 13:42:06 / cg"
-!
-
-menuHolder:aValueHolder
- menuHolder := aValueHolder.
-
- "Created: / 5.2.2000 / 13:42:06 / cg"
-!
-
-nameSpaceFilter
- nameSpaceFilter isNil ifTrue:[
- nameSpaceFilter := ValueHolder new.
- nameSpaceFilter addDependent:self.
- ].
- ^ nameSpaceFilter.
-
- "Modified: / 24.2.2000 / 23:57:13 / cg"
- "Created: / 18.8.2000 / 14:18:56 / cg"
-!
-
-nameSpaceFilter:aValueHolder
- nameSpaceFilter notNil ifTrue:[
- nameSpaceFilter removeDependent:self
- ].
- nameSpaceFilter := aValueHolder.
- nameSpaceFilter notNil ifTrue:[
- nameSpaceFilter addDependent:self
- ].
-
- "Modified: / 24.2.2000 / 23:56:22 / cg"
- "Created: / 18.8.2000 / 14:19:06 / cg"
-!
-
-organizerMode
- organizerMode isNil ifTrue:[
- organizerMode := OrganizerCanvas organizerModeCategory asValue.
- organizerMode addDependent:self.
- ].
- ^ organizerMode
-
- "Modified: / 31.1.2000 / 00:51:06 / cg"
- "Created: / 25.2.2000 / 22:36:15 / cg"
-!
-
-organizerMode:aValueHolder
- organizerMode notNil ifTrue:[
- organizerMode removeDependent:self
- ].
- organizerMode := aValueHolder.
- organizerMode notNil ifTrue:[
- organizerMode addDependent:self
- ].
-
- "Modified: / 4.2.2000 / 23:34:28 / cg"
- "Created: / 25.2.2000 / 22:36:28 / cg"
-!
-
-packageFilter
- packageFilter isNil ifTrue:[
- packageFilter := ValueHolder new.
- packageFilter addDependent:self.
-
-"/ debug-check only
-"/ packageFilter onChangeEvaluate:[packageFilter value isValueModel ifTrue:[self halt:'debug halt']].
- ].
- ^ packageFilter.
-
- "Modified: / 18.8.2000 / 19:26:36 / cg"
-!
-
-packageFilter:aValueHolder
- packageFilter notNil ifTrue:[
- packageFilter removeDependent:self
- ].
- packageFilter := aValueHolder.
- packageFilter notNil ifTrue:[
- packageFilter addDependent:self.
-
-"/ debug-check only
-"/ packageFilter onChangeEvaluate:[packageFilter value isValueModel ifTrue:[self halt:'debug halt']].
- ].
-
- "Modified: / 18.8.2000 / 19:26:40 / cg"
-!
-
-pseudoListLabelHolder
- pseudoListLabelHolder isNil ifTrue:[
- pseudoListLabelHolder := '' asValue.
- ].
- ^ pseudoListLabelHolder
-!
-
-selectionChangeCondition:aBlockOrValueHolder
- selectionChangeCondition := aBlockOrValueHolder
-!
-
-selectionHolder
- selectionHolder isNil ifTrue:[
- selectionHolder := ValueHolder new.
- selectionHolder addDependent:self
- ].
- ^ selectionHolder.
-
-!
-
-selectionHolder:aValueHolder
- |prevSelection|
-
- prevSelection := selectionHolder value ? #().
-
- selectionHolder notNil ifTrue:[
- selectionHolder removeDependent:self
- ].
- selectionHolder := aValueHolder.
- selectionHolder notNil ifTrue:[
- selectionHolder addDependent:self
- ].
- (selectionHolder value ? #()) ~= prevSelection ifTrue:[
- "/ update
- self update:#value with:nil from:selectionHolder
- ].
-
-
-!
-
-showAllClassesInNameSpaceOrganisation
- ^[
- |holder|
-
- showAllClassesInNameSpaceOrganisation notNil ifTrue:[
- holder := showAllClassesInNameSpaceOrganisation
- ] ifFalse:[
- masterApplication notNil ifTrue:[
- holder := masterApplication perform:#showAllClassesInNameSpaceOrganisation ifNotUnderstood:nil.
- ].
- holder notNil ifTrue:[
- holder addDependent:self.
- ] ifFalse:[
- showAllClassesInNameSpaceOrganisation isNil ifTrue:[
- showAllClassesInNameSpaceOrganisation := false asValue.
- showAllClassesInNameSpaceOrganisation addDependent:self.
- ].
- holder := showAllClassesInNameSpaceOrganisation.
- ].
- ].
- holder value
- ].
-
- "Created: / 05-03-2007 / 16:47:03 / cg"
- "Modified: / 04-07-2011 / 21:49:10 / cg"
-!
-
-showAllClassesInNameSpaceOrganisation:aValueHolder
- showAllClassesInNameSpaceOrganisation notNil ifTrue:[
- showAllClassesInNameSpaceOrganisation removeDependent:self
- ].
- showAllClassesInNameSpaceOrganisation := aValueHolder.
- showAllClassesInNameSpaceOrganisation notNil ifTrue:[
- showAllClassesInNameSpaceOrganisation addDependent:self
- ].
-
- "Created: / 05-03-2007 / 16:47:13 / cg"
-!
-
-showClassPackages
- showClassPackages isNil ifTrue:[
- showClassPackages := false asValue.
- showClassPackages addDependent:self.
- ].
- ^ showClassPackages.
-
- "Modified: / 18.2.2000 / 02:02:52 / cg"
- "Created: / 18.2.2000 / 17:36:30 / cg"
-!
-
-showClassPackages:aValueHolder
- showClassPackages notNil ifTrue:[
- showClassPackages removeDependent:self
- ].
- showClassPackages := aValueHolder.
- showClassPackages notNil ifTrue:[
- showClassPackages addDependent:self
- ].
-!
-
-showCoverageInformation
- showCoverageInformation isNil ifTrue:[
- showCoverageInformation := false asValue.
- showCoverageInformation addDependent:self.
- ].
- ^ showCoverageInformation.
-
- "Created: / 27-04-2010 / 16:13:16 / cg"
-!
-
-showCoverageInformation:aValueHolder
- showCoverageInformation notNil ifTrue:[
- showCoverageInformation removeDependent:self
- ].
- showCoverageInformation := aValueHolder.
- showCoverageInformation notNil ifTrue:[
- showCoverageInformation addDependent:self
- ].
-
- "Created: / 27-04-2010 / 16:13:20 / cg"
-!
-
-slaveMode
- slaveMode isNil ifTrue:[
- slaveMode := self defaultSlaveModeValue asValue.
- slaveMode addDependent:self.
- ].
- ^ slaveMode.
-
- "Created: / 25.2.2000 / 22:36:40 / cg"
-!
-
-slaveMode:aValueHolder
- |prev|
-
- slaveMode notNil ifTrue:[
- slaveMode removeDependent:self.
- prev := slaveMode value.
- ].
- slaveMode := aValueHolder.
- slaveMode notNil ifTrue:[
- slaveMode addDependent:self
- ].
- prev ~~ slaveMode value ifTrue:[
- (prev isNil and:[slaveMode value]) ifFalse:[
- self update:#value with:nil from:slaveMode.
- ]
- ].
-!
-
-sortBy
- sortBy isNil ifTrue:[
- sortBy := nil asValue.
- sortBy addDependent:self.
- ].
- ^ sortBy.
-
- "Created: / 25.2.2000 / 22:36:40 / cg"
-!
-
-sortBy:aValueHolder
- |prev|
-
- prev := sortBy value.
- sortBy notNil ifTrue:[
- sortBy removeDependent:self
- ].
- sortBy := aValueHolder.
- sortBy notNil ifTrue:[
- sortBy addDependent:self
- ].
- prev ~~ sortBy value ifTrue:[
- self update:#value with:nil from:sortBy.
- ].
-
- "Modified: / 4.2.2000 / 23:29:30 / cg"
- "Created: / 5.2.2000 / 13:42:12 / cg"
-!
-
-updateTrigger
- updateTrigger isNil ifTrue:[
- updateTrigger := TriggerValue new.
- updateTrigger addDependent:self.
- ].
- ^ updateTrigger.
-
- "Created: / 18.2.2000 / 01:59:58 / cg"
- "Modified: / 18.2.2000 / 02:02:52 / cg"
-!
-
-updateTrigger:aTriggerValue
- updateTrigger notNil ifTrue:[
- updateTrigger removeDependent:self
- ].
- updateTrigger := aTriggerValue.
- updateTrigger notNil ifTrue:[
- updateTrigger addDependent:self
- ].
-
- "Modified: / 4.2.2000 / 23:29:30 / cg"
- "Created: / 18.2.2000 / 02:03:15 / cg"
-! !
-
-!BrowserList methodsFor:'change & update'!
-
-applicationIsActive
- "true if I am the active view"
-
- |wg activeView|
-
- (wg := self windowGroup) isNil ifTrue:[ ^ true ]. "/ I am being initialized
- self device isNil ifTrue:[ ^ true ]. "/ I am being initialized
-
- (activeView := self device activeView) isNil ifTrue:[ "Transcript showCR:'nil active'." ^ false ].
-"/Transcript showCR:'active view: ',(activeView printString).
-"/Transcript showCR:'active wg: ',(activeView windowGroup printString).
-"/Transcript showCR:'my wg: ',wg printString.
- ^ activeView windowGroup == wg
-!
-
-delayedUpdate:something with:aParameter from:changedObject
-
- "/ if any of my subclasses want those, they should look for them.
- changedObject == Smalltalk ifTrue:[
- (something == #Language or:[something == #LanguageTerritory]) ifTrue:[
- ^ self
- ].
- something == #organization ifTrue:[
- ^ self
- ].
- something == #classDefinition ifTrue:[
- ^ self
- ].
- something == #classVariables ifTrue:[
- ^ self
- ].
- something == #methodTrap ifTrue:[
- ^ self
- ].
- something == #methodInClassRemoved ifTrue:[
- ^ self.
- ].
- something == #methodDictionary ifTrue:[
- ^ self
- ].
- something == #newClass ifTrue:[
- ^ self
- ].
- ].
-
- changedObject == slaveMode ifTrue:[
- slaveMode value ~~ true ifTrue:[
- listValid ~~ true ifTrue:[
- self updateList.
- ].
- self updateOutputGenerator.
- ].
- ^ self.
- ].
-
- changedObject == selectionHolder ifTrue:[
- listValid ifFalse:[
- self updateList.
- ].
- ^ self selectionChanged
- ].
-
- changedObject == forceGeneratorTrigger ifTrue:[
- self updateOutputGenerator.
- ^ self.
- ].
-
- changedObject == hideUnloadedClasses ifTrue:[
- self invalidateList.
- slaveMode value ~~ true ifTrue:[
- self updateOutputGenerator.
- ].
- ^ self.
- ].
-
- changedObject == updateTrigger ifTrue:[
- self enqueueDelayedUpdateList.
- ^ self
- ].
-
- changedObject == inGeneratorHolder ifTrue:[
- self invalidateList.
- ^ self
- ].
-
-"/ changedObject == outGeneratorHolder ifTrue:[
-"/ self enqueueDelayedUpdateList.
-"/ ^ self
-"/ ].
-
- changedObject == packageFilter ifTrue:[
- self invalidateList.
- ^ self
- ].
- changedObject == nameSpaceFilter ifTrue:[
- self invalidateList.
- ^ self
- ].
-
- changedObject == organizerMode ifTrue:[
- ^ self
- ].
-
- self invalidateList.
- ^ self
-
- "Created: / 5.2.2000 / 13:42:06 / cg"
- "Modified: / 18.8.2000 / 14:19:24 / cg"
-!
-
-enqueueDelayedUpdateList
- listValid := false.
-
- (NewSystemBrowser synchronousUpdate == true
- or:[ immediateUpdate value == true ])
- ifTrue:[
- self updateList.
- ^ self.
- ].
-
- (self applicationIsActive) ifTrue:[
- self enqueueMessage:#updateList for:self arguments:#()
- ] ifFalse:[
- self enqueueMessage:#updateListInBackground for:self arguments:#()
- ].
-
- "Modified: / 05-06-2012 / 23:38:18 / cg"
-!
-
-enqueueDelayedUpdateOutputGenerator
- slaveMode value == true ifTrue:[
- self halt:'should not be invoked'
- ].
- (NewSystemBrowser synchronousUpdate == true
- or:[ immediateUpdate value == true ])
- ifTrue:[
- self updateOutputGenerator.
- ^ self.
- ].
- "/ listValid := false.
- self enqueueMessage:#updateOutputGenerator for:self arguments:#()
-!
-
-forceReselect
- |selectionHolder prevSelection|
-
- selectionHolder := self selectionHolder.
- prevSelection := selectionHolder value.
-
- selectionHolder class == ValueHolder ifTrue:[
- selectionHolder changed:#value with:prevSelection.
- ] ifFalse:[
- selectionHolder setValue:nil.
- selectionHolder value:prevSelection.
- ]
-!
-
-forceSelectionClear
- self selectionHolder setValue:nil
-!
-
-forceUpdateList
-"/ |listView|
-"/
-"/ listView := builder componentAt:#List.
-"/ listView notNil ifTrue:[
-"/ listView list:#()
-"/ ].
- self updateList
-!
-
-immediateUpdate:aBooleanOrBooleanHolder
- immediateUpdate := aBooleanOrBooleanHolder
-
- "Created: / 13.2.2000 / 22:26:06 / cg"
- "Modified: / 13.2.2000 / 22:28:09 / cg"
-!
-
-prioDelayedUpdate:something with:aParameter from:changedObject
- Processor activeProcess withLowerPriorityDo:[
- self delayedUpdate:something with:aParameter from:changedObject
- ]
-!
-
-selectionChangeAllowed
- selectionChangeCondition isNil ifTrue:[^ true].
- selectionChangeCondition isBlock ifTrue:[
- selectionChangeCondition numArgs == 1 ifTrue:[
- ^ selectionChangeCondition value:self
- ]
- ].
- ^ selectionChangeCondition value
-!
-
-selectionChanged
- slaveMode value ~~ true ifTrue:[
- self enqueueDelayedUpdateOutputGenerator
- "/ self updateOutputGenerator.
- ]
-
- "Modified: / 4.2.2000 / 15:49:23 / cg"
- "Created: / 5.2.2000 / 13:42:07 / cg"
-!
-
-selectionChangedByClick
-
- "Created: / 25.2.2000 / 21:19:25 / cg"
-!
-
-syncDelayedUpdateList
- |sensor|
-
- sensor := self window sensor.
- sensor isNil ifTrue:[
- ^ self
- ].
-
- "/
- "/ if an update is in the queue, process it.
- "/
- (sensor
- hasEvent:#updateList
- for:self
- withArguments:#()
- ) ifTrue:[
- sensor flushEventsFor:self withType:#updateList.
- self updateList.
- ^ self
- ].
-!
-
-update:something with:aParameter from:changedObject
- (NewSystemBrowser synchronousUpdate == true
- or:[ immediateUpdate value == true ])
- ifTrue:[
- self delayedUpdate:something with:aParameter from:changedObject.
- ^ self.
- ].
-
-"/ changedObject == selectionHolder ifTrue:[
-"/ listValid ifFalse:[
-"/ self inSlaveMode ifTrue:[
-"/ ^ self
-"/ ]
-"/ ]
-"/ ].
-
- changedObject == inGeneratorHolder ifTrue:[
- listValid := false.
- "/ if not already shown, avoid the processing until shown
- "/ cg: does not work (for whatever reason) - try implementors...
- true "self window shown" ifFalse:[
- ^ self
- ].
- ].
- self enqueueDelayedUpdate:something with:aParameter from:changedObject.
-
- "Created: / 5.2.2000 / 13:42:07 / cg"
- "Modified: / 13.11.2001 / 11:30:19 / cg"
-!
-
-updateListInBackground
- self executeInBackground:[self updateList]
-! !
-
-!BrowserList methodsFor:'drag & drop'!
-
-canDrop: aDropContext
- ^ self canDropContext: aDropContext
-
- "Created: / 03-07-2007 / 15:59:06 / cg"
-!
-
-doDrop: aDropContext
- ^ self doDropContext: aDropContext
-
- "Created: / 03-07-2007 / 15:59:33 / cg"
-!
-
-dropClassFiles:files
- files do:[:fn |
- (Dialog confirm:(resources string:'FileIn %1 ?' with:fn baseName allBold)) ifTrue:[
- Smalltalk fileIn:fn logged:true.
- ]
- ].
-
- "Created: / 17-10-2006 / 18:24:36 / cg"
-!
-
-objectsAreClassFiles:objects
- (objects conform:[:anObject | anObject isFilename]) ifTrue:[
- |files|
-
- files := objects.
- ^ files conform:[:aFilename | aFilename exists
- and:[ aFilename suffix = 'st'
- and:[ aFilename isRegularFile ]]]
- ].
- ^ false
-
- "Created: / 17-10-2006 / 18:25:40 / cg"
-! !
-
-!BrowserList methodsFor:'generators'!
-
-inGeneratorHolder
- ^ inGeneratorHolder
-
- "Created: / 5.2.2000 / 13:42:07 / cg"
-!
-
-inGeneratorHolder:aConditionBlockHolder
- |prevHolder|
-
- (prevHolder := inGeneratorHolder) notNil ifTrue:[
- inGeneratorHolder removeDependent:self
- ].
- inGeneratorHolder := aConditionBlockHolder.
- inGeneratorHolder notNil ifTrue:[
- inGeneratorHolder addDependent:self
- ].
- (prevHolder notNil or:[inGeneratorHolder notNil]) ifTrue:[
- true "self window shown" ifFalse:[
- "/ self enqueueDelayedUpdateList - will be done anyway, when shown
- ] ifTrue:[
- (prevHolder value isNil and:[ inGeneratorHolder value isEmptyOrNil])
- ifFalse:[
- self update:#value with:nil from:inGeneratorHolder
- ].
- ].
- ].
-
- "Modified: / 12-03-2007 / 11:31:23 / cg"
-!
-
-makeGenerator
- self subclassResponsibility
-
- "Created: / 5.2.2000 / 13:42:07 / cg"
-!
-
-outGeneratorHolder
- outGeneratorHolder isNil ifTrue:[
- outGeneratorHolder := ValueHolder new
- ].
- ^ outGeneratorHolder
-
- "Modified: / 4.2.2000 / 17:17:16 / cg"
- "Created: / 5.2.2000 / 13:42:07 / cg"
-!
-
-outGeneratorHolder:aConditionBlockHolder
- outGeneratorHolder := aConditionBlockHolder.
-
- "Created: / 5.2.2000 / 13:42:08 / cg"
-!
-
-updateOutputGenerator
- "create a generator which enumerates my elements,
- and place it into the outputGenerator holder"
-
- self outGeneratorHolder value: self makeGenerator.
-
- "Modified: / 4.2.2000 / 17:16:34 / cg"
- "Created: / 5.2.2000 / 13:42:08 / cg"
-! !
-
-!BrowserList methodsFor:'icons'!
-
-abstractMethodIcon
- "answer an icon to mark abstract methods"
-
- ^ self fetchIcon:#abstractMethod selector:#abstractMethodIcon
-!
-
-canvasIcon
- "answer an icon to mark canvas spec methods"
-
- ^ self fetchIcon:#canvas selector:#canvasIcon
-
-!
-
-deprecatedMethodIcon
- ^ self fetchIcon:#deprecatedMethodIcon selector:#deprecatedMethodIcon
-!
-
-fetchIcon:name selector:fetchSelector
- "answer an icon to mark methods"
-
- icons isNil ifTrue:[icons := IdentityDictionary new].
- Icons isNil ifTrue:[Icons := IdentityDictionary new].
-
- ^ icons at:name ifAbsentPut:[
- |fh icn h|
-
- (icn := Icons at:name ifAbsent:nil) isNil ifTrue: [
- Icons at:name put:(icn := (SystemBrowser perform:fetchSelector) onDevice:Display).
- icn clearMaskedPixels.
- ].
- h := icn height.
- h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[
- icn := icn magnifiedBy:(fh / h)
- ].
- icn onDevice:device
- ]
-
- "
- Icons := nil
- Icon flushCachedIcons
- "
-!
-
-fileImageIcon
- "answer an icon to mark file-image spec methods"
-
- ^ self fetchIcon:#fileImage selector:#fileImageIcon
-!
-
-helpIcon
- "answer an icon to mark help spec methods"
-
- ^ self fetchIcon:#help selector:#helpIcon
-
-!
-
-hierarchicalListIcon
- "answer an icon to mark hierarchicalList spec methods"
-
- ^ self fetchIcon:#hierarchicalList selector:#hierarchicalListIcon
-
-!
-
-ignoredMethodIcon
- "answer an icon to mark ignored methods"
-
- ^ self fetchIcon:#ignoredMethod selector:#ignoredMethodIcon
-!
-
-imageIcon
- "answer an icon to mark image spec methods"
-
- ^ self fetchIcon:#image selector:#imageIcon
-!
-
-instrumentationIcon
- "answer an icon to mark instrumented methods"
-
-"/ ^ self fetchIcon:#watch selector:#watchIcon
- ^ self fetchIcon:#instrumentation selector:#instrumentationIcon
-!
-
-menuIcon
- "answer an icon to mark menu spec methods"
-
- ^ self fetchIcon:#menu selector:#menuIcon
-
-!
-
-methodEmptyInheritedIcon
- ^ self fetchIcon:#methodEmptyInherited selector:#methodEmptyInheritedIcon
-!
-
-methodInheritedFromAboveAndRedefinedBelowIcon
- ^ self fetchIcon:#methodInheritedFromAboveAndRedefinedBelow selector:#methodInheritedFromAboveAndRedefinedBelowIcon
-!
-
-methodInheritedFromAboveIcon
- ^ self fetchIcon:#methodInheritedFromAbove selector:#methodInheritedFromAboveIcon
-!
-
-methodIsSubclassResponsibilityAndRedefinedBelowIcon
- ^ self fetchIcon:#methodIsSubclassResponsibilityAndRedefinedBelowIcon selector:#methodIsSubclassResponsibilityAndRedefinedBelowIcon
-!
-
-methodIsSubclassResponsibilityIcon
- ^ self fetchIcon:#methodIsSubclassResponsibilityIcon selector:#methodIsSubclassResponsibilityIcon
-!
-
-methodRedefinedBelowIcon
- ^ self fetchIcon:#methodRedefinedBelow selector:#methodRedefinedBelowIcon
-!
-
-privateMethodIcon
- "answer an icon to mark private methods"
-
- ^ self fetchIcon:#privateMethod selector:#privateMethodIcon
-!
-
-programImageIcon
- "answer an icon to mark image spec methods"
-
- ^ self fetchIcon:#programImage selector:#programImageIcon
-!
-
-programMenuIcon
- "answer an icon to mark program generated menu methods"
-
- ^ self fetchIcon:#programMenu selector:#programMenuIcon
-
-!
-
-protectedMethodIcon
- "answer an icon to mark protected methods"
-
- ^ self fetchIcon:#protectedMethod selector:#protectedMethodIcon
-!
-
-stopIcon
- "answer an icon to mark breakPointed methods"
-
- ^ self fetchIcon:#stop selector:#stopIcon
-
-
-!
-
-tabListIcon
- "answer an icon to mark tabList spec methods"
-
- ^ self fetchIcon:#tabList selector:#tabListIcon
-
-!
-
-tableColumnsIcon
- "answer an icon to mark tableColumns spec methods"
-
- ^ self fetchIcon:#tableColumns selector:#tableColumnsIcon
-
-!
-
-timeIcon
- "answer an icon to mark timed methods"
-
- ^ self fetchIcon:#time selector:#timeIcon
-
-!
-
-traceIcon
- "answer an icon to mark traced methods"
-
-"/ ^ self fetchIcon:#watch selector:#watchIcon
- ^ self fetchIcon:#trace selector:#traceIcon
-! !
-
-!BrowserList methodsFor:'initialize-release'!
-
-initialize
- listValid := false.
- super initialize.
-!
-
-release
- self makeIndependent.
- super release.
-
- filter removeDependent:self.
- forceGeneratorTrigger removeDependent:self.
- hideUnloadedClasses removeDependent:self.
- inGeneratorHolder removeDependent:self.
- nameSpaceFilter removeDependent:self.
- organizerMode removeDependent:self.
- packageFilter removeDependent:self.
- selectionHolder removeDependent:self.
- showClassPackages removeDependent:self.
- slaveMode removeDependent:self.
- sortBy removeDependent:self.
- updateTrigger removeDependent:self.
-
- "Created: / 5.2.2000 / 13:42:09 / cg"
- "Modified: / 13.2.2000 / 23:32:23 / cg"
-! !
-
-!BrowserList methodsFor:'misc'!
-
-invalidateList
- listValid := false.
- slaveMode value ~~ true ifTrue:[
- self enqueueDelayedUpdateList.
- ]
-! !
-
-!BrowserList methodsFor:'private'!
-
-browserNameList
- self subclassResponsibility
-!
-
-classesToProcessForClasses:classes withVisibility:visibility
- "for methodCategory and methodList, depending on the setting
- of visibility (allButObject, includeAllSupers or class only),
- return a combined hull set of classes for a given set."
-
- |classesToProcess classesToProcessInOrder|
-
- visibility isNil ifTrue:[^classes].
- visibility == #class ifTrue:[^classes].
-
- classesToProcess := IdentitySet new.
- classesToProcessInOrder := OrderedCollection new.
- classes notNil ifTrue:[
- classes do:[:eachClass |
- |withAllSupers|
-
- withAllSupers := eachClass withAllSuperclasses.
- visibility == #allButObject ifTrue:[
- eachClass isMeta ifTrue:[
- withAllSupers removeAllFoundIn:(Object class withAllSuperclasses)
- ] ifFalse:[
- withAllSupers remove:Object ifAbsent:nil
- ]
- ].
- withAllSupers do:[:each |
- (classesToProcess includes:each) ifFalse:[
- classesToProcess add:each.
- classesToProcessInOrder add:each.
- ]
- ]
- ].
- ].
- ^ classesToProcessInOrder
-
- "Modified (comment): / 06-07-2011 / 11:21:16 / cg"
-!
-
-colorize:aString with:emphasis
- ^ aString asText emphasisAllAdd:emphasis
-
- "Created: / 27-04-2010 / 15:36:34 / cg"
-!
-
-colorizeForChangedCode:someString
- ^ someString asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)
-
- "Created: / 31.10.2001 / 10:17:56 / cg"
-!
-
-colorizeForChangedCodeInSmallTeam:someString
- ^ someString asText emphasisAllAdd:(UserPreferences current emphasisForChangedCodeInSmallTeam)
-
- "Created: / 10-11-2006 / 16:53:53 / cg"
-!
-
-colorizeForDifferentPackage:someString
- ^ someString asText emphasisAllAdd:(UserPreferences current emphasisForDifferentPackage)
-!
-
-colorizeForInstrumentedFullyCoveredCode:someString
- ^ self colorize:someString with:(UserPreferences current emphasisForInstrumentedFullyCoveredCode)
-
- "Created: / 27-04-2010 / 13:01:24 / cg"
- "Modified: / 27-04-2010 / 15:36:49 / cg"
-!
-
-colorizeForInstrumentedNeverCalledCode:someString
- ^ self colorize:someString with:(UserPreferences current emphasisForInstrumentedNeverCalledCode)
-
- "Created: / 27-04-2010 / 12:59:56 / cg"
- "Modified: / 27-04-2010 / 15:37:02 / cg"
-!
-
-colorizeForInstrumentedPartiallyCoveredCode:someString
- ^ self colorize:someString with:(UserPreferences current emphasisForInstrumentedPartiallyCoveredCode)
-
- "Created: / 27-04-2010 / 13:01:31 / cg"
- "Modified: / 27-04-2010 / 15:37:06 / cg"
-!
-
-colorizeGrey:someString
- ^ someString asText emphasisAllAdd:(#color->Color darkGrey)
-!
-
-emphasizeForChangedCode:someString
- ^ self colorizeForChangedCode:someString
-
- "Modified: / 31.10.2001 / 10:18:57 / cg"
-!
-
-emphasizeForDifferentPackage:someString
- ^ self colorizeForDifferentPackage:(' [' , (' ' , someString , ' ') "allItalic" , ']')
-
- "Modified: / 31.10.2001 / 10:13:35 / cg"
-!
-
-executeInBackground:aBlock
- "used to update when I do not have the focus (i.e. being iconified or non-active).
- Run aBlock at suerBackgroundPrio, but go back to normal prio, if I get the focus"
-
- |activeProcess watcher done|
-
- activeProcess := Processor activeProcess.
-
- done := false.
-
- watcher :=
- [
- |wg|
-
- [done] whileFalse:[
- Delay waitForSeconds:0.2.
- self applicationIsActive ifTrue:[
- activeProcess priority:(Processor userSchedulingPriority).
- done := true.
- ].
- ].
- ] fork.
-
- [
- activeProcess withUserBackgroundPriorityDo:aBlock
- ] ensure:[
- done := true.
- watcher terminate
- ].
-!
-
-inSlaveMode
- ^ (self slaveMode value == true)
-!
-
-inSlaveModeOrInvisible
- (self slaveMode value == true) ifTrue:[^ true].
-"/ self slaveMode value isNil ifTrue:[
-"/ self window shown ifFalse:[
-"/ ^ true
-"/ ].
-"/ ].
- ^ false
-!
-
-isClass:aClass shownWithNameSpaceFilter:nameSpaceFilter
- |nsName|
-
- nameSpaceFilter isNil ifTrue:[^ true].
- nsName := aClass topNameSpace name.
-
- (nameSpaceFilter includes:nsName) ifTrue:[^ true].
- (nameSpaceFilter contains:[:ns | nsName startsWith:(ns , '::')]) ifTrue:[^ true].
- ^ false
-!
-
-isClass:aClass shownWithPackageFilter:packageFilter
- |classPackage|
-
- packageFilter isNil ifTrue:[^ true].
- classPackage := aClass package.
- (packageFilter includes:classPackage) ifTrue:[^ true].
- (packageFilter includes:self class nameListEntryForChanged) ifTrue:[^ true].
-
- aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
- |mthdPackage|
-
- mthdPackage := mthd package.
- mthdPackage ~~ classPackage ifTrue:[
- (packageFilter includes:mthdPackage) ifTrue:[^ true].
- ].
- ].
- ^ false
-
- "Modified: / 11-08-2006 / 15:15:28 / cg"
-!
-
-makeDependent
- self subclassResponsibility
-
- "Created: / 5.2.2000 / 13:42:08 / cg"
-!
-
-makeIndependent
- self subclassResponsibility
-
- "Created: / 5.2.2000 / 13:42:08 / cg"
-!
-
-releaseAsSubCanvas
- self makeIndependent.
- super releaseAsSubCanvas.
-
- "Created: / 13.2.2000 / 23:11:29 / cg"
- "Modified: / 13.2.2000 / 23:32:29 / cg"
-!
-
-updateList
- self subclassResponsibility.
-!
-
-updateListFor:newList
- "update the browsers list in a way which avoids scrolls
- and flicker; returns true, if the newList is the same."
-
- |"oldListSize newListSize" sameContents sameStrings oldEntry browserNameList
- "firstDifferentFromBeginning firstDifferentFromEnd" listView prevMode sav|
-
- browserNameList := self browserNameList value.
- sameContents := sameStrings := (newList size == browserNameList size).
-
- sameContents ifTrue:[
- newList with:browserNameList do:[:newLine :oldLine |
- sameStrings ifTrue:[
- sameStrings := ((newLine ? '') = (oldLine ? '')).
- ].
- sameContents ifTrue:[
- ((newLine ? '') sameStringAndEmphasisAs:(oldLine ? '')) ifFalse:[
- sameContents := false
- ]
- ].
- ]
- ].
-
- listView := builder componentAt:#List.
- listView isNil ifTrue:[
- "/ called early during setup ...
- browserNameList contents:newList.
- ^ sameContents.
- ].
-
- sameContents ifTrue:[
- ^ sameContents
- ].
- sameStrings ifTrue:[
- newList keysAndValuesDo:[:lineNr :line |
- oldEntry := browserNameList at:lineNr.
- (oldEntry sameStringAndEmphasisAs:line) ifFalse:[
- browserNameList at:lineNr put:line.
- ]
- ].
- ^ sameContents
- ].
-
- listView := listView scrolledView.
- listView isNil ifTrue:[^ false].
- prevMode := listView scrollWhenUpdating.
- listView scrollWhenUpdating:nil.
-
- [
- "/ dont want to be called if selection is changed by selListView
- sav := listView action.
- listView action:nil.
- browserNameList contents:newList.
- ] ensure:[
- listView action:sav.
- ].
-
- listView scrollWhenUpdating:prevMode.
- ^ sameContents.
-
-"/ oldListSize := browserNameList size.
-"/ newListSize := newList size.
-"/ newListSize == 0 ifTrue:[
-"/ oldListSize == 0 ifTrue:[
-"/ ^ true "/ same
-"/ ].
-"/ browserNameList removeAll.
-"/ ^ false "/ not same
-"/ ].
-"/
-"/ oldListSize == 0 ifTrue:[
-"/ browserNameList contents:newList.
-"/ ^ false. "/ not same
-"/ ].
-"/
-"/ (newListSize between:(oldListSize-1) and:(oldListSize+1)) ifTrue:[
-"/ "/ individually exchange changed lines, to avoid flicker.
-"/ "/ the old code was: self browserNameList value:newList
-"/ "/ but if only a single method is changed (or an instrumentation icon changes),
-"/ "/ this results in avoidable flicker.
-"/
-"/ newListSize > oldListSize ifTrue:[
-"/ "/ an entry seems to be added
-"/ "/ try to find it.
-"/ firstDifferentFromBeginning := 1.
-"/
-"/ [firstDifferentFromBeginning <= oldListSize
-"/ and:[(newList at:firstDifferentFromBeginning) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromBeginning)]]
-"/ whileTrue:[
-"/ firstDifferentFromBeginning := firstDifferentFromBeginning + 1.
-"/ ].
-"/ firstDifferentFromEnd := newListSize.
-"/ [firstDifferentFromEnd >= 1
-"/ and:[(newList at:firstDifferentFromEnd) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromEnd-1)]]
-"/ whileTrue:[
-"/ firstDifferentFromEnd := firstDifferentFromEnd - 1.
-"/ ].
-"/ (firstDifferentFromEnd - firstDifferentFromBeginning) > (newList size // 10) ifTrue:[
-"/ "/ too many differences - exchange the list en-bloque
-"/ browserNameList contents:newList.
-"/ ^ false. "/ not same
-"/ ].
-"/ "/ entries from firstDifferentFromBeginning to firstDifferentFromEnd in newList are different
-"/
-"/ (firstDifferentFromEnd - firstDifferentFromBeginning + 1 "number of different items") == (newListSize - oldListSize) ifTrue:[
-"/ "/ for now, only handle single-added-item case
-"/ firstDifferentFromEnd ~~ firstDifferentFromBeginning ifTrue:[
-"/ self halt
-"/ ].
-"/
-"/ "/ item at firstDifferentFromBeginning has been inserted.
-"/ browserNameList add:(newList at:firstDifferentFromBeginning) beforeIndex:firstDifferentFromEnd.
-"/ ^ false "/ not the same
-"/ ].
-"/ ] ifFalse:[
-"/ newListSize < oldListSize ifTrue:[
-"/ "/ an entry seems to be removed
-"/ "/ try to find it.
-"/ firstDifferentFromBeginning := 1.
-"/
-"/ [firstDifferentFromBeginning <= newListSize
-"/ and:[(newList at:firstDifferentFromBeginning) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromBeginning)]]
-"/ whileTrue:[
-"/ firstDifferentFromBeginning := firstDifferentFromBeginning + 1.
-"/ ].
-"/ firstDifferentFromEnd := newListSize.
-"/ [firstDifferentFromEnd >= 1
-"/ and:[(newList at:firstDifferentFromEnd) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromEnd+1)]]
-"/ whileTrue:[
-"/ firstDifferentFromEnd := firstDifferentFromEnd - 1.
-"/ ].
-"/ (firstDifferentFromEnd - firstDifferentFromBeginning) > (newList size // 10) ifTrue:[
-"/ "/ too many differences - exchange the list en-bloque
-"/ browserNameList contents:newList.
-"/ ^ false. "/ not same
-"/ ].
-"/ "/ entries from firstDifferentFromBeginning to firstDifferentFromEnd in newList are different
-"/
-"/ (firstDifferentFromBeginning - firstDifferentFromEnd) == (oldListSize - newListSize) ifTrue:[
-"/ "/ for now, only handle single-removed-item case
-"/ firstDifferentFromEnd ~~ (firstDifferentFromBeginning-1) ifTrue:[self halt].
-"/
-"/ "/ item at firstDifferentFromBeginning has been removed.
-"/ browserNameList removeFromIndex:firstDifferentFromBeginning toIndex:firstDifferentFromBeginning.
-"/ ^ false "/ not the same
-"/ ].
-"/ ]
-"/ ].
-"/
-"/ sameContents := true.
-"/ newList keysAndValuesDo:[:lineNr :line |
-"/ lineNr > browserNameList size ifTrue:[
-"/ browserNameList add:line.
-"/ sameContents := false.
-"/ ] ifFalse:[
-"/ oldEntry := browserNameList at:lineNr.
-"/ (oldEntry ~= line
-"/ or:[(oldEntry sameStringAndEmphasisAs:line) not]) ifTrue:[
-"/ browserNameList at:lineNr put:line.
-"/ sameContents := false.
-"/ ]
-"/ ]
-"/ ].
-"/ newList size < browserNameList size ifTrue:[
-"/ browserNameList removeFromIndex:(newList size + 1) toIndex:(browserNameList size).
-"/ sameContents := false.
-"/ ].
-"/ ^ sameContents
-"/ ].
-"/
-"/ browserNameList contents:newList.
-"/ ^ false "/ not the same
-! !
-
-!BrowserList methodsFor:'queries'!
-
-supportsSearch
-
- ^true
-
- "Created: / 27-07-2011 / 20:31:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!BrowserList methodsFor:'setup'!
-
-autoSelect:aBoolean
- autoSelect := aBoolean.
-!
-
-commonPostBuild
- |list|
-
- self inSlaveMode ifFalse:[
- "/ listValid ifFalse:[self enqueueDelayedUpdateList "updateList"].
- listValid := false.
- ] ifTrue:[
- listValid := false.
- "/ self enqueueDelayedUpdateList.
- "/ self invalidateList
- ].
-
- self makeDependent.
-
- list := builder componentAt:#List.
- list notNil ifTrue:[
- list selectConditionBlock:[:item | self selectionChangeAllowed].
- list ignoreReselect:false.
- ].
-
- UserPreferences current useInPlaceSearchInBrowserLists ifTrue:[
- self supportsSearch ifTrue:[
- list notNil ifTrue:[
- searchHandler := SearchHandler for: list
- ] ifFalse:[
- self breakPoint: #jv info: 'Should support search but list is nil. Wrong spec?'
- ].
- ]
- ]
-
- "Modified: / 28-07-2011 / 09:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-commonPostOpen
- super commonPostOpen.
- listValid ifFalse:[
- "/ self enqueueDelayedUpdateList.
- ].
-! !
-
-!BrowserList::SearchHandler class methodsFor:'instance creation'!
-
-for: aView
-
- ^self new initializeFor: aView.
-
- "Created: / 27-07-2011 / 20:30:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!BrowserList::SearchHandler methodsFor:'event handling'!
-
-keyPress:key x:x y:y view:aView
- <resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)>
-
- | v |
-
- aView == listView ifTrue:[
-
- "Forward the event to the view under pointer.
- Therefore, the seach is started only iff the
- pointer points to the list. Based on experience,
- this improves usability because: does not require
- to click in the list to focus it (which may change
- the selection)"
- (v := aView windowGroup pointerView) ~~ aView ifTrue:[
- v notNil ifTrue:[
- aView windowGroup focusView: v.
- v sensor keyPress:key x:x y:y view:v.
- ^self.
- ].
- ].
-
- searchWindow isNil ifTrue:[
- key isCharacter ifTrue:[
- searchHolder setValue: key asString.
- self startSearch
- ]
- ] ifFalse:[
- key == #Escape ifTrue:[self stopSearch].
- key == #Accept ifTrue:[self stopSearch].
- key == #Return ifTrue:[self stopSearch].
- ]
- ].
-
- aView == searchField ifTrue:[
- key == #Escape ifTrue:[self stopSearch].
- key == #Accept ifTrue:[self stopSearch].
- key == #Return ifTrue:[self stopSearch].
- (key == #CursorUp or:[key == #CursorDown]) ifTrue:[
- listView sensor setCtrlDown: false.
- listView sensor setShiftDown: false.
- listView keyPress:key x:x y:y
- ].
-
- ]
-
- "Created: / 27-07-2011 / 20:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!BrowserList::SearchHandler methodsFor:'event handling-queries'!
-
-handlesKeyPress:key inView:aView
- <resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)>
-
- aView == listView ifTrue:[
- key isCharacter ifTrue:[
- ^true
- ]
- ].
- aView == searchField ifTrue:[
- (#(#Escape #Accept #Return #CursorUp #CursorDown) includes: key) ifTrue:[
- ^true
- ]
- ].
- ^false
-
- "Created: / 27-07-2011 / 20:39:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!BrowserList::SearchHandler methodsFor:'initialization'!
-
-initializeFor: aView
-
- aView isScrollWrapper ifTrue:[
- listView := aView scrolledView
- ] ifFalse:[
- listView := aView.
- ].
- listView delegate: self.
- searchHolder := ValueHolder with: nil.
- searchHolder onChangeSend: #updateList to: self.
-
- "Created: / 27-07-2011 / 20:32:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!BrowserList::SearchHandler methodsFor:'private'!
-
-absoluteLeftOfListView
-
- | absoluteLeft view |
- absoluteLeft := 1.
- view := listView.
- [ view notNil ] whileTrue:
- [absoluteLeft := absoluteLeft + view left - 2.
- view := view superView].
- ^absoluteLeft
-
- "Created: / 08-08-2009 / 22:30:07 / Jan Vrany <vranyj1@fel.cvut.cz>"
- "Created: / 27-07-2011 / 21:54:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-absoluteTopOfListView
-
- | absoluteTop view |
- absoluteTop := 1.
- view := listView.
- [ view notNil ] whileTrue:
- [absoluteTop := absoluteTop + view top - 1.
- view := view superView].
- ^absoluteTop
-
- "Created: / 08-08-2009 / 22:30:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
- "Created: / 27-07-2011 / 21:54:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-filter
-
- | pattern |
- pattern := StringPattern fromString: searchHolder value.
-
- ^[:entry :relax|
- pattern match: entry asString trimSeparators relax: relax
- ]
-
- "Created: / 27-07-2011 / 22:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-hideSearchWindow
-
- searchWindow
- ifNotNil:[
- searchWindow destroy.
- searchWindow := nil.
- searchField := nil.
- ]
-
- "Created: / 27-07-2011 / 21:38:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-restoreList
-
- self updateSelection.
- listView listHolder: listHolder.
- listSelectionHolder notNil ifTrue:[
- listView model: listSelectionHolder.
- ].
- listSelectionHolder changed: #value
-
- "Created: / 27-07-2011 / 22:14:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-saveList
-
- listHolder := listView listHolder.
- listSelectionHolder := listView model.
-
- "Created: / 27-07-2011 / 22:14:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-showSearchWindow
-
- searchWindow := StandardSystemView new
- bePopUpView;
- beSlave;
- origin:(self absoluteLeftOfListView + 5" - optionsView textStartLeft")
- @ (self absoluteTopOfListView + listView height + 1 + 5)
- extent:(listView width + 0"((optionsView textStartLeft) * 2)") @ (listView font height * 1.5) ceiling.
-
- searchField := (EditField
- origin: 0.0@0.0
- corner: 1.0@1.0
- in: searchWindow)
- model: searchHolder;
- immediateAccept: true;
- delegate: self;
- yourself.
-
- searchWindow openModal.
-
- "Created: / 27-07-2011 / 21:37:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-startSearch
-
- self saveList.
- self updateList.
- self showSearchWindow.
-
- "Created: / 27-07-2011 / 21:37:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-stopSearch
-
- self hideSearchWindow.
- self restoreList.
-
- "Created: / 27-07-2011 / 21:37:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-updateList
-
- | filter filteredList |
- filter := self filter.
-
- filteredList := listHolder value select:[:each|filter value: each value: 1].
- filteredList isEmpty ifTrue:[
- filteredList := listHolder value select:[:each|filter value: each value: 2].
- filteredList isEmpty ifTrue:[
- filteredList := listHolder value select:[:each|filter value: each value: 3].
- ]].
-
-
- listView listHolder == listHolder ifTrue:[
- listView listHolder: (ValueHolder with: filteredList)
- ] ifFalse:[
- listView listHolder value: filteredList.
- ].
- listView model == listSelectionHolder ifTrue:[
- listView model: ValueHolder new.
- listView model onChangeSend: #updateSelection to: self.
- ].
- filteredList size == 1 ifTrue:[
- listView selection: 1
- ]
-
- "Created: / 27-07-2011 / 22:18:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-updateSelection
-
- | sel |
-
- listSelectionHolder isNil ifTrue:[^self].
-
- sel := listView selection.
- sel notNil ifTrue:[
- sel isInteger ifTrue:[
- sel := listHolder identityIndexOf: (listView list at: sel)
- ] ifFalse:[
- sel := sel collect:[:each|listHolder value identityIndexOf: (listView list at: each)]
- ].
- ] ifFalse:[
- listView multipleSelectOk ifTrue:[
- sel := #()
- ]
- ].
- listView useIndex ifFalse:[
- sel isInteger ifTrue:[
- sel := listHolder value at: sel
- ] ifFalse:[
- sel := sel collect:[:each|listHolder value at: each].
- ]
- ].
-
-
- listSelectionHolder value: sel.
-
- "Created: / 02-08-2011 / 09:08:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!BrowserList class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.55 2013-01-17 10:40:57 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.55 2013-01-17 10:40:57 cg Exp $'
-! !
-
--- a/Tools_ClassCategoryList.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,979 +0,0 @@
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-BrowserList subclass:#ClassCategoryList
- instanceVariableNames:'categoryList classes allSelected showPseudoCategories
- rawCategoryList cookedCategoryList categoryListView'
- classVariableNames:'AdditionalEmptyCategories'
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!ClassCategoryList class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- embeddable application displaying the class-categories.
- Provides an outputGenerator, which enumerates the classes in
- the selected categories.
-
- [author:]
- Claus Gittinger (cg@exept.de)
-"
-! !
-
-!ClassCategoryList class methodsFor:'interface specs'!
-
-singleCategoryWindowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:ClassCategoryList andSelector:#singleCategoryWindowSpec
- ClassCategoryList new openInterface:#singleCategoryWindowSpec
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #singleCategoryWindowSpec
- #window:
- #(#WindowSpec
- #label: 'ClassCategoryList'
- #name: 'ClassCategoryList'
- #min: #(#Point 0 0)
- #max: #(#Point 1024 721)
- #bounds: #(#Rectangle 218 175 518 475)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'ClassCategoryName'
- #name: 'ClassCategoryLabel'
- #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)
- #translateLabel: true
- #labelChannel: #classCategoryLabelHolder
- #menu: #menuHolder
- )
- )
-
- )
- )
-!
-
-windowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:Tools::ClassCategoryList andSelector:#windowSpec
- Tools::ClassCategoryList new openInterface:#windowSpec
- Tools::ClassCategoryList open
- "
-
- <resource: #canvas>
-
- ^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'ClassCategoryList'
- name: 'ClassCategoryList'
- min: (Point 0 0)
- bounds: (Rectangle 0 0 300 300)
- )
- component:
- (SpecCollection
- collection: (
- (SequenceViewSpec
- name: 'List'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- tabable: true
- model: selectedCategories
- menu: menuHolder
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- isMultiSelect: true
- valueChangeSelector: selectionChangedByClick
- useIndex: false
- sequenceList: categoryList
- doubleClickChannel: doubleClickChannel
- properties:
- (PropertyListDictionary
- canDropSelector: canDropContext:
- dragArgument: nil
- dropArgument: nil
- dropSelector: doDropContext:
- )
- postBuildCallback: postBuildCategoryListView:
- )
- )
-
- )
- )
-! !
-
-!ClassCategoryList class methodsFor:'plugIn spec'!
-
-aspectSelectors
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this. If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "Return a description of exported aspects;
- these can be connected to aspects of an embedding application
- (if this app is embedded in a subCanvas)."
-
- ^ #(
- #(doubleClickChannel action)
- #forceGeneratorTrigger
- #hideUnloadedClasses
- #immediateUpdate
- #inGeneratorHolder
- #menuHolder
- #nameSpaceFilter
- #organizerMode
- #outGeneratorHolder
- #packageFilter
- #selectedCategories
- #selectionChangeCondition
- #showCoverageInformation
- #slaveMode
- #updateTrigger
- ).
-
-! !
-
-!ClassCategoryList class methodsFor:'special'!
-
-addAdditionalCategory:aCategory
- "/ those are simulated - in ST/X, empty categories do not
- "/ really exist; however, during browsing, it makes sense.
-
- AdditionalEmptyCategories isNil ifTrue:[
- AdditionalEmptyCategories := Set new.
- ].
- AdditionalEmptyCategories add:aCategory.
- Smalltalk changed:#organization with:(nil -> aCategory). "/ not really ... to force update
-!
-
-removeAdditionalCategories:aListOfCategories
- "/ those are simulated - in ST/X, empty categories do not
- "/ really exist; however, during browsing, it makes sense.
-
- AdditionalEmptyCategories isNil ifTrue:[^ self].
- aListOfCategories do:[:eachCategory |
- AdditionalEmptyCategories remove:eachCategory ifAbsent:nil.
- ].
-
- Smalltalk changed:#organization "/ not really ... to force update
-!
-
-removeAllAdditionalCategories
- "/ those are simulated - in ST/X, empty categories do not
- "/ really exist; however, during browsing, it makes sense.
-
- AdditionalEmptyCategories := nil
-!
-
-renameAdditionalCategories:oldNames to:newName
- "/ those are simulated - in ST/X, empty categories do not
- "/ really exist; however, during browsing, it makes sense.
-
- self removeAdditionalCategories:oldNames.
- self addAdditionalCategory:newName.
-! !
-
-!ClassCategoryList methodsFor:'aspects'!
-
-categoryList
- categoryList isNil ifTrue:[
- categoryList := ValueHolder new.
- ].
- ^ categoryList
-
- "Created: / 25.2.2000 / 02:23:08 / cg"
-!
-
-categoryList:aValueHolder
- categoryList notNil ifTrue:[
- categoryList removeDependent:self
- ].
- categoryList := aValueHolder.
- categoryList notNil ifTrue:[
- categoryList addDependent:self
- ].
-
- "Created: / 18.8.2000 / 15:21:42 / cg"
-!
-
-classCategoryLabelHolder
- ^ self pseudoListLabelHolder
-!
-
-selectedCategories
- ^ self selectionHolder
-!
-
-selectedCategories:aValueHolder
- ^ self selectionHolder:aValueHolder
-!
-
-selectionHolder
-"/ self halt.
- ^ super selectionHolder
-!
-
-selectionHolder:aValueHolder
- "/ self halt.
- super selectionHolder:aValueHolder
-! !
-
-!ClassCategoryList methodsFor:'change & update'!
-
-delayedUpdate:something with:aParameter from:changedObject
- |selectedCategories allSelectedBefore
- nameListEntryForALL categoryOfClass wg|
-
- selectedCategories := self selectedCategoriesStrings.
-
- changedObject == Smalltalk ifTrue:[
- ((something == #classVariables)
- or:[something == #classDefinition]) ifTrue:[
- listValid == true ifTrue:[
- categoryOfClass := aParameter category.
- (rawCategoryList includes:categoryOfClass) ifFalse:[
- self invalidateList.
- ].
- slaveMode value ~~ true ifTrue:[
- (selectedCategories includes:categoryOfClass) ifTrue:[
- "/ a selected class has changed
- "/ in order to give others a chance to update their list before,
- "/ this one is always enqueued for delayed update (even if immediateUpdate is true)
- "/ self enqueueDelayedUpdateOutputGenerator
- self enqueueMessage:#updateOutputGenerator for:self arguments:#()
- ].
- ].
- ].
- ^ self
- ].
- something == #newClass ifTrue:[
- categoryOfClass := aParameter category.
- listValid == false ifTrue:[
- ^ self
- ].
-
- (rawCategoryList includes:categoryOfClass) ifFalse:[
- self invalidateList.
- ].
-
- slaveMode value ~~ true ifTrue:[
- (selectedCategories includes:categoryOfClass) ifTrue:[
- self enqueueDelayedUpdateOutputGenerator
- ].
- ].
- ^ self
- ].
-
- self invalidateList.
-
- (something == #classRemove
- or:[something == #projectOrganization
- or:[something == #organization]]) ifTrue:[
- slaveMode value ~~ true ifTrue:[
- "/ sorry: cannot filter on category (already changed to #removed)
- self enqueueDelayedUpdateOutputGenerator
- ].
- ].
- ^ self
- ].
-
- changedObject == ChangeSet ifTrue:[
- "/ remove all other change notifications from the eventQueue
- wg := self windowGroup.
- wg isNil ifTrue:[
- "/ oops - should no longer be dependent...
- changedObject removeDependent:self.
- ] ifFalse:[
- wg sensor
- flushEventsFor:self
- where:[:ev | ev isMessageSendEvent
- and:[ev selector == #delayedUpdate:with:from:
- and:[(ev arguments at:3) == ChangeSet]]].
- ].
-
- something == #addChange: ifTrue:[
- "/ only need to invalidate, if that change changes my emphasis
- "/ (i.e. if its a new methodChange)
- self window topView shown ifFalse:[
- self invalidateList.
- ^ self
- ].
-
-"/ self invalidateList.
-
- aParameter isMethodChange ifTrue:[
- aParameter changeClass notNil ifTrue:[
- (ChangeSet current
- count:[:chg | chg notNil and:[chg isMethodChange
- and:[ chg className = aParameter className ]]])
- == 1 ifTrue:[
- "/ that methodChange is the first for this method.
- self colorizeCategoryAsChanged:(aParameter changeClass category).
- ]
- ]
- ].
- ^ self
- ].
-
- self invalidateList.
- ^ self
- ].
-
- changedObject == nameSpaceFilter ifTrue:[
- "/ all might be more or less than before ...
- allSelected := false.
- "/ self invalidateList - done in super
- ].
- changedObject == packageFilter ifTrue:[
- "/ all might be more or less than before ...
- allSelected := false.
- "/ self invalidateList - done in super
- ].
-
- changedObject == self selectedCategories ifTrue:[
- listValid ifFalse:[
- "/ oops - hurry up
- self invalidateList.
- ].
-
- nameListEntryForALL := self class nameListEntryForALL.
-
- selectedCategories size > 1 ifTrue:[
- (selectedCategories includes:nameListEntryForALL) ifTrue:[
- self makeSelectionOtherThanAllVisible.
- ]
- ].
-
- "/ if all selected before AND allSelected after, no need to update the output generator
- allSelectedBefore := allSelected ? false.
- allSelected := selectedCategories includes:nameListEntryForALL.
- (allSelectedBefore and:[allSelected]) ifTrue:[
- ^ self
- ].
- ].
- changedObject == categoryList ifTrue:[
- self halt.
- ].
- super delayedUpdate:something with:aParameter from:changedObject
-
- "Created: / 5.2.2000 / 13:42:12 / cg"
- "Modified: / 12.11.2001 / 19:36:16 / cg"
-!
-
-forceUpdateList
- self categoryList setValue:#().
- self updateList.
- self categoryList changed.
-!
-
-selectionChangedByClick
- "we are not interested in that - get another notification
- via the changed valueHolder"
-
- "Created: / 11.2.2000 / 11:39:48 / cg"
-!
-
-update:something with:aParameter from:changedObject
- |categoryOfClass|
-
- changedObject == Smalltalk ifTrue:[
- (something == #methodInClass
- or:[ something == #classComment
- or:[ something == #methodDictionary
- or:[ something == #methodTrap
- or:[ something == #methodCoverageInfo
- or:[ something == #methodInClassRemoved ]]]]]) ifTrue:[
- ^ self
- ].
-
- (something == #classVariables
- or:[something == #classDefinition]) ifTrue:[
- categoryOfClass := aParameter category.
- (self selectedCategoriesStrings includes:categoryOfClass) ifTrue:[
-"/ self halt.
- self updateOutputGenerator.
- ].
- ].
- ].
-
-"/ changedObject == ChangeSet ifTrue:[
-"/ something == #addChange: ifTrue:[
-"/ ^ self
-"/ ]
-"/ ].
-
- super update:something with:aParameter from:changedObject
-
- "Modified: / 20-07-2011 / 18:50:04 / cg"
-! !
-
-!ClassCategoryList methodsFor:'drag & drop'!
-
-canDropContext:aDropContext
- |cat objects droppedClasses|
-
- objects := aDropContext dropObjects collect:[:obj | obj theObject].
- (self objectsAreClassFiles:objects) ifTrue:[^ true].
-
- (objects conform:[:aClass | aClass isClass]) ifFalse:[^ false].
- droppedClasses := objects.
- (droppedClasses contains:[:aClass | aClass isPrivate not]) ifFalse:[^ false].
-
- cat := self categoryAtTargetPointOf:aDropContext.
- cat isNil ifTrue:[ ^ false ].
- cat = '* obsolete *' ifTrue:[ ^ false ].
-
- (droppedClasses contains:[:aClass | aClass category ~= cat]) ifFalse:[^ false].
- ^ true.
-
- "Modified: / 17-10-2006 / 18:28:04 / cg"
-!
-
-categoryAtTargetPointOf:aDropContext
- |p categoryListView lineNr cat|
-
- p := aDropContext targetPoint.
-
- categoryListView := aDropContext targetWidget.
-
- lineNr := categoryListView lineAtY:p y.
- lineNr isNil ifTrue:[^ nil].
-
- cat := rawCategoryList at:lineNr.
- cat := cat string.
- cat = self class nameListEntryForALL ifTrue:[^ nil].
-
- (cat endsWith:(self stringForExtensions)) ifTrue:[
- cat := cat copyWithoutLast:(self stringForExtensions size)
- ].
- ^ cat
-!
-
-doDropContext:aDropContext
- |cat objects|
-
- objects := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
- (objects conform:[:something | something isClass]) ifTrue:[
- cat := self categoryAtTargetPointOf:aDropContext.
- cat notNil ifTrue:[
- self masterApplication moveClasses:objects toCategory:cat.
- ].
- ^ self
- ].
- (objects conform:[:something | something isFilename]) ifTrue:[
- self dropClassFiles:objects.
- ^ self
- ].
-
- "Modified: / 17-10-2006 / 18:29:25 / cg"
-! !
-
-!ClassCategoryList methodsFor:'generators'!
-
-makeGenerator
- "return a generator which enumerates the classes from the selected category."
-
- |cats hideUnloadedClasses allName nameSpaceFilter packageFilter
- showChangedClasses showUnloaded showUndocumented showExtendedClasses inclusionTest changedClasses|
-
- cats := self selectedCategoriesStrings.
- cats size == 0 ifTrue:[
- ^ #()
- ].
-
- allName := self class nameListEntryForALL.
-
- (cats includes:allName) ifTrue:[
- inGeneratorHolder value isOrderedCollection ifTrue:[
- cats := rawCategoryList copyWithout:allName.
- ]
- ].
-
- showChangedClasses := cats includes:(self class nameListEntryForChanged).
- showUnloaded := cats includes:(self class nameListEntryForUnloaded).
- showUndocumented := cats includes:(self class nameListEntryForUndocumented).
- showExtendedClasses := cats includes:(self class nameListEntryForExtendedClasses).
-
- hideUnloadedClasses := self hideUnloadedClasses value ? false.
- nameSpaceFilter := self nameSpaceFilter value.
- nameSpaceFilter notNil ifTrue:[
- (nameSpaceFilter includes:allName) ifTrue:[nameSpaceFilter := nil].
- ].
- packageFilter := self packageFilter value.
- packageFilter notNil ifTrue:[
- (packageFilter includes:allName) ifTrue:[packageFilter := nil].
- ].
-
- (cats includes:allName) ifTrue:[
- hideUnloadedClasses ifTrue:[
- inclusionTest := [:cls | cls isLoaded].
- ] ifFalse:[
- inclusionTest := [:cls | true].
- ].
- ] ifFalse:[
- inclusionTest :=
- [:cls |
- |cat isLoaded included|
-
- isLoaded := cls isLoaded.
- included := isLoaded not and:[ showUnloaded ].
- included ifFalse:[
- (hideUnloadedClasses not or:[isLoaded]) ifTrue:[
- cat := cls category ? '* no category *'.
- included := cats includes:cat.
- included ifFalse:[
- included := showChangedClasses
- and:[ (changedClasses includes:cls theNonMetaclass)
- or:[(changedClasses includes:cls theMetaclass)] ].
- included ifFalse:[
- included := showUndocumented
- and:[ isLoaded
- and:[ cls isPrivate not
- and:[ (cls theMetaclass includesSelector:#documentation) not ]]].
- included ifFalse:[
- included := showExtendedClasses
- and:[ cls hasExtensions ].
- ].
- ].
- ].
- ].
- ].
- included
- ].
- ].
-
- ^ Iterator on:[:whatToDo |
- showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses ].
-
- Smalltalk allClassesDo:[:cls |
- (cls isRealNameSpace) ifFalse:[
- (inclusionTest value:cls) ifTrue:[
- (nameSpaceFilter isNil
- or:[self isClass:cls shownWithNameSpaceFilter:nameSpaceFilter]) ifTrue:[
- (packageFilter isNil
- or:[self isClass:cls shownWithPackageFilter:packageFilter]) ifTrue:[
- whatToDo value:cls
- ]
- ]
- ].
- ].
- ].
- ].
-
- "Created: / 05-02-2000 / 13:42:12 / cg"
- "Modified: / 10-11-2006 / 17:13:26 / cg"
-! !
-
-!ClassCategoryList methodsFor:'private'!
-
-colorizeCategoryAsChanged:category
- |colorizedCategoryItem categoryList idx|
-
- colorizedCategoryItem := self colorizeForChangedCode:category copy asText.
-
- categoryList := self categoryList value.
- idx := categoryList indexOf:category.
- idx ~~ 0 ifTrue:[
- ((categoryList at:idx) sameStringAndEmphasisAs:colorizedCategoryItem) ifFalse:[
- categoryList at:idx put:colorizedCategoryItem.
- self categoryList changed.
- ]
- ].
-!
-
-listOfCategories
- |categories categoriesBag hideUnloadedClasses generator nameSpaceFilter packageFilter allName
- categoriesWithExtensions categoriesWithChangedCode categoriesWithRemoteChangedCode
- classesInChangeSet classesInRemoteChangeSet classesWithExtensions
- numClassesInChangeSet numClasses numUnloaded numUndocumented numExtendedClasses pseudoEntryColor|
-
- allName := self class nameListEntryForALL.
-
- hideUnloadedClasses := self hideUnloadedClasses value.
- nameSpaceFilter := self nameSpaceFilter value.
- nameSpaceFilter notNil ifTrue:[
- (nameSpaceFilter includes:allName) ifTrue:[nameSpaceFilter := nil].
- ].
- packageFilter := self packageFilter value.
- packageFilter notNil ifTrue:[
- (packageFilter includes:allName) ifTrue:[packageFilter := nil].
- ].
-
- numClasses := numUndocumented := numUnloaded := numClassesInChangeSet := numExtendedClasses := 0.
-
- categories := Set new.
- categoriesBag := Bag new.
- categoriesWithExtensions := Set new.
- categoriesWithChangedCode := Set new.
- categoriesWithRemoteChangedCode := Set new.
-
- classesInChangeSet := ChangeSet current changedClasses.
- classesInChangeSet := classesInChangeSet collect:[:eachClass | eachClass theNonMetaclass].
-
- classesInRemoteChangeSet := SmallTeam isNil ifTrue:[#()] ifFalse:[ SmallTeam changedClasses ].
- classesInRemoteChangeSet := classesInRemoteChangeSet collect:[:each | each theNonMetaclass].
-
- classesWithExtensions := IdentitySet new.
-
- classes := IdentitySet new.
- inGeneratorHolder isNil ifTrue:[
- Smalltalk allClassesDo:[:cls |
- |cat isLoaded|
-
- (cls isRealNameSpace) ifFalse:[
- (nameSpaceFilter isNil
- or:[self isClass:cls shownWithNameSpaceFilter:nameSpaceFilter]) ifTrue:[
- (packageFilter isNil
- or:[self isClass:cls shownWithPackageFilter:packageFilter]) ifTrue:[
-
- isLoaded := cls isLoaded.
- isLoaded ifTrue:[
- numUnloaded := numUnloaded + 1.
- cls isPrivate ifFalse:[
- (cls theMetaclass includesSelector:#documentation) ifFalse:[
- numUndocumented := numUndocumented + 1.
- ].
- ].
- ].
-
- (hideUnloadedClasses not or:[isLoaded])
- ifTrue:[
- numClasses := numClasses + 1.
-
- cat := cls category ? '* no category *'.
- cat isString ifFalse:[self halt:'oops - strange category'].
- categories add:cat.
- classes add:cls.
- categoriesBag add:cat.
-
- (classesInChangeSet includes:cls theNonMetaclass) ifTrue:[
- categoriesWithChangedCode add:cat
- ].
- (classesInRemoteChangeSet includes:cls theNonMetaclass) ifTrue:[
- categoriesWithRemoteChangedCode add:cat
- ].
- cls hasExtensions ifTrue:[
- categoriesWithExtensions add:cat.
- classesWithExtensions add:cls.
- numExtendedClasses := numExtendedClasses + 1.
- ].
- ]
- ]
- ]
- ]
- ].
-
- "/ those are simulated - in ST/X, empty categories do not
- "/ really exist; however, during browsing, it makes sense.
- AdditionalEmptyCategories size > 0 ifTrue:[
- "/ remove those that are present ...
- AdditionalEmptyCategories := AdditionalEmptyCategories select:[:cat | (categories includes:cat) not].
- categories addAll:AdditionalEmptyCategories.
- categoriesBag addAll:AdditionalEmptyCategories withOccurrences:0.
- ].
- ] ifFalse:[
- |setOfCategories|
-
- generator := inGeneratorHolder value.
- generator isNil ifTrue:[^ #() ].
- setOfCategories := Set withAll:generator.
- generator do:[:cat | categories add:cat string].
-
- Smalltalk allClassesDo:[:each |
- |cat|
-
- each isNameSpace ifFalse:[
- cat := each category string asSymbol.
- (setOfCategories includes:cat) ifTrue:[
- categoriesBag add:cat.
- ].
- ]
- ].
- ].
-
- pseudoEntryColor := self class pseudoEntryForegroundColor.
-
- categories := categories asOrderedCollection.
-
- categories sort.
- rawCategoryList := categories.
-
- categories :=
- categories collect:[:cat |
- |item isInChangeSet|
-
- isInChangeSet := categoriesWithChangedCode includes:cat.
- isInChangeSet ifTrue:[
- item := self colorizeForChangedCode:cat copy asText
- ] ifFalse:[
- (categoriesWithExtensions includes:cat) ifTrue:[
- item := self colorizeForDifferentPackage:cat copy asText
- "/ cannot add a + here - need separate list for presentation and filter
- "/ cat , (self colorizeForDifferentPackage:self stringForExtensions)
- ] ifFalse:[
- (categoriesWithRemoteChangedCode includes:cat) ifTrue:[
- item := self colorizeForChangedCodeInSmallTeam:cat copy asText
- ] ifFalse:[
- item := cat
- ]
- ]
- ].
- item := item , ((' (%1)' bindWith:(categoriesBag occurrencesOf:cat))
- colorizeAllWith:pseudoEntryColor).
- isInChangeSet ifTrue:[
- item := item , self class markForBeingInChangeList
- ].
-
- item
- ].
-
- numUndocumented > 0 ifTrue:[
- rawCategoryList add:self class nameListEntryForUndocumented.
- categories add:((self class nameListEntryForUndocumentedWithCount bindWith:numUndocumented) allItalic colorizeAllWith:pseudoEntryColor).
- ].
- numUnloaded > 0 ifTrue:[
- rawCategoryList add:self class nameListEntryForUnloaded.
- categories add:((self class nameListEntryForUnloadedWithCount bindWith:numUnloaded) allItalic colorizeAllWith:pseudoEntryColor).
- ].
- numExtendedClasses > 0 ifTrue:[
- rawCategoryList add:self class nameListEntryForExtendedClasses.
- categories add:((self class nameListEntryForExtendedClassesWithCount bindWith:numExtendedClasses) allItalic colorizeAllWith:pseudoEntryColor).
- ].
- numClassesInChangeSet := ChangeSet current changedClasses size.
- numClassesInChangeSet > 0 ifTrue:[
- rawCategoryList addFirst:self class nameListEntryForChanged.
- categories addFirst:((self class nameListEntryForChangedWithCount bindWith:numClassesInChangeSet) allItalic colorizeAllWith:pseudoEntryColor).
- ].
-
- categories size > 0 ifTrue:[
- categories size == 1 ifTrue:[
- self classCategoryLabelHolder value:(categories first)
- ].
- rawCategoryList addFirst:self class nameListEntryForALL.
- categories addFirst:((self class nameListEntryForALLWithCount bindWith:numClasses) allItalic colorizeAllWith:pseudoEntryColor).
- ].
-
- cookedCategoryList := categories.
- ^ rawCategoryList.
-
- "Created: / 05-02-2000 / 13:42:12 / cg"
- "Modified: / 27-10-2012 / 12:34:19 / cg"
-!
-
-listView
- ^ self componentAt:#List
-!
-
-makeDependent
- Smalltalk addDependent:self.
- ChangeSet addDependent:self.
-
- "Created: / 5.2.2000 / 13:42:13 / cg"
-!
-
-makeIndependent
- Smalltalk removeDependent:self.
- ChangeSet removeDependent:self.
-
- "Created: / 5.2.2000 / 13:42:13 / cg"
-!
-
-makeItemVisible:item
- |idx listView|
-
- idx := categoryList value indexOf:item.
- idx ~~ 0 ifTrue:[
- (listView := self listView) notNil ifTrue:[
- listView makeLineVisible:idx.
- ]
- ]
-!
-
-makeSelectionOtherThanAllVisible
- |selectedCategories item|
-
- selectedCategories := self selectedCategoriesStrings.
- "/ the first item after the *all* item
- item := (selectedCategories copy remove:self class nameListEntryForALL; yourself) first.
- self makeItemVisible:item.
-!
-
-release
- super release.
-
- categoryList removeDependent:self.
-!
-
-selectedCategoriesStrings
- |selectedCategories stringForExtensions|
-
- stringForExtensions := self stringForExtensions.
-
- selectedCategories := self selectedCategories value ? #().
-
-"/ selectedCategories := selectedCategories
-"/ collect:[:each |
-"/ |s|
-"/ s := each string.
-"/ (s endsWith:stringForExtensions) ifTrue:[
-"/ s := s copyWithoutLast:(stringForExtensions size).
-"/ ].
-"/ s
-"/ ].
- ^ selectedCategories
-
- "Modified: / 23-08-2006 / 11:38:26 / cg"
-!
-
-stringForExtensions
- ^ ' [ + ]'
-!
-
-updateList
- |oldList newList oldSelection newSelection prevClasses
- selectedCategoriesHolder|
-
- selectedCategoriesHolder := self selectedCategories.
- oldSelection := selectedCategoriesHolder value ? #().
- prevClasses := classes copy.
-
- newList := self listOfCategories. "/ sigh - sideeffect of setting rawList
- oldList := (self categoryList value) ? #().
- (newList sameContentsAs:oldList whenComparedWith:[:a :b | a sameStringAndEmphasisAs: b])
- ifFalse:[
- "/ a real change, or only emphasis ?
- (newList sameContentsAs:oldList whenComparedWith:[:a :b | a asString string = b asString string]) ifTrue:[
- "/ only emphasis
- oldSelection size > 0 ifTrue:[
- selectedCategoriesHolder removeDependent:self.
- selectedCategoriesHolder value:#().
- selectedCategoriesHolder addDependent:self.
- ].
- categoryList value:newList.
-
- oldSelection size > 0 ifTrue:[
- newSelection := oldSelection select:[:cat | newList includes:cat].
- selectedCategoriesHolder value:newSelection.
- ]
- ] ifFalse:[
- "/ a real change
-
- categoryList value:newList.
-
- "/ in case the same categories are present, but classes have changed ...
- (prevClasses isNil or:[(classes identicalContentsAs:prevClasses) not]) ifTrue:[
- self updateOutputGenerator.
- ]
- ]
- ] ifTrue:[
- "/ in case the same categories are present, but classes have changed ...
- (prevClasses isNil or:[(classes identicalContentsAs:prevClasses) not]) ifTrue:[
- self updateOutputGenerator.
- ]
- ].
- listValid := true.
-
- "Created: / 05-02-2000 / 13:42:13 / cg"
- "Modified: / 17-08-2011 / 09:52:13 / cg"
-! !
-
-!ClassCategoryList methodsFor:'setup'!
-
-commonPostBuild
- |listView|
-
- listView := self listView.
- listView notNil ifTrue:[
- listView scrollWhenUpdating:nil
- ].
- super commonPostBuild
-!
-
-postBuildCategoryListView:aView
- categoryListView := aView.
- categoryListView visualBlock:[:view :lineNr | cookedCategoryList at:lineNr].
- categoryListView selectedVisualBlock:[:view :lineNr | (cookedCategoryList at:lineNr) string]
-! !
-
-!ClassCategoryList methodsFor:'special'!
-
-addAdditionalCategory:aCategory
- "/ those are simulated - in ST/X, empty categories do not
- "/ really exist; however, during browsing, it makes sense.
-
- self class addAdditionalCategory:aCategory
-!
-
-removeAdditionalCategories:aListOfCategories
- self class removeAdditionalCategories:aListOfCategories
-!
-
-removeAllAdditionalCategories
- self class removeAllAdditionalCategories
-!
-
-renameAdditionalCategories:oldNames to:newName
- "/ those are simulated - in ST/X, empty categories do not
- "/ really exist; however, during browsing, it makes sense.
-
- self class renameAdditionalCategories:oldNames to:newName
-! !
-
-!ClassCategoryList class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.40 2012-11-07 14:19:04 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.40 2012-11-07 14:19:04 cg Exp $'
-! !
--- a/Tools_ClassChecker.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,926 +0,0 @@
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-Object subclass:#ClassChecker
- instanceVariableNames:'checkedClass badClasses badClassInfo badMethods badMethodInfo
- obsoleteWarners allObsoleteMethods checksPerformed'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!ClassChecker class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- embeddable application displaying the class-categories.
- Provides an outputGenerator, which enumerates the classes in
- the selected categories.
-
- Attention: do not change the method categories 'checks-' into something else.
- The 'checks-' prefix is used to detect checks and these are listed in the browsers
- lint dialog.
-
- [author:]
- Claus Gittinger (cg@exept.de)
-"
-! !
-
-!ClassChecker class methodsFor:'queries'!
-
-individualChecks
- "return a list of supported checks"
-
- |checks|
-
- checks := OrderedCollection new.
- self methodDictionary keysAndValuesDo:[:sel :mthd |
- (mthd category startsWith:'checks') ifTrue:[checks add:sel]
- ].
- checks sort.
- ^ checks
-
- "
- self individualChecks
- "
-
- "Created: / 18.8.2000 / 22:30:46 / cg"
- "Modified: / 18.8.2000 / 22:31:02 / cg"
-! !
-
-!ClassChecker methodsFor:'accessing'!
-
-badClassInfo
- ^ badClassInfo
-!
-
-badMethodInfo
- ^ badMethodInfo
-!
-
-checkedClass
- "return the value of the instance variable 'checkedClass' (automatically generated)"
-
- ^ checkedClass
-!
-
-checkedClass:something
- "set the value of the instance variable 'checkedClass' (automatically generated)"
-
- checkedClass := something.
- checksPerformed := nil.
-! !
-
-!ClassChecker methodsFor:'checking'!
-
-allChecks
- self errorChecks.
- self warningChecks.
- self styleChecks.
-!
-
-doCheck:whichCheck
- checksPerformed isNil ifTrue:[
- checksPerformed := Set new.
- ].
- (checksPerformed includes:whichCheck) ifFalse:[
- checksPerformed add:whichCheck.
- self perform:whichCheck
- ]
-!
-
-errorChecks
- self doCheck:#subclassResponsibilityNotDefined.
- self doCheck:#sentNotImplemented.
- self doCheck:#definesEqualButNotHash.
- self doCheck:#instanceVariablesNeverWritten.
-!
-
-styleChecks
- self doCheck:#checkProtocols.
- self doCheck:#sendsObsoleteMethodWarningButNotTaggedAsObsoleteOrViceVersa.
- self doCheck:#unusedInstanceVariables.
- self doCheck:#unusedClassVariables.
-
-"/ self doCheck:#guardingClause.
-
- "Modified: / 18-05-2010 / 14:38:15 / cg"
-!
-
-warningChecks
- self doCheck:#messageNeverSentAndNotUsedAsSymbol.
- self doCheck:#sendsObsoleteMessages.
- self doCheck:#instanceVariablesNeverUsed.
- self doCheck:#instanceVariablesNeverWritten.
- self doCheck:#classVariablesNeverUsed.
- self doCheck:#classVariablesNeverWritten.
- self doCheck:#classInstanceVariablesNeverUsed.
- self doCheck:#classInstanceVariablesNeverWritten.
- self doCheck:#invalidKeyInImageResourceMethod
-! !
-
-!ClassChecker methodsFor:'checks-individual'!
-
-checkProtocols
- checkedClass instAndClassSelectorsAndMethodsDo:[:mSelector :method |
- self checkProtocolOf:method
- ]
-!
-
-checkVariableNameConventions
- |badInstVars badClassVars|
-
- badInstVars := checkedClass instanceVariableNames select:[:varName | varName isUppercaseFirst].
- badClassVars := checkedClass classVarNames select:[:varName | varName first isLowercase].
-
- badInstVars notEmpty ifTrue:[
- badInstVars := (badInstVars collect:[:v | '''' , v , '''']) asStringWith:$, .
- self
- rememberBadClass:checkedClass
- info:('instVars ' , badInstVars , ' should be lowercase (#checkNameConventions)').
- ].
- badClassVars notEmpty ifTrue:[
- badClassVars := (badClassVars collect:[:v | '''' , v , '''']) asStringWith:$, .
- self
- rememberBadClass:checkedClass
- info:('classVars ' , badClassVars , ' should be uppercase (#checkNameConventions)').
- ].
-!
-
-classInstanceVariablesNeverUsed
- self instanceVariablesNeverUsedIn:checkedClass theMetaclass.
-!
-
-classInstanceVariablesNeverWritten
- self instanceVariablesNeverWrittenIn:checkedClass theMetaclass.
-!
-
-classVariablesNeverUsed
- |cls notUsedHere notUsedAnyWhere anySubclass|
-
- cls := checkedClass theNonMetaclass.
- notUsedHere := cls classVarNames asSet.
- notUsedHere isEmpty ifTrue:[^ self].
-
- self removeUsedClassVariablesIn:cls from:notUsedHere.
- self removeUsedClassVariablesIn:cls class from:notUsedHere.
-
- notUsedHere notEmpty ifTrue:[
- notUsedAnyWhere := notUsedHere copy.
- anySubclass := false.
- cls allSubclassesDo:[:eachSubclass |
- anySubclass := true.
- notUsedAnyWhere notEmpty ifTrue:[
- self removeUsedClassVariablesIn:eachSubclass from:notUsedAnyWhere.
- self removeUsedClassVariablesIn:eachSubclass class from:notUsedAnyWhere.
- ]
- ].
-
- notUsedHere do:[:eachVariable |
- |className|
-
- className := checkedClass name allBold.
- self
- rememberBadClass:cls
- info:('classVar ' , eachVariable allBold , ' is unused in ' , className , ' (#classVariablesNeverUsed)').
- (notUsedAnyWhere includes:eachVariable) ifTrue:[
- self
- rememberBadClass:cls
- info:('classVar ' , eachVariable allBold , ' is not even used in subclasses of ' , className , ' (#classVariablesNeverUsed)')
- ]
- ].
- ]
-!
-
-classVariablesNeverWritten
- |cls notWrittenHere notWrittenAnyWhere anySubclass|
-
- cls := checkedClass theNonMetaclass.
- notWrittenHere := cls classVarNames asSet.
- notWrittenHere isEmpty ifTrue:[^ self].
-
- self removeWrittenClassVariablesIn:cls from:notWrittenHere.
- self removeWrittenClassVariablesIn:cls class from:notWrittenHere.
-
- notWrittenHere notEmpty ifTrue:[
- notWrittenAnyWhere := notWrittenHere copy.
- anySubclass := false.
- cls allSubclassesDo:[:eachSubclass |
- anySubclass := true.
- notWrittenAnyWhere notEmpty ifTrue:[
- self removeWrittenClassVariablesIn:eachSubclass from:notWrittenAnyWhere.
- self removeWrittenClassVariablesIn:eachSubclass class from:notWrittenAnyWhere.
- ]
- ].
-
- notWrittenHere do:[:eachVariable |
- |className|
-
- className := cls name allBold.
- self
- rememberBadClass:cls
- info:('classVar ' , eachVariable allBold , ' is not set in ' , className , ' (#classVariablesNeverWritten)').
- (notWrittenAnyWhere includes:eachVariable) ifTrue:[
- self
- rememberBadClass:cls
- info:('classVar ' , eachVariable allBold , ' is not even set in subclasses of ' , className , ' (#classVariablesNeverWritten)')
- ]
- ].
- ]
-!
-
-definesEqualButNotHash
- (checkedClass includesSelector:#=) ifTrue:[
- (checkedClass includesSelector:#hash) ifFalse:[
- self
- rememberBadClass:checkedClass
- info:(checkedClass name allBold, ' redefines #=, but not #hash (#definesEqualButNotHash)').
- ]
- ]
-!
-
-guardingClause
- |detector|
-
- detector := ParseTreeLintRule guardingClause.
- detector runOnEnvironment: (Array with:checkedClass).
-self breakPoint:#cg.
-!
-
-instanceVariablesNeverUsed
- self instanceVariablesNeverUsedIn:checkedClass theNonMetaclass.
-!
-
-instanceVariablesNeverWritten
- self instanceVariablesNeverWrittenIn:checkedClass theNonMetaclass.
-!
-
-invalidKeyInImageResourceMethod
- Icon flushCachedIcons.
- checkedClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
- |img key name|
-
- (mthd hasImageResource) ifTrue:[
- img := mthd valueWithReceiver:nil arguments:#().
- key := (Icon classVarAt:#KnownIcons) keyAtIdentityValue:img.
- key notNil ifTrue:[
- mthd mclass notNil ifTrue:[
- name := (mthd mclass name , ' ', mthd selector).
- name ~= key ifTrue:[
- self
- rememberBadMethod:mthd
- key:#invalidKeyInImageResourceMethod
- info:('key in constantNamed: does not match the method name')
- ]
- ]
- ]
- ]
- ].
-!
-
-messageNeverSent
- "/ old code: (slow)
-"/ checkedClass instAndClassSelectorsAndMethodsDo:[:mSelector :method |
-"/ (self anySendsOf:mSelector) ifFalse:[
-"/ self
-"/ rememberBadMethod:method
-"/ info:('#' , mSelector , ' is nowhere sent (#messageNeverSent)')
-"/ ].
-"/ ].
-
- |selectorsOfInterest|
-
- selectorsOfInterest := IdentitySet new.
- checkedClass instAndClassSelectorsAndMethodsDo:[:mSelector :method | selectorsOfInterest add:mSelector].
- (self messagesNeverSentIn:selectorsOfInterest) do:[:eachNeverSent |
- self
- rememberBadMethod:(checkedClass compiledMethodAt:eachNeverSent)
- key:#messageNeverSent
- info:('#' , eachNeverSent allBold, ' is nowhere sent (#messageNeverSent)')
- ].
-
- "Modified: / 18.8.2000 / 22:54:45 / cg"
-!
-
-messageNeverSentAndNotUsedAsSymbol
- |selectorsOfInterest|
-
- selectorsOfInterest := IdentitySet new.
- checkedClass instAndClassSelectorsAndMethodsDo:[:mSelector :method | selectorsOfInterest add:mSelector].
- (self messagesNeverSentAndNotUsedAsSymbolIn:selectorsOfInterest) do:[:eachNeverSent |
- self
- rememberBadMethod:(checkedClass compiledMethodAt:eachNeverSent)
- key:#messageNeverSentAndNotUsedAsSymbol
- info:('#' , eachNeverSent allBold, ' is nowhere sent and selector-symbol not used in any method (#messageNeverSentAndNotUsedAsSymbol)')
- ].
-
- "Modified: / 18.8.2000 / 23:10:56 / cg"
-!
-
-parseMethod:method in:aClass withParserDo:aBlock onErrorDo:errorBlock
- |source parser|
-
- source := method source.
- parser := Parser
- parseMethod:source
- in:aClass
- ignoreErrors:true
- ignoreWarnings:true.
-
- (parser notNil and:[parser ~~ #Error]) ifTrue:[
- aBlock value:parser
- ] ifFalse:[
- errorBlock value
- ].
-
- "Created: / 18-05-2010 / 15:17:19 / cg"
-!
-
-sendsObsoleteMessages
- obsoleteWarners isNil ifTrue:[
- obsoleteWarners := Object selectors select:[:each | each startsWith:'obsoleteMethodWarning'].
- ].
- allObsoleteMethods isNil ifTrue:[
- allObsoleteMethods := IdentitySet new.
- Method allSubInstancesDo:[:eachMethod | |lits selector|
- ((lits := eachMethod literals) notNil
- and:[lits includesAny:obsoleteWarners]) ifTrue:[
- (eachMethod messagesSent includesAny:obsoleteWarners) ifTrue:[
- selector := eachMethod selector.
- selector notNil ifTrue:[
- allObsoleteMethods add:selector.
- ]
- ].
- ].
- ].
-
- "/ manually patchup; there are some which should not be considered as bad ...
- allObsoleteMethods removeAllFoundIn:#( #',' #'at:' #'at:put:' #'raise').
- allObsoleteMethods removeAllFoundIn:#( #'asText').
- allObsoleteMethods removeAllFoundIn:obsoleteWarners.
- ].
-
- checkedClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
- |lits sentMessages whichOnes pT searcher nodes|
-
- ((lits := mthd literals) notNil
- and:[lits includesAny:allObsoleteMethods]) ifTrue:[
- sentMessages := mthd messagesSent.
- (sentMessages includesAny:allObsoleteMethods) ifTrue:[
- whichOnes := sentMessages select:[:each | allObsoleteMethods includes:each].
-
- (RBParser notNil
- and:[RBParser isLoaded]) ifTrue:[
- "/ lets look at this a bit more detailed;
- "/ parse it and see if we can filter out any messages
- "/ (i.e. look if we can figure out the receiver type)
-
-"/ pT := RBParser
-"/ parseMethod: (mthd source)
-"/ onError: [:aString :pos | nil].
-"/ pT notNil ifTrue:[
-"/ searcher := ParseTreeSearcher
-"/ allMessageSendsMatchingAny:whichOnes ignoreCase:false.
-"/ nodes := searcher executeTree:pT initialAnswer:(OrderedCollection new).
-"/ nodes := nodes
-"/ select:
-"/ [:aSendNode |
-"/ self halt.
-"/ ].
-"/ whichOnes := nodes collect:[:aSendNode | aSendNode selector].
-"/ ].
- ].
-
- whichOnes asOrderedCollection sort do:[:eachObsoleteMessage |
- self
- rememberBadMethod:mthd
- key:#sendsObsoleteMessages
- info:('possibly sends an obsolete message: ' , eachObsoleteMessage , ' (#sendsObsoleteMessages)')
- ].
- ].
- ]
- ]
-!
-
-sendsObsoleteMethodWarningButNotTaggedAsObsoleteOrViceVersa
- |obsoleteWarners|
-
- obsoleteWarners := #( #'obsoleteMethodWarning' #'obsoleteMethodWarning:' ).
-
- checkedClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
- |lits sentMessages whichOnes pT searcher nodes|
-
- ((lits := mthd literals) notNil
- and:[lits includesAny:obsoleteWarners]) ifTrue:[
- mthd isObsolete ifFalse:[
- self
- rememberBadMethod:mthd
- key:#sendsObsoleteMethodWarningButNotTaggedAsObsoleteOrViceVersa
- info:('sends obsoleteMethodWarning but not tagged as obsolete')
- ].
- ] ifFalse:[
- mthd isObsolete ifTrue:[
- self
- rememberBadMethod:mthd
- key:#sendsObsoleteMethodWarningButNotTaggedAsObsoleteOrViceVersa
- info:('tagged as obsolete but does not send an obsoleteMethodWarning')
- ].
- ].
- ]
-!
-
-sentNotImplemented
- |alreadyChecked alreadyCheckedSelf alreadyCheckedSuper|
-
- alreadyChecked := IdentitySet new.
- alreadyCheckedSelf := IdentitySet new.
- alreadyCheckedSuper := IdentitySet new.
-
- checkedClass methodDictionary keysAndValuesDo:[:mSelector :method |
- |sentSelectors selfSelectors superSelectors selectorsNoWhereImplemented|
-
- selectorsNoWhereImplemented := IdentitySet new.
- sentSelectors := method messagesSent.
- sentSelectors do:[:eachSelector |
- (alreadyChecked includes:eachSelector) ifFalse:[
- (self anyImplementationOf:eachSelector) ifTrue:[
- alreadyChecked add:eachSelector
- ] ifFalse:[
- selectorsNoWhereImplemented add:eachSelector.
- self
- rememberBadMethod:method
- key:#sentNotImplemented
- info:('#' , eachSelector allBold, ' is nowhere implemented (#sentNotImplemented)')
- ]
- ]
- ].
-
- selfSelectors := method messagesSentToSelf.
- selfSelectors do:[:eachSelector |
- (selectorsNoWhereImplemented includes:eachSelector) ifFalse:[
- (alreadyCheckedSelf includes:eachSelector) ifFalse:[
- (self anyImplementationOf:eachSelector inOrAbove:checkedClass) ifTrue:[
- alreadyCheckedSelf add:eachSelector
- ] ifFalse:[
- self
- rememberBadMethod:method
- key:#sentNotImplemented
- info:('#' , eachSelector allBold, ' is not implemented in the class (#sentNotImplemented)')
- ]
- ]
- ]
- ].
-
- superSelectors := method messagesSentToSuper.
- superSelectors do:[:eachSelector |
- (selectorsNoWhereImplemented includes:eachSelector) ifFalse:[
- (alreadyCheckedSuper includes:eachSelector) ifFalse:[
- (self anyImplementationOf:eachSelector inOrAbove:(checkedClass superclass)) ifTrue:[
- alreadyCheckedSuper add:eachSelector
- ] ifFalse:[
- self
- rememberBadMethod:method
- key:#sentNotImplemented
- info:('#' , eachSelector allBold, ' is not implemented in any superclass (#sentNotImplemented)')
- ]
- ]
- ]
- ].
- ].
-!
-
-subclassResponsibilityNotDefined
- |classesInBetween|
-
- checkedClass allSuperclasses do:[:eachSuperClass |
- eachSuperClass methodDictionary keysAndValuesDo:[:mSelector :method |
- (method referencesLiteral:#subclassResponsibility) ifTrue:[
- "/ parse it to see if it really does ...
- (method sends:#subclassResponsibility) ifTrue:[
- "/ ok, got one;
- "/ now, see if it is defined below this superClass
- classesInBetween := checkedClass withAllSuperclasses copy.
- classesInBetween removeAll:(eachSuperClass withAllSuperclasses).
- (self anyImplementationOf:mSelector in:classesInBetween) ifFalse:[
- (self methodShouldBeIgnoredInSubclassResponsibilityNotDefined:method)
- ifFalse:[
- self
- rememberBadMethod:method
- key:#subclassResponsibilityNotDefined
- info:(checkedClass name allBold , ' should redefine the #' , mSelector allBold , ' method (#subclassResponsibilityNotDefined)').
- ].
- ].
- ]
- ]
- ]
- ].
-!
-
-unusedClassVariables
- |remainingVars|
-
- remainingVars := checkedClass theNonMetaclass classVarNames asSet.
-
- checkedClass theNonMetaclass withAllSubclassesDo:[:eachClassToCheck |
- eachClassToCheck instAndClassMethodsDo:[:method |
- self
- parseMethod:method in:method mclass
- withParserDo:[:parser |
- remainingVars removeAllFoundIn:(parser usedClassVars)
- ]
- onErrorDo:[]
- ].
- ].
-
- remainingVars asSortedCollection do:[:eachVar |
- self rememberBadClass:checkedClass info:'Unused class variable: ',eachVar
- ].
-
- "Created: / 18-05-2010 / 14:37:42 / cg"
-!
-
-unusedInstanceVariables
- |remainingVars|
-
- remainingVars := checkedClass theNonMetaclass instVarNames asSet.
-
- checkedClass theNonMetaclass withAllSubclassesDo:[:eachClassToCheck |
- eachClassToCheck methodDictionary keysAndValuesDo:[:mSelector :method |
- self
- parseMethod:method in:eachClassToCheck
- withParserDo:[:parser |
- remainingVars removeAllFoundIn:(parser usedInstVars)
- ]
- onErrorDo:[]
- ].
- ].
-
- remainingVars asSortedCollection do:[:eachVar |
- self rememberBadClass:checkedClass info:'Unused instance variable: ',eachVar
- ].
-
- "Created: / 18-05-2010 / 14:32:09 / cg"
-! !
-
-!ClassChecker methodsFor:'helpers'!
-
-anyImplementationOf:aSelector
- Smalltalk allClassesDo:[:eachClass |
- (eachClass theNonMetaclass includesSelector:aSelector) ifTrue:[^ true].
- (eachClass theMetaclass includesSelector:aSelector) ifTrue:[^ true].
- ].
- ^ false
-!
-
-anyImplementationOf:aSelector in:aCollectionOfClasses
- ^ aCollectionOfClasses
- contains:[:aClass | (aClass includesSelector:aSelector) ].
-!
-
-anyImplementationOf:aSelector inOrAbove:aClass
- aClass withAllSuperclassesDo:[:eachClass |
- (eachClass includesSelector:aSelector) ifTrue:[^ true].
- ].
- ^ false
-!
-
-anySendsOf:aSelector
- Smalltalk allMethodsDo:[:mthd |
- (mthd sends:aSelector) ifTrue:[^ true].
- ].
- ^ false
-!
-
-checkProtocolOf:aMethod
- |mClass mSelector protocol superClass implClass superProtocol|
-
- mClass := aMethod mclass.
- mSelector := aMethod selector.
- mClass isNil ifTrue:[^ true].
- mSelector isNil ifTrue:[^ true].
-
- protocol := aMethod category.
- protocol isNil ifTrue: [^true].
-
- superClass := mClass superclass.
- superClass isNil ifTrue: [^true].
-
- implClass := superClass whichClassIncludesSelector:mSelector.
- implClass isNil ifTrue: [^true].
-
- superProtocol := (implClass compiledMethodAt:mSelector) category.
- superProtocol = protocol ifTrue: [^true].
- superProtocol isNil ifTrue: [^true].
-
- self
- rememberBadMethod:aMethod
- key:#checkProtocols
- info:('#' , mSelector allBold , ' is classified under "' , protocol allBold , '" in '
- , mClass name , ' and under "' , superProtocol allBold , '" in ' , implClass name
- , ' (#checkProtocols)')
-
- "Modified: / 18.8.2000 / 23:13:53 / cg"
-!
-
-checkUnusedVariables:aMethod rememberReadInstVarsIn:readInstVars writtenInstVarsIn:writtenInstVars readClassVarsIn:readClassVars writtenClassVarsIn:writtenClassVars
- |p mClass sourceString|
-
- sourceString := aMethod source.
-
- mClass := aMethod mclass.
-
- p := Parser parseMethodSilent:sourceString in:mClass.
- readInstVars addAll:(p readInstVars).
- writtenInstVars addAll:(p modifiedInstVars).
- readClassVars addAll:(p readClassVars).
- writtenClassVars addAll:(p modifiedClassVars).
-!
-
-instanceVariablesNeverUsedIn:aClass
- |notUsedHere notUsedAnyWhere anySubclass|
-
- notUsedHere := aClass instVarNames asSet.
- notUsedHere isEmpty ifTrue:[^ self].
-
- self removeUsedInstanceVariablesIn:aClass from:notUsedHere.
-
- notUsedHere notEmpty ifTrue:[
- notUsedAnyWhere := notUsedHere copy.
- anySubclass := false.
- aClass allSubclassesDo:[:eachSubclass |
- anySubclass := true.
- notUsedAnyWhere notEmpty ifTrue:[
- self removeUsedInstanceVariablesIn:eachSubclass from:notUsedAnyWhere.
- ]
- ].
-
- notUsedHere do:[:eachVariable |
- |className|
-
- className := aClass name allBold.
- self
- rememberBadClass:aClass
- info:('instVar ' , eachVariable allBold , ' is unused in ' , className , ' (#instanceVariablesNeverUsed)').
-
- anySubclass ifTrue:[
- (notUsedAnyWhere includes:eachVariable) ifTrue:[
- self
- rememberBadClass:aClass
- info:('instVar ' , eachVariable allBold , ' is not even used in subclasses of ' , className , ' (#instanceVariablesNeverUsed)')
- ]
- ]
- ].
- ]
-!
-
-instanceVariablesNeverWrittenIn:aClass
- |notWrittenHere notWrittenAnyWhere anySubclass|
-
- notWrittenHere := aClass instVarNames asSet.
- notWrittenHere isEmpty ifTrue:[^ self].
-
- self removeWrittenInstanceVariablesIn:aClass from:notWrittenHere.
-
- notWrittenHere notEmpty ifTrue:[
- notWrittenAnyWhere := notWrittenHere copy.
- anySubclass := false.
- aClass allSubclassesDo:[:eachSubclass |
- anySubclass := true.
- notWrittenAnyWhere notEmpty ifTrue:[
- self removeWrittenInstanceVariablesIn:eachSubclass from:notWrittenAnyWhere.
- ]
- ].
-
- notWrittenHere do:[:eachVariable |
- |className|
-
- className := aClass name allBold.
- self
- rememberBadClass:aClass
- info:('instVar ' , eachVariable allBold , ' is nowhere set in ' , className , ' (#instanceVariablesNeverWritten)').
- anySubclass ifTrue:[
- (notWrittenAnyWhere includes:eachVariable) ifTrue:[
- self
- rememberBadClass:aClass
- info:('instVar ' , eachVariable allBold , ' is not even set in subclasses of ' , className , ' (#instanceVariablesNeverWritten)')
- ]
- ]
- ].
- ]
-!
-
-messagesNeverSentAndNotUsedAsSymbolIn:selectorsOfInterest
- |remaining toRemove checkBlock|
-
- remaining := selectorsOfInterest copy asIdentitySet.
- toRemove := IdentitySet new.
-
- checkBlock := [:eachClass |
- eachClass instAndClassSelectorsAndMethodsDo:[:mSel :mthd | |lits|
- lits := mthd literals.
- lits notNil ifTrue:[
- lits traverse:[:eachLiteral |
- eachLiteral isSymbol ifTrue:[
- remaining remove:eachLiteral ifAbsent:nil.
- ]
- ].
- remaining isEmpty ifTrue:[^ remaining].
- ]
- ].
- ].
-
- "/ start searching in the checkedClass - chances are high, we find some here
- checkBlock value:checkedClass.
- checkedClass superclass notNil ifTrue:[checkBlock value:checkedClass superclass].
- Smalltalk allClassesDo:checkBlock.
-
- ^ remaining
-
- "Modified: / 18.8.2000 / 23:05:53 / cg"
- "Created: / 18.8.2000 / 23:06:55 / cg"
-!
-
-messagesNeverSentIn:selectorsOfInterest
- |remaining|
-
- remaining := selectorsOfInterest copy.
- Smalltalk allMethodsDo:[:mthd |
- |lits|
-
- lits := mthd literals.
- lits notNil ifTrue:[
- (lits includesAny:remaining) ifTrue:[
- remaining removeAllFoundIn:(mthd messagesSent).
- remaining isEmpty ifTrue:[^ remaining].
- ]
- ]
- ].
- ^ remaining
-
- "Created: / 18.8.2000 / 22:53:38 / cg"
- "Modified: / 18.8.2000 / 22:56:59 / cg"
-!
-
-methodShouldBeIgnoredInSubclassResponsibilityNotDefined:aMethod
- "a kludge for now - would like to have a pragma, resource or other
- way to mark such a method"
-
- aMethod == (Object compiledMethodAt:#implementedBySubclass) ifTrue:[^ true].
- aMethod == (Object compiledMethodAt:#readBinaryContentsFromData:manager:) ifTrue:[^ true].
- aMethod == (Object compiledMethodAt:#finalize) ifTrue:[^ true].
- ^ false.
-!
-
-rememberBadClass:class info:whatIsWrong
- |entry|
-
- badClasses isNil ifTrue:[
- badClasses := IdentitySet new.
- ].
- badClasses add:class.
-
- badClassInfo isNil ifTrue:[
- badClassInfo := IdentityDictionary new.
- ].
- entry := badClassInfo at:class ifAbsentPut:[ OrderedCollection new ].
- entry add:whatIsWrong.
-!
-
-rememberBadMethod:method key:key info:whatIsWrong
- |entry|
-
- badMethods isNil ifTrue:[
- badMethods := Set new.
- ].
- (badMethods includes:(method -> key)) ifTrue:[^ self].
-
- badMethods add:(method -> key).
-
- badMethodInfo isNil ifTrue:[
- badMethodInfo := IdentityDictionary new.
- ].
- entry := badMethodInfo at:method ifAbsentPut:[ OrderedCollection new ].
- entry add:whatIsWrong.
-!
-
-rememberBadMethods:methods key:key info:whatIsWrong
- methods do:[:eachMethod |
- self rememberBadMethod:eachMethod key:key info:whatIsWrong
- ].
-!
-
-removeUsedClassVariablesIn:aClass from:aCollectionOfVariablenames
- aClass selectorsAndMethodsDo:[:mSelector :method |
- |src usedVars parser|
-
- src := method source.
- src notNil ifTrue:[
- parser := Parser
- parseMethod:src
- in:aClass
- ignoreErrors:true
- ignoreWarnings:true.
-
- (parser notNil and:[parser ~~ #Error]) ifTrue:[
- aCollectionOfVariablenames removeAllFoundIn:(parser usedClassVars).
- aCollectionOfVariablenames isEmpty ifTrue:[^ self].
- ]
- ].
- ].
-!
-
-removeUsedInstanceVariablesIn:aClass from:aCollectionOfVariablenames
- aClass selectorsAndMethodsDo:[:mSelector :method |
- |src usedVars parser|
-
- src := method source.
- src notNil ifTrue:[
- parser := Parser
- parseMethod:src
- in:aClass
- ignoreErrors:true
- ignoreWarnings:true.
-
- (parser notNil and:[parser ~~ #Error]) ifTrue:[
- aCollectionOfVariablenames removeAllFoundIn:(parser usedInstVars).
- aCollectionOfVariablenames isEmpty ifTrue:[^ self].
- ]
- ].
- ].
-!
-
-removeWrittenClassVariablesIn:aClass from:aCollectionOfVariablenames
- aClass selectorsAndMethodsDo:[:mSelector :method |
- |src usedVars parser|
-
- src := method source.
- src notNil ifTrue:[
- parser := Parser
- parseMethod:src
- in:aClass
- ignoreErrors:true
- ignoreWarnings:true.
-
- (parser notNil and:[parser ~~ #Error]) ifTrue:[
- aCollectionOfVariablenames removeAllFoundIn:(parser modifiedClassVars).
- aCollectionOfVariablenames isEmpty ifTrue:[^ self].
- ]
- ].
- ].
-!
-
-removeWrittenInstanceVariablesIn:aClass from:aCollectionOfVariablenames
- aClass selectorsAndMethodsDo:[:mSelector :method |
- |src usedVars parser|
-
- src := method source.
- src notNil ifTrue:[
- parser := Parser
- parseMethod:src
- in:aClass
- ignoreErrors:true
- ignoreWarnings:true.
-
- (parser notNil and:[parser ~~ #Error]) ifTrue:[
- aCollectionOfVariablenames removeAllFoundIn:(parser modifiedInstVars).
- aCollectionOfVariablenames isEmpty ifTrue:[^ self].
- ]
- ].
- ].
-! !
-
-!ClassChecker class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.17 2012-11-06 17:49:11 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.17 2012-11-06 17:49:11 cg Exp $'
-! !
--- a/Tools_ClassGeneratorList.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,523 +0,0 @@
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-BrowserList subclass:#ClassGeneratorList
- instanceVariableNames:'organizerList categoryList namespaceList namespaceNameList
- projectList selectedCategories selectedNamespaces
- selectedProjects selectedClasses'
- classVariableNames:'AdditionalEmptyCategories AdditionalEmptyProjects'
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!ClassGeneratorList class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- embeddable application displaying the class-categories.
- Provides an outputGenerator, which enumerates the classes in
- the selected categories.
-
- [author:]
- Claus Gittinger (cg@exept.de)
-"
-! !
-
-!ClassGeneratorList class methodsFor:'interface specs'!
-
-windowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:ClassGeneratorList andSelector:#windowSpec
- ClassGeneratorList new openInterface:#windowSpec
- ClassGeneratorList open
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'OrganizerList'
- #name: 'OrganizerList'
- #min: #(#Point 0 0)
- #bounds: #(#Rectangle 12 22 312 322)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SequenceViewSpec
- #name: 'List'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #tabable: true
- #model: #organizerSelection
- #menu: #menuHolder
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #isMultiSelect: true
- #valueChangeSelector: #selectionChangedByClick
- #useIndex: true
- #sequenceList: #organizerList
- #doubleClickChannel: #doubleClickChannel
- )
- )
-
- )
- )
-
- "Modified: / 18.8.2000 / 20:12:20 / cg"
-! !
-
-!ClassGeneratorList methodsFor:'aspects'!
-
-categoryList
- categoryList isNil ifTrue:[
- categoryList := ValueHolder new.
- ].
- ^ categoryList
-
-
-!
-
-nameSpaceList
- namespaceList isNil ifTrue:[
- namespaceList := ValueHolder new
- ].
- ^ namespaceList
-
- "Created: / 18.2.2000 / 00:59:01 / cg"
-!
-
-projectList
- projectList isNil ifTrue:[
- projectList := ValueHolder new
- ].
- ^ projectList
-
- "Created: / 17.2.2000 / 23:39:32 / cg"
-
-!
-
-selectedCategories
- selectedCategories isNil ifTrue:[
- selectedCategories := ValueHolder new.
- selectedCategories addDependent:self
- ].
- ^ selectedCategories.
-
-!
-
-selectedCategories:aValueHolder
- |prevSelection|
-
- prevSelection := selectedCategories value ? #().
-
- selectedCategories notNil ifTrue:[
- selectedCategories removeDependent:self
- ].
- selectedCategories := aValueHolder.
- selectedCategories notNil ifTrue:[
- selectedCategories addDependent:self
- ].
- (selectedCategories value ? #()) ~= prevSelection ifTrue:[
- "/ update
- self update:#value with:nil from:selectedCategories
- ].
-
-
-
-!
-
-selectedClasses
- "bad name- it's a holder, baby"
-
- selectedClasses isNil ifTrue:[
- selectedClasses := ValueHolder new.
- ].
- ^ selectedClasses.
-!
-
-selectedClasses:aValueHolder
-"/ selectedClasses notNil ifTrue:[
-"/ selectedClasses removeDependent:self
-"/ ].
- selectedClasses := aValueHolder.
-"/ selectedClasses notNil ifTrue:[
-"/ selectedClasses addDependent:self
-"/ ].
-!
-
-selectedNamespaces
- selectedNamespaces isNil ifTrue:[
- selectedNamespaces := ValueHolder new.
- selectedNamespaces addDependent:self
- ].
- ^ selectedNamespaces.
-
-!
-
-selectedNamespaces:aValueHolder
- |prevSelection|
-
- prevSelection := selectedNamespaces value ? #().
-
- selectedNamespaces notNil ifTrue:[
- selectedNamespaces removeDependent:self
- ].
- selectedNamespaces := aValueHolder.
- selectedNamespaces notNil ifTrue:[
- selectedNamespaces addDependent:self
- ].
- (selectedNamespaces value ? #()) ~= prevSelection ifTrue:[
- "/ update
- self update:#value with:nil from:selectedNamespaces
- ].
-
-
-
-!
-
-selectedProjects
- selectedProjects isNil ifTrue:[
- selectedProjects := ValueHolder new.
- selectedProjects addDependent:self
- ].
- ^ selectedProjects.
-
-!
-
-selectedProjects:aValueHolder
- |prevSelection|
-
- prevSelection := selectedProjects value ? #().
-
- selectedProjects notNil ifTrue:[
- selectedProjects removeDependent:self
- ].
- selectedProjects := aValueHolder.
- selectedProjects notNil ifTrue:[
- selectedProjects addDependent:self
- ].
- (selectedProjects value ? #()) ~= prevSelection ifTrue:[
- "/ update
- self update:#value with:nil from:selectedProjects
- ].
-
-
-
-! !
-
-!ClassGeneratorList methodsFor:'aspects-private'!
-
-organizerList
- organizerList isNil ifTrue:[
- organizerList := ValueHolder new.
- ].
- ^ organizerList
-
-
-! !
-
-!ClassGeneratorList methodsFor:'change & update'!
-
-delayedUpdate:something with:aParameter from:changedObject
- |cls sel pkg mthd orgMode|
-
- changedObject == Smalltalk ifTrue:[
- orgMode := organizerMode value.
-
- orgMode == OrganizerCanvas organizerModeCategory ifTrue:[
- (something == #organization
- or:[something == #newClass]) ifTrue:[
- self updateList.
- ^ self
- ].
- something == #methodInClass ifTrue:[ ^ self ].
-"/ self halt:'debug halt'.
- ^ self.
- ].
- orgMode == OrganizerCanvas organizerModeNamespace ifTrue:[
- (something == #newClass
- or:[something == #classRemove]) ifTrue:[
- aParameter isNameSpace ifTrue:[
- self updateList
- ].
- ^ self
- ].
-"/ self halt:'debug halt'.
- ^ self
- ].
- orgMode == OrganizerCanvas organizerModeProject ifTrue:[
- something == #projectOrganization ifTrue:[
- self updateList.
- ^ self
- ].
- something == #methodInClass ifTrue:[
- cls := aParameter at:1.
- sel := aParameter at:2.
- mthd := cls compiledMethodAt:sel.
- pkg := mthd package.
- (projectList value includes:pkg) ifFalse:[
- self halt:'debug-halt. remove when known to work'.
- self updateList.
- ^ self
- ].
- ^ self
- ].
- (something == #classDefinition
- or:[something == #newClass]) ifTrue:[
- cls := aParameter.
- pkg := cls package.
- (projectList value includes:pkg) ifFalse:[
- self halt:'debug-halt. remove when known to work'.
- self updateList.
- ^ self
- ].
- ^ self
- ].
-"/ self halt.
- ^ self
- ].
- ^ self
- ].
- super delayedUpdate:something with:aParameter from:changedObject
-
- "Created: / 25.2.2000 / 21:32:03 / cg"
- "Modified: / 25.2.2000 / 21:35:23 / cg"
-! !
-
-!ClassGeneratorList methodsFor:'private'!
-
-listFromInGenerator
- |generator theList|
-
- theList := Set new.
- generator := inGeneratorHolder value.
- generator isNil ifTrue:[^ #() ].
- generator do:[:prj | theList add:prj].
- theList := theList asOrderedCollection sort.
- theList addFirst:(self class nameListEntryForALL allItalic).
- ^ theList
-
- "Created: / 25.2.2000 / 21:24:26 / cg"
-!
-
-listOfCategories
- |categories hideUnloadedClasses|
-
- inGeneratorHolder notNil ifTrue:[
- ^ self listFromInGenerator
- ].
-
- hideUnloadedClasses := self hideUnloadedClasses value.
-
- categories := Set new.
- Smalltalk allClassesDo:[:cls |
- (hideUnloadedClasses not or:[cls isLoaded])
- ifTrue:[
- categories add:cls category.
- ]
- ].
-
- "/ those are simulated - in ST/X, empty categories do not
- "/ really exist; however, during browsing, it makes sense.
- AdditionalEmptyCategories size > 0 ifTrue:[
- "/ remove those that are present ...
- AdditionalEmptyCategories := AdditionalEmptyCategories select:[:cat | (categories includes:cat) not].
- categories addAll:AdditionalEmptyCategories.
- ].
- categories := categories asOrderedCollection.
- categories sort.
- categories addFirst:(self class nameListEntryForALL allItalic).
- ^ categories
-
- "Created: / 5.2.2000 / 13:42:12 / cg"
- "Modified: / 25.2.2000 / 21:26:04 / cg"
-!
-
-listOfNamespaces
- |allNamespaces showAllNamespaces|
-
- inGeneratorHolder notNil ifTrue:[
- ^ self listFromInGenerator
- ].
-
-showAllNamespaces := true.
-
- allNamespaces := IdentitySet new.
-
- (self hideUnloadedClasses value) ifTrue:[
- Smalltalk allClassesDo:[:eachClass |
- eachClass isLoaded ifTrue:[
- allNamespaces add:(eachClass theNonMetaclass topNameSpace)
- ].
- ]
- ] ifFalse:[
- allNamespaces := NameSpace allNameSpaces.
- ].
-
- showAllNamespaces ifFalse:[
- "/ only topLevel namespaces are shown
- "/ i.e. ignore subspaces
-
- allNamespaces := allNamespaces select:[:ns | ns isTopLevelNameSpace].
- ].
- allNamespaces := allNamespaces collect:[:ns | ns name].
- allNamespaces := allNamespaces asOrderedCollection.
- allNamespaces sort.
- allNamespaces addFirst:(self class nameListEntryForALL allItalic).
- ^ allNamespaces
-
- "Created: / 25.2.2000 / 21:21:14 / cg"
- "Modified: / 25.2.2000 / 21:26:41 / cg"
-!
-
-listOfProjects
- |allProjects|
-
- inGeneratorHolder notNil ifTrue:[
- ^ self listFromInGenerator
- ].
-
- allProjects := IdentitySet new.
-
- (self hideUnloadedClasses value) ifTrue:[
- allProjects := Smalltalk allLoadedProjectIDs.
- ] ifFalse:[
- allProjects := Smalltalk allProjectIDs.
- ].
-
- "/ those are simulated - in ST/X, empty projects do not
- "/ really exist; however, during browsing, it makes sense.
- AdditionalEmptyProjects size > 0 ifTrue:[
- "/ remove those that are present ...
- AdditionalEmptyProjects := AdditionalEmptyProjects select:[:pkg | (allProjects includes:pkg) not].
- allProjects addAll:AdditionalEmptyProjects.
- ].
- allProjects sort.
- allProjects addFirst:(self class nameListEntryForALL allItalic).
- ^ allProjects
-
- "Created: / 25.2.2000 / 21:22:06 / cg"
- "Modified: / 25.2.2000 / 21:27:27 / cg"
-!
-
-makeDependent
- Smalltalk addDependent:self
-
-!
-
-makeIndependent
- Smalltalk removeDependent:self.
-
-!
-
-release
- super release.
-
- selectedCategories removeDependent:self.
- selectedNamespaces removeDependent:self.
- selectedProjects removeDependent:self.
-!
-
-updateCategoryList
- |newList|
-
- newList := self listOfCategories.
- newList ~= self categoryList value ifTrue:[
- categoryList value:newList.
- self organizerList value:newList.
- ].
-
- "Created: / 25.2.2000 / 21:12:32 / cg"
-!
-
-updateList
- |orgMode|
-
- orgMode := self organizerMode value.
- orgMode == OrganizerCanvas organizerModeCategory ifTrue:[
- self updateCategoryList.
- ^ self
- ].
- orgMode == OrganizerCanvas organizerModeProject ifTrue:[
- self updateProjectList.
- ^ self
- ].
- orgMode == OrganizerCanvas organizerModeNamespace ifTrue:[
- self updateNamespaceList.
- ^ self
- ].
- self halt:'unexpected value'.
-
- "Created: / 5.2.2000 / 13:42:13 / cg"
- "Modified: / 25.2.2000 / 21:14:19 / cg"
-!
-
-updateNamespaceList
- |newList|
-
- newList := self listOfNamespaces.
- newList ~= self nameSpaceList value ifTrue:[
- namespaceList value:newList.
- self organizerList value:newList.
- ].
-
- "Created: / 25.2.2000 / 21:13:16 / cg"
-!
-
-updateProjectList
- |newList|
-
- newList := self listOfProjects.
- newList ~= self projectList value ifTrue:[
- projectList value:newList.
- self organizerList value:newList.
- ].
-
- "Created: / 25.2.2000 / 21:12:57 / cg"
-! !
-
-!ClassGeneratorList class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.12 2012-11-03 11:29:20 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.12 2012-11-03 11:29:20 cg Exp $'
-! !
--- a/Tools_ClassList.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,2024 +0,0 @@
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-BrowserList subclass:#ClassList
- instanceVariableNames:'classList classNameList meta lastSelectedClasses
- selectedClassNameIndices currentNamespace hidePrivateClasses
- unloadedClassesColor markApplicationsHolder classFilterBlock
- sortByNameAndInheritance outGeneratorHolderForMethods'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!ClassList class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- embeddable application displaying the classes as listed by
- the inputGenerator.
- Provides an outputGenerator, which enumerates the classes and
- their protocols (method-categories) in the selected classes.
-
- [author:]
- Claus Gittinger (cg@exept.de)
-"
-
-
-! !
-
-!ClassList class methodsFor:'interface specs'!
-
-singleClassWindowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:ClassList andSelector:#singleClassWindowSpec
- ClassList new openInterface:#singleClassWindowSpec
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'ClassList'
- #name: 'ClassList'
- #min: #(#Point 0 0)
- #max: #(#Point 1024 721)
- #bounds: #(#Rectangle 12 22 312 322)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'ClassName'
- #name: 'ClassLabel'
- #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)
- #translateLabel: true
- #labelChannel: #classLabelHolder
- #menu: #menuHolder
- )
-"/ #(#UISubSpecification
-"/ #name: 'MetaToggleSpec'
-"/ #layout: #(#LayoutFrame 0 0.0 -25 1.0 0 1.0 0 1.0)
-"/ #minorKey: #metaSpec
-"/ )
- )
-
- )
- )
-!
-
-windowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:ClassList andSelector:#windowSpec
- ClassList new openInterface:#windowSpec
- ClassList open
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'ClassList'
- #name: 'ClassList'
- #min: #(#Point 0 0)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SequenceViewSpec
- #name: 'List'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #tabable: true
- #model: #selectedClassNameIndices
- #menu: #menuHolder
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #isMultiSelect: true
- #valueChangeSelector: #selectionChangedByClick
- #useIndex: true
- #sequenceList: #classNameList
- #doubleClickChannel: #doubleClickChannel
- #properties:
- #(#PropertyListDictionary
- #dragArgument: nil
- #dropArgument: nil
- #canDropSelector: #canDropContext:
- #dropSelector: #doDropContext:
- )
- )
- )
-
- )
- )
-! !
-
-!ClassList class methodsFor:'plugIn spec'!
-
-aspectSelectors
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this. If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "Return a description of exported aspects;
- these can be connected to aspects of an embedding application
- (if this app is embedded in a subCanvas)."
-
- ^ #(
- #currentNamespace
- #(#doubleClickChannel #action )
- #forceGeneratorTrigger
- #hidePrivateClasses
- #hideUnloadedClasses
- #sortByNameAndInheritance
- #immediateUpdate
- #inGeneratorHolder
- #menuHolder
- #meta
- #organizerMode
- #outGeneratorHolder
- #packageFilter
- #nameSpaceFilter
- #selectedClasses
- #selectionChangeCondition
- #showClassPackages
- #slaveMode
- #updateTrigger
- #markApplicationsHolder
- #showCoverageInformation
- #outGeneratorHolderForMethods
- ).
-
- "Modified: / 04-07-2011 / 18:34:44 / cg"
- "Modified: / 07-08-2011 / 19:02:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!ClassList methodsFor:'accessing'!
-
-markApplications
- "return the value of the instance variable 'markApplications' (automatically generated)"
-
- ^ self markApplicationsHolder value
-
- "Created: / 3.11.2001 / 14:06:19 / cg"
-!
-
-markApplications:something
- "set the value of the instance variable 'markApplications' (automatically generated)"
-
- self markApplicationsHolder value:something.
-
- "Created: / 3.11.2001 / 14:06:25 / cg"
-!
-
-unloadedClassesColor
- "return the value of the instance variable 'unloadedClassesColor' (automatically generated)"
-
- ^ unloadedClassesColor
-!
-
-unloadedClassesColor:something
- "set the value of the instance variable 'unloadedClassesColor' (automatically generated)"
-
- unloadedClassesColor := something.
-! !
-
-!ClassList methodsFor:'aspects'!
-
-classLabelHolder
- ^ self pseudoListLabelHolder
-!
-
-classList
- classList isNil ifTrue:[
- classList := ValueHolder new.
- ].
- ^ classList
-
- "Created: / 5.2.2000 / 13:42:16 / cg"
- "Modified: / 25.2.2000 / 02:21:07 / cg"
-!
-
-classNameList
- classNameList isNil ifTrue:[
- classNameList := ValueHolder new
- ].
- ^ classNameList
-!
-
-currentNamespace:aValueHolder
- currentNamespace notNil ifTrue:[
- currentNamespace removeDependent:self
- ].
- currentNamespace := aValueHolder.
- currentNamespace notNil ifTrue:[
- currentNamespace isBehavior ifTrue:[self halt:'should not happen'].
- currentNamespace addDependent:self
- ].
-
- "Modified: / 4.2.2000 / 23:34:28 / cg"
- "Created: / 5.2.2000 / 21:37:57 / cg"
-!
-
-doubleClick
- self halt:'should not happen'.
-!
-
-hidePrivateClasses
- hidePrivateClasses isNil ifTrue:[
- hidePrivateClasses := false asValue.
- hidePrivateClasses addDependent:self.
- ].
- ^ hidePrivateClasses.
-
- "Created: / 24.2.2000 / 15:06:44 / cg"
-!
-
-hidePrivateClasses:aValueHolder
- hidePrivateClasses notNil ifTrue:[
- hidePrivateClasses removeDependent:self
- ].
- hidePrivateClasses := aValueHolder.
- hidePrivateClasses notNil ifTrue:[
- hidePrivateClasses addDependent:self
- ].
-
- "Created: / 24.2.2000 / 15:06:46 / cg"
-!
-
-markApplicationsHolder
- markApplicationsHolder isNil ifTrue:[
- markApplicationsHolder := true asValue.
- markApplicationsHolder addDependent:self.
- ].
- ^ markApplicationsHolder.
-!
-
-markApplicationsHolder:aValueHolder
- markApplicationsHolder notNil ifTrue:[
- markApplicationsHolder removeDependent:self
- ].
- markApplicationsHolder := aValueHolder.
- markApplicationsHolder notNil ifTrue:[
- markApplicationsHolder addDependent:self
- ].
-
- "Created: / 24.2.2000 / 15:06:46 / cg"
-!
-
-meta
- meta isNil ifTrue:[
- meta := false asValue.
- meta addDependent:self
- ].
- ^ meta
-
- "Modified: / 31.1.2000 / 01:19:59 / cg"
- "Created: / 5.2.2000 / 13:42:16 / cg"
-!
-
-meta:aValueHolder
-"/ (aValueHolder == true or:[aValueHolder == false]) ifTrue:[self halt].
-
- meta notNil ifTrue:[
- meta removeDependent:self
- ].
- meta := aValueHolder.
- meta notNil ifTrue:[
- meta addDependent:self
- ].
-!
-
-selectClass:aClass
- self selectedClasses value:(Array with:aClass)
-!
-
-selectedClassNameIndices
- selectedClassNameIndices isNil ifTrue:[
- selectedClassNameIndices := #() asValue.
- selectedClassNameIndices addDependent:self
- ].
- ^ selectedClassNameIndices.
-
- "Created: / 5.2.2000 / 21:31:48 / cg"
- "Modified: / 5.2.2000 / 21:43:02 / cg"
-!
-
-selectedClasses
- "bad name- it's a holder, baby"
-
- ^ self selectionHolder
-!
-
-selectedClasses:aValueHolder
- "bad name- its a holder, baby"
-
- ^ self selectionHolder:aValueHolder
-!
-
-showClassPackages
- showClassPackages isNil ifTrue:[
- showClassPackages := false asValue.
- showClassPackages addDependent:self.
- ].
- ^ showClassPackages.
-
- "Created: / 24.2.2000 / 15:06:44 / cg"
-!
-
-showClassPackages:aValueHolder
- showClassPackages notNil ifTrue:[
- showClassPackages removeDependent:self
- ].
- showClassPackages := aValueHolder.
- showClassPackages notNil ifTrue:[
- showClassPackages addDependent:self
- ].
-!
-
-sortByNameAndInheritance
- sortByNameAndInheritance isNil ifTrue:[
- sortByNameAndInheritance := false asValue.
- sortByNameAndInheritance addDependent:self.
- ].
- ^ sortByNameAndInheritance.
-
- "Created: / 04-07-2011 / 18:28:15 / cg"
-!
-
-sortByNameAndInheritance:aValueHolder
- sortByNameAndInheritance notNil ifTrue:[
- sortByNameAndInheritance removeDependent:self
- ].
- sortByNameAndInheritance := aValueHolder.
- sortByNameAndInheritance notNil ifTrue:[
- sortByNameAndInheritance addDependent:self
- ].
-
- "Created: / 04-07-2011 / 18:33:43 / cg"
-! !
-
-!ClassList methodsFor:'change & update'!
-
-classDefinitionChanged:aClassOrNil
-
- listValid ifFalse:[^ self].
-
- slaveMode value == true ifTrue:[
- self invalidateList.
- ^ self.
- ].
- self slaveMode value isNil ifTrue:[
- self window shown ifFalse:[
- self invalidateList.
- ^ self
- ].
- ].
-
- aClassOrNil isNil ifTrue:[
- self halt:'should not happen'.
- ].
-
- "/ if that class is in my list ...
- ((self classList value ? #()) contains:[:cls | cls notNil and:[cls theNonMetaclass name = aClassOrNil theNonMetaclass name]])
- ifTrue:[
- self updateListsFor:aClassOrNil.
- "/ force update
- self selectedClassNameIndices value:(self selectedClassNameIndices value).
-
- ((self selectedClasses value ? #()) contains:[:cls | cls notNil ifTrue:[cls theNonMetaclass name = aClassOrNil theNonMetaclass name] ifFalse:[false]])
- ifTrue:[
- self updateOutputGenerator
- ].
- ] ifFalse:[
- self invalidateList
- ]
-
-
- "Modified: / 29.2.2000 / 00:15:23 / cg"
-!
-
-classRemoved:aClass
- |list|
-
- list := self classList value.
- list notNil ifTrue:[
- (list includesIdentical:aClass) ifTrue:[
- self invalidateList.
- ]
- ]
-
- "Modified: / 25.2.2000 / 23:53:51 / cg"
-!
-
-delayedUpdate:something with:aParameter from:changedObject
- |cls classes chgClass wg savedList|
-
- classes := self classList value ? #().
-
-"/ (self slaveMode value == true) ifTrue:[^ self].
-"/ self slaveMode value isNil ifTrue:[
-"/ self window shown ifFalse:[
-"/ self invalidateList.
-"/ ^ self
-"/ ].
-"/ ].
-
- changedObject == slaveMode ifTrue:[
- "/ a previously suppressed update is now due
- listValid ~~ true ifTrue:[
- self enqueueDelayedUpdateList.
- ].
- self enqueueDelayedClassSelectionChanged.
- ^ self
- ].
-
- changedObject == self selectedClasses ifTrue:[
- self inSlaveMode ifFalse:[
- savedList := self selectedClasses value.
- lastSelectedClasses := nil.
- listValid == true ifFalse:[
- self updateList
- ].
- self selectedClasses setValue:savedList.
- self selectedClassesChanged.
- self updateOutputGenerator.
- ] ifTrue:[
-"/ listValid := false.
- self selectedClassesChanged.
- ].
- ^ self
- ].
-
- (changedObject == meta
- or:[changedObject == selectedClassNameIndices]) ifTrue:[
- self inSlaveMode ifFalse:[
- self selectionChanged.
- ] ifTrue:[
- listValid := false.
- self selectedClassesChanged.
- ].
- ^ self
- ].
-
- self inSlaveModeOrInvisible ifTrue:[
- self invalidateList.
- ^ self.
- ].
-
- changedObject == Smalltalk ifTrue:[
- something == #methodInClass ifTrue:[
- ^ self "no interest"
- ].
- something == #methodInClassRemoved ifTrue:[
- "/ must update the list, if the methods package is different from
- "/ the classes package (to undo any has-exension highlighting)
- cls := aParameter first.
- self updateListsFor:cls.
- ^ self
- ].
- something == #organization ifTrue:[^ self "no interest" ].
-
- (something == #classDefinition
- or:[something == #classVariables
- or:[something == #newClass]]) ifTrue:[
- "/ update that class in my classList and the selection
- listValid ifTrue:[
- self classDefinitionChanged:aParameter.
- ].
- ^ self.
- ].
- (something == #lastTestRunResult) ifTrue:[
- "/ update that class in my classList and the selection
- listValid ifTrue:[
- self updateListsFor:aParameter.
- "/ self classDefinitionChanged:aParameter.
- ].
- ^ self.
- ].
- something == #classRemove ifTrue:[
- "/ update my classList and the selection
- self classRemoved:aParameter.
- ^ self.
- ].
- something == #classRename ifTrue:[
- "/ update that class in my classList and the selection
- listValid ifTrue:[
- aParameter isArray ifTrue:[
- cls := aParameter at:1.
- self classDefinitionChanged:cls.
- ]
- ].
- ^ self.
- ].
-
- something == #projectOrganization ifTrue:[
- aParameter isNil ifTrue:[
- self invalidateList.
- organizerMode value == #project ifTrue:[
- self enqueueDelayedUpdateOutputGenerator.
- ].
- ^ self
- ].
-
- cls := aParameter at:1.
- cls notNil ifTrue:[ "/ should not happen (but does occasionally)
- ((classes includes:cls theMetaclass)
- or:[(classes includes:cls theNonMetaclass)]) ifTrue:[
- self invalidateList.
- organizerMode value == #project ifTrue:[
- self enqueueDelayedUpdateOutputGenerator.
- ]
- ].
- ].
- ^ self
- ].
- ^ self.
- ].
-
- (something == #lastTestRunResult) ifTrue:[
- ^ self
- ].
-
- changedObject == ChangeSet ifTrue:[
- wg := self windowGroup.
- wg isNil ifTrue:[
- changedObject removeDependent:self.
- ] ifFalse:[
- "/ react on changes of the changeSet to recolorize items
- ((something ~~ #addChange:)
- or:[
- chgClass := aParameter changeClass.
- chgClass notNil
- and:[ (classes includes:chgClass theNonMetaclass)
- or:[classes includes:chgClass theMetaclass]]
- ]
- ) ifTrue:[
- wg sensor
- flushEventsFor:self
- where:[:ev | ev isMessageSendEvent
- and:[ev selector == #delayedUpdate:with:from:
- and:[(ev arguments at:3) == ChangeSet]]].
- self enqueueDelayedAction:[self reconstructNameList].
- ].
- ].
- ^ self
- ].
-
- changedObject == showClassPackages ifTrue:[
- self classNameList value:nil.
- self invalidateList.
- ^ self
- ].
-
- (changedObject == hideUnloadedClasses
- or:[changedObject == hidePrivateClasses
- or:[changedObject == nameSpaceFilter
- or:[changedObject == packageFilter]]]) ifTrue:[
- self invalidateList.
- ^ self
- ].
-
- super delayedUpdate:something with:aParameter from:changedObject
-
- "Modified: / 13.11.2001 / 11:32:10 / cg"
-!
-
-enqueueDelayedClassSelectionChanged
- (NewSystemBrowser synchronousUpdate == true
- or:[ immediateUpdate value == true ])
- ifTrue:[
- self selectedClassesChanged.
- ^ self.
- ].
-
- self enqueueMessage:#selectedClassesChanged for:self arguments:#()
-!
-
-getSelectedClassIndicesFromClasses
- "the class selection has changed;
- return a collection of selection-indices"
-
- |classes selectedClasses numSelected|
-
- classes := self classList value.
- selectedClasses := self selectedClasses value.
-
- numSelected := selectedClasses size.
- numSelected == 0 ifTrue:[
- ^ #()
- ].
-
- numSelected == classes size ifTrue:[
- "/ all selected - easy
- ^ (1 to:numSelected) asOrderedCollection
- ].
- meta value ifTrue:[
- classes := classes collect:[:eachClass | eachClass theMetaclass].
- ].
-
- classes := selectedClasses collect:[:aSelectedClass | classes identityIndexOf:aSelectedClass.].
- classes := classes select:[:idx | idx ~= 0].
- ^ classes
-
- "Created: / 24.2.2000 / 19:47:52 / cg"
-!
-
-getSelectedClassesFromIndices
- "the selection-index collection has changed;
- return a collection of corresponding classes"
-
- |selected classes allEntrySelected isMeta anyLost selectedClassNameIndices|
-
- allEntrySelected := false.
-
- classes := classList value.
- classes isNil ifTrue:[
- self updateList.
- classes := classList value.
- ].
-
- isMeta := meta value.
- anyLost := false.
-
- selectedClassNameIndices := self selectedClassNameIndices value.
- selectedClassNameIndices size == classes size ifTrue:[
- selectedClassNameIndices size == 0 ifTrue:[^ #()].
- isMeta ifTrue:[
- ^ classes collect:[:eachClass | eachClass theMetaclass].
- ].
- ^ classes collect:[:eachClass | eachClass theNonMetaclass].
- ].
-
- selected := selectedClassNameIndices
- collect:[:idx |
- |cls|
-
- cls := classes at:idx.
- cls == (self class nameListEntryForALL) ifTrue:[
- allEntrySelected := true.
- ] ifFalse:[
- cls notNil ifTrue:[
- isMeta ifTrue:[
- cls := cls theMetaclass
- ] ifFalse:[
- cls := cls theNonMetaclass
- ].
- ] ifFalse:[
- anyLost := true
- ].
- ].
- cls
- ].
- anyLost ifTrue:[
- selected := selected select:[:each | each notNil].
- ].
-
-"/ allEntrySelected ifTrue:[
-"/ selected := classList value select:[:cls | cls ~~ AllEntry].
-"/ meta value ifTrue:[
-"/ selected := selected collect:[:cls | cls theMetaclass].
-"/ ] ifFalse:[
-"/ selected := selected collect:[:cls | cls theNonMetaclass].
-"/ ].
-"/ ].
-
- ^ selected.
-
- "Created: / 24.2.2000 / 19:43:37 / cg"
-!
-
-selectedClassesChanged
- |indices selectedClassNameIndicesHolder|
-
- self classList value size == 0 ifTrue:[
- "/ this may happen during early startup,
- "/ when invoked with a preset classSelection,
- "/ and the classGenerator has not yet been setup
- "/ to not clobber the selection, defer the update
- "/ until the classList arrives ...
- ^ self
- ].
- "/ lastSelectedClasses := self selectedClasses value copy.
-
- indices := self getSelectedClassIndicesFromClasses.
- selectedClassNameIndicesHolder := self selectedClassNameIndices.
- selectedClassNameIndicesHolder value ~= indices ifTrue:[
- "/ in slaveMode, do not update selectedClasses from indices
- true "slaveMode value" ifTrue:[
- selectedClassNameIndicesHolder value:indices withoutNotifying:self
- ] ifFalse:[
- selectedClassNameIndicesHolder value:indices.
- ]
- ]
-
- "Created: / 13.2.2000 / 22:18:10 / cg"
- "Modified: / 24.2.2000 / 19:48:56 / cg"
-!
-
-selectionChanged
- "the lists selection has changed. Since the list uses indices,
- update the corresponding selectedClasses collection"
-
- |selected prevSelection selectedClassesHolder|
-
- selectedClassesHolder := self selectedClasses.
-
- selected := self getSelectedClassesFromIndices.
-
- prevSelection := selectedClassesHolder value ? #().
-
- prevSelection ~= selected ifTrue:[
- selectedClassesHolder value:selected.
- ].
-!
-
-selectionChangedByClick
- "we are not interested in that - get another notification
- via the changed valueHolder"
-
- |selected master|
-
- selected := self getSelectedClassesFromIndices.
- (selected = lastSelectedClasses and:[selected size == 1])
- ifTrue:[
- "/ thats a kludge - we want to turn off the protocol selection,
- "/ when a class is reselected.
-
- masterApplication notNil ifTrue:[
- master := masterApplication.
- masterApplication masterApplication notNil ifTrue:[
- master := masterApplication masterApplication.
- ].
- (master respondsTo:#classReselected) ifTrue:[
- master classReselected.
- ].
- ]
- ] ifFalse:[
- lastSelectedClasses := selected copy.
- ]
-!
-
-update:something with:aParameter from:changedObject
- |cls sel mthd newMethod oldMethod idx classListValue|
-
- self inSlaveMode ifTrue:[
- something == #methodInClass ifTrue:[ ^ self ].
- something == #addChange: ifTrue:[ self invalidateList. ^ self ].
- something == #methodCoverageInfo ifTrue:[ self invalidateList. ^ self ].
- ].
-"/ self window sensor isNil ifTrue:[
-"/ "/ not visible ...
-"/ self invalidateList.
-"/ ^ self
-"/ ].
-
- classListValue := classList value.
-
- changedObject == Smalltalk ifTrue:[
- something == #classComment ifTrue:[
- ^ self.
- ].
- something == #methodDictionary ifTrue:[
- ^ self
- ].
- something == #methodTrap ifTrue:[
- ^ self
- ].
- something == #coverageInfo ifTrue:[
- listValid == true ifTrue:[
- self enqueueDelayedUpdateList
- ].
- ^ self.
- ].
- something == #methodCoverageInfo ifTrue:[
- listValid == true ifTrue:[
- mthd := aParameter.
- cls := mthd mclass.
- cls notNil ifTrue:[
- classListValue size > 0 ifTrue:[
- ((classListValue includesIdentical:cls theNonMetaclass)
- or:[(classListValue includesIdentical:cls theMetaclass)]) ifTrue:[
- self enqueueDelayedUpdateList
- ]
- ]
- ].
- ].
- ^ self
- ].
- something == #lastTestRunResult ifTrue:[
- cls := aParameter at:1.
- sel := aParameter at:2.
- (cls notNil and:[sel isNil]) ifTrue:[
- classListValue size > 0 ifTrue:[
- ((classListValue includesIdentical:cls theNonMetaclass)
- or:[(classListValue includesIdentical:cls theMetaclass)]) ifTrue:[
- self enqueueDelayedUpdateList
- ]
- ]
- ].
- ^ self
- ].
-
- something == #methodInClassRemoved ifTrue:[
- self inSlaveMode ifFalse:[
- cls := aParameter at:1.
- cls notNil ifTrue:[
- classListValue size > 0 ifTrue:[
- ((classListValue includesIdentical:cls theNonMetaclass)
- or:[(classListValue includesIdentical:cls theMetaclass)]) ifTrue:[
- self enqueueDelayedUpdateList
- ]
- ]
- ].
- ].
- ^ self
- ].
-
- something == #methodInClass ifTrue:[
- cls := aParameter at:1.
- cls notNil ifTrue:[
- classListValue size > 0 ifTrue:[
- ((classListValue includesIdentical:cls theNonMetaclass)
- or:[(classListValue includesIdentical:cls theMetaclass)]) ifTrue:[
- newMethod := cls compiledMethodAt:(aParameter at:2).
- oldMethod := aParameter at:3.
- ((oldMethod isNil
- and:[newMethod package ~= cls package])
- or:[oldMethod notNil
- and:[newMethod package ~= oldMethod package]])
- ifTrue:[
- "/ must update the list (for the package-info)
- self enqueueDelayedUpdateList
- ]
- ]
- ]
- ].
- ^ self
- ].
-
- "/ kludge: must be careful if my inGenerator is a constant list.
- "/ in that case, I have to update it
- "/ (sigh - all a consequence of not #becoming the new class)
- ((something == #classDefinition) or:[something == #newClass]) ifTrue:[
- inGeneratorHolder value isOrderedCollection ifTrue:[
- idx := inGeneratorHolder value findFirst:[:eachClass | eachClass name = aParameter theNonMetaclass name].
- idx ~~ 0 ifTrue:[
- inGeneratorHolder value at:idx put:aParameter.
- self updateListsFor:aParameter.
- "/ self enqueueDelayedUpdateList.
- ]
- ] ifFalse:[
- classListValue size > 0 ifTrue:[
- idx := classListValue findFirst:[:eachClass | eachClass name = aParameter theNonMetaclass name].
- idx ~~ 0 ifTrue:[
- listValid ifTrue:[
- self classDefinitionChanged:aParameter.
- ^ self.
- ]
- ]
- ].
- ].
- ].
- ].
-
- changedObject == sortByNameAndInheritance ifTrue:[
- self invalidateList.
- ^ self.
- ].
-
- super update:something with:aParameter from:changedObject
-
- "Modified: / 05-06-2012 / 23:39:34 / cg"
-! !
-
-!ClassList methodsFor:'drag & drop'!
-
-canDropContext:aDropContext
- |objects|
-
- objects := aDropContext dropObjects collect:[:obj | obj theObject].
- (objects conform:[:anObject | anObject isMethod]) ifTrue:[
- |methods cls|
-
- methods := objects.
- cls := self classAtTargetPointOf:aDropContext.
- cls isNil ifTrue:[^ false].
-
- ^ methods contains:[:aMethod | aMethod mclass ~= cls]
- ].
- (self objectsAreClassFiles:objects) ifTrue:[^ true].
- ^ false.
-
- "Modified: / 17-10-2006 / 18:26:07 / cg"
-!
-
-classAtTargetPointOf:aDropContext
- |p classListView lineNr cls|
-
- p := aDropContext targetPoint.
-
- classListView := aDropContext targetWidget.
-
- lineNr := classListView lineAtY:p y.
- lineNr isNil ifTrue:[^ nil].
-
- cls := classList value at:lineNr.
- ^ cls
-!
-
-doDropContext:aDropContext
- |objects browser|
-
- browser := self masterApplication.
-
- objects := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
- (objects conform:[:something | something isMethod]) ifTrue:[
- |cls methods|
-
- methods := objects.
- cls := self classAtTargetPointOf:aDropContext.
- methods first mclass isMeta ifTrue:[
- cls := cls theMetaclass
- ].
-
- cls notNil ifTrue:[
- methods := methods reject:[:mthd | mthd mclass theNonMetaclass == cls theNonMetaclass].
- methods notEmpty ifTrue:[
- aDropContext dragType == DropContext dragTypeCopy ifTrue:[
- browser copyMethods:methods toClass:cls.
- ] ifFalse:[
- browser moveMethods:methods toClass:cls.
- ].
- ]
- ].
- ^ self
- ].
- (objects conform:[:something | something isFilename]) ifTrue:[
- self dropClassFiles:objects.
- ^ self
- ].
-
- "Modified: / 21-10-2006 / 20:39:55 / cg"
-! !
-
-!ClassList methodsFor:'generators'!
-
-makeGenerator
- "return a generator which enumerates the method categories from the selected class;
- that generator generates 2-element elements (includes the class), in order
- to make the consumers only depend on one input (i.e. no need for another
- classHolder in the methodList)."
-
- ^ Iterator
- on:[:whatToDo |
- |allEntry classes cls already anyMethod packages classIsInPackage showChanged changedClasses|
-
- allEntry := self class nameListEntryForALL.
- changedClasses := ChangeSet current changedClasses.
-
- classes := self selectedClasses value ? #().
- packages := packageFilter value value.
- (packages notNil and:[packages includes:allEntry]) ifTrue:[packages := nil].
- showChanged := packages notNil and:[packages includes:NavigatorModel nameListEntryForChanged].
-
- classes do:[:cls |
- (cls notNil and:[cls ~~ allEntry]) ifTrue:[
- anyMethod := false.
- classIsInPackage := packages isNil
- or:[(packages includes:cls package)
- or:[ showChanged and:[changedClasses includes:cls]] ].
-
- cls theNonMetaclass isJavaClass ifTrue:[
- cls isMeta ifTrue:[
- whatToDo value:cls theNonMetaclass value:(self class nameListEntryForStatic).
- ] ifFalse:[
- whatToDo value:cls value:(self class nameListEntryForNonStatic).
- ]
- ] ifFalse:[
- cls supportsMethodCategories ifTrue:[
- already := Set new.
- cls methodDictionary keysAndValuesDo:[:sel :mthd |
- |cat|
-
- cat := mthd category.
- (already includes:cat) ifFalse:[
- (classIsInPackage
- or:[packages isNil
- or:[packages includes:mthd package]])
- ifTrue:[
- already add:cat.
- whatToDo value:cls value:cat.
- ]
- ]
- ].
- ] ifFalse:[
- whatToDo value:cls value:(self class nameListEntryForNILCategory).
- ].
- ].
-
- anyMethod ifFalse:[
- "/ tell the one below, which classes are seen here,
- "/ (even if no method is present)
- "/ to allow him to decide if the className is to be shown in the list
- whatToDo value:cls value:nil.
- ].
- ].
- ].
- ]
-
- "Modified: / 24.2.2000 / 23:18:26 / cg"
-!
-
-makeGeneratorForMethods
-
- ^ Iterator
- on:[:whatToDo |
- |allEntry classes cls already packages classIsInPackage showChanged cat |
-
- allEntry := self class nameListEntryForALL.
-
- classes := self selectedClasses value ? #().
- packages := packageFilter value value.
- (packages notNil and:[packages includes:allEntry]) ifTrue:[packages := nil].
- showChanged := packages notNil and:[packages includes:NavigatorModel nameListEntryForChanged].
-
- classes do:[:cls |
- (cls notNil and:[cls ~~ allEntry]) ifTrue:[
- classIsInPackage := packages isNil
- or:[(packages includes:cls package)
- or:[ showChanged and:[ChangeSet current changedClasses includes:cls]] ].
- cls isMeta ifTrue:[
- cat := self class nameListEntryForStatic.
- ] ifFalse:[
- cat := self class nameListEntryForNonStatic.
- ].
- cls methodDictionary keysAndValuesDo:[:sel :mthd |
- whatToDo value:cls value:cat value:sel value:mthd.
- ].
-
- ].
- ].
- ]
-
- "Modified: / 24-02-2000 / 23:18:26 / cg"
- "Created: / 07-08-2011 / 19:01:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-outGeneratorHolderForMethods
- ^ outGeneratorHolderForMethods
-!
-
-outGeneratorHolderForMethods:something
- outGeneratorHolderForMethods := something.
-!
-
-updateOutputGenerator
- "create a generator which enumerates my elements,
- and place it into the outputGenerator holder"
-
- super updateOutputGenerator.
- outGeneratorHolderForMethods notNil ifTrue:[
- outGeneratorHolderForMethods value: self makeGeneratorForMethods.
- ].
-
- "Modified: / 04-02-2000 / 17:16:34 / cg"
- "Created: / 05-02-2000 / 13:42:08 / cg"
- "Created: / 07-08-2011 / 18:51:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!ClassList methodsFor:'initialize-release'!
-
-release
- super release.
-
- currentNamespace removeDependent:self.
- sortByNameAndInheritance removeDependent:self.
- hidePrivateClasses removeDependent:self.
- markApplicationsHolder removeDependent:self.
- meta removeDependent:self.
- selectedClassNameIndices removeDependent:self.
- showClassPackages removeDependent:self.
-
- "Created: / 05-02-2000 / 13:42:18 / cg"
-! !
-
-!ClassList methodsFor:'private'!
-
-listOfClasses
- |classesAlready classesOrdered generator nameSpaceFilter packageFilter allName hidePrivate
- privateClassesPerClass nameFilterIncludesMatchCharacters lcNameFilter|
-
- self sortByNameAndInheritance value ifTrue:[
- ^ self listOfClassesByInheritance
- ].
-
- allName := self class nameListEntryForALL.
- (self showAllClassesInNameSpaceOrganisation value) ifFalse:[
- nameSpaceFilter := self nameSpaceFilter value.
- nameSpaceFilter notNil ifTrue:[
- (nameSpaceFilter includes:allName) ifTrue:[
- nameSpaceFilter := nil
- ].
- ].
- ].
-"/ packageFilter := self packageFilter value.
-"/ packageFilter notNil ifTrue:[
-"/ (packageFilter includes:allName) ifTrue:[packageFilter := nil].
-"/ ].
-
- inGeneratorHolder isNil ifTrue:[
- "/ for standAlone testing
- generator := Smalltalk allClasses.
- (self hideUnloadedClasses value) ifTrue:[
- generator := generator select:[:cls | cls isLoaded]
- ].
- ] ifFalse:[
- generator := inGeneratorHolder value.
- generator isNil ifTrue:[^ #() ].
- ].
-
- classesAlready := IdentitySet new.
- classesOrdered := OrderedCollection new.
- hidePrivate := self hidePrivateClasses value.
-
- privateClassesPerClass := IdentityDictionary new.
- nameFilterIncludesMatchCharacters := nameFilter notNil and:[nameFilter includesMatchCharacters].
- nameFilter notNil ifTrue:[ lcNameFilter := nameFilter asLowercase].
-
- generator do:[:cls |
- |owner bucket|
-
- "JV@2011-08-07: FIXME: Ugly code, hard to extend!! And duplicated in listOfClassesByInheritance !!!!!!!!"
- (hidePrivate not or:[cls isPrivate not])
- ifTrue:[
- (nameSpaceFilter isNil
- or:[self isClass:cls shownWithNameSpaceFilter:nameSpaceFilter]) ifTrue:[
- (packageFilter isNil
- or:[self isClass:cls shownWithPackageFilter:packageFilter]) ifTrue:[
- (classesAlready includes:cls) ifFalse:[
- (classFilterBlock isNil
- or:[(classFilterBlock value:cls)]) ifTrue:[
- classesAlready add:cls.
- (nameFilter isNil
- or:[ (nameFilterIncludesMatchCharacters not and:[ cls name asLowercase startsWith:lcNameFilter])
- or:[ (nameFilterIncludesMatchCharacters and:[nameFilter match:cls name ignoreCase:true]) ]]) ifTrue:[
- (owner := cls owningClass) notNil ifTrue:[
- bucket := privateClassesPerClass
- at:owner
- ifAbsentPut:[SortedCollection new
- sortBlock:[:a :b | (a name ? '?') < (b name ? '?')] ].
- bucket add:cls.
- ] ifFalse:[
- "Do not show Java anonymous classes"
- cls isJavaClass ifTrue:[
- cls isAnonymous ifFalse:[
- classesOrdered add:cls.
- ]
- ] ifFalse:[
- classesOrdered add:cls.
- ]
- ]
- ]
- ]
- ]
- ]
- ]
- ]
- ].
-
- "/ are there any private classes, for which the owner is not in the list ?
- privateClassesPerClass keysAndValuesDo:[:eachOwnerClass :privateClasses|
- (classesAlready includes:eachOwnerClass) ifFalse:[
- classesOrdered add:eachOwnerClass.
- classesAlready add:eachOwnerClass.
-"/ privateClasses do:[:privateClass |
-"/ (classesOrdered includes:privateClass) ifFalse:[
-"/ classesOrdered add:privateClass.
-"/ ].
-"/ ].
- ].
- ].
-
- classesOrdered size == 1 ifTrue:[
- self classLabelHolder value:(classesOrdered first name)
- ] ifFalse:[
-"/ self classLabelHolder value:(classes size printString , ' classes').
- sortBy value ~~ #doNotSort ifTrue:[
- classesOrdered sort:[:a :b | a name < b name].
- ]
- ].
-
- privateClassesPerClass notEmpty ifTrue:[
- |stream action|
-
- stream := WriteStream on:(Array new).
-
- action :=
- [:eachClass |
- |bucket|
-
- stream nextPut:eachClass.
-
- bucket := privateClassesPerClass at:eachClass ifAbsent:nil.
- bucket notNil ifTrue:[
- bucket do:action.
- ]
- ].
-
- classesOrdered do:action.
- classesOrdered := stream contents.
- ].
-
-"/
-"/ does not work (yet)
-"/ classes addFirst:AllEntry.
- ^ classesOrdered
-
- "Modified: / 04-07-2011 / 18:33:56 / cg"
- "Modified (format): / 07-08-2011 / 16:02:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-listOfClassesByInheritance
- "TODO: needs refatoring and common code extract with listOfClasses,
- but I have no time at the moment..."
-
- |classesAlready classes classesOrdered generator nameSpaceFilter packageFilter allName hidePrivate
- privateClassesPerClass nameFilterIncludesMatchCharacters lcNameFilter|
-
- allName := self class nameListEntryForALL.
- nameSpaceFilter := self nameSpaceFilter value.
- nameSpaceFilter notNil ifTrue:[
- (nameSpaceFilter includes:allName) ifTrue:[nameSpaceFilter := nil].
- ].
- packageFilter := self packageFilter value.
- packageFilter notNil ifTrue:[
- (packageFilter includes:allName) ifTrue:[packageFilter := nil].
- ].
-
- inGeneratorHolder isNil ifTrue:[
- "/ for standAlone testing
- generator := Smalltalk allClasses.
- (self hideUnloadedClasses value) ifTrue:[
- generator := generator select:[:cls | cls isLoaded]
- ].
- ] ifFalse:[
- generator := inGeneratorHolder value.
- generator isNil ifTrue:[^ #() ].
- ].
-
- classesAlready := IdentitySet new.
- classes := Set new.
- classesOrdered := OrderedCollection new.
- hidePrivate := self hidePrivateClasses value.
-
- privateClassesPerClass := IdentityDictionary new.
- nameFilterIncludesMatchCharacters := nameFilter notNil and:[nameFilter includesMatchCharacters].
- nameFilter notNil ifTrue:[ lcNameFilter := nameFilter asLowercase].
-
- generator do:[:cls |
- |owner bucket|
-
- (hidePrivate not or:[cls isPrivate not])
- ifTrue:[
- (nameSpaceFilter isNil
- or:[self isClass:cls shownWithNameSpaceFilter:nameSpaceFilter]) ifTrue:[
- (packageFilter isNil
- or:[self isClass:cls shownWithPackageFilter:packageFilter]) ifTrue:[
- (classesAlready includes:cls) ifFalse:[
- classesAlready add:cls.
- (owner := cls owningClass) notNil ifTrue:[
- bucket := privateClassesPerClass at:owner ifAbsentPut:[SortedCollection new sortBlock:[:a :b | a name < b name] ].
- bucket add:cls.
- ] ifFalse:[
- cls isJavaClass ifTrue:[
- cls isAnonymous ifFalse:[
- classes add:cls.
- ]
- ] ifFalse:[
- classes add:cls.
- ]
- ]
- ]
- ]
- ]
- ]
- ].
-
- privateClassesPerClass keysAndValuesDo:
- [:owner :privateClasses|
- (owner isPrivate not and:[(classes includes: owner) not])
- ifTrue:[classes addAll: privateClasses]].
-
-
- classes size == 1 ifTrue:[
- classesOrdered := classes asArray.
- self classLabelHolder value:(classes first name)
- ] ifFalse:[
-"/ self classLabelHolder value:(classes size printString , ' classes').
-" sortBy value ~~ #doNotSort ifTrue:[
- classesOrdered sort:[:a :b | a name < b name].
- ]"
- classesOrdered := ClassSorter sort: classes.
- ].
-
- privateClassesPerClass notEmpty ifTrue:[
- |stream action|
-
- stream := WriteStream on:(Array new).
-
- action := [:eachClass |
- |bucket|
-
- stream nextPut:eachClass.
-
- bucket := privateClassesPerClass at:eachClass ifAbsent:nil.
- bucket notNil ifTrue:[
- bucket do:action.
- ]
- ].
-
- classesOrdered do:action.
- classesOrdered := stream contents.
- ].
-
-"/
-"/ does not work (yet)
-"/ classes addFirst:AllEntry.
- ^ classesOrdered
-
- "Modified: / 18-08-2000 / 20:34:10 / cg"
- "Modified: / 21-01-2008 / 19:43:04 / janfrog"
- "Modified: / 24-08-2010 / 20:17:07 / Jan Vrany <enter your email here>"
- "Created: / 04-07-2011 / 18:27:34 / cg"
- "Modified: / 07-08-2011 / 16:14:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-makeDependent
- Smalltalk addDependent:self.
- ChangeSet addDependent:self.
-
- "Created: / 5.2.2000 / 13:42:17 / cg"
-!
-
-makeIndependent
- Smalltalk removeDependent:self.
- ChangeSet removeDependent:self.
-!
-
-nameListForClasses:aClassList
- |orgMode namespaces showNamespaces fullNameList nameList
- filteredPackages filteredNameSpaces classesInRemoteChangeSet
- classNamesInChangeSet classNamesInRemoteChangeSet|
-
- showNamespaces := false.
-
- filteredNameSpaces := nameSpaceFilter value.
- (filteredNameSpaces isNil
- and:[self organizerMode value ~~ OrganizerCanvas organizerModeNamespace]) ifTrue:[
- showNamespaces := true. "/ if no filter, always show the namespace.
- ] ifFalse:[
- (filteredNameSpaces size > 1
- or:[(filteredNameSpaces size > 0)
- and:[filteredNameSpaces includes:(self class nameListEntryForALL)]]) ifTrue:[
- showNamespaces := true
- ] ifFalse:[
- "/ if there are classes from multiple namespaces,
- "/ show the full name
-
- namespaces := IdentitySet new.
- fullNameList := OrderedCollection new.
-
- aClassList
- do:[:cls | |nm|
- nm := cls nameInBrowser.
- fullNameList add:nm.
- namespaces add:cls topNameSpace.
- ].
- showNamespaces := namespaces size > 1
- ].
- ].
-
- orgMode := organizerMode value.
- filteredPackages := packageFilter value value.
-
- classNamesInChangeSet := ChangeSet current changedClasses
- collect:[:each | each theNonMetaclass name].
-
- classesInRemoteChangeSet := SmallTeam isNil ifTrue:[#()] ifFalse:[ SmallTeam changedClasses ].
- classNamesInRemoteChangeSet := classesInRemoteChangeSet collect:[:each | each theNonMetaclass name].
-
- nameList := aClassList
- collect:[:cls |
-
- |className nm pkg emPkg hasExtensions isInChangeSet isInRemoteChangeSet icon
- clr|
-
- className := cls theNonMetaclass name.
- isInChangeSet := classNamesInChangeSet includes:className.
- isInRemoteChangeSet := classNamesInRemoteChangeSet includes:className.
-
- nm := self nameListEntryFor:cls withNameSpace:showNamespaces.
-
- self showCoverageInformation value ifTrue:[
- clr := self colorForCoverageInformationOfClass:cls.
- clr notNil ifTrue:[
- nm := self colorize:nm with:#color -> clr
- ].
- ].
- clr isNil ifTrue:[
- isInChangeSet ifTrue:[
- nm := self emphasizeForChangedCode:nm
- ].
- isInRemoteChangeSet ifTrue:[
- nm := (self colorizeForChangedCodeInSmallTeam:'!! '),nm
- ].
- ].
-
- pkg := cls package ? '-'.
- hasExtensions := cls hasExtensions.
- hasExtensions ifTrue:[
- emPkg := self emphasizeForDifferentPackage:'+'. "/ self emphasizeForDifferentPackage:pkg.
- ].
-
- orgMode == OrganizerCanvas organizerModeProject ifTrue:[
- (filteredPackages notNil
- and:[(filteredPackages includes:cls package) not]) ifTrue:[
- "/ class is in another packae;
- "/ however, class is listed due to methods
- "/ in the filtered package
- hasExtensions ifTrue:[
- nm := nm , emPkg.
- ] ifFalse:[
- nm := nm , ' [ ' , pkg, ' ]'.
- ].
- ] ifFalse:[
- "/ any methods from other packages in this class ?
- hasExtensions ifTrue:[
- nm := nm , (self emphasizeForDifferentPackage:'+').
- ].
- ].
- ] ifFalse:[
- showClassPackages value == true ifTrue:[
- "/ add the package;
- hasExtensions ifTrue:[
- nm := nm , ' [ ' , pkg, ' ]' , (self emphasizeForDifferentPackage:'+').
-"/ isInChangeSet ifFalse:[
-"/ nm := self colorizeForDifferentPackage:nm
-"/ ].
- ] ifFalse:[
- nm := nm , (self colorizeGrey:(' [ ' , pkg, ' ]')).
- ].
- ] ifFalse:[
- hasExtensions ifTrue:[
- nm := nm , emPkg.
-"/ isInChangeSet ifFalse:[
-"/ nm := self colorizeForDifferentPackage:nm
-"/ ]
- ].
- ]
- ].
-
- isInChangeSet ifTrue:[
- nm := nm , self class markForBeingInChangeList
- ].
-"/ cls isVisualStartable ifTrue:[
-"/ nm := LabelAndIcon icon:((SystemBrowser visualStartableClassIcon)
-"/ onDevice:self window device)
-"/ string:nm
-"/ ].
- markApplicationsHolder value== true ifTrue:[
- icon := self iconForClass:cls theNonMetaclass.
- icon isNil ifTrue:[
- icon := SystemBrowser emptyIcon
- ].
- nm := LabelAndIcon icon:icon string:nm
-
- ].
- nm
- ].
-
- ^ nameList
-
- "Modified: / 27-10-2012 / 12:32:20 / cg"
-!
-
-reconstructNameList
- "only reconstruct the names - class list & selection remains unschanged.
- Invoked when the organizerMode mode changes"
-
- |prevMode listView oldNameList newNameList sav|
-
- self classList value isNil ifTrue:[
- self updateList
- ].
-
- newNameList := self nameListForClasses:(classList value ? #()).
- oldNameList := self classNameList value ? #().
- (newNameList
- sameContentsAs: oldNameList
- whenComparedWith:[:a :b | (a sameStringAndEmphasisAs: b)
- and:[ a hasImage == b hasImage
- and:[ a hasIcon == b hasIcon ]]]
- )
- ifTrue:[
- "/ no need to update
- ] ifFalse:[
- builder notNil ifTrue:[
- listView := builder componentAt:#List.
- ].
- (listView isNil or:[listView scrolledView isNil]) ifTrue:[
- "/ invoked very early during setup
- self classNameList value:newNameList
- ] ifFalse:[
- "/ avoid flicker and useless redraws
-
- prevMode := listView scrollWhenUpdating.
- listView scrollWhenUpdating:nil.
-
- "/ this will lead to a selectionIndex change (done by the selListView);
- "/ however, we dont want this here, since it recurses into
- "/ a selectionChange. Therefore, temporarily disconnect the selectionIndexHolder...
- [
- self selectedClassNameIndices removeDependent:self.
- "/ also, dont want a callback (selectionChangedByClick)
- sav := listView action.
- listView action:nil.
- self classNameList value:newNameList.
- ] ensure:[
- listView action:sav.
- self selectedClassNameIndices addDependent:self.
- listView scrollWhenUpdating:prevMode.
- ].
- ]
- ].
-
- "Modified: / 31.10.2001 / 11:33:21 / cg"
-!
-
-updateClassesIn:aCollection
- "replace any obsolete class in aCollection;
- return true, if any was found"
-
- |found meta classes|
-
- found := false.
-
- aCollection isSequenceable ifFalse:[
- classes := aCollection copy.
- aCollection removeAll.
- classes do:[:cls |
- |newClass|
-
- meta := cls isMeta.
- newClass := Smalltalk at:(cls theNonMetaclass name).
- newClass isNil ifTrue:[
- newClass := cls
- ] ifFalse:[
- meta ifTrue:[
- newClass := newClass class
- ]
- ].
- found := cls ~~ newClass.
- aCollection add:newClass.
- ].
- ] ifTrue:[
- aCollection keysAndValuesDo:[:idx :cls |
- |newClass|
-
- cls notNil ifTrue:[
- meta := cls isMeta.
- newClass := Smalltalk at:(cls theNonMetaclass name).
- newClass isNil ifTrue:[
- newClass := cls
- ] ifFalse:[
- meta ifTrue:[
- newClass := newClass class
- ]
- ].
- found := cls ~~ newClass.
- aCollection at:idx put:newClass.
- ]
- ].
- ].
- ^ found
-!
-
-updateList
- |prevSelection oldList newList newSelectionIndices
- forceSelectionChange selectedClassNameIndicesHolder classList
- classesAddedToList classesRemovedFromList newSet oldSet|
-
- newList := self listOfClasses.
- classList := self classList.
- oldList := classList value ? #().
-
- autoSelect == true ifTrue:[
- classesRemovedFromList := OrderedCollection new.
- newSet := newList asSet.
- oldSet := oldList asSet.
- classesAddedToList := newSet select:[:eachNewClass | (oldSet includes:eachNewClass) not].
- classesRemovedFromList := oldSet select:[:eachOldClass | (newSet includes:eachOldClass) not].
- ].
-
- (newList ~= oldList
- or:[self classNameList value isNil and:[newList size > 0]]) ifTrue:[
- prevSelection := lastSelectedClasses ? #().
- prevSelection := prevSelection select:[:each | each notNil].
-
- (newList collect:[:each | each name]) = (oldList collect:[:each | each name]) ifTrue:[
- "/ no need to tell anybody
- classList setValue:newList.
- ] ifFalse:[
- classList value:newList.
- ].
- self reconstructNameList.
-
- (prevSelection size == 0
- and:[self selectedClasses value size ~~ 0]) ifTrue:[
- "/ this happens during early startup time,
- "/ when the selection is already (pre-)set,
- "/ and the classList is generated the first time
- "/ (i.e. when opened with preset selection)
-
- "/ do not clobber the selection in this case.
- prevSelection := self selectedClasses value.
- prevSelection := prevSelection select:[:cls | cls notNil].
- "/ simulate a change, to force selection update in listView
- forceSelectionChange := true.
- ].
-
- autoSelect == true ifTrue:[
- prevSelection isNil ifTrue:[
- prevSelection := OrderedCollection new
- ].
- prevSelection := prevSelection asOrderedCollection.
-
- classesAddedToList do:[:eachNewClass |
- (prevSelection includes:eachNewClass) ifFalse:[
- prevSelection add:eachNewClass.
- ].
- ].
- classesRemovedFromList do:[:eachOldClass |
- prevSelection remove:eachOldClass ifAbsent:[].
- ].
- ].
-
- newSelectionIndices := prevSelection
- collect:[:item | |cls|
- cls := Smalltalk at:item theNonMetaclass name.
- newList identityIndexOf:cls]
- thenSelect:[:index | index ~~ 0].
-
- selectedClassNameIndicesHolder := self selectedClassNameIndices.
-
- ((selectedClassNameIndicesHolder value size ~~ self selectedClasses value size)
- or:[newSelectionIndices ~= selectedClassNameIndicesHolder value])
- ifTrue:[
- newSelectionIndices notEmpty ifTrue:[
- "/ force change (for dependents)
- "/ selectedClassNameIndicesHolder value:newSelectionIndices.
- ] ifFalse:[
- prevSelection := self selectedClasses value.
- newSelectionIndices := #().
- ].
- selectedClassNameIndicesHolder value:newSelectionIndices.
-
- prevSelection notNil ifTrue:[
- lastSelectedClasses := prevSelection.
- ].
- self updateOutputGenerator.
- ].
-
- ] ifFalse:[
- "/ same classes - but name(s) could be differnet
- newList size > 0 ifTrue:[
- self reconstructNameList
- ]
- ].
- listValid := true.
-
- "Created: / 5.2.2000 / 13:42:18 / cg"
- "Modified: / 31.10.2001 / 11:35:39 / cg"
-!
-
-updateListsFor:aClass
- |classes found foundInSelection|
-
- found := foundInSelection := false.
-
- "/ update for a changed class in the classList
- (classes := classList value) size > 0 ifTrue:[
- (self updateClassesIn:classes) ifTrue:[
- found := true
- ].
- (classes includes:nil) ifTrue:[
-"/ self halt:'should not happen'.
- classList value:(classes := classes select:[:each | each notNil]).
- ].
- ].
- "/ possibly in the generator
- ((classes := inGeneratorHolder value) isOrderedCollection
- and:[classes size > 0]) ifTrue:[
- (self updateClassesIn:classes) ifTrue:[
- found := true
- ].
- (classes includes:nil) ifTrue:[
-"/ self halt:'should not happen'.
- inGeneratorHolder value:(classes select:[:each | each notNil]).
- ]
- ].
- "/ and in the selection
- (classes := self selectedClasses value) size > 0 ifTrue:[
- (self updateClassesIn:classes) ifTrue:[
- found := true.
- foundInSelection := true.
- ].
- (classes includes:nil) ifTrue:[
-"/ self halt:'should not happen'.
- self selectedClasses value:(classes select:[:each | each notNil]).
- ]
- ].
- "/ and in the last selection
- (classes := lastSelectedClasses) size > 0 ifTrue:[
- (self updateClassesIn:classes) ifTrue:[
- found := true
- ].
- (classes includes:nil) ifTrue:[
-"/ self halt:'should not happen'.
- lastSelectedClasses := (classes select:[:each | each notNil]).
- ]
- ].
-
- found ifFalse:[
- "/ could be a new class (or no-longer autolaoded one).
- listValid ifTrue:[
- self enqueueDelayedUpdateList.
- ].
- ].
- foundInSelection ifTrue:[
- "/ force update of output generator
- self selectedClasses
- removeDependent:self;
- changed;
- addDependent:self.
- ].
-
- "Modified: / 05-06-2012 / 23:39:25 / cg"
-! !
-
-!ClassList methodsFor:'private-presentation'!
-
-colorForCoverageInformationOfClass:aClass
- |instrumented anyPartiallyCovered anyCalled anyNotCalled|
-
- instrumented := anyPartiallyCovered := anyCalled := anyNotCalled := false.
- aClass instAndClassMethodsDo:[:m |
- m category = 'documentation' ifFalse:[
- m isInstrumented ifTrue:[
- instrumented := true.
- m hasBeenCalled ifFalse:[
- anyNotCalled := true.
- ] ifTrue:[
- anyCalled := true.
- m haveAllBlocksBeenExecuted ifFalse:[
- anyPartiallyCovered := true.
- "/ no need to search further...
- ^ UserPreferences current colorForInstrumentedPartiallyCoveredCode
- ]
- ].
- ].
- ].
- ].
- instrumented ifFalse:[ ^ nil].
-
- anyCalled ifFalse:[ ^ UserPreferences current colorForInstrumentedNeverCalledCode ].
- anyNotCalled ifFalse:[ ^ UserPreferences current colorForInstrumentedFullyCoveredCode ].
- ^ UserPreferences current colorForInstrumentedPartiallyCoveredCode
-
- "Created: / 28-04-2010 / 14:05:27 / cg"
-!
-
-iconForClass:aClass
- ^ SystemBrowser iconForClass:aClass
-
- "Created: / 17-08-2006 / 09:12:32 / cg"
-!
-
-indentPerPrivacyLevel
- ^ 4
-!
-
-nameListEntryFor:aClass withNameSpace:useFullName
- |sortByNameAndInheritance nm indent owner orgMode indentString javaPackage|
-
- aClass == (self class nameListEntryForALL) ifTrue:[ ^ aClass ].
-
- sortByNameAndInheritance := self sortByNameAndInheritance value.
-
- sortByNameAndInheritance ifTrue:[
- nm := (self nameListIndentStringFor: aClass withNameSpace: useFullName) , aClass nameInBrowser.
- ] ifFalse:[
- nm := aClass nameInBrowser.
- ].
-
- aClass isLoaded ifFalse:[
- unloadedClassesColor notNil ifTrue:[
- nm := nm colorizeAllWith:unloadedClassesColor
- ]
- ].
-
- aClass isLoaded ifFalse:[
- "/ nm := nm,(' (?) ' colorizeAllWith:Color grey).
- ] ifTrue:[
- nm := nm,((' (%1+%2) ' bindWith:(aClass methodDictionary size) with:(aClass class methodDictionary size))
- colorizeAllWith:self class pseudoEntryForegroundColor).
- ].
-
- orgMode := organizerMode value.
- orgMode == OrganizerCanvas organizerModeHierarchy ifTrue:[
- "/ always show the full name
- ^ nm
- ].
- orgMode == OrganizerCanvas organizerModeClassHierarchy ifTrue:[
- "/ always show the full name
- ^ nm
- ].
-
- aClass isJavaClass ifTrue:[
- "/ only show the last name, unless multiple packages are shown in the list
- javaPackage := aClass package.
- (self classList value contains:[:cls | cls package ~= javaPackage]) ifTrue:[
- ^ nm
- ].
- ^ aClass lastName
- ].
-
- useFullName ifFalse:[
- aClass isPrivate ifFalse:[
- sortByNameAndInheritance ifTrue:[
- ^ (self nameListIndentStringFor: aClass withNameSpace: useFullName) , aClass nameWithoutNameSpacePrefix
- ].
- ^ aClass nameWithoutNameSpacePrefix
- ]
- ].
-
- "/ full name required if owner is not in the list
- owner := aClass owningClass.
- (owner isNil
- or:[(self classList value includesIdentical:owner) not]) ifFalse:[
-
- "/ namespace
- indent := (nm count:[:char | char == $:]) // 2.
- indent > 0 ifTrue:[
- indent := indent * self indentPerPrivacyLevel.
- indentString := String new:indent withAll:Character space.
- sortByNameAndInheritance ifTrue:[
- nm := (self nameListIndentStringFor:owner withNameSpace:useFullName)
- , indentString , '::' , aClass nameWithoutPrefix.
- ] ifFalse:[
- nm := indentString , '::' , aClass nameWithoutPrefix
- ]
- ].
- ].
-
- ^ nm
-
- "Modified: / 04-07-2011 / 19:00:45 / cg"
-!
-
-nameListIndentStringFor:aClass withNameSpace:useFullName
- | indent indentString cls |
-
- indent := 0.
- indentString := ''.
- cls := aClass superclass.
- [self classList value includesIdentical:cls]
- whileTrue:
- [indent := indent + 1.
- cls := cls superclass].
-
- indent == 0 ifFalse:[
- indent <= 5 ifTrue:[
- indentString := #(
- ''
- ' '
- ' '
- ' '
- ' '
- ' '
- ) at:indent+1.
- ] ifFalse:[
- indentString := String new:indent*2 withAll:Character space.
- ].
-
- ].
- ^indentString
-
- "Modified: / 24-02-2000 / 17:52:28 / cg"
- "Created: / 21-01-2008 / 19:02:07 / janfrog"
- "Modified (format): / 04-07-2011 / 18:30:20 / cg"
-! !
-
-!ClassList methodsFor:'queries'!
-
-supportsSearch
-
- ^(self componentAt: #List) notNil
-
- "Created: / 28-07-2011 / 17:46:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!ClassList methodsFor:'setup'!
-
-autoSelect:aBoolean
- autoSelect ~~ aBoolean ifTrue:[
- autoSelect := aBoolean.
- classList value:nil.
- ].
-!
-
-classFilterBlock:aBlock
- "use this to filter away unwanted packages"
-
- classFilterBlock := aBlock
-!
-
-postBuildWith:aBuilder
- |classListView|
-
- super postBuildWith:aBuilder.
-
- classListView := aBuilder componentAt:'List'.
- classListView notNil ifTrue:[
- classListView allowDrag:true.
- classListView dragObjectConverter:[:obj |
- |nm class idx|
-
- nm := obj theObject asString.
- idx := classNameList value indexOf:nm.
- idx == 0 ifTrue:[
- idx := classNameList value indexOf:nm string.
- ].
- class := classList value at:idx.
- DropObject newClass:class.
- ].
- ]
-! !
-
-!ClassList class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.70 2012-11-07 14:21:22 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.70 2012-11-07 14:21:22 cg Exp $'
-! !
--- a/Tools_HierarchicalClassList.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,320 +0,0 @@
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-ClassList subclass:#HierarchicalClassList
- instanceVariableNames:'topClassHolder'
- classVariableNames:'InheritedEntry'
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!HierarchicalClassList class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- Like a ClassList, but shows classes hierarchical.
-
- If topClassHolders value is non-nil, only that classes hierarchy
- is shown.
-
- embeddable application displaying the classes as listed by
- the inputGenerator.
- Provides an outputGenerator, which enumerates the classes and
- their protocols (method-categories) in the selected classes.
-
- [author:]
- Claus Gittinger (cg@exept.de)
-"
-
-
-! !
-
-!HierarchicalClassList class methodsFor:'initialization'!
-
-initialize
- InheritedEntry := '* inheritance *'
-
- "Created: / 24.2.2000 / 20:19:19 / cg"
-! !
-
-!HierarchicalClassList class methodsFor:'queries-plugin'!
-
-aspectSelectors
- ^ super aspectSelectors ,
- #(
- topClassHolder
- )
-
-
-
-! !
-
-!HierarchicalClassList methodsFor:'accessing'!
-
-showMethodComplexity:aValueHolder
-
- "Created: / 05-11-2007 / 17:15:35 / cg"
-!
-
-showMethodInheritance:aValueHolder
-
- "Created: / 05-11-2007 / 17:15:23 / cg"
-!
-
-showMethodTypeIcon:aValueHolder
-
- "Created: / 05-11-2007 / 17:15:42 / cg"
-! !
-
-!HierarchicalClassList methodsFor:'aspects'!
-
-methodVisibilityHolder:aValueHolder
-
- "Created: / 05-11-2007 / 17:15:48 / cg"
-!
-
-topClassHolder
- topClassHolder isNil ifTrue:[
- topClassHolder := Object asValue.
- topClassHolder addDependent:self
- ].
- ^ topClassHolder
-!
-
-topClassHolder:aValueHolder
- |oldTopClass newTopClass|
-
- oldTopClass := topClassHolder value.
-
- topClassHolder notNil ifTrue:[
- topClassHolder removeDependent:self
- ].
- topClassHolder := aValueHolder.
-
- topClassHolder notNil ifTrue:[
- topClassHolder isBehavior ifTrue:[self halt:'should not happen'].
- topClassHolder addDependent:self.
- ].
-
- newTopClass := topClassHolder value.
- newTopClass ~~ oldTopClass ifTrue:[
- self enqueueDelayedUpdateList.
- ].
-! !
-
-!HierarchicalClassList methodsFor:'change & update'!
-
-classDefinitionChanged:aClass
- |prevTop prevSelection newSelection selectedClassesHolder|
-
- listValid ifFalse:[^ self].
- slaveMode value == true ifTrue:[
- self invalidateList.
- ^ self.
- ].
-
- selectedClassesHolder := self selectedClasses.
- prevSelection := selectedClassesHolder value copy.
-
- prevTop := self topClassHolder value.
- prevTop notNil ifTrue:[
- (prevTop name = aClass name) ifTrue:[
- "/ forced update
- topClassHolder value:aClass.
- ] ifFalse:[
- (prevTop name = aClass class name) ifTrue:[
- "/ forced update
- topClassHolder value:aClass class.
- ]
- ]
- ].
-
- "/ must update the list (notice, that the hierarchy might have changed..)
-
- self updateList.
-
- selectedClassesHolder value ~= prevSelection ifTrue:[
- newSelection := prevSelection collect:[:eachOldClass | Smalltalk classNamed:(eachOldClass name)].
- selectedClassesHolder value:newSelection.
- ]
-
- "Modified: / 26.2.2000 / 01:17:01 / cg"
-!
-
-classRemoved:aClass
- |prevTop newTop prevSel nPrevSelected selectedClassesHolder newSelection wasMeta|
-
- prevTop := self topClassHolder value.
-
- prevTop notNil ifTrue:[
- wasMeta := prevTop isMeta.
- newTop := prevTop theNonMetaclass.
- [newTop notNil and:[(Smalltalk at:newTop name) ~= newTop]] whileTrue:[
- newTop := newTop superclass.
- ].
- wasMeta ifTrue:[
- newTop := newTop theMetaclass
- ].
- newTop ~~ prevTop ifTrue:[
- self topClassHolder value:newTop.
- ].
- ].
-
- selectedClassesHolder := self selectedClasses.
-
- "/ if there is a single selection,
- "/ which is the old top, replace it.
- prevSel := selectedClassesHolder value.
- nPrevSelected := prevSel size.
- nPrevSelected > 0 ifTrue:[
- nPrevSelected == 1 ifTrue:[
- prevSel first == aClass ifTrue:[
- newTop notNil ifTrue:[
- newSelection := Array with:newTop.
- ] ifFalse:[
- newSelection := #().
- ]
- ].
- ] ifFalse:[
- nPrevSelected ~~ 0 ifTrue:[
- "/ clear the selection
- newSelection := #().
- ]
- ].
- newSelection notNil ifTrue:[
- selectedClassesHolder value:newSelection
- ].
- ].
-
- super classRemoved:aClass.
-! !
-
-!HierarchicalClassList methodsFor:'private'!
-
-addTo:aList whereSuperclassIs:aSuperclass
- |theClasses|
-
- aSuperclass isNil ifTrue:[
- theClasses := Smalltalk allClasses select:[:cls | cls superclass isNil]
- ] ifFalse:[
- theClasses := aSuperclass subclasses.
- ].
- (self hideUnloadedClasses value) ifTrue:[
- theClasses := theClasses select:[:cls | cls isLoaded].
- ].
-
- theClasses := theClasses asOrderedCollection sort:[:a :b | (a name ? '??') < (b name ? '??')].
- theClasses do:[:aClass |
- aList add:aClass.
- self addTo:aList whereSuperclassIs:aClass
- ].
-!
-
-defaultSlaveModeValue
- |mode|
-
- mode := self topApplication perform:#initialOrganizerMode ifNotUnderstood:nil.
- mode == OrganizerCanvas organizerModeClassHierarchy ifTrue:[^ false].
- mode isNil ifTrue:[^ false].
-
- self organizerMode value == OrganizerCanvas organizerModeCategory ifTrue:[^ true].
- ^ false
-!
-
-listOfClasses
- |classes top|
-
- classes := OrderedCollection new.
- (top := self topClassHolder value) notNil ifTrue:[
- top := top theNonMetaclass.
- classes addAll:(top withAllSuperclasses copy reverse).
- ].
- self addTo:classes whereSuperclassIs:top.
- ^ classes
-
- "Modified: / 24.2.2000 / 13:27:43 / cg"
-!
-
-nameListEntryFor:aClass withNameSpace:useFullName
- |indent superClass nm|
-
- aClass == (self class nameListEntryForALL) ifTrue:[ ^ aClass ].
- aClass == InheritedEntry ifTrue:[ ^ aClass ].
-
- nm := aClass name.
- nm isNil ifTrue:[^ '???'].
-
- aClass isLoaded ifFalse:[
- "/ nm := nm,(' (?) ' colorizeAllWith:Color grey).
- ] ifTrue:[
- nm := nm,((' (%1+%2) ' bindWith:(aClass methodDictionary size) with:(aClass class methodDictionary size))
- colorizeAllWith:self class pseudoEntryForegroundColor).
- ].
-
- indent := 0.
- superClass := aClass superclass.
- [superClass notNil] whileTrue:[
- indent := indent + 1.
- superClass := superClass superclass.
- ].
-
- indent == 0 ifTrue:[
- ^ nm
- ].
-
- indent <= 5 ifTrue:[
- indent := #(
- ''
- ' '
- ' '
- ' '
- ' '
- ' '
- ) at:indent+1.
- ] ifFalse:[
- indent := String new:indent*4 withAll:Character space.
- ].
- ^ indent , nm
-
- "Modified: / 24.2.2000 / 20:19:47 / cg"
-!
-
-release
- super release.
-
- topClassHolder removeDependent:self.
-! !
-
-!HierarchicalClassList class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.10 2012-10-30 10:09:09 cg Exp $'
-! !
-
-HierarchicalClassList initialize!
--- a/Tools_InheritanceClassList.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,194 +0,0 @@
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-HierarchicalClassList subclass:#InheritanceClassList
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!InheritanceClassList class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2004 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- Like a HierarchicalClassList, but shows class inheritance.
- For non-meta classes, this is the same as would be shown in
- the hierarchy list;
- For metaclasses, the tree is extented through the class-behavior
- hierarchy.
-
- embeddable application displaying the classes as listed by
- the inputGenerator.
- Provides an outputGenerator, which enumerates the classes and
- their protocols (method-categories) in the selected classes.
-
- [author:]
- Claus Gittinger (cg@exept.de)
-"
-
-
-! !
-
-!InheritanceClassList methodsFor:'change & update'!
-
-delayedUpdate:something with:aParameter from:changedObject
- |top oldSelection newSelection showMeta|
-
-"/ self inSlaveModeOrInvisible ifTrue:[^ self].
-"/ self inSlaveMode ifTrue:[^ self].
-
- changedObject == slaveMode ifTrue:[
- self inSlaveMode ifTrue:[
- self invalidateList.
- ] ifFalse:[
- listValid ifFalse:[
- self updateList
- ].
- ].
- ^ self
- ].
-
- changedObject == meta ifTrue:[
- oldSelection := self selectedClasses value ? #().
- showMeta := meta value.
-
- newSelection := oldSelection collect:[:cls | showMeta ifTrue:[cls theMetaclass] ifFalse:[cls theNonMetaclass]].
- newSelection := newSelection asOrderedCollection.
-
- top := self topClassHolder value.
- top notNil ifTrue:[
- top := showMeta ifTrue:[top theMetaclass] ifFalse:[top theNonMetaclass].
- self topClassHolder value:top.
- ].
- self invalidateList.
-
- (newSelection includes:nil) ifTrue:[self halt:'should not happen'].
-
- self selectedClasses value:newSelection.
- ^ self.
- ].
- super delayedUpdate:something with:aParameter from:changedObject
-
- "Modified: / 24.2.2000 / 15:29:21 / cg"
-!
-
-getSelectedClassIndicesFromClasses
- |classes selectedClasses selectedIndices|
-
- selectedClasses := self selectedClasses value.
- selectedClasses size == 0 ifTrue:[^ #() ].
-
- classes := self classList value.
- selectedIndices := selectedClasses
- collect:[:aSelectedClass |
- classes identityIndexOf:aSelectedClass.
- ].
- selectedIndices := selectedIndices select:[:idx | idx ~~ 0].
- selectedIndices size == 0 ifTrue:[
-"/ meta value == true ifTrue:[
-"/self halt.
-"/ ] ifFalse:[
-"/self halt.
-"/ ]
- ].
-
- ^ selectedIndices
-
- "Created: / 24.2.2000 / 19:48:05 / cg"
- "Modified: / 24.2.2000 / 23:30:22 / cg"
-!
-
-getSelectedClassesFromIndices
- |selected classes allSelected|
-
- allSelected := false.
-
- classes := classList value.
- selected := self selectedClassNameIndices value collect:[:idx |
- |cls|
-
- cls := classes at:idx.
-"/ cls == AllEntry ifTrue:[
-"/ allSelected := true.
-"/ cls.
-"/ ] ifFalse:[
-"/ cls notNil ifTrue:[
-"/ meta value ifTrue:[
-"/ cls := cls theMetaclass
-"/ ] ifFalse:[
-"/ cls := cls theNonMetaclass
-"/ ].
-"/ ].
-"/ cls
-"/ ]
- ].
-
-"/ allSelected ifTrue:[
-"/ selected := classList value select:[:cls | cls ~~ AllEntry].
-"/ ].
-
- selected := selected select:[:cls | cls notNil].
- ^selected.
-
- "Created: / 24.2.2000 / 19:45:04 / cg"
-! !
-
-!InheritanceClassList methodsFor:'private'!
-
-defaultSlaveModeValue
- |mode|
-
- mode := self topApplication perform:#initialOrganizerMode ifNotUnderstood:nil.
- mode == OrganizerCanvas organizerModeClassInheritance ifTrue:[^ false].
- mode isNil ifTrue:[^ false].
-
- self organizerMode value == OrganizerCanvas organizerModeCategory ifTrue:[^ true].
- ^ false
-!
-
-listOfClasses
- |top classes|
-
- (top := self topClassHolder value) isNil ifTrue:[
- ^ super listOfClasses
- ].
-
- classes := top withAllSuperclasses copy reverse.
-"/ classes addFirst:InheritedEntry.
- ^ classes
-
- "Modified: / 26.2.2000 / 00:38:48 / cg"
-! !
-
-!InheritanceClassList class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_InheritanceClassList.st,v 1.5 2012-11-07 14:35:53 cg Exp $'
-! !
--- a/Tools_MethodCategoryList.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,2084 +0,0 @@
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-BrowserList subclass:#MethodCategoryList
- instanceVariableNames:'variableFilter filterClassVars lastSelectedProtocols classes
- leafClasses protocolList rawProtocolList selectedProtocolIndices
- lastGeneratedProtocols packageFilterOnInput
- methodVisibilityHolder noAllItem noPseudoItems
- showPseudoProtocols'
- classVariableNames:'AdditionalEmptyCategoriesPerClassName MethodInfoCache
- MethodInfoCacheAccessLock'
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-Object subclass:#CachedMethodInfo
- instanceVariableNames:'flags'
- classVariableNames:'FlagObsolete FlagSendsSuper FlagIsUncommented
- FlagIsDocumentationMethod FlagIsLongMethod FlagIsExtension
- FlagIsRedefine FlagIsRedefined FlagIsOverride
- FlagIsSubclassResponsibility FlagIsTest FlagIsAnnotated'
- poolDictionaries:''
- privateIn:MethodCategoryList
-!
-
-Method variableSubclass:#MissingMethod
- instanceVariableNames:'selector'
- classVariableNames:''
- poolDictionaries:''
- privateIn:MethodCategoryList
-!
-
-!MethodCategoryList class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- I implement the method category (= protocol) list in the new system browser
-"
-! !
-
-!MethodCategoryList class methodsFor:'initialization'!
-
-flushMethodInfo
- MethodInfoCache := Dictionary new.
-
- "
- self flushMethodInfo
- "
-!
-
-initialize
- MethodInfoCache := Dictionary new.
- MethodInfoCacheAccessLock := RecursionLock new.
-! !
-
-!MethodCategoryList class methodsFor:'cleanup'!
-
-lowSpaceCleanup
- self flushMethodInfo
-
- "Created: / 08-08-2011 / 19:15:25 / cg"
-! !
-
-!MethodCategoryList class methodsFor:'interface specs'!
-
-singleProtocolWindowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:MethodCategoryList andSelector:#singleProtocolWindowSpec
- MethodCategoryList new openInterface:#singleProtocolWindowSpec
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #singleProtocolWindowSpec
- #window:
- #(#WindowSpec
- #label: 'ProtocolList'
- #name: 'ProtocolList'
- #min: #(#Point 0 0)
- #max: #(#Point 1024 721)
- #bounds: #(#Rectangle 12 22 312 322)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'ProtocolName'
- #name: 'ProtocolLabel'
- #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)
- #translateLabel: true
- #labelChannel: #protocolLabelHolder
- #menu: #menuHolder
- )
- )
-
- )
- )
-!
-
-windowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:MethodCategoryList andSelector:#windowSpec
- MethodCategoryList new openInterface:#windowSpec
- MethodCategoryList open
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'ProtocolList'
- #name: 'ProtocolList'
- #min: #(#Point 0 0)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SequenceViewSpec
- #name: 'List'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #tabable: true
- #model: #selectedProtocolIndices
- #menu: #menuHolder
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #isMultiSelect: true
- #valueChangeSelector: #selectionChangedByClick
- #useIndex: true
- #sequenceList: #protocolList
- #doubleClickChannel: #doubleClickChannel
- #properties:
- #(#PropertyListDictionary
- #dragArgument: nil
- #dropArgument: nil
- #canDropSelector: #canDropContext:
- #dropSelector: #doDropContext:
- )
- )
- )
-
- )
- )
-! !
-
-!MethodCategoryList class methodsFor:'plugIn spec'!
-
-aspectSelectors
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this. If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "Return a description of exported aspects;
- these can be connected to aspects of an embedding application
- (if this app is embedded in a subCanvas)."
-
- ^ #(
- #(#doubleClickChannel #action )
- #filterClassVars
- #forceGeneratorTrigger
- #immediateUpdate
- #inGeneratorHolder
- #menuHolder
- #noAllItem
- #showPseudoProtocols
- #outGeneratorHolder
- #packageFilter
- #packageFilterOnInput
- #selectedProtocols
- #selectionChangeCondition
- #updateTrigger
- #variableFilter
- #methodVisibilityHolder
- #showCoverageInformation
- ).
-
- "Modified: / 27-04-2010 / 16:40:39 / cg"
-! !
-
-!MethodCategoryList methodsFor:'aspects'!
-
-browserNameList
- ^ self protocolList
-!
-
-defaultSlaveModeValue
- ^ false.
-!
-
-filterClassVars
- filterClassVars isNil ifTrue:[
- filterClassVars := false asValue.
- filterClassVars addDependent:self
- ].
- ^ filterClassVars
-
- "Modified: / 31.1.2000 / 00:56:31 / cg"
- "Created: / 5.2.2000 / 13:42:10 / cg"
-!
-
-filterClassVars:aValueHolder
- filterClassVars notNil ifTrue:[
- filterClassVars removeDependent:self
- ].
- filterClassVars := aValueHolder.
- filterClassVars notNil ifTrue:[
- filterClassVars addDependent:self
- ].
-
- "Modified: / 31.1.2000 / 00:56:31 / cg"
- "Created: / 5.2.2000 / 13:42:10 / cg"
-!
-
-methodVisibilityHolder
- methodVisibilityHolder isNil ifTrue:[
- methodVisibilityHolder := false asValue.
- methodVisibilityHolder addDependent:self
- ].
- ^ methodVisibilityHolder
-!
-
-methodVisibilityHolder:aValueHolder
- methodVisibilityHolder notNil ifTrue:[
- methodVisibilityHolder removeDependent:self
- ].
- methodVisibilityHolder := aValueHolder.
- methodVisibilityHolder notNil ifTrue:[
- methodVisibilityHolder addDependent:self
- ].
-
- "Modified: / 31.1.2000 / 00:56:31 / cg"
- "Created: / 5.2.2000 / 13:42:10 / cg"
-!
-
-noAllItem
- noAllItem isNil ifTrue:[
- noAllItem := false asValue.
- noAllItem addDependent:self
- ].
- ^ noAllItem
-!
-
-noAllItem:aValueHolder
- noAllItem notNil ifTrue:[
- noAllItem removeDependent:self
- ].
- noAllItem := aValueHolder.
- noAllItem notNil ifTrue:[
- noAllItem addDependent:self
- ].
-!
-
-packageFilterOnInput
- packageFilterOnInput isNil ifTrue:[
- packageFilterOnInput := nil asValue.
- packageFilterOnInput addDependent:self
- ].
- ^ packageFilterOnInput
-!
-
-packageFilterOnInput:aValueHolder
- |prevFilter|
-
- prevFilter := packageFilterOnInput value.
- packageFilterOnInput notNil ifTrue:[
- packageFilterOnInput removeDependent:self
- ].
- packageFilterOnInput := aValueHolder.
- packageFilterOnInput notNil ifTrue:[
- packageFilterOnInput addDependent:self
- ].
- prevFilter ~= packageFilterOnInput value ifTrue:[
- self enqueueDelayedUpdateList
- ].
-!
-
-protocolLabelHolder
- ^ self pseudoListLabelHolder
-!
-
-protocolList
- protocolList isNil ifTrue:[
- protocolList := List new. "/ ValueHolder new
- ].
- ^ protocolList
-
- "Modified: / 31.1.2000 / 00:56:31 / cg"
- "Created: / 5.2.2000 / 13:42:10 / cg"
-!
-
-rawProtocolList
- rawProtocolList isNil ifTrue:[
- rawProtocolList := List new.
- ].
- ^ rawProtocolList
-!
-
-selectedProtocolIndices
- selectedProtocolIndices isNil ifTrue:[
- selectedProtocolIndices := ValueHolder new.
- selectedProtocolIndices addDependent:self
- ].
- ^ selectedProtocolIndices.
-!
-
-selectedProtocols
- ^ self selectionHolder
-!
-
-selectedProtocols:aValueHolder
- ^ self selectionHolder:aValueHolder
-!
-
-showPseudoProtocols
- showPseudoProtocols isNil ifTrue:[
- showPseudoProtocols := true asValue.
- showPseudoProtocols addDependent:self
- ].
- ^ showPseudoProtocols
-!
-
-showPseudoProtocols:aValueHolder
- showPseudoProtocols notNil ifTrue:[
- showPseudoProtocols removeDependent:self
- ].
- showPseudoProtocols := aValueHolder.
- showPseudoProtocols notNil ifTrue:[
- showPseudoProtocols addDependent:self
- ].
-!
-
-variableFilter
- variableFilter isNil ifTrue:[
- variableFilter := false asValue.
- variableFilter addDependent:self
- ].
- ^ variableFilter
-
- "Modified: / 31.1.2000 / 00:56:31 / cg"
- "Created: / 5.2.2000 / 13:42:10 / cg"
-!
-
-variableFilter:aValueHolder
- variableFilter notNil ifTrue:[
- variableFilter removeDependent:self
- ].
- variableFilter := aValueHolder.
- variableFilter notNil ifTrue:[
- variableFilter addDependent:self
- ].
-
- "Modified: / 31.1.2000 / 00:56:31 / cg"
- "Created: / 5.2.2000 / 13:42:10 / cg"
-! !
-
-!MethodCategoryList methodsFor:'change & update'!
-
-classDefinitionChanged:aClass
- |refetch anyChange|
-
- anyChange := false.
- refetch := [:oldClass |
- |nm cls newClass|
-
- nm := oldClass theNonMetaclass name.
- oldClass isMeta ifTrue:[
- newClass := Smalltalk at:nm.
- newClass isNil ifTrue:[
- "/ Transcript showCR:'oops - browser lost class ' , nm.
- newClass := oldClass
- ] ifFalse:[
- newClass := newClass theMetaclass
- ]
- ] ifFalse:[
- newClass := Smalltalk at:nm
- ].
- newClass ~~ oldClass ifTrue:[
- anyChange := true.
- ].
- newClass
- ].
-
- classes := classes collect:refetch.
- leafClasses := leafClasses collect:refetch.
- anyChange ifTrue:[
- self updateOutputGenerator
- ].
-
- "Modified: / 06-07-2011 / 11:44:13 / cg"
-!
-
-delayedUpdate:something with:aParameter from:changedObject
- |sel oldMethod newMethod mthd selectedCategories selectedProtocolsHolder oldProtocol newProtocol
- rawProtocolListHolder rawProtocolList oldSelectedProtocols newSelectedProtocols newIndices idx cls listView|
-
- selectedProtocolsHolder := self selectedProtocols.
- rawProtocolListHolder := self rawProtocolList.
-
- changedObject == Smalltalk ifTrue:[
- classes notNil ifTrue:[
- something == #methodCategory ifTrue:[
- cls := aParameter at:1.
- (cls notNil and:[classes includesIdentical:cls]) ifTrue:[
- mthd := aParameter at:2.
- newProtocol := mthd category.
- oldProtocol := aParameter at:3.
-
- listValid == true ifTrue:[ self invalidateList ].
-
- selectedCategories := selectedProtocolsHolder value.
- selectedCategories size > 0 ifTrue:[
- selectedCategories := selectedCategories collect:[:each | each ifNil:[self class nameListEntryForNILCategory]].
- selectedCategories := selectedCategories collect:[:each | each string].
-
- ((selectedCategories includes:oldProtocol)
- or:[ (selectedCategories includes:newProtocol)
- or:[ selectedCategories includes:(self class nameListEntryForALL) ]])
- ifTrue:[
- self enqueueDelayedUpdateOutputGenerator "/ updateOutputGenerator.
- ].
- ].
-
- ].
- ^ self
- ].
-
- something == #methodInClass ifTrue:[
- "/ a method has been added/removed/changed
- cls := aParameter at:1.
- (classes includesIdentical:cls) ifTrue:[
- sel := aParameter at:2.
- self flushMethodInfoForClassNamed:cls name selector:sel.
- oldMethod := aParameter at:3.
- newMethod := cls compiledMethodAt:sel.
- oldMethod notNil ifTrue:[
- variableFilter value size > 0 ifTrue:[
- "/ sigh - must invalidate
- listValid == true ifTrue:[ self invalidateList ].
- ].
- ^ self.
- ].
- "/ method was added - update the methodList
- "/ Q: is this needed (methodCategoryList should send me a new inGenerator)
- listValid == true ifTrue:[ self invalidateList ].
-
- "/ if its category is selected, updateOutputGenerator
- selectedCategories := selectedProtocolsHolder value.
- selectedCategories size > 0 ifTrue:[
- selectedCategories := selectedCategories collect:[:each | each ifNil:[self class nameListEntryForNILCategory]].
- selectedCategories := selectedCategories collect:[:each | each string].
-
- ((oldMethod notNil and:[selectedCategories includes:(oldMethod category)])
- or:[ (newMethod notNil and:[selectedCategories includes:(newMethod category)])])
- ifTrue:[
- self enqueueDelayedUpdateOutputGenerator "/ updateOutputGenerator.
- ].
- ].
- ].
- ^ self.
- ].
-
- something == #methodInClassRemoved ifTrue:[
- cls := aParameter at:1.
- (classes includesIdentical:cls) ifTrue:[
- sel := aParameter at:2.
- self flushMethodInfoForClassNamed:cls name selector:sel.
- "/ method was removed - update the list and output generator
- self invalidateList.
- "/ self updateOutputGenerator.
- self slaveMode value == true ifFalse:[
- self enqueueDelayedUpdateOutputGenerator.
- ]
- ].
- ^ self.
- ].
-
- (something == #classOrganization
- or:[ something == #methodCategoryAdded
- or:[ something == #methodCategoryRemoved
- or:[ something == #methodCategoriesRemoved
- or:[ something == #methodCategoryRenamed ]]]]) ifTrue:[
- cls := (something == #classOrganization) ifTrue:aParameter ifFalse:[aParameter first].
- (classes includesIdentical:cls) ifTrue:[
- listValid == true ifTrue:[ self invalidateList ].
- ] ifFalse:[
- (classes contains:[:aClass | aClass name = cls name]) ifTrue:[
- listValid == true ifTrue:[ self invalidateList ].
- "/ self error:'obsolete class: should not happen'.
- ]
- ].
- ^ self.
- ].
-
- something == #projectOrganization ifTrue:[
- aParameter notNil ifTrue:[
- cls := aParameter at:1.
- cls notNil ifTrue:[
- ((classes includes:cls theMetaclass)
- or:[(classes includes:cls theNonMetaclass)]) ifTrue:[
- self invalidateList.
- self slaveMode value == true ifFalse:[
- self enqueueDelayedUpdateOutputGenerator.
- ]
- ].
- ].
- ] ifFalse:[
- listValid == true ifTrue:[ self invalidateList ].
- ].
- ^ self
- ].
-
- (something == #methodCoverageInformation) ifTrue:[
- "/ already checked if it is one of my classes
- listValid == true ifTrue:[ self invalidateList ].
- ^ self
- ].
-
- (something == #classDefinition or:[something == #classVariables])
- ifTrue:[
- self classDefinitionChanged:aParameter.
- ^ self
- ].
-
- "/ everything else is ignored
- "/ self halt.
- ].
- ^ self
- ].
-
- changedObject == self selectedProtocolIndices ifTrue:[
- oldSelectedProtocols := selectedProtocolsHolder value ? #().
- oldSelectedProtocols := oldSelectedProtocols collect:[:each | each ifNil:[self class nameListEntryForNILCategory]].
- oldSelectedProtocols := oldSelectedProtocols collect:[:each | each string].
- newSelectedProtocols := self getSelectedProtocolsFromIndices.
- oldSelectedProtocols ~= newSelectedProtocols ifTrue:[
- selectedProtocolsHolder value:newSelectedProtocols.
- ].
- newSelectedProtocols size > 1 ifTrue:[
- (newSelectedProtocols includes:(self class nameListEntryForALL)) ifTrue:[
- rawProtocolList := rawProtocolListHolder value.
- idx := rawProtocolList indexOf: (newSelectedProtocols copy remove:(self class nameListEntryForALL); yourself) first.
- idx ~~ 0 ifTrue:[
- (listView := self componentAt:#List) notNil ifTrue:[
- listView makeLineVisible:idx.
- ]
- ]
- ]
- ].
-
- ^ self
- ].
-
- changedObject == selectedProtocolsHolder ifTrue:[
- rawProtocolList := rawProtocolListHolder value.
- rawProtocolList size == 0 ifTrue:[
- lastGeneratedProtocols := nil.
- self updateList.
- rawProtocolList := rawProtocolListHolder value.
- ].
- rawProtocolList notNil ifTrue:[
- selectedCategories := selectedProtocolsHolder value ? #().
- selectedCategories := selectedCategories collect:[:each | each ifNil:[self class nameListEntryForNILCategory]].
- newIndices := selectedCategories
- collect:[:each | rawProtocolList findFirst:[:p | p string = each string]].
- newIndices := newIndices select:[:each | each ~~ 0].
- newIndices ~= self selectedProtocolIndices value ifTrue:[
- self selectedProtocolIndices
- setValue:nil; "/ to force update
- value:newIndices.
- ].
- "/ cg: does not work (selecting all with testcase classes)
- "/ don't see why, at the moment, but....
- (lastGeneratedProtocols notNil
- and:[(lastGeneratedProtocols includes:self class nameListEntryForALL)
- and:[(selectedCategories ? #()) includes:self class nameListEntryForALL]])
- ifTrue:[
- "/ no need to update generator
- ] ifFalse:[
- self updateOutputGenerator.
- ]
- ].
- ^ self
- ].
-
- (changedObject == variableFilter
- or:[changedObject == filterClassVars
- or:[changedObject == packageFilterOnInput]]) ifTrue:[
- self invalidateList.
- ^ self
- ].
-
- changedObject == methodVisibilityHolder ifTrue:[
- self invalidateList.
- self updateOutputGenerator.
- ^ self
- ].
-
- lastGeneratedProtocols := nil.
-
- changedObject == inGeneratorHolder ifTrue:[
- selectedCategories := selectedProtocolsHolder value.
-
- selectedCategories size > 0 ifTrue:[
- oldSelectedProtocols := selectedCategories ? #().
- oldSelectedProtocols := oldSelectedProtocols collect:[:each | each ifNil:[self class nameListEntryForNILCategory]].
- oldSelectedProtocols := oldSelectedProtocols collect:[:each | each string].
- self updateList.
- rawProtocolList := rawProtocolListHolder value.
- newSelectedProtocols := oldSelectedProtocols select:[:each | rawProtocolList includes:each].
-"/ selectedProtocolsHolder setValue:nil. "/ to force update
- selectedProtocolsHolder value:newSelectedProtocols.
- ^ self
- ].
- ].
-
- super delayedUpdate:something with:aParameter from:changedObject
-
- "Created: / 05-02-2000 / 13:42:10 / cg"
- "Modified: / 23-09-2011 / 20:37:31 / cg"
-!
-
-getSelectedProtocolsFromIndices
- |l|
-
- l := self rawProtocolList value.
- ^ self selectedProtocolIndices value collect:[:idx | l at:idx].
-!
-
-selectionChanged
- |newSelectedCategories allEntry|
-
- newSelectedCategories := self selectedProtocols value.
-
- "/ the outputGenerator is only to be updated, if the output would really
- "/ change ...
- allEntry := self class nameListEntryForALL.
-
- (lastSelectedProtocols notNil
- and:[newSelectedCategories notNil
- and:[(lastSelectedProtocols includes:(allEntry))
- and:[newSelectedCategories includes:(allEntry)]]]) ifTrue:[
- "/ no change ...
- ^ self
- ].
-
- super selectionChanged.
-
- "Created: / 5.2.2000 / 13:42:10 / cg"
- "Modified: / 24.2.2000 / 14:12:12 / cg"
-!
-
-selectionChangedByClick
- "we are not interested in that - get another notification
- via the changed valueHolder"
-
- lastSelectedProtocols := self getSelectedProtocolsFromIndices
-!
-
-update:something with:aParameter from:changedObject
- |cls sel mthd oldMethod newMethod|
-
- "/ some can be ignored immediately
- changedObject == Smalltalk ifTrue:[
- something isNil ifTrue:[
- "/ self halt "/ huh - Smalltalk changed - so what ?
- ^ self.
- ].
-
- something == #currentChangeSet ifTrue:[
- listValid == true ifTrue:[ self invalidateList ].
- ^ self.
- ].
-
- something == #methodInClass ifTrue:[
- "/ a method has been added/removed/changed
- cls := aParameter at:1.
- (classes notNil and:[classes includesIdentical:cls]) ifFalse:[^ self].
-
- sel := aParameter at:2.
- self flushMethodInfoForClassNamed:cls name selector:sel.
- oldMethod := aParameter at:3.
- newMethod := cls compiledMethodAt:sel.
- oldMethod notNil ifTrue:[
- variableFilter value size > 0 ifTrue:[
- "/ sigh - must invalidate
- listValid ifTrue:[ self invalidateList ].
- ^ self.
- ].
- oldMethod category ~= newMethod category ifTrue:[
- listValid ifTrue:[ self invalidateList ].
- ^ self.
- ].
- "/ mhmh - its now changed (so coloring will change).
- listValid ifTrue:[ self invalidateList ].
- ^ self.
- ].
- ].
-
-"/ something == #classDefinition ifTrue:[
-"/ ^ self.
-"/ ].
- something == #newClass ifTrue:[
- ^ self.
- ].
- something == #classRemove ifTrue:[
- ^ self.
- ].
- something == #classRename ifTrue:[
- ^ self.
- ].
-"/ something == #classVariables ifTrue:[
-"/ ^ self.
-"/ ].
- something == #classComment ifTrue:[
- ^ self.
- ].
- something == #organization ifTrue:[
- ^ self.
- ].
- something == #methodTrap ifTrue:[
- ^ self
- ].
-
- something == #methodCoverageInfo ifTrue:[
- self showCoverageInformation value ifFalse:[^ self].
- listValid ifFalse:[^ self ].
-
- mthd := aParameter.
- (classes notNil and:[classes includesIdentical:mthd mclass]) ifFalse:[^ self].
-
- self enqueueDelayedUpdateList.
- ^ self
- ].
- ].
-
- something == #coverageInfo ifTrue:[
- listValid == true ifTrue:[
- self enqueueDelayedUpdateList
- ].
- ^ self.
- ].
-
- super update:something with:aParameter from:changedObject.
-
- "Modified: / 05-06-2012 / 23:38:31 / cg"
-! !
-
-!MethodCategoryList methodsFor:'drag & drop'!
-
-canDropContext:aDropContext
- |cat methods|
-
- methods := aDropContext dropObjects collect:[:obj | obj theObject].
- (methods conform:[:aMethod | aMethod isMethod]) ifFalse:[^ false].
-
- cat := self categoryAtTargetPointOf:aDropContext.
- cat isNil ifTrue:[^ false].
-
- (methods contains:[:aMethod | aMethod category ~= cat]) ifFalse:[^ false].
- ^ true
-
- "Modified: / 13-09-2006 / 11:44:02 / cg"
-!
-
-categoryAtTargetPointOf:aDropContext
- |p methodListView lineNr cat|
-
- p := aDropContext targetPoint.
-
- methodListView := aDropContext targetWidget.
-
- lineNr := methodListView lineAtY:p y.
- lineNr isNil ifTrue:[^ nil].
-
- cat := rawProtocolList at:lineNr.
- cat := cat string.
- cat = self class nameListEntryForALL ifTrue:[^ nil].
-
- ^ cat
-!
-
-doDropContext:aDropContext
- "handle dropping of a method as a category change"
-
- |cat methods|
-
- methods := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
- (methods conform:[:something | something isMethod]) ifFalse:[^ self].
-
- cat := self categoryAtTargetPointOf:aDropContext.
- cat notNil ifTrue:[
- self masterApplication moveMethods:methods toProtocol:cat.
- ].
-
- "Modified: / 13-09-2006 / 11:43:23 / cg"
-! !
-
-!MethodCategoryList methodsFor:'generators'!
-
-makeGenerator
- "return a generator which enumerates the methods from the selected protocol;
- that generator generates 4-element elements (includes the class and protocol),
- in order to make the consumers only depend on one input
- (i.e. to pass multiple-class and multiple-protocol info
- without a need for another classHolder/protocolHolder in the methodList)."
-
- ^ Iterator
- on:[:whatToDo |
- |protocols
- allProtocols superSendProtocols uncommentedProtocols obsoleteProtocols
- documentationProtocols longProtocols extensionProtocols redefinedProtocols
- redefineProtocols overrideProtocols
- missingRequiredProtocols subclassResponsibilities
- notInstrumentedProtocols annotatedProtocols fullyCoveredProtocols
- partiallyCoveredProtocols uncoveredProtocols
- noCat static notStatic classSelectorPairsAlreadyDone
- packages remainingClasses remainingCategories classesAlreadyDone noPackage
- catListed showChanged|
-
- noPackage := PackageId noProjectID.
- noCat := (self class nameListEntryForNILCategory).
- static := (self class nameListEntryForStatic).
- notStatic := (self class nameListEntryForNonStatic).
-
- protocols := self selectedProtocols value ? #().
- protocols := protocols collect:[:each | (each ifNil:[noCat]) string].
- lastGeneratedProtocols := protocols.
- protocols := protocols asSet.
-
- (leafClasses size > 0 and:[protocols size > 0]) ifTrue:[
- allProtocols := protocols includes:(self class nameListEntryForALL).
- superSendProtocols := protocols includes:(self class nameListEntryForSuperSend).
- uncommentedProtocols := protocols includes:(self class nameListEntryForUncommented).
- obsoleteProtocols := protocols includes:(self class nameListEntryForObsolete).
- documentationProtocols := protocols includes:(self class nameListEntryForDocumentation).
- longProtocols := protocols includes:(self class nameListEntryForLong).
- extensionProtocols := protocols includes:(self class nameListEntryForExtensions).
- redefinedProtocols := protocols includes:(self class nameListEntryForRedefined).
- redefineProtocols := protocols includes:(self class nameListEntryForRedefine).
- overrideProtocols := protocols includes:(self class nameListEntryForOverride).
- missingRequiredProtocols := protocols includes:(self class nameListEntryForRequired).
- subclassResponsibilities := protocols includes:(self class nameListEntryForMustBeRedefinedInSubclass).
- annotatedProtocols := protocols includes:(self class nameListEntryForAnnotated).
-
- fullyCoveredProtocols := protocols includes:(self class nameListEntryForFullyCovered).
- partiallyCoveredProtocols := protocols includes:(self class nameListEntryForPartiallyCovered).
- uncoveredProtocols := protocols includes:(self class nameListEntryForUncovered).
- notInstrumentedProtocols := protocols includes:(self class nameListEntryForNotInstrumented).
-
- packages := packageFilter value value.
- (packages notNil and:[packages includes:(self class nameListEntryForALL)]) ifTrue:[
- packages := nil.
- ].
- showChanged := packages notNil and:[packages includes:(self class nameListEntryForChanged)].
-
- remainingClasses := leafClasses copy asIdentitySet.
- remainingCategories := protocols copy asSet.
-
- classesAlreadyDone := IdentitySet new.
- classSelectorPairsAlreadyDone := Set new.
-
- leafClasses do:[:aLeafClass |
- (self classesToProcessForClasses:(Array with:aLeafClass)) do:[:aClass |
- |supportsMethodCategories isJavaClass anyInThisClass requiredProtocolForClass|
-
- (classesAlreadyDone includes:aClass) ifFalse:[
- classesAlreadyDone add:aClass.
-
- supportsMethodCategories := aClass supportsMethodCategories.
- isJavaClass := aClass isJavaClass.
- anyInThisClass := false.
-
- aClass methodDictionary keysAndValuesDo:[:sel :mthd |
- |cat mPkg includeIt info|
-
-"/ sel == #metacelloCleanup ifTrue:[self halt].
- supportsMethodCategories ifTrue:[
- cat := mthd category.
- ] ifFalse:[
- isJavaClass ifTrue:[
- cat := mthd isStatic ifTrue:[static] ifFalse:[notStatic]
- ] ifFalse:[
- cat := noCat.
- ]
- ].
- catListed := cat.
-
- mPkg := mthd package.
- (packages isNil
- or:[ mPkg = noPackage
- or:[ (packages includes:mPkg)
- or:[ allProtocols "(extensionProtocols and:[ mthd isExtension ])"
- or:[ showChanged
- ]]]]
- ) ifTrue:[
- "/ used to be a more readable or, but to reuse info, I've splitted it.
- "/ because we should use the parser only once, we reuse the same methodInfo.
- "/ otherwise, the list update becomes too slow for long classes (NewSystemBrowser)
- includeIt := allProtocols.
- includeIt ifFalse:[ includeIt := protocols includes:cat ].
- includeIt ifFalse:[
- superSendProtocols ifTrue:[
- info isNil ifTrue:[ info := self methodInfoFor:mthd in:aClass selector:sel ].
- includeIt := info sendsSuper ]].
- includeIt ifFalse:[
- uncommentedProtocols ifTrue:[
- info isNil ifTrue:[ info := self methodInfoFor:mthd in:aClass selector:sel ].
- includeIt := info isUncommented.
- catListed := self class nameListEntryForUncommented ]].
- includeIt ifFalse:[
- obsoleteProtocols ifTrue:[
- info isNil ifTrue:[ info := self methodInfoFor:mthd in:aClass selector:sel ].
- includeIt := info isObsolete ]].
- includeIt ifFalse:[
- documentationProtocols ifTrue:[
- info isNil ifTrue:[ info := self methodInfoFor:mthd in:aClass selector:sel ].
- includeIt := info isDocumentationMethod ]].
- includeIt ifFalse:[
- longProtocols ifTrue:[
- info isNil ifTrue:[ info := self methodInfoFor:mthd in:aClass selector:sel ].
- includeIt := info isLongMethod ]].
- includeIt ifFalse:[
- extensionProtocols ifTrue:[
- info isNil ifTrue:[ info := self methodInfoFor:mthd in:aClass selector:sel ].
- includeIt := info isExtensionMethod.
- catListed := self class nameListEntryForExtensions ]].
- includeIt ifFalse:[
- overrideProtocols ifTrue:[
- info isNil ifTrue:[ info := self methodInfoFor:mthd in:aClass selector:sel ].
- includeIt := info isOverride ]].
-"/ includeIt ifFalse:[
-"/ redefinedProtocols ifTrue:[
-"/ info isNil ifTrue:[ info := self methodInfoFor:mthd in:aClass selector:sel ].
-"/ includeIt := info isRedefined ]].
- includeIt ifFalse:[
- redefineProtocols ifTrue:[
- info isNil ifTrue:[ info := self methodInfoFor:mthd in:aClass selector:sel ].
- includeIt := info isRedefine ]].
- includeIt ifFalse:[
- subclassResponsibilities ifTrue:[
- info isNil ifTrue:[ info := self methodInfoFor:mthd in:aClass selector:sel ].
- includeIt := info isSubclassResponsibility ]].
- includeIt ifFalse:[
- annotatedProtocols ifTrue:[
- info isNil ifTrue:[ info := self methodInfoFor:mthd in:aClass selector:sel ].
- includeIt := info isAnnotated ]].
-
- includeIt ifFalse:[
- mthd isInstrumented ifTrue:[
- mthd hasBeenCalled ifTrue:[
- mthd haveAllBlocksBeenExecuted ifTrue:[
- includeIt := fullyCoveredProtocols.
- ] ifFalse:[
- includeIt := partiallyCoveredProtocols
- ]
- ] ifFalse:[
- includeIt := uncoveredProtocols
- ].
- ] ifFalse:[
- includeIt := notInstrumentedProtocols
- ].
- ].
-
- includeIt ifTrue:[
- (methodVisibilityHolder value == #class) ifTrue:[
- whatToDo value:aClass value:catListed value:sel value:mthd.
- ] ifFalse:[
- (classSelectorPairsAlreadyDone includes:(aLeafClass->sel)) ifFalse:[
- classSelectorPairsAlreadyDone add:(aLeafClass->sel).
- whatToDo value:aClass value:catListed value:sel value:mthd.
- ].
- ].
- anyInThisClass := true.
- remainingCategories remove:catListed ifAbsent:nil.
- ].
- ]
- ].
-
- missingRequiredProtocols ifTrue:[
- requiredProtocolForClass := SmalltalkCodeGeneratorTool missingRequiredProtocolFor:aClass.
- requiredProtocolForClass do:[:sel |
- |selectorInRed missingMethodPlaceHolder|
-
- selectorInRed := sel colorizeAllWith:Color red.
- missingMethodPlaceHolder := MissingMethod mclass:aClass selector:sel.
- whatToDo value:aClass value:'required' value:selectorInRed value:missingMethodPlaceHolder.
- ].
- ].
- anyInThisClass ifTrue:[ remainingClasses remove:aClass ifAbsent:nil. ].
- ].
- ].
- ].
- remainingClasses do:[:aClass |
- whatToDo value:aClass value:nil value:nil value:nil.
- ].
- remainingCategories do:[:cat |
- whatToDo value:nil value:cat value:nil value:nil.
- ]
- ]
- ]
-
- "Created: / 05-02-2000 / 13:42:10 / cg"
- "Modified: / 18-09-2011 / 12:51:45 / cg"
-! !
-
-!MethodCategoryList methodsFor:'private'!
-
-class:cls protocol:cat includesMethodsInAnyPackage:packageFilter
- cls methodDictionary keysAndValuesDo:[:sel :mthd |
- mthd category == cat ifTrue:[
- (packageFilter includes:mthd package) ifTrue:[
- ^ true
- ]
- ]
- ].
- ^ false
-!
-
-class:cls protocol:cat includesModsOfClassVariable:variablesToHighLight
- "are there any methods in the protocol cat which modify any class variable in variablesToHighLight ?"
-
- ^ self class:cls protocol:cat includesRefsToVariable:variablesToHighLight askParserWith:#modifiedClassVars
-!
-
-class:cls protocol:cat includesModsOfInstanceVariable:variablesToHighLight
- "are there any methods in the protocol cat which modify any inst variable in variablesToHighLight ?"
-
- ^ self class:cls protocol:cat includesRefsToVariable:variablesToHighLight askParserWith:#modifiedInstVars
-!
-
-class:cls protocol:cat includesRefsToClassVariable:variablesToHighLight
- "are there any methods in the protocol cat which reference any class variable in variablesToHighLight ?"
-
- ^ self class:cls protocol:cat includesRefsToVariable:variablesToHighLight askParserWith:#usedClassVars
-!
-
-class:cls protocol:cat includesRefsToInstanceVariable:variablesToHighLight
- "are there any methods in the protocol cat which reference any inst variable in variablesToHighLight ?"
-
- ^ self class:cls protocol:cat includesRefsToVariable:variablesToHighLight askParserWith:#usedInstVars
-!
-
-class:cls protocol:cat includesRefsToVariable:variablesToHighLight askParserWith:querySelector
- "are there any methods in the protocol cat which reference/modify any inst/class variable in variablesToHighLight ?"
-
- |anyVarNameAccessable|
-
- anyVarNameAccessable := cls allInstVarNames includesAny:variablesToHighLight.
- anyVarNameAccessable ifFalse:[
- anyVarNameAccessable := cls theNonMetaclass allClassVarNames includesAny:variablesToHighLight.
- ].
- anyVarNameAccessable ifFalse:[
- "/ no need to parse
- ^ false
- ].
-
- cls selectorsAndMethodsDo:[:sel :mthd |
- |src parser usedVars|
-
- mthd category = cat ifTrue:[
- src := mthd source.
- src notNil ifTrue:[
- "
- before doing a slow parse, quickly scan the
- methods source for the variables name ...
- "
- (variablesToHighLight contains:[:varName | (src findString:varName) ~~ 0]) ifTrue:[
- parser := Parser
- parseMethod:src
- in:cls
- ignoreErrors:true
- ignoreWarnings:true.
- (parser notNil and:[parser ~~ #Error]) ifTrue:[
- usedVars := parser perform:querySelector.
- (usedVars includesAny:variablesToHighLight)
- ifTrue:[
- ^ true
- ]
- ]
- ]
- ] ifFalse:[
- Transcript showCR:'Oops - cannot access method source'.
- ]
- ]
- ].
- ^ false
-
- "Modified: / 06-07-2011 / 11:44:25 / cg"
-!
-
-classesToProcessForClasses:classes
- ^ self classesToProcessForClasses:classes withVisibility:methodVisibilityHolder value.
-!
-
-commonPostOpen
- super commonPostOpen.
-
- self showPseudoProtocols ifTrue:[
- "/ revalidate my list, because it was only shown lazy
- self invalidateList.
- ].
-!
-
-flushMethodInfoForClassNamed:className selector:selector
- MethodInfoCacheAccessLock critical:[
- MethodInfoCache notNil ifTrue:[
- MethodInfoCache
- removeKey:(className,'>>',selector)
- ifAbsent:[]
- ].
- ]
-
- "Modified: / 08-08-2011 / 19:16:32 / cg"
-!
-
-listOfMethodCategories
- |categoryList categoryBag plainCategories classesProcessed leafClassesProcessed
- generator nm variablesToHighlight classVarsToHighLight
- itemsWithVarRefs itemsWithVarMods itemsWithExtensions itemsWithSuppressedExtensions
- itemsInChangeSet itemsInRemoteChangeSet
- itemsWithInstrumentedMethods itemsWithCalledMethods itemsWithUncalledMethods
- itemsWithPartiallyCoveredMethods itemsWithFullyCoveredMethods
- packageFilterOnInput packageFilter showChanges nameListEntryForALL changeSet
- emphasizedPlus emphasisForRef emphasisForMod
- numAll numObsolete numSuper numUncommented numDocumentation numLong numOverride
- numRedefine numRedefined numExtension numMissingRequired numSubclassResponsibility
- numAnnotated numFullyCovered numPartiallyCovered numUncovered numNotInstrumented
- showPseudoProtocols showCoverageInformation
- addPseudoEntry addPseudoEntryWithColor countAll pseudoEntryColor userPreferences
- startTime suppressPseudoProtocolsNow needsSpecialColoring|
-
- userPreferences := UserPreferences current.
- countAll := true.
- startTime := Timestamp now.
- suppressPseudoProtocolsNow := false.
-
- generator := inGeneratorHolder value.
- generator isNil ifTrue:[ ^ #() ].
-
- showPseudoProtocols := self showPseudoProtocols value.
- showCoverageInformation := self showCoverageInformation value.
-
- nameListEntryForALL := self class nameListEntryForALL.
-
- packageFilterOnInput := self packageFilterOnInput value.
- (packageFilterOnInput notNil and:[packageFilterOnInput includes:nameListEntryForALL]) ifTrue:[
- packageFilterOnInput := nil
- ].
- packageFilter := self packageFilter value.
- (packageFilter notNil and:[packageFilter includes:nameListEntryForALL]) ifTrue:[
- packageFilter := nil
- ].
- showChanges := false.
- (packageFilter notNil and:[packageFilter includes:self class nameListEntryForChanged]) ifTrue:[
- showChanges := true
- ].
-
- categoryList := Set new.
- categoryBag := Bag new.
- itemsWithVarRefs := Set new.
- itemsWithVarMods := Set new.
- itemsWithExtensions := Set new.
- itemsWithSuppressedExtensions := Set new.
- itemsInChangeSet := Set new.
- itemsInRemoteChangeSet := Set new.
-
- itemsWithInstrumentedMethods := Set new.
- itemsWithCalledMethods := Set new.
- itemsWithUncalledMethods := Set new.
- itemsWithPartiallyCoveredMethods := Set new.
- itemsWithFullyCoveredMethods := Set new.
-
- plainCategories := Set new.
- classesProcessed := IdentitySet new.
- leafClassesProcessed := IdentitySet new.
- variablesToHighlight := variableFilter value.
- classVarsToHighLight := filterClassVars value.
- numObsolete := numSuper := numUncommented := numDocumentation := numLong := 0.
- numRedefine := numRedefined := numOverride := numExtension := numMissingRequired := numSubclassResponsibility := 0.
- numNotInstrumented := numFullyCovered := numPartiallyCovered := numUncovered := 0.
- numAnnotated := 0.
-
- generator do:[:clsIn :catIn |
- |emptyProtocols clsName doHighLight doHighLightRed includedCats|
-
- includedCats := Set new.
-
- leafClassesProcessed add:clsIn.
- (self classesToProcessForClasses:(Array with:clsIn)) do:[:cls |
- |cats processCategory|
-
- classesProcessed add:cls.
-
- cls ~~ clsIn ifTrue:[
- cats := cls categories
- ] ifFalse:[
- cats := Array with:catIn.
- ].
- cats do:[:cat |
- |suppress|
-
- cat notNil ifTrue:[
- suppress := packageFilterOnInput notNil
- and:[ (self class:cls protocol:cat includesMethodsInAnyPackage:packageFilterOnInput) not ].
- suppress ifFalse:[
- includedCats add:cat.
-
- variablesToHighlight notEmptyOrNil ifTrue:[
- (itemsWithVarRefs includes:cat) ifFalse:[
- classVarsToHighLight ifTrue:[
- doHighLight := self class:cls protocol:cat includesRefsToClassVariable:variablesToHighlight.
- doHighLight ifTrue:[
- doHighLightRed := self class:cls protocol:cat includesModsOfClassVariable:variablesToHighlight.
- ].
- ] ifFalse:[
- doHighLight := self class:cls protocol:cat includesRefsToInstanceVariable:variablesToHighlight.
- doHighLight ifTrue:[
- doHighLightRed := self class:cls protocol:cat includesModsOfInstanceVariable:variablesToHighlight.
- ].
- ].
- doHighLight ifTrue:[
- itemsWithVarRefs add:cat.
- doHighLightRed ifTrue:[
- itemsWithVarMods add:cat.
- ].
- ]
- ]
- ].
-
- AdditionalEmptyCategoriesPerClassName size > 0 ifTrue:[
- clsName := cls name.
- emptyProtocols := AdditionalEmptyCategoriesPerClassName at:clsName ifAbsent:nil.
- emptyProtocols size > 0 ifTrue:[
- emptyProtocols remove:cat ifAbsent:nil.
- ].
- emptyProtocols size == 0 ifTrue:[
- AdditionalEmptyCategoriesPerClassName removeKey:clsName ifAbsent:nil
- ].
- ].
- ]
- ]
- ].
-
- cats := cats asSet.
-
- cls selectorsAndMethodsDo:[:sel :mthd |
- |info cat suppress|
-
- (includedCats includes:(cat := mthd category)) ifTrue:[
- suppress := packageFilter notNil
- and:[ (packageFilter includes:mthd package) not
- and:[ showChanges not ]].
- suppress ifFalse:[
- categoryBag add:cat.
- suppressPseudoProtocolsNow ifFalse:[
- info := self methodInfoFor:mthd in:cls selector:sel lazy:suppressPseudoProtocolsNow.
- info notNil ifTrue:[
- info isObsolete ifTrue:[ numObsolete := numObsolete + 1 ].
- info sendsSuper ifTrue:[ numSuper := numSuper + 1 ].
- info isUncommented ifTrue:[ numUncommented := numUncommented + 1 ].
- info isDocumentationMethod ifTrue:[ numDocumentation := numDocumentation + 1 ].
- info isLongMethod ifTrue:[ numLong := numLong + 1 ].
- info isExtensionMethod ifTrue:[ numExtension := numExtension + 1 ].
- info isOverride ifTrue:[ numOverride := numOverride + 1 ].
- info isRedefine ifTrue:[ numRedefine := numRedefine + 1 ].
- info isRedefined ifTrue:[ numRedefined := numRedefined + 1 ].
- info isSubclassResponsibility ifTrue:[ numSubclassResponsibility := numSubclassResponsibility + 1].
- info isAnnotated ifTrue:[ numAnnotated := numAnnotated + 1].
- ].
- (Timestamp now deltaFrom:startTime) > 5 seconds ifTrue:[
- suppressPseudoProtocolsNow := true.
- "/ because we already computed for 5 seconds, more and more will be found in
- "/ the cache, and eventually, pseudo protocols will be shown anyway
- masterApplication showInfo:'suppress pseudo protocols - parsing took too long'.
- "/ self enqueueDelayedUpdateList.
- ].
- ]
- ]
- ].
- ].
- ]
- ].
-
- numAll := 0.
-
- changeSet := ChangeSet current.
-
- classesProcessed do:[:eachClass |
- |classPackage required|
-
- classPackage := eachClass package.
- eachClass methodDictionary keysAndValuesDo:[:mSelector :mthd |
- |mPackage mCategory|
-
- mPackage := mthd package.
- mCategory := mthd category.
-
- #fixme.
- mPackage = classPackage ifTrue:[
- mPackage ~~ classPackage ifTrue:[
- mthd setPackage:(mPackage := mPackage string asSymbol).
- ]
- ].
- mPackage ~~ classPackage ifTrue:[
- (mCategory notNil and:[mPackage ~= PackageId noProjectID]) ifTrue:[
- itemsWithExtensions add:mCategory.
-
- (packageFilter notNil
- and:[ (packageFilter includes:mPackage) not])
- ifTrue:[
- itemsWithSuppressedExtensions add:mCategory.
- ].
- ].
- ].
-
- showCoverageInformation ifTrue:[
- mthd isInstrumented ifTrue:[
- mthd category = 'documentation' ifFalse:[
- itemsWithInstrumentedMethods add:mCategory.
- mthd hasBeenCalled ifTrue:[
- itemsWithCalledMethods add:mCategory.
- mthd haveAllBlocksBeenExecuted ifTrue:[
- itemsWithFullyCoveredMethods add:mCategory.
- numFullyCovered := numFullyCovered + 1.
- ] ifFalse:[
- itemsWithPartiallyCoveredMethods add:mCategory.
- numPartiallyCovered := numPartiallyCovered + 1.
- ].
- ] ifFalse:[
- itemsWithUncalledMethods add:mCategory.
- numUncovered := numUncovered + 1.
- ].
- ].
- ] ifFalse:[
- numNotInstrumented := numNotInstrumented + 1.
- ].
- ].
- (changeSet includesChangeForClass:eachClass selector:mSelector) ifTrue:[
- itemsInChangeSet add:mCategory.
- ].
- (SmallTeam notNil and:[ SmallTeam includesChangeForClass:eachClass selector:mSelector] ) ifTrue:[
- itemsInRemoteChangeSet add:mCategory.
- ].
- ].
-
- (packageFilter isNil or:[ packageFilter includes:eachClass package ]) ifTrue:[
- (suppressPseudoProtocolsNow not and:[showPseudoProtocols]) ifTrue:[
- "/ see if there is a subclassResponsibility in a superclass
- required := SmalltalkCodeGeneratorTool missingRequiredProtocolFor:eachClass.
- numMissingRequired := numMissingRequired + required size.
- ].
- ].
- numAll := numAll + (eachClass methodDictionary size)
- ].
-
- pseudoEntryColor := self class pseudoEntryForegroundColor.
-
- categoryList := categoryBag asSet asOrderedCollection.
- self rawProtocolList removeAll.
- rawProtocolList addAll:categoryList.
-
- emphasizedPlus := (self colorizeForDifferentPackage:' [ + ]').
- emphasisForRef := userPreferences emphasisForReadVariable.
- emphasisForMod := userPreferences emphasisForWrittenVariable.
-
- needsSpecialColoring :=
- (itemsInChangeSet notEmpty
- or:[itemsInRemoteChangeSet notEmpty
- or:[itemsWithExtensions notEmpty
- or:[itemsWithVarRefs notEmpty
- or:[itemsWithInstrumentedMethods notEmpty
- or:[itemsWithCalledMethods notEmpty
- or:[itemsWithUncalledMethods notEmpty
- or:[itemsWithFullyCoveredMethods notEmpty
- or:[itemsWithPartiallyCoveredMethods notEmpty]]]]]]]]).
-
- rawProtocolList keysAndValuesDo:[:idx :cat |
- |item inChangeSet inRemoteChangeSet hasExtensions hasVarRef hasVarMod
- clr|
-
- item := cat.
-
- needsSpecialColoring ifTrue:[
- inChangeSet := false.
-
- showCoverageInformation ifTrue:[
- (itemsWithInstrumentedMethods includes:cat) ifTrue:[
- (itemsWithCalledMethods includes:cat) ifTrue:[
- (itemsWithPartiallyCoveredMethods includes:cat) ifTrue:[
- clr := (userPreferences colorForInstrumentedPartiallyCoveredCode).
- ] ifFalse:[
- (itemsWithUncalledMethods includes:cat) ifTrue:[
- clr := (userPreferences colorForInstrumentedPartiallyCoveredCode).
- ] ifFalse:[
- clr := (userPreferences colorForInstrumentedFullyCoveredCode).
- ]
- ]
- ] ifFalse:[
- clr := (userPreferences colorForInstrumentedNeverCalledCode).
- ].
- item := self colorize:cat with:(#color -> clr).
- ]
- ].
- clr isNil ifTrue:[
- inChangeSet := itemsInChangeSet includes:cat.
- inChangeSet ifTrue:[
- item := self colorizeForChangedCode:cat.
- ].
-
- inRemoteChangeSet := itemsInRemoteChangeSet includes:cat.
- inRemoteChangeSet ifTrue:[
- item := (self colorizeForChangedCodeInSmallTeam:'!! '),item.
- ].
- ].
-
- hasVarRef := itemsWithVarRefs includes:cat.
- hasVarRef ifTrue:[
- hasVarMod := itemsWithVarMods includes:cat.
- item := item asText
- emphasisAllAdd:(hasVarMod ifTrue:[emphasisForMod] ifFalse:[emphasisForRef]).
- ].
- ].
-
-
- item := item , ((' (%1)' bindWith:(categoryBag occurrencesOf:cat))
- colorizeAllWith:pseudoEntryColor).
-
- needsSpecialColoring ifTrue:[
- hasExtensions := itemsWithExtensions includes:cat.
- hasExtensions ifTrue:[
- item := item , emphasizedPlus.
- ].
- inChangeSet ifTrue:[
- item := item , self class markForBeingInChangeList.
- ].
- ].
-
- categoryList at:idx put:item.
- ].
-
- classesProcessed size > 0 ifTrue:[
- "/ those are simulated - in ST/X, empty categories do not
- "/ really exist; however, during browsing, it makes sense.
- AdditionalEmptyCategoriesPerClassName size > 0 ifTrue:[
- AdditionalEmptyCategoriesPerClassName keysAndValuesDo:[:clsName :protocols |
- (classesProcessed contains:[:cls | cls name = clsName]) ifTrue:[
- categoryList addAll:protocols.
- rawProtocolList addAll:protocols.
- ]
- ]
- ].
- ].
-
- self makeIndependent.
- classes := classesProcessed.
- leafClasses := leafClassesProcessed.
- self makeDependent.
-
- rawProtocolList sortWith:categoryList.
- categoryList size == 1 ifTrue:[
- nm := categoryList first string.
- classes size == 1 ifTrue:[
- nm := classes first name , '-' , nm
- ].
- self protocolLabelHolder value:nm
- ].
-
- categoryList notEmpty ifTrue:[
- noAllItem value ~~ true ifTrue:[
- |allName|
-
- countAll ifTrue:[
- allName := self class nameListEntryForALLWithCount bindWith:numAll.
- ] ifFalse:[
- allName := nameListEntryForALL.
- ].
- categoryList addFirst:(allName allItalic colorizeAllWith:pseudoEntryColor).
- rawProtocolList addFirst:nameListEntryForALL.
- ].
- ].
-
- (suppressPseudoProtocolsNow not and:[showPseudoProtocols]) ifTrue:[
- addPseudoEntryWithColor := [:s :n :clr |
- n > 0 ifTrue:[
- categoryList
- add:((s bindWith:n) allItalic colorizeAllWith:clr).
- rawProtocolList add:s.
- ].
- ].
-
- addPseudoEntry := [:s :n | addPseudoEntryWithColor value:s value:n value:pseudoEntryColor].
-
- addPseudoEntry value:self class nameListEntryForAnnotated value:numAnnotated.
- addPseudoEntry value:self class nameListEntryForDocumentation value:numDocumentation.
- addPseudoEntry value:self class nameListEntryForExtensions value:numExtension.
- addPseudoEntry value:self class nameListEntryForLong value:numLong.
- addPseudoEntry value:self class nameListEntryForMustBeRedefinedInSubclass value:numSubclassResponsibility.
- addPseudoEntry value:self class nameListEntryForObsolete value:numObsolete.
- addPseudoEntry value:self class nameListEntryForOverride value:numOverride.
- addPseudoEntry value:self class nameListEntryForRedefine value:numRedefine.
- addPseudoEntry value:self class nameListEntryForRedefined value:numRedefined.
- "/ I think red is too much of an alert color (and we get more of them as we think...)
-"/ numMissingRequired > 0 ifTrue:[
-"/ categoryList add:((self class nameListEntryForRequired bindWith:numMissingRequired) allItalic "colorizeAllWith:Color red").
-"/ rawProtocolList add:self class nameListEntryForRequired.
-"/ ].
- addPseudoEntry value:self class nameListEntryForRequired value:numMissingRequired.
- addPseudoEntry value:self class nameListEntryForSuperSend value:numSuper.
- addPseudoEntry value:self class nameListEntryForUncommented value:numUncommented.
-
- showCoverageInformation ifTrue:[
- addPseudoEntry value:self class nameListEntryForNotInstrumented value:numNotInstrumented.
- addPseudoEntryWithColor value:self class nameListEntryForUncovered value:numUncovered value:userPreferences colorForInstrumentedNeverCalledCode.
- addPseudoEntryWithColor value:self class nameListEntryForPartiallyCovered value:numPartiallyCovered value:userPreferences colorForInstrumentedPartiallyCoveredCode.
- addPseudoEntryWithColor value:self class nameListEntryForFullyCovered value:numFullyCovered value:userPreferences colorForInstrumentedFullyCoveredCode.
- ].
-
- ].
- ^ categoryList
-
- "Created: / 05-02-2000 / 13:42:11 / cg"
- "Modified: / 31-08-2011 / 16:26:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 08-09-2011 / 04:56:47 / cg"
-!
-
-makeDependent
- Smalltalk addDependent:self.
-"/ ChangeSet addDependent:self.
-
- "Modified: / 10-11-2006 / 17:57:13 / cg"
-!
-
-makeIndependent
- Smalltalk removeDependent:self.
-"/ ChangeSet removeDependent:self.
-!
-
-release
- super release.
-
- filterClassVars removeDependent:self.
- methodVisibilityHolder removeDependent:self.
- noAllItem removeDependent:self.
- packageFilterOnInput removeDependent:self.
- selectedProtocolIndices removeDependent:self.
- variableFilter removeDependent:self.
-!
-
-updateList
- |prevClasses prevSelection newSelection newList oldList sameContents selectedProtocolsHolder rawList|
-
- selectedProtocolsHolder := self selectedProtocols.
-
- prevClasses := classes isNil ifTrue:[ #() ] ifFalse:[ classes copy ].
- oldList := self protocolList value copy.
- newList := self listOfMethodCategories.
-
- "/ oldListSize := self browserNameList size.
- "/ newListSize := newList size.
- self selectedProtocolIndices removeDependent:self.
- sameContents := self updateListFor:newList.
- self selectedProtocolIndices addDependent:self.
- sameContents ifFalse:[
- prevSelection := lastSelectedProtocols ? (selectedProtocolsHolder value) ? #().
- "/ prevSelection := selectedProtocolsHolder value ? lastSelectedProtocols ? #().
-
- rawList := self rawProtocolList value.
- newSelection := prevSelection select:[:item | rawList includes:item string].
-
- newSelection size > 0 ifTrue:[
- "/ force change (for dependents)
-"/ selectedProtocolsHolder value:nil.
-"/ selectedProtocolsHolder value:newSelection.
- selectedProtocolsHolder setValue:newSelection.
- selectedProtocolsHolder removeDependent:self.
- selectedProtocolsHolder changed:#value.
- selectedProtocolsHolder addDependent:self.
- ] ifFalse:[
- prevSelection := selectedProtocolsHolder value.
- selectedProtocolsHolder value:nil.
- ].
- (prevSelection size > 0 or:[newSelection size > 0]) ifTrue:[
- self enqueueDelayedUpdateOutputGenerator.
- "/ self updateOutputGenerator.
- ].
-
-"/ prevSelection notNil ifTrue:[
-"/ lastSelectedProtocols := prevSelection.
-"/ ].
- ] ifTrue:[
- "/ same list - but classes might have changed
- "/ that is the case, if the class selection has been changed,
- "/ to another class which has the same categories.
- (prevClasses size ~= classes size
- or:[prevClasses asOrderedCollection ~= (classes ? #()) asOrderedCollection ]) ifTrue:[
- (newList size > 0 or:[oldList size > 0]) ifTrue:[
- self updateOutputGenerator
- ]
- ] ifFalse:[
-"/ self protocolList value:newList.
- ]
- ].
- listValid := true.
-
- "Created: / 05-02-2000 / 13:42:11 / cg"
- "Modified: / 23-03-2012 / 15:53:41 / cg"
-! !
-
-!MethodCategoryList methodsFor:'private-info'!
-
-methodInfoFor:aMethod in:mclass selector:selector
- ^ self methodInfoFor:aMethod in:mclass selector:selector lazy:false
-
- "Modified: / 08-08-2011 / 18:21:03 / cg"
-!
-
-methodInfoFor:aMethod in:mclass selector:selector lazy:lazy
- |info isDocumentationMethod isVersionMethod def methodsPackage|
-
- "/ the first at:ifAbsent: is aktually not needed - it is here to
- "/ reduce the average blocking time, and to allow for debugging the info generating
- "/ code without deadlock
- MethodInfoCacheAccessLock critical:[
- info := MethodInfoCache at:aMethod "(mclass name,'>>',selector)" ifAbsent:nil.
- ].
- info isNil ifTrue:[
- lazy ifTrue:[
- "/ TODO: start a background thread to compute the stuff below,
- "/ notify me to update the list, when all the lazy info is avail...
- ] ifFalse:[
- true "aMethod mclass language isSmalltalk" ifTrue:[
- methodsPackage := aMethod package.
-
- isVersionMethod := aMethod isVersionMethod.
- isDocumentationMethod := isVersionMethod not and:[aMethod isDocumentationMethod].
-
- info := CachedMethodInfo new.
- info isObsolete:(aMethod isObsolete). "/ (aMethod isObsolete).
- info sendsSuper:(aMethod superMessages notEmptyOrNil). "/ (aMethod superMessages notEmptyOrNil).
- info isUncommented:(self methodIsMarkedAsUncommented:aMethod). "/ (self methodIsMarkedAsUncommented:aMethod).
- info isDocumentationMethod:isDocumentationMethod.
- info isLongMethod:(self methodIsMarkedAsLong:aMethod). "/ (self methodIsMarkedAsLong:aMethod).
-
- methodsPackage ~= mclass package ifTrue:[
- methodsPackage ~= #'__NoProject__' ifTrue:[
- info isExtensionMethod:true.
- info isOverride:(
- ((def := methodsPackage asPackageId projectDefinitionClass) notNil
- and:[ (def methodOverwrittenBy:aMethod ) notNil ])
- )
- ]
- ] ifFalse:[
- info isExtensionMethod:false.
- info isOverride:false.
- ].
- info isRedefine:(
- ( isVersionMethod not
- and:[ isDocumentationMethod not
- and:[ mclass superclass notNil
- and:[ (mclass superclass whichClassIncludesSelector:selector ) notNil ]]])
- ).
-"/ too expensive - makes browser slow
-"/ info isRedefined:(
-"/ ( isVersionMethod not
-"/ and:[ isDocumentationMethod not
-"/ and:[ mclass allSubclasses contains:[:cls | cls includesSelector:selector ]]])
-"/ ).
-
- info isSubclassResponsibility:( aMethod sends:#subclassResponsibility or:#subclassResponsibility: ).
- info isAnnotated:(aMethod hasAnnotation).
-
- MethodInfoCacheAccessLock critical:[
- MethodInfoCache at:aMethod "(mclass name,'>>',selector)" put:info
- ].
- ].
- ].
- ].
- ^ info
-
- "Created: / 08-08-2011 / 18:18:14 / cg"
-!
-
-methodIsMarkedAsLong:aMethod
- "if true, it will be also categorized under the pseudo category 'long'"
-
- |src ast linesWithCode visitor|
-
- src := aMethod source ? ''.
- src asCollectionOfLines size < UserPreferences current numberOfLinesForLongMethod "~~30" ifTrue:[^ false].
-
- "/ ok, it is long;
- "/ but do not blame the user for writing documentation (dont count comments),
- "/ or using literal arrays
- RBParser notNil ifTrue:[
- ast := RBParser parseMethod:src.
- ast notNil ifTrue:[
- visitor := RBProgramNodeVisitor new.
- visitor pluggableNodeAction:
- [:eachNode |
- |lno|
- lno := eachNode lineNumber.
- lno notNil ifTrue:[ linesWithCode add:lno ].
- ].
-
- linesWithCode := Set new.
- ast acceptVisitor:visitor.
- linesWithCode size < UserPreferences current numberOfLinesForLongMethod "~~30" ifTrue:[^ false].
- ].
- ].
- ^ true.
-!
-
-methodIsMarkedAsUncommented:aMethod
- "if true, it will be also categorized under the pseudo category 'undocumented'"
-
- ^ aMethod comment isEmptyOrNil
- and:[aMethod isVersionMethod not]
-! !
-
-!MethodCategoryList methodsFor:'special'!
-
-addAdditionalProtocol:aProtocol forClass:aClass
- "those are simulated - in ST/X, empty categories do not really exist;
- (because the category is an attribute of the method)
- However, during browsing, it makes sense. Therefore, empty categories are
- remembered here"
-
- |categories|
-
- AdditionalEmptyCategoriesPerClassName isNil ifTrue:[
- AdditionalEmptyCategoriesPerClassName := Dictionary new.
- ].
- categories := AdditionalEmptyCategoriesPerClassName at:aClass name ifAbsent:nil.
- categories isNil ifTrue:[
- categories := Set new.
- AdditionalEmptyCategoriesPerClassName at:aClass name put:categories.
- ].
- categories add:aProtocol.
- aClass changed:#organization. "/ not really ... to force update
- Smalltalk changed:#methodCategoryAdded with:(Array with:aClass with:aProtocol). "/ not really ... to force update
-
- "Modified (comment): / 01-08-2012 / 17:30:36 / cg"
-!
-
-additionalProtocolForClass:aClass
- "those are simulated - in ST/X, empty categories do not really exist;
- (because the category is an attribute of the method)
- However, during browsing, it makes sense. Therefore, empty categories are
- remembered here"
-
- AdditionalEmptyCategoriesPerClassName isNil ifTrue:[ ^ #() ].
- ^ AdditionalEmptyCategoriesPerClassName at:aClass name ifAbsent:[ #() ].
-
- "Modified (comment): / 01-08-2012 / 17:29:16 / cg"
-!
-
-clearLastSelectedProtocol
- lastSelectedProtocols := nil
-!
-
-lastSelectedProtocols
- ^ lastSelectedProtocols
-!
-
-removeAdditionalProtocol:aListOfProtocols forClass:aClass
- "those are simulated - in ST/X, empty categories do not really exist;
- (because the category is an attribute of the method)
- However, during browsing, it makes sense. Therefore, empty categories are
- remembered here"
-
- |categories|
-
- AdditionalEmptyCategoriesPerClassName isNil ifTrue:[^ self].
-
- categories := AdditionalEmptyCategoriesPerClassName at:aClass name ifAbsent:nil.
- categories isNil ifTrue:[^ self].
- categories removeAllFoundIn:aListOfProtocols.
- categories isEmpty ifTrue:[
- AdditionalEmptyCategoriesPerClassName removeKey:aClass name.
- ].
-
- aClass changed:#organization. "/ not really ... to force update
- Smalltalk changed:#methodCategoriesRemoved with:(Array with:aClass with:aListOfProtocols). "/ not really ... to force update
-
- "Modified (comment): / 01-08-2012 / 17:29:59 / cg"
-!
-
-removeAllAdditionalProtocol
- "those are simulated - in ST/X, empty categories do not really exist;
- (because the category is an attribute of the method)
- However, during browsing, it makes sense. Therefore, empty categories are
- remembered here"
-
- AdditionalEmptyCategoriesPerClassName := nil
-
- "Modified (comment): / 01-08-2012 / 17:30:05 / cg"
-!
-
-removeAllAdditionalProtocolForClass:aClass
- "those are simulated - in ST/X, empty categories do not really exist;
- (because the category is an attribute of the method)
- However, during browsing, it makes sense. Therefore, empty categories are
- remembered here"
-
- AdditionalEmptyCategoriesPerClassName notNil ifTrue:[
- AdditionalEmptyCategoriesPerClassName removeKey:aClass name ifAbsent:nil
- ].
-
- "Modified (comment): / 01-08-2012 / 17:30:10 / cg"
-!
-
-renameAdditionalProtocol:oldName to:newName forClass:aClass
- "those are simulated - in ST/X, empty categories do not really exist;
- (because the category is an attribute of the method)
- However, during browsing, it makes sense. Therefore, empty categories are
- remembered here"
-
- |categories|
-
- AdditionalEmptyCategoriesPerClassName isNil ifTrue:[^ self].
- categories := AdditionalEmptyCategoriesPerClassName at:aClass name ifAbsent:nil.
- categories isNil ifTrue:[^ self].
- categories remove:oldName ifAbsent:nil.
- categories add:newName.
-
- aClass changed:#organization. "/ not really ... to force update
- Smalltalk changed:#methodCategoryRenamed with:(Array with:aClass with:oldName with:newName). "/ not really ... to force update
-
- "Modified (comment): / 01-08-2012 / 17:30:16 / cg"
-! !
-
-!MethodCategoryList::CachedMethodInfo class methodsFor:'initialization'!
-
-initialize
- FlagObsolete := 1.
- FlagSendsSuper := 2.
- FlagIsUncommented := 4.
- FlagIsDocumentationMethod := 8.
- FlagIsLongMethod := 16.
- FlagIsExtension := 32.
- FlagIsOverride := 64.
- FlagIsRedefine := 128.
- FlagIsSubclassResponsibility := 128.
- FlagIsTest := 256.
- FlagIsAnnotated := 512.
- FlagIsRedefined := 1024.
-
- "Modified: / 08-03-2010 / 18:33:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 07-09-2011 / 10:04:30 / cg"
-! !
-
-!MethodCategoryList::CachedMethodInfo class methodsFor:'instance creation'!
-
-new
- ^ self basicNew flags:0.
-! !
-
-!MethodCategoryList::CachedMethodInfo methodsFor:'accessing'!
-
-flags:something
- flags := something.
-!
-
-isAnnotated
- ^ (flags ? 0) bitTest: FlagIsAnnotated
-
- "Created: / 07-09-2011 / 10:04:56 / cg"
-!
-
-isAnnotated:aBoolean
- flags := aBoolean
- ifTrue:[ flags bitOr: FlagIsAnnotated ]
- ifFalse:[ flags bitClear: FlagIsAnnotated]
-
- "Created: / 07-09-2011 / 10:04:48 / cg"
-!
-
-isDocumentationMethod
- ^ (flags ? 0) bitTest: FlagIsDocumentationMethod
-!
-
-isDocumentationMethod:aBoolean
- flags := aBoolean
- ifTrue:[ flags bitOr: FlagIsDocumentationMethod ]
- ifFalse:[ flags bitClear: FlagIsDocumentationMethod]
-!
-
-isExtensionMethod
- ^ (flags ? 0) bitTest: FlagIsExtension
-!
-
-isExtensionMethod:aBoolean
- flags := aBoolean
- ifTrue:[ flags bitOr: FlagIsExtension ]
- ifFalse:[ flags bitClear: FlagIsExtension]
-!
-
-isLongMethod
- ^ (flags ? 0) bitTest: FlagIsLongMethod
-!
-
-isLongMethod:aBoolean
- flags := aBoolean
- ifTrue:[ flags bitOr: FlagIsLongMethod ]
- ifFalse:[ flags bitClear: FlagIsLongMethod]
-!
-
-isObsolete
- ^ (flags ? 0) bitTest: FlagObsolete
-!
-
-isObsolete:aBoolean
- flags := aBoolean
- ifTrue:[ flags bitOr: FlagObsolete ]
- ifFalse:[ flags bitClear: FlagObsolete]
-!
-
-isOverride
- ^ (flags ? 0) bitTest: FlagIsOverride
-!
-
-isOverride:aBoolean
- flags := aBoolean
- ifTrue:[ flags bitOr: FlagIsOverride ]
- ifFalse:[ flags bitClear: FlagIsOverride]
-!
-
-isRedefine
- ^ (flags ? 0) bitTest: FlagIsRedefine
-!
-
-isRedefine:aBoolean
- flags := aBoolean
- ifTrue:[ flags bitOr: FlagIsRedefine ]
- ifFalse:[ flags bitClear: FlagIsRedefine]
-!
-
-isRedefined
- ^ (flags ? 0) bitTest: FlagIsRedefined
-!
-
-isRedefined:aBoolean
- flags := aBoolean
- ifTrue:[ flags bitOr: FlagIsRedefined ]
- ifFalse:[ flags bitClear: FlagIsRedefined]
-!
-
-isSubclassResponsibility
- ^ (flags ? 0) bitTest: FlagIsSubclassResponsibility
-!
-
-isSubclassResponsibility:aBoolean
- flags := aBoolean
- ifTrue:[ flags bitOr: FlagIsSubclassResponsibility ]
- ifFalse:[ flags bitClear: FlagIsSubclassResponsibility]
-!
-
-isTest
- ^ (flags ? 0) bitTest: FlagIsTest
-
- "Created: / 08-03-2010 / 18:41:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-isUncommented
- ^ (flags ? 0) bitTest: FlagIsUncommented
-!
-
-isUncommented:aBoolean
- flags := aBoolean
- ifTrue:[ flags bitOr: FlagIsUncommented ]
- ifFalse:[ flags bitClear: FlagIsUncommented]
-!
-
-sendsSuper
- ^ (flags ? 0) bitTest: FlagSendsSuper
-!
-
-sendsSuper:aBoolean
- flags := aBoolean
- ifTrue:[ flags bitOr: FlagSendsSuper ]
- ifFalse:[ flags bitClear: FlagSendsSuper]
-! !
-
-!MethodCategoryList::MissingMethod class methodsFor:'instance creation'!
-
-mclass:aClass selector:aSelector
- ^ self new mclass:aClass selector:aSelector
-! !
-
-!MethodCategoryList::MissingMethod methodsFor:'accessing'!
-
-mclass
- ^ mclass
-!
-
-mclass:aClass
- mclass := aClass
-!
-
-mclass:aClass selector:aSelector
- mclass := aClass.
- selector := aSelector.
-!
-
-selector
- ^ selector
-!
-
-selector:something
- selector := something.
-!
-
-source
- ^ (SmalltalkCodeGeneratorTool basicNew
- codeFor_shouldImplementFor:selector inClass:mclass)
- colorizeAllWith:Color red
-
- "Modified: / 31-01-2011 / 18:29:17 / cg"
-! !
-
-!MethodCategoryList::MissingMethod methodsFor:'printing & storing'!
-
-printStringForBrowserWithSelector:selector inClass:aClass
- ^ (selector,' (** missing required **)') colorizeAllWith:Color red
-! !
-
-!MethodCategoryList class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.89 2012-11-07 16:34:06 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.89 2012-11-07 16:34:06 cg Exp $'
-! !
-
-MethodCategoryList initialize!
-MethodCategoryList::CachedMethodInfo initialize!
--- a/Tools_MethodList.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,1805 +0,0 @@
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-BrowserList subclass:#MethodList
- instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods
- browserNameList variableFilter filterClassVars updateProcess
- lastShowClass lastShowCategory lastShowClassFirst
- showMethodInheritance lastMethodClass lastMethodClassesSubclasses
- classAndSelectorsRedefinedBySubclassesOfClass showClass
- showMethodComplexity showMethodTypeIcon
- showImageResourceMethodsImages'
- classVariableNames:'ShowComplexityValue'
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!MethodList class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- I implement the method list in the new system browser
-"
-! !
-
-!MethodList class methodsFor:'interface specs'!
-
-singleMethodWindowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:MethodList andSelector:#singleMethodWindowSpec
- MethodList new openInterface:#singleMethodWindowSpec
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #singleMethodWindowSpec
- #window:
- #(#WindowSpec
- #label: 'SingleSelectorList'
- #name: 'SingleSelectorList'
- #min: #(#Point 0 0)
- #max: #(#Point 1024 721)
- #bounds: #(#Rectangle 12 22 312 322)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'MethodName'
- #name: 'MethodLabel'
- #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)
- #translateLabel: true
- #labelChannel: #methodLabelHolder
- #menu: #menuHolder
- )
- )
-
- )
- )
-
- "Modified: / 1.3.2000 / 20:50:15 / cg"
-!
-
-windowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:Tools::MethodList andSelector:#windowSpec
- Tools::MethodList new openInterface:#windowSpec
- Tools::MethodList open
- "
-
- <resource: #canvas>
-
- ^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'SelectorList'
- name: 'SelectorList'
- min: (Point 0 0)
- bounds: (Rectangle 0 0 300 300)
- )
- component:
- (SpecCollection
- collection: (
- (SequenceViewSpec
- name: 'List'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- tabable: true
- model: selectedMethodNameIndices
- menu: menuHolder
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- isMultiSelect: true
- valueChangeSelector: selectionChangedByClick
- useIndex: true
- sequenceList: browserNameList
- doubleClickChannel: doubleClickChannel
- properties:
- (PropertyListDictionary
- canDropSelector: canDropContext:
- dragArgument: nil
- dropArgument: nil
- dropSelector: doDropContext:
- )
- )
- )
-
- )
- )
-! !
-
-!MethodList class methodsFor:'plugIn spec'!
-
-aspectSelectors
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this. If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "Return a description of exported aspects;
- these can be connected to aspects of an embedding application
- (if this app is embedded in a subCanvas)."
-
- ^ #(
- #(doubleClickChannel action)
- #filterClassVars
- #forceGeneratorTrigger
- #immediateUpdate
- #inGeneratorHolder
- #menuHolder
- #methodCategoryHolder
- #packageFilter
- #selectedMethods
- #selectionChangeCondition
- #showCoverageInformation
- #showImageResourceMethodsImages
- #showMethodComplexity
- #showMethodInheritance
- #showMethodTypeIcon
- #sortBy
- #updateTrigger
- #variableFilter
- ).
-
-! !
-
-!MethodList methodsFor:'aspects'!
-
-browserNameList
- browserNameList isNil ifTrue:[
- browserNameList := List new.
- ].
- ^ browserNameList.
-
- "Modified: / 31.1.2000 / 00:42:44 / cg"
- "Created: / 5.2.2000 / 22:38:32 / cg"
-!
-
-defaultSlaveModeValue
- ^ false.
-!
-
-filterClassVars
- filterClassVars isNil ifTrue:[
- filterClassVars := false asValue.
- filterClassVars addDependent:self
- ].
- ^ filterClassVars
-!
-
-filterClassVars:aValueHolder
- filterClassVars notNil ifTrue:[
- filterClassVars removeDependent:self
- ].
- filterClassVars := aValueHolder.
- filterClassVars notNil ifTrue:[
- filterClassVars addDependent:self
- ].
-!
-
-methodLabelHolder
- ^ self pseudoListLabelHolder
-
- "Created: / 1.3.2000 / 20:50:07 / cg"
-!
-
-methodList
- ^ methodList
-!
-
-selectedMethodNameIndices
- selectedMethodNameIndices isNil ifTrue:[
- selectedMethodNameIndices := ValueHolder new.
- selectedMethodNameIndices addDependent:self
- ].
- ^ selectedMethodNameIndices.
-
- "Modified: / 5.2.2000 / 00:31:48 / cg"
- "Created: / 5.2.2000 / 22:59:31 / cg"
-!
-
-selectedMethods
- ^ self selectionHolder
-!
-
-selectedMethods:aValueHolder
- ^ self selectionHolder:aValueHolder
-!
-
-showImageResourceMethodsImages
- showImageResourceMethodsImages isNil ifTrue:[
- showImageResourceMethodsImages := false asValue.
- showImageResourceMethodsImages addDependent:self
- ].
- ^ showImageResourceMethodsImages
-!
-
-showImageResourceMethodsImages:aValueHolder
- showImageResourceMethodsImages notNil ifTrue:[
- showImageResourceMethodsImages removeDependent:self
- ].
- showImageResourceMethodsImages := aValueHolder.
- showImageResourceMethodsImages notNil ifTrue:[
- showImageResourceMethodsImages addDependent:self
- ].
-!
-
-showMethodComplexity
- showMethodComplexity isNil ifTrue:[
- showMethodComplexity := false asValue.
- showMethodComplexity addDependent:self
- ].
- ^ showMethodComplexity
-!
-
-showMethodComplexity:aValueHolder
- showMethodComplexity notNil ifTrue:[
- showMethodComplexity removeDependent:self
- ].
- showMethodComplexity := aValueHolder.
- showMethodComplexity notNil ifTrue:[
- showMethodComplexity addDependent:self
- ].
-!
-
-showMethodInheritance
- showMethodInheritance isNil ifTrue:[
- showMethodInheritance := false asValue.
- showMethodInheritance addDependent:self
- ].
- ^ showMethodInheritance
-!
-
-showMethodInheritance:aValueHolder
- showMethodInheritance notNil ifTrue:[
- showMethodInheritance removeDependent:self
- ].
- showMethodInheritance := aValueHolder.
- showMethodInheritance notNil ifTrue:[
- showMethodInheritance addDependent:self
- ].
-!
-
-showMethodTypeIcon
- showMethodTypeIcon isNil ifTrue:[
- showMethodTypeIcon := true asValue.
- showMethodTypeIcon addDependent:self
- ].
- ^ showMethodTypeIcon
-!
-
-showMethodTypeIcon:aValueHolder
- showMethodTypeIcon notNil ifTrue:[
- showMethodTypeIcon removeDependent:self
- ].
- showMethodTypeIcon := aValueHolder.
- showMethodTypeIcon notNil ifTrue:[
- showMethodTypeIcon addDependent:self
- ].
-!
-
-variableFilter
- variableFilter isNil ifTrue:[
- variableFilter := nil asValue.
- variableFilter addDependent:self
- ].
- ^ variableFilter
-!
-
-variableFilter:aValueHolder
- variableFilter notNil ifTrue:[
- variableFilter removeDependent:self
- ].
- variableFilter := aValueHolder.
- variableFilter notNil ifTrue:[
- variableFilter addDependent:self
- ].
-! !
-
-!MethodList methodsFor:'change & update'!
-
-delayedUpdate:something with:aParameter from:changedObject
- |cls sel oldMethod newMethod methods newSelection
- selectionHolder selection needSelectionChange|
-
- selectionHolder := self selectedMethods.
- selection := selectionHolder value.
-
- changedObject == Smalltalk ifTrue:[
- classes notNil ifTrue:[
- something == #classDefinition ifTrue:[
- cls := aParameter.
- (classes contains:[:aClass | aClass name == cls name]) ifFalse:[
- ^ self "/ I dont care for that class
- ].
- classes := classes collect:[:eachClass | eachClass isMeta ifTrue:[
- (Smalltalk at:eachClass theNonMetaclass name) class
- ] ifFalse:[
- Smalltalk at:eachClass name
- ]
- ].
- self invalidateList.
-"/ self updateList.
- ^ self.
- ].
-
- something == #methodCategory ifTrue:[
- "/ ignore here - methodCategoryList will tell me if required
- ^ self
- ].
- (something == #classOrganization
- or:[ something == #methodCategoryAdded
- or:[ something == #methodCategoryRemoved
- or:[ something == #methodCategoriesRemoved
- or:[ something == #methodCategoryRenamed ]]]]) ifTrue:[
- "/ ignore here - methodCategoryList will tell me if required
- ^ self
- ].
-
- (something == #methodInClass
- or:[something == #methodCoverageInfo]) ifTrue:[
- "/ a method has been added/changed
- cls := aParameter at:1.
- (classes includesIdentical:cls) ifTrue:[
- sel := aParameter at:2.
- oldMethod := aParameter at:3.
- newMethod := cls compiledMethodAt:sel.
- (oldMethod notNil and:[newMethod notNil]) ifTrue:[
- "a method was changed & acccepted;
- No need for a rescan of the methodDictionary;
- however, ensure that the refs to the old method are updated
- "
- methods := selection.
- methods size > 0 ifTrue:[
- (methods includesIdentical:oldMethod) ifTrue:[
- needSelectionChange := true.
- ]
- ].
- methodList replaceAllIdentical:oldMethod with:newMethod.
- lastSelectedMethods notNil ifTrue:[
- lastSelectedMethods replaceAllIdentical:oldMethod with:newMethod
- ].
- methods size > 0 ifTrue:[
- methods := methods asOrderedCollection.
- methods replaceAllIdentical:oldMethod with:newMethod.
- ].
-
- needSelectionChange == true ifTrue:[
- selectionHolder setValue:methods.
- "/ self enqueueDelayedMethodsSelectionChanged.
- "/ need this to inform my browser that method was changed
- "/ by someone else.
- selectionHolder changed.
- ].
- "/JV@2011-07-22: Update always - I need to see immediately that
- "/the method has changed. Also, add/remove breakpoint etc.
-
-"/ (variableFilter value size > 0
-"/ or:[oldMethod package ~= newMethod package
-"/ or:[oldMethod resources ~= newMethod resources
-"/ or:[showMethodComplexity value == true]]])
- self autoUpdateOnChange ifTrue:[
- "/ only update that method's entry
- self updateListEntryFor:newMethod.
- "/ sigh - must invalidate
- "/ self invalidateList.
- ].
- ^ self.
- ].
- "/ method was added - update the methodList
- "/ Q: is this needed (methodCategoryList should send me a new inGenerator)
- self invalidateList.
- ].
- ^ self.
- ].
-
- something == #methodInClassRemoved ifTrue:[
- cls := aParameter at:1.
- (classes includesIdentical:cls) ifTrue:[
- sel := aParameter at:2.
- "/ method was removed - update the methodList
- "/ Q: is this needed (methodCategoryList should send me a new inGenerator)
- self invalidateList.
- ].
- ^ self.
- ].
-
- something == #methodCoverageInfo ifTrue:[
- "/ already checked if it is one of my classes
- self updateListEntryFor:aParameter.
-"/ self enqueueDelayedUpdateList.
-"/ listValid == true ifTrue:[
-"/ self invalidateList.
-"/ ].
- ^ self.
- ].
-
- (something == #methodTrap
- or:[ something == #lastTestRunResult
- or:[ something == #privacyOfMethod ]]) ifTrue:[
- cls := aParameter at:1.
- sel := aParameter at:2.
- (classes includesIdentical:cls) ifFalse:[ ^ self].
-
- newMethod := cls compiledMethodAt:sel.
- newMethod isNil ifTrue:[
- self invalidateList.
- ^ self
- ].
-
- ((something == #privacyOfMethod) or:[something == #lastTestRunResult]) ifTrue:[
- self updateListEntryFor:newMethod.
- ].
-
- (something == #methodTrap) ifTrue:[
- newMethod isWrapped ifTrue:[
- oldMethod := newMethod originalMethod
- ] ifFalse:[
- selection size > 0 ifTrue:[
- oldMethod := selection detect:[:each | each isWrapped and:[each originalMethod == newMethod]] ifNone:nil.
- ]
- ].
-
- selection size > 0 ifTrue:[
- (selection includesIdentical:oldMethod) ifTrue:[
- needSelectionChange := true.
- ]
- ].
- methodList replaceAllIdentical:oldMethod with:newMethod.
- lastSelectedMethods notNil ifTrue:[
- lastSelectedMethods replaceAllIdentical:oldMethod with:newMethod
- ].
- selection size > 0 ifTrue:[
- selection := selection asOrderedCollection.
- selection replaceAllIdentical:oldMethod with:newMethod.
- ].
- needSelectionChange == true ifTrue:[
- selectionHolder changed.
- ].
-
- "/ actually, could just change that single item ...
- "/ ... might be cheaper, if list is huge.
- "/ only update that methods entry
- self updateListEntryFor:newMethod.
- "/ self invalidateList.
- ].
- ^ self
- ].
-
- (something == #projectOrganization
- or:[something == #lastTestRunResult]) ifTrue:[
- aParameter notNil ifTrue:[
- cls := aParameter at:1.
- cls notNil ifTrue:[
- ((classes includesIdentical:cls theNonMetaclass)
- or:[(classes includesIdentical:cls theMetaclass)]) ifTrue:[
- self invalidateList.
- ].
- ].
- ] ifFalse:[
- self invalidateList.
- ].
- ^ self
- ].
-
- "/ everything else is ignored
- "/ self halt.
- ].
- ^ self
- ].
-
-"/ something == #organization ifTrue:[
-"/self halt:'no longer'.
-"/^ self.
-"/ "/ a methods cateory has changed
-"/ (classes includesIdentical:changedObject) ifTrue:[
-"/ aParameter isSymbol ifTrue:[
-"/ "/ a method with a new category
-"/ (self methodList includesIdentical:(changedObject compiledMethodAt:aParameter)) ifTrue:[
-"/ self invalidateList.
-"/ ].
-"/ ^ self.
-"/ ].
-"/ "/ a new category (no method yet)
-"/ self invalidateList
-"/ ].
-"/ ^ self
-"/ ].
-
-"/ something == #methodDictionary ifTrue:[
-"/self halt:'no longer'.
-"/^ self.
-"/ "/ a method has been added/removed
-"/ (classes includesIdentical:changedObject) ifTrue:[
-"/ aParameter isArray ifTrue:[
-"/ sel := aParameter at:1.
-"/ oldMethod := aParameter at:2.
-"/ newMethod := changedObject compiledMethodAt:sel.
-"/ oldMethod notNil ifTrue:[
-"/ "a method was changed & acccepted;
-"/ No need for a rescan of the methodDictionary;
-"/ however, ensure that the refs to the old method are updated
-"/ "
-"/ methods := selection.
-"/ methods size > 0 ifTrue:[
-"/ (methods includesIdentical:oldMethod) ifTrue:[
-"/ needSelectionChange := true.
-"/ ]
-"/ ].
-"/ methodList replaceAllIdentical:oldMethod with:newMethod.
-"/ lastSelectedMethods notNil ifTrue:[
-"/ lastSelectedMethods replaceAllIdentical:oldMethod with:newMethod
-"/ ].
-"/ methods size > 0 ifTrue:[
-"/ methods := methods asOrderedCollection.
-"/ methods replaceAllIdentical:oldMethod with:newMethod.
-"/ ].
-"/ needSelectionChange == true ifTrue:[
-"/ selectionHolder setValue:methods.
-"/ selectionHolder changed.
-"/ ].
-"/ ^ self.
-"/ ]
-"/ ].
-"/ "/ class has changed must update the methodList
-"/ self invalidateList.
-"/ ].
-"/ ^ self.
-"/ ].
-
-"/ something == #projectOrganization ifTrue:[
-"/ ((classes includesIdentical:changedObject theNonMetaclass)
-"/ or:[(classes includesIdentical:changedObject theMetaclass)]) ifTrue:[
-"/ self invalidateList.
-"/ ].
-"/ ^ self
-"/ ].
-
- changedObject == sortBy ifTrue:[
- listValid ~~ true ifTrue:[ "/ could be nil
- inGeneratorHolder value isNil ifTrue:[
- "/ ok, no need to react on that one
- "/ (will invalidate anyway, once I have more info at hand)
- ^ self
- ].
- ].
- self invalidateList.
- ^ self
- ].
-
- (changedObject == variableFilter
- or:[changedObject == filterClassVars
- or:[changedObject == showMethodInheritance
- or:[changedObject == showMethodComplexity]]]) ifTrue:[
- self invalidateList.
- ^ self
- ].
-
- changedObject == selectedMethodNameIndices ifTrue:[
- newSelection := self selectedMethodNameIndices value collect:[:idx | methodList at:idx].
- newSelection ~= selection ifTrue:[
- selectionHolder value:newSelection.
- lastSelectedMethods := newSelection.
- lastSelectedMethods notNil ifTrue:[
- lastSelectedMethods := lastSelectedMethods asOrderedCollection
- ].
- ] ifFalse:[
- "/ a reselect - force update
-"/ selection size == 1 ifTrue:[
- selectionHolder setValue:newSelection.
- selectionHolder changed:#value.
-"/ ].
- ].
- ^ self
- ].
- changedObject == selectionHolder ifTrue:[
- self selectedMethodsChanged.
- lastSelectedMethods := selectionHolder value.
- lastSelectedMethods notNil ifTrue:[
- lastSelectedMethods := lastSelectedMethods asOrderedCollection
- ].
- ^ self
- ].
-"/ something == #methodTrap ifTrue:[
-"/self halt:'no longer'.
-"/^ self.
-"/ (classes includesIdentical:changedObject) ifTrue:[
-"/ newMethod := changedObject compiledMethodAt:aParameter.
-"/ newMethod isNil ifTrue:[
-"/ self invalidateList.
-"/ ^ self
-"/ ].
-"/ newMethod isWrapped ifTrue:[
-"/ oldMethod := newMethod originalMethod
-"/ ] ifFalse:[
-"/ selection size > 0 ifTrue:[
-"/ oldMethod := selection detect:[:each | each isWrapped and:[each originalMethod == newMethod]] ifNone:nil.
-"/ ]
-"/ ].
-"/
-"/ selection size > 0 ifTrue:[
-"/ (selection includesIdentical:oldMethod) ifTrue:[
-"/ needSelectionChange := true.
-"/ ]
-"/ ].
-"/"/ methodList replaceAllIdentical:oldMethod with:newMethod.
-"/ lastSelectedMethods notNil ifTrue:[
-"/ lastSelectedMethods replaceAllIdentical:oldMethod with:newMethod
-"/ ].
-"/ selection size > 0 ifTrue:[
-"/ selection := selection asOrderedCollection.
-"/ selection replaceAllIdentical:oldMethod with:newMethod.
-"/ ].
-"/ needSelectionChange == true ifTrue:[
-"/ selectionHolder changed.
-"/ ].
-"/ self invalidateList.
-"/ ^ self
-"/ ].
-"/ ^ self
-"/ ].
- super delayedUpdate:something with:aParameter from:changedObject
-
- "Created: / 05-02-2000 / 13:42:14 / cg"
- "Modified: / 22-07-2011 / 18:12:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 05-06-2012 / 23:47:15 / cg"
-!
-
-selectedMethodsChanged
- "the set of selected methods has changed;
- update the selection-index collection (for the selectionInListView)"
-
- |indices methods reverseMap
- selectedMethodsHolder selectedMethods selectedMethodNameIndicesHolder|
-
- methods := methodList ? #().
- methods size == 0 ifTrue:[
- "/ this may happen during early startup,
- "/ when invoked with a preset methodSelection,
- "/ and the methodGenerator has not yet been setup
- "/ to not clobber the selection, defer the update
- "/ until the methodList arrives ...
- ^ self
- ].
-
- selectedMethodsHolder := self selectedMethods.
- selectedMethods := selectedMethodsHolder value.
-
- "/ check if all is selected (likely)
- ((selectedMethods size == methodList size)
- and:[selectedMethods = methodList]) ifTrue:[
- indices := (1 to:selectedMethods size)
- ] ifFalse:[
- selectedMethods size > 100 ifTrue:[
- "/ check if all is selected (likely)
- ((selectedMethods size == methodList size)
- and:[selectedMethods = methodList]) ifTrue:[
- indices := (1 to:selectedMethods size)
- ] ifFalse:[
- "/ for big collections, generate a reverse map
- reverseMap := IdentityDictionary new.
- methods keysAndValuesDo:[:idx :mthd | reverseMap at:mthd put:idx].
- indices := selectedMethods collect:[:eachSelectedMethod |
- reverseMap at:eachSelectedMethod ifAbsent:0
- ]
- ]
- ] ifFalse:[
- indices := (selectedMethods ? #()) collect:[:eachSelectedMethod |
- methods identityIndexOf:eachSelectedMethod.
- ]
- ].
- indices := indices select:[:idx | idx ~= 0].
- ].
-
- selectedMethodNameIndicesHolder := self selectedMethodNameIndices.
- selectedMethodNameIndicesHolder value ~= indices ifTrue:[
- selectedMethodNameIndicesHolder value:indices.
- ]
-!
-
-selectionChanged
- |methods|
-
- methods := ((self selectedMethodNameIndices value) ? #()) collect:[:idx | methodList at:idx].
- methods notEmpty ifTrue:[
- lastSelectedMethods := methods asOrderedCollection.
- ].
- "/ to allow reselect, change my valueHolder, even if the same collection
-"/ self selectedMethods value ~= methods ifTrue:[
- self selectedMethods value:methods
-"/ ]
-
- "Created: / 5.2.2000 / 13:42:14 / cg"
- "Modified: / 5.2.2000 / 23:32:20 / cg"
-!
-
-selectionChangedByClick
- "we are not interested in that - get another notification
- via the changed valueHolder"
-
-!
-
-update:something with:aParameter from:changedObject
- |cls mthd mustFlushInheritanceInfo|
-
- mustFlushInheritanceInfo := true.
-
- "/ some can be ignored immediately
- changedObject == Smalltalk ifTrue:[
- classes isNil ifTrue:[
- ^ self.
- ].
- something isNil ifTrue:[
- "/ self halt "/ huh - Smalltalk changed - so what ?
- ^ self.
- ].
- something == #classComment ifTrue:[
- ^ self.
- ].
- something == #classVariables ifTrue:[
- ^ self.
- ].
- something == #organization ifTrue:[
- ^ self.
- ].
- something == #methodCategory ifTrue:[
- "/ ignore here - methodCategoryList will tell me if required
- ^ self
- ].
- (something == #classOrganization
- or:[ something == #methodCategoryAdded
- or:[ something == #methodCategoryRemoved
- or:[ something == #methodCategoriesRemoved
- or:[ something == #methodCategoryRenamed ]]]]) ifTrue:[
- "/ ignore here - methodCategoryList will tell me if required
- ^ self
- ].
-
- something == #methodCoverageInfo ifTrue:[
- self showCoverageInformation value ifFalse:[^ self].
- mthd := aParameter.
- (classes notNil and:[classes includesIdentical:mthd mclass]) ifFalse:[
- ^ self "/ I don't care for that class
- ].
- mustFlushInheritanceInfo := false.
- ].
-
- (something == #methodTrap
- or:[ something == #methodPrivacy
- or:[ something == #lastTestRunResult] ]) ifTrue:[
- cls := aParameter at:1.
- (classes includesIdentical:cls) ifFalse:[
- ^ self "/ I dont care for that class
- ].
- self window shown ifFalse:[
- "JV@2011-11-17: Do not break the dependency here,
- because then the window won't get updates once
- deiconified -> leads to confusing behavior (browser
- shows obsolete info)"
- "/changedObject removeDependent:self. "/ ?????
- self invalidateList.
- ^ self
- ].
- mustFlushInheritanceInfo := false.
- ].
- something == #newClass ifTrue:[
- ^ self.
- ].
-
- (something == #methodInClass
- or:[ something == #methodInClassRemoved ]) ifTrue:[
- |sel|
-
- sel := aParameter second.
- (methodList contains:[:mthd | mthd getMclass notNil and:[mthd selector = sel]]) ifFalse:[
- mustFlushInheritanceInfo := false.
- self window topView hasFocus ifFalse:[
- self enqueueDelayedUpdate:something with:aParameter from:changedObject.
- ^ self.
- ].
- ].
- ].
-
- mustFlushInheritanceInfo ifTrue:[
- "/ as the organisation changes, flush my remembered redefinition-cache-info
- classAndSelectorsRedefinedBySubclassesOfClass := nil.
- ].
-
- something == #classDefinition ifTrue:[
- cls := aParameter.
- (classes contains:[:aClass | aClass name == cls name]) ifFalse:[
- ^ self "/ I dont care for that class
- ].
- self enqueueDelayedUpdate:something with:aParameter from:changedObject.
- ^ self.
- ].
- something == #classRemove ifTrue:[
- ^ self.
- ].
- something == #classRename ifTrue:[
- ^ self.
- ].
- ].
-
- "/ these must lead to immediate update of the selectedMethods collection
- "/ (otherwise, that collection might be updated too late, leading to
- "/ an obsolete methods code being shown by the codeView.
- (something == #methodInClass
- or:[ something == #methodCoverageInfo ]) ifTrue:[
- "/ as the organisation changes, flush my remembered redefinition-cache-info
- classAndSelectorsRedefinedBySubclassesOfClass := nil.
- cls := aParameter at:1.
- (classes includesIdentical:cls) ifFalse:[
- ^ self "/ I dont care for that class
- ].
- self enqueueDelayedUpdate:something with:aParameter from:changedObject.
- ^ self
- ].
-
- something == #coverageInfo ifTrue:[
- listValid == true ifTrue:[
- self enqueueDelayedUpdateList
- ].
- ^ self.
- ].
-
- something == #methodInClassRemoved ifTrue:[
- cls := aParameter at:1.
- (classes includesIdentical:cls) ifFalse:[
- ^ self "/ I dont care for that class
- ].
- ].
-
- super update:something with:aParameter from:changedObject
-
- "Modified: / 17-11-2011 / 19:22:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 05-06-2012 / 23:41:50 / cg"
-! !
-
-!MethodList methodsFor:'drag & drop'!
-
-canDropContext:aDropContext
- |methods|
-
- aDropContext sourceWidget == aDropContext targetWidget ifTrue:[^ false].
-
- methods := aDropContext dropObjects collect:[:obj | obj theObject].
- (methods conform:[:aMethod | aMethod isMethod]) ifFalse:[^ false].
-
- self masterApplication theSingleSelectedClass isNil ifTrue:[^ false].
- ^ true
-
- "Modified: / 13-09-2006 / 11:43:54 / cg"
-!
-
-doDropContext:aDropContext
- |methods browser|
-
- methods := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
- (methods conform:[:something | something isMethod]) ifFalse:[^ self].
-
- browser := self masterApplication.
- aDropContext dragType == DropContext dragTypeCopy ifTrue:[
- browser
- copyMethods:methods
- toClass:(browser theSingleSelectedClass).
- ] ifFalse:[
- browser
- moveMethods:methods
- toClass:(browser theSingleSelectedClass).
- ].
-
- "Modified: / 13-09-2006 / 11:43:44 / cg"
-! !
-
-!MethodList methodsFor:'private'!
-
-isMethodToBeShown:aMethod
- "invoked, when we get a change for aMethod which was previously not
- in the list (for example, if I show a filtered list).
- Check if that single method is to be shown now.
- Used to speed up update for senders/string/implementors lists"
-
- |generator|
-
- generator := inGeneratorHolder value.
- generator isNil ifTrue:[
- ^ false
- ].
-
- "/ generator generates nil-selector entries
- "/ to pass multiple-class and multiple-protocol info
-
- generator do:[:cls :cat :sel :mthd |
- mthd == aMethod ifTrue:[
- mthd isSynthetic ifFalse:[
- sel notNil ifTrue:[
-"/ cg: no longer filter those...
-"/ (packageFilter value isNil
-"/ or:[ packageFilter value includes:mthd package ]) ifTrue:[
- ^ true
-"/ ]
- ]
- ].
- ^ false
- ]
- ].
- ^ false
-
- "Created: / 17-08-2011 / 15:03:34 / cg"
-!
-
-listOfMethodNames
- |methods entries selectorBag newNameList allClasses newClasses
- allCategories "allSelectors"
- generator doShowClass doShowClassFirst doShowCategory enforceClassAndProtocolInList
- theMethod sortByClass anyMethodToWatch mclass
- packageFilterValue nameListEntryForExtensions
- suppressInheritanceInfoNow startTime|
-
- suppressInheritanceInfoNow := (showMethodInheritance value ? true) not.
- startTime := Timestamp now.
-
- generator := inGeneratorHolder value.
- generator isNil ifTrue:[
- ^ #()
- ].
- allClasses := IdentitySet new.
- allCategories := IdentitySet new.
-
- "/ allSelectors := Set new.
-
- newClasses := IdentitySet new.
- selectorBag := Bag new.
- entries := OrderedCollection new.
- enforceClassAndProtocolInList := false.
- anyMethodToWatch := false.
-"/ no longer filter those
-"/ packageFilterValue := packageFilter value.
-
- "/ generator generates nil-selector entries
- "/ to pass multiple-class and multiple-protocol info
- nameListEntryForExtensions := self class nameListEntryForExtensions.
-
- generator do:[:cls :cat :sel :mthd |
- |categoryIsExtensionsPseudoCategory|
-
- categoryIsExtensionsPseudoCategory := (cat = nameListEntryForExtensions).
-
- (cls isNil and:[ cat isNil and:[ sel isNil ] ]) ifTrue:[
- enforceClassAndProtocolInList := true
- ] ifFalse:[
- cls notNil ifTrue:[
- allClasses add:cls.
- ].
-"/ cat notNil ifTrue:[
-"/ allCategories add:cat.
-"/ ].
- "/ JV: Filter method through package filter
- "/ but not, if it is an extension method and we are showing extensions
- (mthd notNil
- and:[ mthd isSynthetic not
- and:[ sel notNil ]]
- ) ifTrue:[
- (packageFilterValue isNil
- or:[ (packageFilterValue includes:mthd package)
- or:[ categoryIsExtensionsPseudoCategory and:[ mthd isExtension] ]]
- ) ifTrue:[
- entries add:(Array with:cls with:sel with:mthd).
- selectorBag add:sel.
- newClasses add:cls.
-
- allCategories add:mthd category.
- "/ allSelectors add:sel.
- ]
- ]
- ].
- (mthd notNil and:[ mthd isWrapped ]) ifTrue:[
- (mthd isTiming or:[ mthd isCounting or:[ mthd isCountingMemoryUsage ] ]) ifTrue:[
- anyMethodToWatch := true
- ]
- ].
- ].
- showMethodInheritance value ~~ false ifTrue:[
- "/ collect redefinition information once (big speedup for #methodIsRedefinedbelow)
- classAndSelectorsRedefinedBySubclassesOfClass isNil ifTrue:[
- classAndSelectorsRedefinedBySubclassesOfClass := IdentityDictionary new.
- ].
- allClasses do:[:cls |
- |d|
-
- d := classAndSelectorsRedefinedBySubclassesOfClass.
- (d notNil and:[ (d includesKey:cls) not ]) ifTrue:[
- cls isLoaded ifTrue:[
- d at:cls put:(self setOfAllSelectorsImplementedBelow:cls)
- ]
- ]
- ].
- ].
-
- "/ multiple classes must: add the className for some
-
- doShowClass := enforceClassAndProtocolInList or:[ allClasses size > 1 ].
-
- "/ multiple categories: must add the categorie for some
-
- doShowCategory := enforceClassAndProtocolInList or:[ allCategories size > 1 ].
-
- doShowClassFirst := doShowClass.
- doShowClassFirst := doShowClass and:[ sortBy value == #class ].
- sortBy value == false ifTrue:[
- "/ do not sort
- ] ifFalse:[
- (doShowClass not and:[ sortBy value == #class ]) ifTrue:[
- "/ multiple classes must add the className for some
- "/ check, if doShowClass must be enforced
- entries do:[:entry |
- |cls sel mthd s needClass|
-
- cls := entry at:1.
- sel := entry at:2.
- mthd := entry at:3.
- doShowClass ifFalse:[
- doShowClass := (selectorBag occurrencesOf:sel) > 1
- ].
- ].
- ].
- sortByClass := doShowClass and:[ sortBy value == #class ].
- sortByClass ifTrue:[
- entries
- sort:[:a :b |
- |nmA nmB clsNmA clsNmB nsNmA nsNmB|
-
- clsNmA := (a at:1) name.
- clsNmB := (b at:1) name.
- clsNmA = clsNmB ifTrue:[
- nmA := (a at:2) asSymbol selector.
- nmB := (b at:2) asSymbol selector.
- nmA = nmB ifTrue:[
- nsNmA := (a at:3) nameSpaceName.
- nsNmB := (b at:3) nameSpaceName.
- nsNmA < nsNmB
- ] ifFalse:[ nmA < nmB ]
- ] ifFalse:[
- clsNmA < clsNmB
- ]
- ].
- ] ifFalse:[
- sortBy value == #category ifTrue:[
- entries
- sort:[:a :b |
- |nmA nmB catA catB clsNmA clsNmB nsNmA nsNmB|
-
- catA := (a at:3) category.
- catB := (b at:3) category.
- catA = catB ifTrue:[
- nmA := (a at:2) asSymbol selector.
- nmB := (b at:2) asSymbol selector.
- nmA = nmB ifTrue:[
- clsNmA := (a at:1) name.
- clsNmB := (b at:1) name.
- clsNmA = clsNmB ifTrue:[
- nsNmA := (a at:3) nameSpaceName.
- nsNmB := (b at:3) nameSpaceName.
- nsNmA < nsNmB
- ] ifFalse:[
- clsNmA < clsNmB
- ]
- ] ifFalse:[ nmA < nmB ]
- ] ifFalse:[
- catA < catB
- ]
- ].
- ] ifFalse:[
- entries
- sort:[:a :b |
- |nmA nmB clsNmA clsNmB nsNmA nsNmB|
-
- nmA := (a at:2) asSymbol selector.
- nmB := (b at:2) asSymbol selector.
- nmA = nmB ifTrue:[
- clsNmA := (a at:1) name.
- clsNmB := (b at:1) name.
- clsNmA = clsNmB ifTrue:[
- nsNmA := (a at:3) nameSpaceName.
- nsNmB := (b at:3) nameSpaceName.
- nsNmA < nsNmB
- ] ifFalse:[
- clsNmA < clsNmB
- ]
- ] ifFalse:[ nmA < nmB ]
- ].
- ].
- ].
- ].
- methods := OrderedCollection new:(entries size).
-
- "/ first generate the new methodList, and see if it is different ...
-
- entries do:[:entry |
- |sel mthd|
-
- mthd := entry at:3.
- methods add:mthd.
- ].
- false "methodList = methods" "does not care for changed icons" ifTrue:[
- "/ same list
- newNameList := self browserNameList.
- ] ifFalse:[
- newNameList := OrderedCollection new:(entries size).
-
- "/ multiple classes must add the className for some
-
- entries do:[:entry |
- |cls sel mthd s needClass|
-
- cls := entry at:1.
- sel := entry at:2.
- mthd := entry at:3.
- needClass := doShowClass.
-
-"/ needClass ifFalse:[
-"/ needClass := (selectorBag occurrencesOf:sel) > 1
-"/ ].
- (suppressInheritanceInfoNow not
- and:[ (Timestamp now deltaFrom:startTime) > 3 seconds ]) ifTrue:[
- suppressInheritanceInfoNow := true.
- ].
-
- s := self
- listEntryForMethod:mthd
- selector:sel
- class:cls
- showClass:needClass
- showCategory:doShowCategory
- classFirst:doShowClassFirst
- suppressInheritanceInfo:suppressInheritanceInfoNow.
-
- newNameList add:s.
- ].
- ].
- self makeIndependent.
- classes := newClasses.
- self makeDependent.
- methodList := methods.
- methods size == 1 ifTrue:[
- theMethod := methods first.
- mclass := theMethod mclass.
- mclass isNil ifTrue:[
- theMethod isWrapped ifTrue:[
- theMethod := theMethod originalMethod.
- mclass := theMethod mclass.
- ].
- ].
- self methodLabelHolder value:(mclass isNil
- ifTrue:[ ('???' , ' ' , '???') ]
- ifFalse:[ (mclass name , ' ' , theMethod selector) ])
- ].
-"/ anyMethodToWatch ifTrue:[
-"/ self startWatchProcess.
-"/ ] ifFalse:[
-"/ self stopWatchProcess.
-"/ ].
-
- "/ remember these, in case of an incremental (single method only)
- "/ update in the future.
-
- lastShowClass := doShowClass.
- lastShowClassFirst := doShowClassFirst.
- lastShowCategory := doShowCategory.
- ^ newNameList.
-
- "Created: / 05-02-2000 / 22:43:40 / cg"
- "Modified: / 20-07-2010 / 11:21:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 24-08-2010 / 20:34:09 / Jan Vrany <enter your email here>"
- "Modified: / 20-07-2012 / 20:00:58 / cg"
-!
-
-makeDependent
- Smalltalk addDependent:self.
-"/ ChangeSet addDependent:self.
-
- "Modified: / 10-11-2006 / 17:57:01 / cg"
-!
-
-makeIndependent
- Smalltalk removeDependent:self.
-"/ ChangeSet removeDependent:self.
-!
-
-method:mthd includesModsOfClassVariable:variablesToHighLight
- ^ self method:mthd includesRefsToVariable:variablesToHighLight askParserWith:#modifiedClassVars
-!
-
-method:mthd includesModsOfInstanceVariable:variablesToHighLight
- ^ self method:mthd includesRefsToVariable:variablesToHighLight askParserWith:#modifiedInstVars
-!
-
-method:mthd includesRefsToClassVariable:variablesToHighLight
- ^ self method:mthd includesRefsToVariable:variablesToHighLight askParserWith:#usedClassVars
-!
-
-method:mthd includesRefsToInstanceVariable:variablesToHighLight
- ^ self method:mthd includesRefsToVariable:variablesToHighLight askParserWith:#usedInstVars
-!
-
-method:mthd includesRefsToVariable:variablesToHighLight askParserWith:querySelector
- |cls src parser usedVars anyVarNameAccessable|
-
- cls := mthd mclass.
- cls isNil ifTrue:[^ false].
-
- anyVarNameAccessable := cls allInstVarNames includesAny:variablesToHighLight.
- anyVarNameAccessable ifFalse:[
- anyVarNameAccessable := cls theNonMetaclass allClassVarNames includesAny:variablesToHighLight.
- ].
- anyVarNameAccessable ifFalse:[
- "/ no need to parse
- ^ false
- ].
-
- src := mthd source.
- src notNil ifTrue:[
- "
- before doing a slow parse, quickly scan the
- methods source for the variables name ...
- "
- (variablesToHighLight contains:[:varName | (src findString:varName) ~~ 0]) ifTrue:[
- parser := Parser
- parseMethod:src
- in:cls
- ignoreErrors:true
- ignoreWarnings:true.
- (parser notNil and:[parser ~~ #Error]) ifTrue:[
- usedVars := parser perform:querySelector.
- (usedVars includesAny:variablesToHighLight)
- ifTrue:[
- ^ true
- ]
- ]
- ]
- ].
- ^ false
-!
-
-methodIsInheritedFromAbove:aMethod
- |mClass|
-
- mClass := aMethod mclass.
- (mClass notNil and:[mClass superclass notNil]) ifTrue:[
- ^ (mClass superclass whichClassIncludesSelector:aMethod selector) notNil.
- ].
- ^ false
-!
-
-methodIsRedefinedBelow:aMethod
- |mclass subClasses setOfRedefinedSelectors|
-
- mclass := aMethod mclass.
- mclass isNil ifTrue:[^ false].
-
- "/ if possible, make use of info prepared by listOfMethodNames
- classAndSelectorsRedefinedBySubclassesOfClass notNil
- ifTrue:[
- setOfRedefinedSelectors := classAndSelectorsRedefinedBySubclassesOfClass at:mclass ifAbsent:nil.
- setOfRedefinedSelectors notNil ifTrue:[
- ^ setOfRedefinedSelectors includes:aMethod selector
- ]
- ].
-
- lastMethodClass == mclass ifTrue:[
- subClasses := lastMethodClassesSubclasses
- ] ifFalse:[
- subClasses := aMethod mclass allSubclasses.
- lastMethodClassesSubclasses := subClasses.
- lastMethodClass := mclass.
- ].
- ^ subClasses contains:[:cls | cls includesSelector:aMethod selector].
-!
-
-redefinedOrInheritedIconFor:aMethod
- |inherited redefined subclassResponsibility|
-
- inherited := self methodIsInheritedFromAbove:aMethod.
- redefined := self methodIsRedefinedBelow:aMethod.
-
- inherited ifTrue:[
- redefined ifTrue:[
- ^ self methodInheritedFromAboveAndRedefinedBelowIcon.
- ].
- ^ self methodInheritedFromAboveIcon.
- ].
-
- subclassResponsibility := aMethod sends:#subclassResponsibility.
- redefined ifTrue:[
- subclassResponsibility ifTrue:[
- ^ self methodIsSubclassResponsibilityAndRedefinedBelowIcon.
- ].
- ^ self methodRedefinedBelowIcon.
- ].
- subclassResponsibility ifTrue:[
- ^ self methodIsSubclassResponsibilityIcon.
- ].
-
- ^ self methodEmptyInheritedIcon
-!
-
-release
- super release.
-
- filterClassVars removeDependent:self.
- selectedMethodNameIndices removeDependent:self.
- showMethodInheritance removeDependent:self.
- variableFilter removeDependent:self.
-!
-
-resourceIconForMethod:aMethod
- ^ SystemBrowser resourceIconForMethod:aMethod
-
- "Modified: / 17-08-2006 / 09:09:01 / cg"
-!
-
-setOfAllSelectorsImplementedBelow:aClass
- |set|
-
- set := IdentitySet new.
- aClass allSubclassesDo:[:eachSubclass |
- set addAll:(eachSubclass methodDictionary keys).
- ].
- ^ set
-!
-
-updateList
- |prevSelection newList newSelection newSelIdx reverseMap sameContents newListSize oldListSize
- prevClasses methodSet selectedMethodsHolder|
-
- selectedMethodsHolder := self selectedMethods.
- prevSelection := selectedMethodsHolder value ? #().
-
- prevClasses := classes ifNil:[ #() ] ifNotNil:[ classes copy ].
-
- oldListSize := self browserNameList size.
-
- self topApplication withWaitCursorDo:[
- newList := self listOfMethodNames.
- ].
- newListSize := newList size.
- sameContents := self updateListFor:newList.
-
- sameContents ifFalse:[
- "/ self browserNameList value:newList.
-
- (prevSelection size == 0
- and:[selectedMethodsHolder value size ~~ 0]) ifTrue:[
- "/ this happens during early startup time,
- "/ when the selection is already (pre-)set,
- "/ and the methodList is generated the first time
- "/ (i.e. when opened with preset selection
-
- "/ do not clobber the selection in this case.
- prevSelection := selectedMethodsHolder value.
- ].
-
- (methodList size == 0 or:[prevSelection size == 0]) ifTrue:[
- newSelection := #()
- ] ifFalse:[
- methodSet := methodList.
-
- "/ inclusion test is much faster with sets, if the number of items is large
- methodList size > 30 ifTrue:[
- "/ however, only if its worth building the set ...
- prevSelection size > 5 ifTrue:[
- methodSet := methodSet asIdentitySet.
- ]
- ].
- newSelection := prevSelection select:[:item | methodSet includesIdentical:item].
- ].
- newSelection size > 0 ifTrue:[
- newSelection size > 100 ifTrue:[
- "/ need selection indices - might be expensive if done straight forward...
- reverseMap := IdentityDictionary new.
- methodList keysAndValuesDo:[:idx :mthd | reverseMap at:mthd put:idx].
- newSelIdx := newSelection collect:[:mthd | reverseMap at:mthd].
- ] ifFalse:[
- newSelIdx := newSelection collect:[:mthd | methodList identityIndexOf:mthd]
- ].
-"/ self halt.
- "/ force change (for dependents)
- newSelIdx ~= selectedMethodNameIndices value ifTrue:[
- selectedMethodNameIndices value:newSelIdx.
- ].
- ] ifFalse:[
- lastSelectedMethods := selectedMethodsHolder value.
- lastSelectedMethods notNil ifTrue:[
- lastSelectedMethods := lastSelectedMethods asOrderedCollection
- ].
- selectedMethodNameIndices value size > 0 ifTrue:[
- selectedMethodNameIndices value:#().
- ]
- ].
-
- newSelection ~= prevSelection ifTrue:[
- self selectionChanged.
- ]
- ] ifTrue:[
- "/ same list - but classes might have changed
- "/ that is the case, if the class selection has been changed,
- "/ to another class which has the same categories.
-
- (prevClasses size ~= classes size
- or:[prevClasses asOrderedCollection ~= (classes ? #()) asOrderedCollection ]) ifTrue:[
- (newListSize > 0 or:[oldListSize > 0]) ifTrue:[
- self selectionChanged.
- ]
- ]
- ]
- "/ ].
-
- "Modified: / 05-03-2007 / 16:07:24 / cg"
-!
-
-updateListEntryFor:aMethod
- "update my list for a single method.
- (used when a single methods package, code or whatever changes, and a full udpate
- would be too slow)"
-
- |s idx|
-
- s := self
- listEntryForMethod:aMethod
- selector:aMethod selector
- class:aMethod mclass
- showClass:lastShowClass
- showCategory:lastShowCategory
- classFirst:lastShowClassFirst
- suppressInheritanceInfo:false.
-
- idx := methodList identityIndexOf:aMethod.
- idx == 0 ifTrue:[
- aMethod isWrapped ifTrue:[
- idx := methodList identityIndexOf:aMethod originalMethod.
- idx == 0 ifTrue:[
- "/ aMethod (wrapped) has changed its status, but is not in the list.
- ^ self.
- ].
- ]
- ].
- idx == 0 ifTrue:[
- "/ method was not previously shown; try to avoid a full update
- (self isMethodToBeShown:aMethod) ifTrue:[
- self invalidateList
- ].
- ] ifFalse:[
- self browserNameList at:idx put:s.
- ]
-
- "Modified: / 17-08-2011 / 15:05:02 / cg"
-! !
-
-!MethodList methodsFor:'private-presentation'!
-
-colorForCoverageInformationOfMethod:aMethod
- aMethod isInstrumented ifFalse:[^ nil].
- aMethod category = 'documentation' ifTrue:[^ nil].
-
- aMethod hasBeenCalled ifTrue:[
- aMethod haveAllBlocksBeenExecuted ifTrue:[
- ^ UserPreferences current colorForInstrumentedFullyCoveredCode
- ].
- ^ UserPreferences current colorForInstrumentedPartiallyCoveredCode
- ].
- ^ UserPreferences current colorForInstrumentedNeverCalledCode
-
- "Created: / 30-04-2010 / 11:53:38 / cg"
-!
-
-listEntryForMethod:aMethod selector:selector class:cls showClass:showClass showCategory:showCategory classFirst:showClassFirst
- "answer a method list entry
- gimmics:
- adding a little image to breakPointed methods,
- inheritance indicators,
- highlight accessors of variable"
-
- ^ self
- listEntryForMethod:aMethod
- selector:selector
- class:cls
- showClass:showClass showCategory:showCategory
- classFirst:showClassFirst
- suppressInheritanceInfo:false
-!
-
-listEntryForMethod:aMethod selector:selector class:cls showClass:showClass showCategory:showCategory classFirst:showClassFirst suppressInheritanceInfo:suppressInheritanceInfo
- "answer a method list entry
- gimmics:
- adding a little image to breakPointed methods,
- inheritance indicators,
- highlight accessors of variable"
-
- |s icn variablesToHighlight classVarsToHighLight
- doHighLight doHighLightRed clr emp cat l redefIcon
- metrics complexity complexityString complexityIcon mark lastResultOrNil|
-
- aMethod isNil ifTrue:[
- "/ a non-existing (pseudo) method (such as required protocol)
- ^ selector colorizeAllWith:Color red.
- ].
-
- showClassFirst ifTrue:[
- s := aMethod printStringForBrowserWithSelector:selector allBold inClass:cls.
- s := cls nameInBrowser , ' ' , s
- ] ifFalse:[
- s := aMethod printStringForBrowserWithSelector:selector inClass:cls.
- ].
-
- "/
- "/ wrap icons (i.e. break- or trace points)
- "/ have higher prio ...
- "/
- (aMethod notNil and:[aMethod isWrapped]) ifTrue:[
- (s endsWith:' !!') ifTrue:[
- s := s copyWithoutLast:2
- ].
- aMethod isBreakpointed ifTrue:[
- icn := self stopIcon
- ] ifFalse:[
- aMethod isTimed ifTrue:[
- icn := self timeIcon
- ] ifFalse:[
- icn := self traceIcon
- ]
- ].
- ].
-
- icn isNil ifTrue:[
- self showImageResourceMethodsImages value ~~ false ifTrue:[
- (aMethod hasImageResource) ifTrue:[
- aMethod mclass isMeta ifTrue:[
- icn := aMethod valueWithReceiver:nil arguments:nil .
- ].
- ].
- ].
- ].
-
- icn isNil ifTrue:[
- showMethodTypeIcon value ~~ false ifTrue:[
- icn := self resourceIconForMethod:aMethod.
- ].
- icn isNil ifTrue:[
- aMethod isProtected ifTrue:[
- icn := self protectedMethodIcon
- ] ifFalse:[
- aMethod isPrivate ifTrue:[
- icn := self privateMethodIcon
- ] ifFalse:[
- (aMethod isIgnored) ifTrue:[
- icn := self ignoredMethodIcon
- ] ifFalse:[
- (aMethod isJavaMethod and:[aMethod isAbstract]) ifTrue:[
- icn := self abstractMethodIcon
- ]
- ]
- ]
- ].
- ].
- ].
- icn isNil ifTrue:[
- (selector startsWith:'test') ifTrue:[
- ((cls isSubclassOf:TestCase)
- and:[cls isAbstract not]) ifTrue:[
- "JV@2011-11-17: Show thumbs even if not all test were run"
-
- lastResultOrNil := cls rememberedOutcomeFor:selector.
- lastResultOrNil notNil ifTrue:[
- (lastResultOrNil result == TestResult statePass) ifTrue:[
- icn := SystemBrowser testCasePassedIcon
- ] ifFalse:[
- ((lastResultOrNil result == TestResult stateError)
- or:[ (lastResultOrNil result == TestResult stateFail) ]) ifTrue:[
- icn := SystemBrowser testCaseFailedIcon
- ]
- ]
- ].
- ].
- ]
- ].
-
- showClass ifTrue:[
- showClassFirst ifFalse:[
- s := s , ' [' , cls name allBold , ']'.
- ]
- ].
- showCategory ifTrue:[
- cat := aMethod category.
- cat notNil ifTrue:[
- s := s , ' {' , (cat "asText allItalic" colorizeAllWith:Color grey), '}'
- ]
- ].
-
- self showCoverageInformation value ifTrue:[
- clr := self colorForCoverageInformationOfMethod:aMethod.
- clr notNil ifTrue:[
- s := self colorize:s with:(#color->clr).
- "/ aMethod isInstrumented ifTrue:[
- "/ icn := self instrumentationIcon
- "/ ].
- ].
- ] ifFalse:[
- (ChangeSet current includesChangeForClass:cls selector:selector) ifTrue:[
- mark := self class markForBeingInChangeList.
- "/ mark := self colorizeForChangedCode:mark.
- s := s , mark.
- "/ cg: I dont know why this was disabled - it is req'd to
- "/ see changed methods in a method list (implementors...)
- s := self colorizeForChangedCode:s.
- ].
-
- (SmallTeam notNil and:[SmallTeam includesChangeForClass:cls selector:selector]) ifTrue:[
- s := (self colorizeForChangedCodeInSmallTeam:'!! '),s
- ].
- ].
-
- variablesToHighlight := variableFilter value.
- variablesToHighlight size > 0 ifTrue:[
- classVarsToHighLight := filterClassVars value.
- classVarsToHighLight ifTrue:[
- doHighLight := self method:aMethod includesRefsToClassVariable:variablesToHighlight.
- doHighLight ifTrue:[
- doHighLightRed := self method:aMethod includesModsOfClassVariable:variablesToHighlight.
- ].
- ] ifFalse:[
- doHighLight := self method:aMethod includesRefsToInstanceVariable:variablesToHighlight.
- doHighLight ifTrue:[
- doHighLightRed := self method:aMethod includesModsOfInstanceVariable:variablesToHighlight
- ]
- ].
- doHighLight ifTrue:[
- s := s allBold.
- doHighLightRed ifTrue:[
- emp := (UserPreferences current emphasisForWrittenVariable)
- ] ifFalse:[
- emp := (UserPreferences current emphasisForReadVariable)
- ].
- s := s emphasisAllAdd:emp
- ]
- ].
-
- (showMethodComplexity value == true
- and:[ OOM::MethodMetrics notNil ]) ifTrue:[
- icn isNil ifTrue:[
- metrics := OOM::MethodMetrics forMethod:aMethod.
- complexity := metrics complexity ? 0.
- complexityIcon := OOM::MethodMetrics iconForComplexity:complexity.
-
- ShowComplexityValue == true ifTrue:[
- complexityString := '{' , complexity printString , '}'.
- s := complexityString , ' ' , s.
- ].
- "/ icn := icn ? complexityIcon.
- s := LabelAndIcon icon:complexityIcon string:s.
- ].
- ].
-
- (showMethodInheritance value ? true) ifTrue:[
- suppressInheritanceInfo ifTrue:[
- redefIcon := self methodEmptyInheritedIcon.
- ] ifFalse:[
- redefIcon := self redefinedOrInheritedIconFor:aMethod.
- ].
- ].
-
- (icn notNil or:[redefIcon notNil]) ifTrue:[
- "/eXept version
- "/l := LabelAndIcon icon:redefIcon string:s.
- "/l image:icn.
- "/JV:
- l := LabelAndIcon icon:icn string:s.
- l image:redefIcon.
- icn isNil ifTrue:[l offset: 13].
- l gap:1.
- ^ l
- ].
- ^ s
-
- "Created: / 22-10-1996 / 19:51:00 / cg"
- "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
- "Modified: / 17-11-2011 / 20:51:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 07-03-2012 / 19:06:09 / cg"
-! !
-
-!MethodList methodsFor:'private-watching'!
-
-startWatchProcess
- updateProcess notNil ifTrue:[
- ^ self
- ].
- updateProcess := [
- [true] whileTrue:[
- Delay waitForSeconds:1.
- self enqueueDelayedUpdateList
- ]
- ] fork.
-!
-
-stopWatchProcess
- |p|
-
- (p := updateProcess) notNil ifTrue:[
- updateProcess := nil.
- p terminate
- ].
-! !
-
-!MethodList methodsFor:'setup'!
-
-postBuildWith:aBuilder
- |methodListView|
-
- super postBuildWith:aBuilder.
-
- methodListView := aBuilder componentAt:'List'.
- methodListView notNil ifTrue:[
- methodListView allowDrag:true.
- methodListView dragObjectConverter:[:obj |
- |nm method idx|
-
- nm := obj theObject asString string string.
- idx := browserNameList value findFirst:[:item | item string string = nm].
- method := methodList value at:idx.
- DropObject newMethod:method.
- ].
- ]
-! !
-
-!MethodList class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.75 2012-12-17 10:45:26 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.75 2012-12-17 10:45:26 cg Exp $'
-! !
--- a/Tools_NamespaceList.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,565 +0,0 @@
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-BrowserList subclass:#NamespaceList
- instanceVariableNames:'namespaceNameList namespaceList'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!NamespaceList class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- I implement the namespace list in the new system browser
-"
-! !
-
-!NamespaceList class methodsFor:'interface specs'!
-
-singleNameSpaceWindowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:ClassCategoryList andSelector:#singleCategoryWindowSpec
- ClassCategoryList new openInterface:#singleCategoryWindowSpec
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #singleNameSpaceWindowSpec
- #window:
- #(#WindowSpec
- #label: 'NameSpaceList'
- #name: 'NameSpaceList'
- #min: #(#Point 0 0)
- #max: #(#Point 1024 721)
- #bounds: #(#Rectangle 218 175 518 475)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'NameSpaceName'
- #name: 'NameSpaceLabel'
- #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)
- #translateLabel: true
- #labelChannel: #nameSpaceLabelHolder
- #menu: #menuHolder
- )
- )
-
- )
- )
-!
-
-windowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:ProjectList andSelector:#windowSpec
- ProjectList new openInterface:#windowSpec
- ProjectList open
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'NamespaceList'
- #name: 'NamespaceList'
- #min: #(#Point 0 0)
- #bounds: #(#Rectangle 13 23 313 323)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SequenceViewSpec
- #name: 'List'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #tabable: true
- #model: #selectedNamespaces
- #menu: #menuHolder
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #isMultiSelect: true
- #valueChangeSelector: #selectionChangedByClick
- #useIndex: false
- #sequenceList: #nameSpaceList
- #doubleClickChannel: #doubleClickChannel
- #properties:
- #(#PropertyListDictionary
- #dragArgument: nil
- #dropArgument: nil
- #canDropSelector: #canDropContext:
- #dropSelector: #doDropContext:
- )
- )
- )
-
- )
- )
-
- "Created: / 18.2.2000 / 01:06:05 / cg"
- "Modified: / 18.2.2000 / 01:24:50 / cg"
-! !
-
-!NamespaceList class methodsFor:'queries-plugin'!
-
-aspectSelectors
- ^ #(
- #(#doubleClickChannel #action )
- immediateUpdate
- selectedNamespaces
- menuHolder
- inGeneratorHolder
- outGeneratorHolder
- selectionChangeCondition
- updateTrigger
- forceGeneratorTrigger
- hideUnloadedClasses
- showAllClassesInNameSpaceOrganisation
- organizerMode
- slaveMode
- )
-
- "Created: / 18-02-2000 / 01:06:27 / cg"
- "Modified: / 05-03-2007 / 16:47:45 / cg"
-! !
-
-!NamespaceList methodsFor:'aspects'!
-
-itemList
- ^ self nameSpaceList value
-!
-
-nameSpaceLabelHolder
- ^ self pseudoListLabelHolder
-!
-
-nameSpaceList
- namespaceList isNil ifTrue:[
- namespaceList := ValueHolder new
- ].
- ^ namespaceList
-
- "Created: / 18.2.2000 / 00:59:01 / cg"
-!
-
-selectedNamespaces
- ^ self selectionHolder
-
-!
-
-selectedNamespaces:aValueHolder
- ^ self selectionHolder:aValueHolder
-
-! !
-
-!NamespaceList methodsFor:'change & update'!
-
-delayedUpdate:something with:aParameter from:changedObject
-
- self inSlaveModeOrInvisible
- ifTrue:[
- changedObject == Smalltalk ifTrue:[
- something == #classComment ifTrue:[^ self].
- ].
- self invalidateList.
- ^ self
- ].
-
- changedObject == slaveMode ifTrue:[
- listValid ~~ true ifTrue:[
- self enqueueDelayedUpdateList
- ].
- "/ self invalidateList.
- ^ self
- ].
-
- changedObject == Smalltalk ifTrue:[
- something == #newClass ifTrue:[
- listValid == true ifTrue:[
- aParameter isNameSpace ifTrue:[
- (namespaceList value includes:aParameter name) ifFalse:[
- self invalidateList.
- ]
- ].
- ].
- ^ self
- ].
- something == #classRemove ifTrue:[
- listValid == true ifTrue:[
- aParameter isNameSpace ifTrue:[
- self invalidateList.
- ].
- ].
- ^ self
- ].
- ^ self
- ].
-
- super delayedUpdate:something with:aParameter from:changedObject
-
- "Created: / 18.2.2000 / 01:00:07 / cg"
- "Modified: / 26.2.2000 / 01:10:46 / cg"
-!
-
-selectionChangedByClick
- "we are not interested in that - get another notification
- via the changed valueHolder"
-
- "Created: / 18.2.2000 / 01:00:14 / cg"
-!
-
-update:something with:aParameter from:changedObject
- changedObject == Smalltalk ifTrue:[
- something == #methodDictionary ifTrue:[
- ^ self
- ].
- something == #methodTrap ifTrue:[
- ^ self
- ].
- something == #methodCoverageInfo ifTrue:[
- ^ self
- ].
- something == #methodInClass ifTrue:[
- ^ self
- ].
- something == #classVariables ifTrue:[
- ^ self
- ].
- something == #classComment ifTrue:[
- ^ self.
- ].
- something == #methodInClassRemoved ifTrue:[
- ^ self.
- ].
- ].
- super update:something with:aParameter from:changedObject
-
- "Modified: / 20-07-2011 / 18:55:12 / cg"
-! !
-
-!NamespaceList methodsFor:'drag & drop'!
-
-canDropContext:aDropContext
- |objects nameSpace|
-
- objects := aDropContext dropObjects collect:[:obj | obj theObject].
- (objects conform:[:aMethodOrClass | aMethodOrClass isClass ]) ifFalse:[^ false].
-
- nameSpace := self nameSpaceAtTargetPointOf:aDropContext.
- nameSpace isNil ifTrue:[^ false].
- nameSpace = self class nameListEntryForALL ifTrue:[^ false].
-
- ^ (objects contains:[:aClass | aClass nameSpace name ~= nameSpace])
-!
-
-doDropContext:aDropContext
- |nameSpaceName nameSpace objects|
-
- objects := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
- (objects conform:[:something | something isClass]) ifTrue:[
- nameSpaceName := self nameSpaceAtTargetPointOf:aDropContext.
- (nameSpaceName notNil
- and:[ nameSpaceName ~= self class nameListEntryForALL]) ifTrue:[
- nameSpace := NameSpace name:nameSpaceName.
- objects do:[:eachClassToMove |
- |className|
-
- className := eachClassToMove nameWithoutPrefix.
- nameSpace == Smalltalk ifTrue:[
- Smalltalk renameClass:eachClassToMove to:className asSymbol.
- ] ifFalse:[
- Smalltalk renameClass:eachClassToMove to:(nameSpace name , '::' , className) asSymbol.
- nameSpace changed.
- ].
- ].
- Smalltalk changed.
- ].
- ^ self
- ].
-!
-
-nameSpaceAtTargetPointOf:aDropContext
- |p targetView lineNr item|
-
- p := aDropContext targetPoint.
-
- targetView := aDropContext targetWidget.
-
- lineNr := targetView yVisibleToLineNr:p y.
- lineNr isNil ifTrue:[^ nil].
-
- item := self itemList at:lineNr.
- item isNil ifTrue:[^ nil].
-
- ^ item
-! !
-
-!NamespaceList methodsFor:'generators'!
-
-makeGenerator
- "return a generator which enumerates the classes from the selected namespace(s)."
-
- |spaceNames hideUnloadedClasses showAllClasses showChangedClasses|
-
- spaceNames := self selectedNamespaces value.
- spaceNames size == 0 ifTrue:[
- ^ #()
- ].
-
- hideUnloadedClasses := self hideUnloadedClasses value.
- showAllClasses := self showAllClassesInNameSpaceOrganisation value.
- showChangedClasses := spaceNames includes:(self class nameListEntryForChanged).
-
- (showAllClasses or:[spaceNames includes:(self class nameListEntryForALL)]) ifTrue:[
- hideUnloadedClasses ifTrue:[
- ^ Iterator on:[:whatToDo |
- Smalltalk allClassesDo:[:cls |
- cls isLoaded ifTrue:[
- cls isRealNameSpace ifFalse:[
- whatToDo value:cls
- ]
- ]
- ]
- ]
- ].
- ^ Iterator on:[:whatToDo |
- Smalltalk allClassesDo:whatToDo
- ]
- ].
-
- (spaceNames size == 1
- and:[spaceNames first = 'Smalltalk']) ifTrue:[
- "/ somewhat tuned - quick look if classes name includes colons ...
- ^ Iterator on:[:whatToDo |
- Smalltalk allClassesDo:[:cls |
- |includeIt|
-
- includeIt := (cls name includes:$:) not.
- includeIt := includeIt
- or:[(cls isPrivate not
- and:[(cls nameSpace == Smalltalk)])].
- includeIt := includeIt
- or:[(cls isPrivate
- and:[(cls topOwningClass nameSpace == Smalltalk)])].
-
- includeIt := includeIt
- and:[hideUnloadedClasses not or:[cls isLoaded]].
-
- includeIt := includeIt
- or:[ cls extensions
- contains:[:mthd |
- |sel parts|
- sel := mthd selector.
- (sel isNameSpaceSelector
- and:[ parts := sel nameSpaceSelectorParts.
- spaceNames includes:parts first])
- ]
- ].
-
- includeIt ifTrue:[
- cls isRealNameSpace ifFalse:[
- whatToDo value:cls
- ]
- ]
- ]
- ]
- ].
-
- ^ Iterator on:[:whatToDo |
- |changedClasses|
-
- showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses collect:[:cls | cls theNonMetaclass]].
-
- Smalltalk allClassesDo:[:cls |
- |spaceOfClass spaceNameOfClass includeIt|
-
- spaceOfClass := cls isPrivate ifTrue:[cls topOwningClass nameSpace] ifFalse:[cls nameSpace].
- spaceNameOfClass := spaceOfClass name.
-
- includeIt := spaceNames contains:[:nm | nm = spaceNameOfClass
- or:[spaceNameOfClass startsWith:(nm , '::')]].
- includeIt ifFalse:[
- (showChangedClasses and:[ (changedClasses includes:cls theNonMetaclass) ]) ifTrue:[
- includeIt := true
- ].
- ].
- hideUnloadedClasses ifTrue:[
- includeIt := includeIt and:[cls isLoaded].
- ].
- includeIt ifTrue:[
- cls isRealNameSpace ifFalse:[
- whatToDo value:cls
- ]
- ]
- ]
- ]
-
- "Created: / 18-02-2000 / 01:01:58 / cg"
- "Modified: / 05-03-2007 / 23:01:21 / cg"
-! !
-
-!NamespaceList methodsFor:'private'!
-
-defaultSlaveModeValue
- |mode|
-
- mode := self topApplication perform:#initialOrganizerMode ifNotUnderstood:nil.
- mode == OrganizerCanvas organizerModeNamespace ifTrue:[^ false].
-"/ self organizerMode value == OrganizerCanvas organizerModeCategory ifTrue:[^ true].
-"/ ^ false
- mode isNil ifTrue:[^ false].
- ^ true
-!
-
-initialOrganizerMode
- ^ OrganizerCanvas organizerModeNamespace
-!
-
-listOfNamespaces
- |allNamespaces showAllNamespaces generator|
-
- showAllNamespaces := false. "/ only topLevel namespaces are shown
- showAllNamespaces := true.
-
- allNamespaces := IdentitySet new.
-
- inGeneratorHolder isNil ifTrue:[
- (self hideUnloadedClasses value) ifTrue:[
- Smalltalk allClassesDo:[:eachClass |
- eachClass isLoaded ifTrue:[
- allNamespaces add:(eachClass theNonMetaclass topNameSpace)
- ].
- ]
- ] ifFalse:[
- allNamespaces := NameSpace allNameSpaces.
- ].
-
- showAllNamespaces ifFalse:[
- "/ only topLevel namespaces are shown
- "/ i.e. ignore subspaces
-
- allNamespaces := allNamespaces select:[:ns | ns isTopLevelNameSpace].
- ].
- "/JV@2011-12-04: Do not show java packages, they are all shown
- "/when JAVA namespace is shown. Use #askFor: here, as eXept's libbasic
- "/does not have #isJavaPackage
- allNamespaces := allNamespaces reject:[:ns | ns askFor: #isJavaPackage ].
-
- allNamespaces := allNamespaces collect:[:ns | ns name].
- ] ifFalse:[
- generator := inGeneratorHolder value.
- generator isNil ifTrue:[^ #() ].
- generator do:[:ns | allNamespaces add:ns].
- ].
-
- allNamespaces := allNamespaces asOrderedCollection.
- allNamespaces sort.
- allNamespaces size == 1 ifTrue:[
- self nameSpaceLabelHolder value:(LabelAndIcon icon:(self class nameSpaceIcon) string:allNamespaces first).
- ].
-
-"/ for now: disabled, because it gets replicated into the nameSpace filter, which
-"/ does not (yet) handle it correctly
-"/ numClassesInChangeSet := ChangeSet current changedClasses size.
-"/ numClassesInChangeSet > 0 ifTrue:[
-"/ "/ dont include count - makeGenerator compares against the un-expanded nameListEntry (sigh - need two lists)
-"/ allNamespaces addFirst:((self class nameListEntryForChanged "bindWith:numClassesInChangeSet") allItalic).
-"/ ].
-
- allNamespaces addFirst:(self class nameListEntryForALL allItalic).
- ^ allNamespaces
-
- "Created: / 18-02-2000 / 01:04:27 / cg"
- "Modified: / 25-02-2000 / 22:11:29 / cg"
- "Modified: / 04-12-2011 / 12:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-makeDependent
- Smalltalk addDependent:self
-
- "Created: / 18.2.2000 / 01:04:36 / cg"
-!
-
-makeIndependent
- Smalltalk removeDependent:self.
-
- "Created: / 18.2.2000 / 01:04:42 / cg"
-!
-
-updateList
- |newList oldSelection newSelection selectedNamespacesHolder|
-
- selectedNamespacesHolder := self selectedNamespaces.
- oldSelection := selectedNamespacesHolder value.
- newList := self listOfNamespaces.
- newList ~= namespaceList value ifTrue:[
-"/ oldSelection size > 0 ifTrue:[
-"/ selectedNamespacesHolder removeDependent:self.
-"/ selectedNamespacesHolder value:#().
-"/ selectedNamespacesHolder addDependent:self.
-"/ ].
- self nameSpaceList value:newList.
-
- oldSelection size > 0 ifTrue:[
- newSelection := oldSelection select:[:nm |
- (nm = self class nameListEntryForALL)
- or:[ (Smalltalk at:nm asSymbol) isNameSpace]
- ].
- newSelection ~= oldSelection ifTrue:[
- selectedNamespacesHolder value:newSelection.
- ]
- ]
- ].
- listValid := true.
-! !
-
-!NamespaceList class methodsFor:'documentation'!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.20 2012-10-20 19:36:38 cg Exp $'
-! !
--- a/Tools_NavigationState.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,1691 +0,0 @@
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-Object subclass:#NavigationState
- instanceVariableNames:'browserLabel codeModifiedHolder categoryList classList
- packageFilter nameSpaceFilter hidePrivateClasses canvasType
- notMetaToggle metaToggle metaToggleLabel organizerMode codeAspect
- codeHolder classDocumentationHolder canvas selectorListGenerator
- protocolListGenerator classListPerNameSpaceGenerator
- classListGenerator categoryListGenerator nameSpaceListGenerator
- projectListGenerator classHierarchyTopClass meta selectedMethods
- selectedProtocols selectedClasses selectedCategories
- selectedProjects selectedNamespaces selectedLintRules
- variableFilter filterClassVars sortBy noAllItem autoSearchPattern
- autoSearchIgnoreCase autoSearchAction realModifiedStateHolder
- methodInfo versionDiffApplication selectorListGeneratorArray
- selectedMethodsArray infoLabelHolder packageLabelHolder
- cursorLineLabelHolder cursorColLabelHolder modeLabelHolder
- sortVariablesBy editModeHolder scrollableCodeView specialEditors
- selectedEditorNoteBookTabIndexHolder editorNoteBookListHolder
- editorNoteBookCanvasHolder codeView stringSearchToolView
- noteBookView inheritanceView documentationView languageHolder
- messageSpecHolder messageHolder progressHolder tabContentView
- messagePaneView codePaneAndPluginView
- codePaneAndPluginViewRelativeCorners pluginVisibleHolder
- bookmarkHolder worker packageInfoBackgroundColorHolder
- packageInfoButton showMethodTemplate showingParseError'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!NavigationState class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-! !
-
-!NavigationState methodsFor:'accessing'!
-
-autoSearchAction
- ^ autoSearchAction
-!
-
-autoSearchAction:something
- autoSearchAction := something.
-!
-
-autoSearchIgnoreCase
- "return true if the autSearch is to be case-insensitive"
-
- ^ autoSearchIgnoreCase
-!
-
-autoSearchIgnoreCase:aBoolean
- "change the autSearches case-insensitivenes"
-
- autoSearchIgnoreCase := aBoolean
-!
-
-autoSearchPattern
- "return the automatic search pattern"
-
- ^ autoSearchPattern
-!
-
-autoSearchPattern:aPattern
- "change the automatic search pattern"
-
- autoSearchPattern := aPattern.
-!
-
-browserLabel
- "return the assigned state-label (to be shown in the tab)."
-
- ^ browserLabel
-!
-
-browserLabel:aString
- "set the assigned state-label (to be shown in the tab)."
-
- browserLabel := aString
-!
-
-canvas
- ^ canvas
-!
-
-canvas:something
- canvas := something.
- canvasType isNil ifTrue:[
- canvasType := something spec
- ].
-!
-
-canvasType
- "return the type of canvas"
-
- ^ canvasType
-!
-
-canvasType:aSpecSymbol
- "set the type of canvas"
-
- canvasType notNil ifTrue:[
- canvasType ~~ aSpecSymbol ifTrue:[
- self halt:'cannot be changed, once set'.
- ]
- ].
- canvasType := aSpecSymbol
-!
-
-codeAspect
- "return the codeAspect; a symbol describing what is shown in the codeView"
-
- ^ codeAspect
-
- "Created: / 11.2.2000 / 12:43:29 / cg"
-!
-
-codeAspect:aSymbolOrNil
- "set the codeAspect; a symbol describing what is shown in the codeView"
-
- codeAspect := aSymbolOrNil
-
- "Created: / 11.2.2000 / 12:43:45 / cg"
-!
-
-codePaneAndPluginView
- ^ codePaneAndPluginView
-!
-
-codePaneAndPluginView:something
- codePaneAndPluginView := something.
-!
-
-codePaneAndPluginViewRelativeCorners
- codePaneAndPluginViewRelativeCorners ifNil:[
- codePaneAndPluginViewRelativeCorners := #(0.76 1.0)
- ].
- ^ codePaneAndPluginViewRelativeCorners
-
- "Modified: / 04-10-2010 / 08:20:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-codePaneAndPluginViewRelativeCorners: anArray
-
- codePaneAndPluginViewRelativeCorners := anArray.
-
- "Modified: / 04-10-2010 / 08:14:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-editorNoteBookCanvasHolder
- editorNoteBookCanvasHolder isNil ifTrue:[
- editorNoteBookCanvasHolder := nil asValue.
- ].
- ^ editorNoteBookCanvasHolder
-!
-
-editorNoteBookListHolder
- editorNoteBookListHolder isNil ifTrue:[
- editorNoteBookListHolder := #() asValue.
- ].
- ^ editorNoteBookListHolder
-!
-
-environment
- ^ Smalltalk
-!
-
-messagePaneView
- ^ messagePaneView
-!
-
-messagePaneView:something
- messagePaneView := something.
-!
-
-modified
- "check for modified code by asking the editTextView;
- this one returns true if ever modified - even if
- the modifications where undone in the editor
- (i.e. not really modified).
- Use #reallyModified if the contents should be compared
- against the original contents"
-
- |v|
-
- self realModifiedState == true ifTrue:[^ true].
- self anySpecialEditorModified ifTrue:[^ true].
-
- ^ (v := self codeView) notNil and:[v modified]
-!
-
-modified:aBoolean
- |codeView|
-
- (codeView := self codeView) notNil ifTrue:[
- codeView modified:aBoolean
- ].
- specialEditors notNil ifTrue:[
- specialEditors do:[:anEditor |
- anEditor application modified:aBoolean
- ].
- ].
-!
-
-noteBookView
- ^ noteBookView
-!
-
-noteBookView:something
- noteBookView := something.
-!
-
-realModifiedState
- ^ self realModifiedStateHolder value
-!
-
-realModifiedState:aBoolean
- self realModifiedStateHolder value:aBoolean
-!
-
-realModifiedStateHolder
- realModifiedStateHolder isNil ifTrue:[
- realModifiedStateHolder := ValueHolder new.
- ].
- ^ realModifiedStateHolder
-!
-
-selectedEditorNoteBookTabIndexHolder
- selectedEditorNoteBookTabIndexHolder isNil ifTrue:[
- selectedEditorNoteBookTabIndexHolder := 1 asValue.
- ].
- ^ selectedEditorNoteBookTabIndexHolder
-!
-
-showMethodTemplate
- ^ showMethodTemplate ? true
-
- "Created: / 12-02-2012 / 08:49:32 / cg"
-!
-
-showMethodTemplate: aBoolean
- showMethodTemplate := aBoolean
-
- "Created: / 12-02-2012 / 08:49:45 / cg"
-!
-
-showingParseError
- ^ showingParseError
-!
-
-showingParseError:something
- showingParseError := something.
-!
-
-stringSearchToolView
- ^ stringSearchToolView
-!
-
-stringSearchToolView: aStringSearchTool
-
- stringSearchToolView := aStringSearchTool
-!
-
-tabContentView
- ^ tabContentView
-!
-
-tabContentView:something
- tabContentView := something.
-!
-
-worker
- ^ worker
-!
-
-worker:aProcess
- worker := aProcess.
-! !
-
-!NavigationState methodsFor:'accessing-selection'!
-
-theSingleSelectedClass
- "if only one class is selected, return it.
- Otherwise, return nil"
-
- |classes|
-
- classes := self selectedClasses value.
- classes size == 1 ifTrue:[
- ^ classes first
- ].
- ^ nil
-!
-
-theSingleSelectedMethod
- "if only one method is selected, return it.
- Otherwise, return nil"
-
- |methods|
-
- methods := self selectedMethods value.
- methods size == 1 ifTrue:[
- ^ methods first
- ].
- ^ nil
-! !
-
-!NavigationState methodsFor:'accessing-subApps'!
-
-applicationOfComponent:aComponentName
- ^ self applicationOfComponent:aComponentName or:nil
-
-!
-
-applicationOfComponent:aComponentName or:anotherComponentName
- |builder view|
-
- canvas isNil ifTrue:[^ nil].
-
- builder := canvas builder.
-
- view := builder findVisibleComponentAt:aComponentName.
- (view isNil and:[anotherComponentName notNil]) ifTrue:[
- view := builder findVisibleComponentAt:anotherComponentName.
- ].
-
- view notNil ifTrue:[
- ^ view application
- ].
- ^ nil
-!
-
-classCategoryListApplication
- ^ self applicationOfComponent:#ClassCategoryList
-
-!
-
-classHierarchyListApplication
- ^ self applicationOfComponent:#ClassHierarchyList
-!
-
-classListApplication
- ^ self applicationOfComponent:#ClassList
-
-!
-
-metaToggleComponent
- ^ canvas builder findComponentAt:#ClassToggle.
-!
-
-methodCategoryListApplication
- ^ self applicationOfComponent:#MethodCategoryList
-!
-
-methodListApplication
- ^ self applicationOfComponent:#MethodList
-!
-
-nameSpaceListApplication
- ^ self applicationOfComponent:#NamespaceList or:#PseudoNamespaceList
-!
-
-projectListApplication
- ^ self applicationOfComponent:#ProjectList or:#PseudoProjectList
-!
-
-variableListApplication
- ^ self applicationOfComponent:#VariableList
-!
-
-versionDiffApplication
- ^ versionDiffApplication
-
-!
-
-versionDiffApplication:anApplication
- versionDiffApplication := anApplication
-
-! !
-
-!NavigationState methodsFor:'accessing-subViews'!
-
-anySpecialEditorModified
- specialEditors notNil ifTrue:[
- ^ specialEditors contains:[:anEditor | anEditor application isModified].
- ].
- ^ false
-!
-
-codeView
- codeView isNil ifTrue:[
- codeView := self scrollableCodeView scrolledView
- ].
- ^ codeView
-!
-
-doSaveInSpecialEditors
- specialEditors notNil ifTrue:[
- specialEditors do:[:anEditor |
- anEditor application isModified ifTrue:[
- anEditor application save.
- ^ self.
- ]
- ].
- ].
-!
-
-documentationView
- |textView|
-
- documentationView isNil ifTrue:[
- textView := CodeView new.
- documentationView := HVScrollableView forView:textView.
- ].
- ^ documentationView
-!
-
-getCodeView
- ^ codeView
-!
-
-inheritanceView
- inheritanceView isNil ifTrue:[
- |classTreeView scrolledView|
-
- classTreeView := ClassTreeGraphView new.
- scrolledView := HVScrollableView forView:classTreeView.
- classTreeView middleButtonMenu:nil.
- inheritanceView := scrolledView
- ].
- ^ inheritanceView
-!
-
-methodCategoryList: aView
-
- | builder |
-
- builder := canvas builder.
- builder namedComponents at: #MethodCategoryList put: aView.
-
- "Created: / 08-08-2011 / 09:18:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-methodList: aView
-
- | builder |
-
- builder := canvas builder.
- builder namedComponents at: #MethodList put: aView.
-
- "Created: / 08-08-2011 / 15:32:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-packageInfoButton
- ^ packageInfoButton
-!
-
-packageInfoButton:something
- packageInfoButton := something.
-!
-
-scrollableCodeView
- scrollableCodeView isNil ifTrue:[
- scrollableCodeView := self setUpScrollableCodeView.
- ].
- ^ scrollableCodeView
-!
-
-setUpScrollableCodeView
- |v aScrollableCodeView codeView |
-
- (UserPreferences current useCodeView2In: #Browser) ifTrue:[
- codeView := aScrollableCodeView := CodeView2 new.
- codeView mode: #method.
- codeView methodHolder: self theSingleSelectedMethodHolder.
- codeView classHolder: self theSingleSelectedClassHolder.
- ] ifFalse:[
- aScrollableCodeView := HVScrollableView for:CodeView.
- codeView := aScrollableCodeView scrolledView.
- aScrollableCodeView horizontalMini:true.
- ].
-
- aScrollableCodeView name:'CodeView'.
- codeView modifiedChannel:self codeModifiedHolder.
- codeView model:self codeHolder.
- codeView canTab:true.
- UserPreferences current useCodeView2InTools ifTrue:[
- codeView
- classHolder:self theSingleSelectedClassFromMethodHolder;
- languageHolder:self languageHolder
- ].
-
- UserPreferences current showAcceptCancelBarInBrowser ifTrue:[
- ViewWithAcceptAndCancelBar notNil ifTrue:[
- v := ViewWithAcceptAndCancelBar new.
- v slaveView:aScrollableCodeView.
- v reallyModifiedHolder:self realModifiedStateHolder.
- v cancelAction:
- [
- "/ codeView setClipboardText:(codeView contents). "/ for undo
- codeView device rememberInCopyBufferHistory:(codeView contents). "/ for undo
- codeView application
- delayedUpdateCodeWithAutoSearch:false checkModified:false.
- codeView requestFocus.
- ].
- v compareAction:
- [
- codeView application doCompareIn:self.
- codeView requestFocus
- ].
- aScrollableCodeView := v.
- ]
- ].
-
- ^aScrollableCodeView
-
- "Modified: / 05-07-2011 / 10:34:33 / cg"
- "Modified: / 05-08-2011 / 09:44:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-specialEditorCanvasClassForResourceType:resourceTypeSymbol
- resourceTypeSymbol == #fileImage ifTrue:[
- ^ nil
- ].
- ^ SystemBrowser resourceEditorClassFor:resourceTypeSymbol
-!
-
-specialEditorCanvasForResourceType:resourceTypeSymbol
- |appClass app editorView|
-
- specialEditors isNil ifTrue:[
- specialEditors := Dictionary new.
- ].
- editorView := specialEditors at:resourceTypeSymbol ifAbsent:nil.
- editorView isNil ifTrue:[
- appClass := self specialEditorCanvasClassForResourceType:resourceTypeSymbol.
- appClass notNil ifTrue:[
- app := appClass new.
- app masterApplication:self canvas application.
- app isEmbeddedInBrowser:true.
- app infoLabelHolder:(self canvas application infoLabelHolder).
-
- editorView := ApplicationSubView new.
- editorView buildMenu:true.
- editorView client:app.
- app builder window:editorView.
-
- specialEditors at:resourceTypeSymbol put:editorView.
- ].
- ].
- ^ editorView
-! !
-
-!NavigationState methodsFor:'aspects'!
-
-bookmarkHolder
- "return/create the 'bookmarkHolder' value holder (automatically generated)"
-
- bookmarkHolder isNil ifTrue:[
- bookmarkHolder := ValueHolder with: self theSingleSelectedBookmarkFromMethodOrClass.
- self selectedMethods onChangeSend: #updateBookmarkHolder to: self.
- self selectedClasses onChangeSend: #updateBookmarkHolder to: self.
- ].
- ^ bookmarkHolder
-
- "Modified: / 03-06-2011 / 12:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-categoryList
- categoryList isNil ifTrue:[
- categoryList := nil asValue.
- ].
- ^ categoryList
-
- "Modified: / 25.2.2000 / 01:35:42 / cg"
- "Created: / 25.2.2000 / 01:57:45 / cg"
-!
-
-categoryListGenerator
- categoryListGenerator isNil ifTrue:[
- categoryListGenerator := nil asValue.
- ].
- ^ categoryListGenerator
-
- "Created: / 25.2.2000 / 01:34:30 / cg"
- "Modified: / 25.2.2000 / 01:35:42 / cg"
-!
-
-classDocumentationHolder
- classDocumentationHolder isNil ifTrue:[
- classDocumentationHolder := nil asValue.
- ].
- ^ classDocumentationHolder
-!
-
-classHierarchyTopClass
- classHierarchyTopClass isNil ifTrue:[
- classHierarchyTopClass := nil asValue.
- ].
- ^ classHierarchyTopClass
-
-!
-
-classList
- classList isNil ifTrue:[
- classList := nil asValue.
- ].
- ^ classList
-
- "Created: / 25.2.2000 / 01:57:28 / cg"
-!
-
-classListGenerator
- classListGenerator isNil ifTrue:[
- classListGenerator := nil asValue.
- ].
- ^ classListGenerator
-
-
-!
-
-classListPerNameSpaceGenerator
- classListPerNameSpaceGenerator isNil ifTrue:[
- classListPerNameSpaceGenerator := nil asValue.
- ].
- ^ classListPerNameSpaceGenerator
-
- "Created: / 18.8.2000 / 14:15:34 / cg"
-!
-
-codeHolder
- codeHolder isNil ifTrue:[
- codeHolder := nil asValue.
- ].
- ^ codeHolder
-
-!
-
-codeModifiedHolder
- codeModifiedHolder isNil ifTrue:[
- codeModifiedHolder := false asValue.
- ].
- ^ codeModifiedHolder
-!
-
-cursorColLabelHolder
- cursorColLabelHolder isNil ifTrue:[
-"/ self codeView isNil ifTrue:[^ nil].
-
- cursorColLabelHolder := BlockValue
- with:[:v | v printString]
- argument:self codeView cursorColHolder.
- ].
- ^ cursorColLabelHolder
-!
-
-cursorLineLabelHolder
- cursorLineLabelHolder isNil ifTrue:[
-"/ self codeView isNil ifTrue:[^ nil].
-
- cursorLineLabelHolder := BlockValue
- with:[:v | v printString]
- argument:self codeView cursorLineHolder.
- ].
- ^ cursorLineLabelHolder
-!
-
-editModeHolder
- editModeHolder isNil ifTrue:[
- editModeHolder := self codeView editModeHolder.
- ].
- ^ editModeHolder
-!
-
-filterClassVars
- filterClassVars isNil ifTrue:[
- filterClassVars := false asValue.
- ].
- ^ filterClassVars
-
- "Created: / 24.2.2000 / 23:45:28 / cg"
-!
-
-hidePrivateClasses
- hidePrivateClasses isNil ifTrue:[
- hidePrivateClasses := false asValue.
- ].
- ^ hidePrivateClasses
-
- "Created: / 24.2.2000 / 16:17:02 / cg"
-!
-
-infoLabelHolder
- infoLabelHolder isNil ifTrue:[
- infoLabelHolder := '' asValue.
- ].
- ^ infoLabelHolder
-!
-
-languageHolder
-
- languageHolder ifNil:[
- languageHolder := ValueHolder with: self theSingleSelectedLanguageFromMethodOrClass.
- self selectedMethods onChangeSend: #updateLanguageHolder to: self.
- self selectedClasses onChangeSend: #updateLanguageHolder to: self.
- ].
- ^languageHolder
-
- "Created: / 20-07-2010 / 16:03:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-lintRuleListGenerator
-
- | result |
- result := self objectAttributeAt: #lintRuleListGenerator.
- result ifNil:
- [result := ValueHolder new.
- self objectAttributeAt: #lintRuleListGenerator put: result].
- ^result
-
- "Created: / 22-07-2009 / 15:27:48 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-messageHolder
- "return/create the 'messageHolder' value holder (automatically generated)"
-
- messageHolder isNil ifTrue:[
- messageHolder := ValueHolder new.
- ].
- ^ messageHolder
-!
-
-messageHolder:aValueHolder
- "set the 'messageHolder' value holder (automatically generated)"
-
- messageHolder := aValueHolder.
-!
-
-messageSpecHolder
- "return/create the 'messageSpecHolder' value holder (automatically generated)"
-
- messageSpecHolder isNil ifTrue:[
- messageSpecHolder := ValueHolder with:#messageInfoSpec.
- ].
- ^ messageSpecHolder
-
- "Modified: / 28-08-2010 / 11:40:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-messageSpecHolder:something
- "set the 'messageSpecHolder' value holder (automatically generated)"
-
- messageSpecHolder := something.
-!
-
-meta
- meta isNil ifTrue:[
- meta := false asValue.
- ].
- ^ meta
-
-
-!
-
-metaToggleLabelHolder
- metaToggleLabel isNil ifTrue:[
- metaToggleLabel := 'Class' asValue.
- ].
- ^ metaToggleLabel
-!
-
-methodInfo
- methodInfo isNil ifTrue:[
- methodInfo := nil asValue.
- ].
- ^ methodInfo
-
-!
-
-methodList
- |methodListApplication|
-
- methodListApplication := self methodListApplication.
- methodListApplication isNil ifTrue:[^ nil].
-
- ^ methodListApplication methodList
-!
-
-modeLabelHolder
- modeLabelHolder isNil ifTrue:[
- modeLabelHolder := self codeView modeLabelHolder.
- ].
- ^ modeLabelHolder
-!
-
-nameSpaceFilter
- nameSpaceFilter isNil ifTrue:[
- nameSpaceFilter := nil asValue.
- ].
- ^ nameSpaceFilter
-
- "Created: / 18.8.2000 / 14:25:24 / cg"
-!
-
-nameSpaceListGenerator
- nameSpaceListGenerator isNil ifTrue:[
- nameSpaceListGenerator := nil asValue.
- ].
- ^ nameSpaceListGenerator
-
- "Created: / 18.8.2000 / 14:26:19 / cg"
- "Modified: / 18.8.2000 / 14:27:59 / cg"
-!
-
-navigationHistory
-
- | history |
- history := self objectAttributeAt: #navigationHistory.
- history ifNil:
- [history := NavigationHistory new.
- self objectAttributeAt: #navigationHistory put: history].
- ^history
-
- "Created: / 21-02-2008 / 20:08:43 / janfrog"
- "Modified: / 21-07-2009 / 22:39:57 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-noAllItem
- noAllItem isNil ifTrue:[
- noAllItem := nil asValue.
- ].
- ^ noAllItem
-!
-
-organizerMode
- "return the organizerMode holder;
- holding a symbol describing how things are organized
- (#category, #hierarchy, #project or #namespace)"
-
- organizerMode isNil ifTrue:[
- organizerMode := OrganizerCanvas organizerModeCategory asValue.
- ].
- ^ organizerMode
-
- "Created: / 18.2.2000 / 13:33:55 / cg"
- "Modified: / 18.8.2000 / 18:37:22 / cg"
-!
-
-packageFilter
- packageFilter isNil ifTrue:[
- packageFilter := nil asValue.
- ].
- ^ packageFilter
-
- "Created: / 24.2.2000 / 23:45:28 / cg"
-!
-
-packageInfoBackgroundColorHolder
-
- packageInfoBackgroundColorHolder isNil ifTrue:[
- packageInfoBackgroundColorHolder := nil asValue.
- ].
- ^ packageInfoBackgroundColorHolder
-
- "Created: / 03-10-2011 / 14:04:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-packageLabelHolder
- packageLabelHolder isNil ifTrue:[
- packageLabelHolder := '' asValue.
- ].
- ^ packageLabelHolder
-!
-
-pluginVisibleHolder
- pluginVisibleHolder isNil ifTrue:[
- pluginVisibleHolder := false asValue.
- ].
- ^ pluginVisibleHolder
-
- "Created: / 03-10-2010 / 17:50:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-profilerStatistics
-
- | statistics |
- statistics := self objectAttributeAt: #profilerStatistics.
- statistics ifNil:
- [statistics := ValueHolder new.
- self objectAttributeAt: #profilerStatistics put: statistics].
- ^statistics
-
- "Created: / 21-02-2008 / 20:08:43 / janfrog"
- "Modified: / 21-07-2009 / 22:40:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-profilerStatistics: anObject
-
- self objectAttributeAt: #profilerStatistics put: anObject
-
- "Created: / 21-02-2008 / 20:08:43 / janfrog"
- "Modified: / 21-07-2009 / 22:41:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-progressHolder
- "return/create the 'progressHolder' value holder (automatically generated)"
-
- progressHolder isNil ifTrue:[
- progressHolder := ValueHolder new.
- ].
- ^ progressHolder
-!
-
-progressHolder:aValueHolder
- "set the 'progressHolder' value holder (automatically generated)"
-
- progressHolder := aValueHolder.
-!
-
-projectListGenerator
- projectListGenerator isNil ifTrue:[
- projectListGenerator := nil asValue.
- ].
- ^ projectListGenerator
-
- "Modified: / 25.2.2000 / 01:35:42 / cg"
- "Created: / 25.2.2000 / 02:43:26 / cg"
-!
-
-protocolListGenerator
- protocolListGenerator isNil ifTrue:[
- protocolListGenerator := nil asValue.
- ].
- ^ protocolListGenerator
-
-!
-
-selectedCategories
- selectedCategories isNil ifTrue:[
- selectedCategories := nil asValue.
- ].
- ^ selectedCategories
-
-!
-
-selectedClasses
- "bad name- it's a holder, baby"
-
- selectedClasses isNil ifTrue:[
- selectedClasses := "SpecialValueHolder with:nil." nil asValue.
- ].
- ^ selectedClasses
-!
-
-selectedLintRules
- selectedLintRules isNil ifTrue:[
- selectedLintRules := nil asValue.
- ].
- ^ selectedLintRules
-
- "Modified: / 02-02-2010 / 20:42:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-selectedMethods
- selectedMethods isNil ifTrue:[
- selectedMethods := nil asValue.
- ].
- ^ selectedMethods
-
-!
-
-selectedMethodsArrayAt:index
- |holder|
-
- selectedMethodsArray isNil ifTrue:[
- selectedMethodsArray := OrderedCollection new
- ].
- index > selectedMethodsArray size ifTrue:[
- selectedMethodsArray grow:index
- ].
- holder := selectedMethodsArray at:index.
- holder isNil ifTrue:[
- selectedMethodsArray at:index put:(holder := ValueHolder new)
- ].
- ^ holder.
-!
-
-selectedNamespaces
- selectedNamespaces isNil ifTrue:[
- selectedNamespaces := nil asValue.
- ].
- ^ selectedNamespaces
-
-!
-
-selectedProjects
- selectedProjects isNil ifTrue:[
- selectedProjects := nil asValue.
- ].
- ^ selectedProjects
-
-!
-
-selectedProtocols
- selectedProtocols isNil ifTrue:[
- selectedProtocols := nil asValue.
- ].
- ^ selectedProtocols
-
-!
-
-selectorListGenerator
- selectorListGenerator isNil ifTrue:[
- selectorListGenerator := nil asValue.
- ].
- ^ selectorListGenerator
-
-!
-
-selectorListGeneratorArray
- self halt:'should not be invoked'.
-!
-
-selectorListGeneratorArrayAt:index
- |holder|
-
- selectorListGeneratorArray isNil ifTrue:[
- selectorListGeneratorArray := OrderedCollection new
- ].
- index > selectorListGeneratorArray size ifTrue:[
- selectorListGeneratorArray grow:index
- ].
- holder := selectorListGeneratorArray at:index.
- holder isNil ifTrue:[
- selectorListGeneratorArray at:index put:(holder := ValueHolder new)
- ].
- ^ holder.
-!
-
-sortBy
- sortBy isNil ifTrue:[
- sortBy := nil asValue.
- ].
- ^ sortBy
-!
-
-theSingleSelectedBookmarkFromMethodOrClass
-
- | mth cls |
-
- mth := self theSingleSelectedMethod.
- (mth notNil and:[mth mclass notNil])
- ifTrue:[^Tools::NewSystemBrowser bookmarkForClass:mth mclass selector:mth selector].
- cls := self theSingleSelectedClass.
- cls
- ifNotNil:[^Tools::NewSystemBrowser bookmarkForClass:cls selector:nil].
- ^nil
-
- "Created: / 02-06-2011 / 22:16:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 02-06-2011 / 23:19:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-theSingleSelectedClassFromMethodHolder
-
- ^BlockValue
- with:
- [:i1 :i2| | mth cls |
- mth := self theSingleSelectedMethod.
- cls := mth ifNil:[nil] ifNotNil:[mth mclass].
- cls ifNil:[
- cls := self theSingleSelectedClass].
- cls]
- argument: self selectedMethods
- argument: self selectedClasses.
-
- "Created: / 14-02-2010 / 10:05:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-theSingleSelectedClassHolder
-
- ^BlockValue
- with:
- [:i1 | self theSingleSelectedClass]
- argument:
- self selectedClasses
-
- "Created: / 05-08-2011 / 09:44:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-theSingleSelectedLanguageFromMethodOrClass
-
- | mth cls |
-
- mth := self theSingleSelectedMethod.
- mth ifNotNil:[^mth programmingLanguage].
- cls := self theSingleSelectedClass.
- cls ifNotNil:[^cls programmingLanguage].
- ^SmalltalkLanguage instance
-
- "Created: / 20-07-2010 / 15:59:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-theSingleSelectedMethodHolder
-
- ^BlockValue
- with:
- [:i1 | self theSingleSelectedMethod]
- argument:
- self selectedMethods
-
- "Created: / 17-06-2011 / 12:39:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-updateBookmarkHolder
-
- ^self bookmarkHolder value: self theSingleSelectedBookmarkFromMethodOrClass
-
- "Created: / 02-06-2011 / 22:13:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-updateLanguageHolder
-
- ^self languageHolder value: self theSingleSelectedLanguageFromMethodOrClass
-
- "Created: / 20-07-2010 / 16:05:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-variableFilter
- variableFilter isNil ifTrue:[
- variableFilter := nil asValue.
- ].
- ^ variableFilter
-
- "Created: / 24.2.2000 / 23:45:28 / cg"
-! !
-
-!NavigationState methodsFor:'aspects-kludges'!
-
-metaToggle
- metaToggle isNil ifTrue:[
- metaToggle := PluggableAdaptor on:(self meta).
- metaToggle
- getBlock:[:m | m value == true]
- putBlock:[:m :newValue | m value:(newValue ? false)]
- updateBlock:[:m :aspect :param | true].
- ].
- ^ metaToggle
-!
-
-notMetaToggle
- notMetaToggle isNil ifTrue:[
- notMetaToggle := PluggableAdaptor on:(self meta).
- notMetaToggle
- getBlock:[:m | m value == false]
- putBlock:[:m :newValue | m value:(newValue ? false) not]
- updateBlock:[:m :aspect :param | true].
- ].
- ^ notMetaToggle
-! !
-
-!NavigationState methodsFor:'history'!
-
-addToHistory: class selector: selector
-
- | entry |
- selector ifNil:[^self].
- entry := SystemBrowser historyEntryForClass: class selector: selector.
- self navigationHistory goTo: entry.
- ^entry
-
- "Created: / 22-02-2008 / 08:44:05 / janfrog"
- "Modified: / 22-02-2008 / 17:20:00 / janfrog"
- "Modified: / 25-10-2009 / 15:06:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!NavigationState methodsFor:'printing & storing'!
-
-colorizeForModifiedBuffer:someString
- ^ someString asText emphasisAllAdd:(UserPreferences current emphasisForModifiedBuffer)
-!
-
-nameString
- "a descriptive string of what this state shows"
-
- |s|
-
- s := self rawNameStringOrNil ? 'nothing selected'.
-
- (self realModifiedState == true) ifTrue:[
- ^ self colorizeForModifiedBuffer:s string
- ].
- ^ s
-!
-
-nameStringOrNil
- "a descriptive string of what this state shows"
-
- |s "codeView"|
-
- s := self rawNameStringOrNil.
- s notNil ifTrue:[
- self realModifiedState == true
-"/ ((codeView := self codeView) notNil
-"/ and:[codeView modified])
- ifTrue:[
- ^ self colorizeForModifiedBuffer:s string
- ].
- ].
- ^ s
-!
-
-rawNameStringForCategory
- |categories theCategory|
-
- categories := self selectedCategories value.
- categories size == 1 ifTrue:[
- theCategory := categories first.
- theCategory notNil ifTrue:[
- ^ theCategory string, ' [Category]'
- ].
- ].
- ^ nil
-
- "Created: / 18.8.2000 / 19:42:42 / cg"
-!
-
-rawNameStringForNameSpace
- |namespaces theNamespace nsName s|
-
- namespaces := self selectedNamespaces value.
- namespaces size == 1 ifTrue:[
- theNamespace := namespaces first
- ].
- theNamespace notNil ifTrue:[
- theNamespace isNameSpace ifTrue:[
- nsName := theNamespace name
- ] ifFalse:[
- nsName := theNamespace
- ].
- s := nsName , ' [NameSpace]'.
- (self isNameSpaceBrowser or:[self isNameSpaceFullBrowser]) ifTrue:[
- ^ LabelAndIcon icon:(NewSystemBrowser nameSpaceIcon) string:s.
- ].
- ^ s
- ].
- ^ nil
-
- "Created: / 18.8.2000 / 20:15:02 / cg"
-!
-
-rawNameStringForProject
- |projects theProject s|
-
- projects := self selectedProjects value.
- projects size == 1 ifTrue:[
- theProject := projects first
- ].
- theProject notNil ifTrue:[
- s := theProject , ' [Project]'.
- (self isProjectBrowser or:[self isProjectFullBrowser]) ifTrue:[
- ^ LabelAndIcon icon:(NewSystemBrowser packageIcon) string:s.
- ].
- ^ s
- ].
- ^ nil
-
- "Created: / 18.8.2000 / 20:18:34 / cg"
-!
-
-rawNameStringOrNil
- "a descriptive string of what this state shows; nil, if nothing is selected"
-
- ^ self rawNameStringOrNilWantShort:false
-!
-
-rawNameStringOrNilWantShort:shortName
- "a descriptive string of what this state shows; nil, if nothing is selected"
-
- |lbl nr numClasses numMethods numCategories cats classes theClass
- "protocols theProtocol"
- methods theSingleMethod projects theProject longName nm methodName suffix cls|
-
- browserLabel notNil ifTrue:[
- "/ add the number of selected methods
- ((canvasType == #singleFullProtocolBrowserSpec)
- or:[canvasType == #methodListBrowserSpec]) ifTrue:[
- nr := self selectedMethods value size.
- nr > 5 ifTrue:[
- ^ browserLabel string , ' - ' , nr printString , ' methods'
- ].
- ].
- ^ browserLabel
- ].
-
- suffix := ''.
-
- self isProtocolOrFullProtocolBrowser ifTrue:[
- lbl := self rawNameStringForProject.
- lbl notNil ifTrue:[^ lbl].
- suffix := ' [Protocol]'.
- ].
-
- self isCategoryBrowser ifTrue:[
- lbl := self rawNameStringForCategory.
- lbl notNil ifTrue:[^ lbl].
- suffix := ' [Category]'.
- ].
-
- self isNameSpaceBrowser ifTrue:[
- lbl := self rawNameStringForNameSpace.
- lbl notNil ifTrue:[^ lbl].
- suffix := ' [NameSpace]'.
- ].
-
- self isProjectBrowser ifTrue:[
- projects := self selectedProjects value.
- projects size == 1 ifTrue:[
- theProject := projects first
- ].
- suffix := ' [Project]'.
- theProject notNil ifTrue:[
- ^ theProject , suffix
- ]
- ].
-
- classes := self selectedClasses value.
- classes size == 1 ifTrue:[
- theClass := classes first.
- theClass notNil ifTrue:[
- theClass := theClass theNonMetaclass
- ]
- ].
-
- self isClassBrowser ifTrue:[
- suffix := ' [Class]'.
- theClass notNil ifTrue:[
- ^ theClass name , suffix
- ]
- ].
-
-"/ protocols := self selectedProtocols value.
-"/ protocols size == 1 ifTrue:[
-"/ theProtocol := protocols first
-"/ ].
-
- methods := self selectedMethods value.
- methods size == 1 ifTrue:[
- theSingleMethod := methods first
- ].
-
- theSingleMethod notNil ifTrue:[
- methodName := theSingleMethod selector.
- methodName isSymbol ifTrue:[methodName := methodName selector].
- theSingleMethod isJavaMethod ifTrue:[
- methodName := theSingleMethod printStringForBrowserWithSelector:methodName.
- ].
- ].
-
- self isMethodBrowser ifTrue:[
- suffix := ' [Selector]'.
-
- theSingleMethod notNil ifTrue:[
- theSingleMethod mclass isNil ifTrue:[
- ^ '???'
- ].
- ^ theSingleMethod mclass name , ' ' , methodName , suffix
- ]
- ].
-
- self isCategoryBrowser ifTrue:[
- suffix := ' [Category]'.
- ] ifFalse:[
- self isFullClassSourceBrowser ifTrue:[
- suffix := ' [Full]'.
- ] ifFalse:[
- self isClassDocumentationBrowser ifTrue:[
- suffix := ' [Doc]'.
- ] ifFalse:[
- self isProjectBrowser ifTrue:[
- suffix := ' [Project]'.
- ]
- ]
- ]
- ].
-
- nm := nil.
- (numClasses := classes size) > 0 ifTrue:[
- numClasses > 1 ifTrue:[
- methods size > 0 ifTrue:[
- theSingleMethod notNil ifTrue:[
- cls := theSingleMethod mclass.
- cls isNil ifTrue:[
- "/ oops - unbound
- nm := '???'
- ] ifFalse:[
- longName := nm := cls nameInBrowser.
- shortName ifTrue:[
- nm := cls nameWithoutPrefix.
- cls isPrivate ifTrue:[
- nm := ':' , nm
- ]
- ].
- ].
- nm := nm , ' ', (methodName ? '???')
- ] ifFalse:[
- nm := methods size printString , ' methods'.
- numClasses := (methods collect:[:each | each mclass]) asIdentitySet size.
- numClasses > 1 ifTrue:[
- nm := nm , ' in ' , numClasses printString , ' classes'.
- ].
- ].
- ^ nm , suffix.
- ].
-
- nm := numClasses printString , ' classes in '.
- "/ cats := self selectedCategories value
- cats := classes collect:[:each | each category] as:Set.
- (numCategories := cats size) == 1 ifTrue:[
- nm := nm , cats first
- ] ifFalse:[
- nm := nm , numCategories printString , ' categories'
- ]
- ] ifFalse:[
- cls := theClass theNonMetaclass.
- longName := nm := cls nameInBrowser.
- shortName ifTrue:[
- nm := cls nameWithoutPrefix.
- cls isPrivate ifTrue:[
- nm := ':' , nm
- ]
- ].
- methods := self selectedMethods value.
- (numMethods := methods size) > 0 ifTrue:[
- numMethods == 1 ifTrue:[
- theSingleMethod := methods first.
- nm := nm , ' ', (methodName ? '???')
- ] ifFalse:[
- nm := numMethods printString , ' methods in ' , nm
- ]
- ]
- ]
- ] ifFalse:[
- (self isNameSpaceBrowser
- or:[self isNameSpaceFullBrowser
- or:[organizerMode value == OrganizerCanvas organizerModeNamespace]]) ifTrue:[
- lbl := self rawNameStringForNameSpace.
- lbl notNil ifTrue:[^ lbl].
- suffix := ' [NameSpace]'.
- ] ifFalse:[
- (self isProjectBrowser
- or:[self isProjectFullBrowser
- or:[organizerMode value == OrganizerCanvas organizerModeProject]]) ifTrue:[
- lbl := self rawNameStringForProject.
- lbl notNil ifTrue:[^ lbl].
- suffix := ' [Project]'.
- ] ifFalse:[
- cats := self selectedCategories value.
- cats size == 1 ifTrue:[
- nm := cats first string
- ]
- ]
- ].
- ].
- nm isNil ifTrue:[ ^ nil ].
- ^ nm , suffix.
-
- "Created: / 11-02-2000 / 13:32:16 / cg"
- "Modified: / 18-08-2000 / 21:06:35 / cg"
- "Modified: / 20-07-2010 / 10:52:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-shortNameString
- "a descriptive string of what this state shows"
-
- |s|
-
- s := (self rawNameStringOrNilWantShort:true) ? 'nothing selected'.
-
- (self realModifiedState == true) ifTrue:[
- ^ self colorizeForModifiedBuffer:s string
- ].
- ^ s
-! !
-
-!NavigationState methodsFor:'queries'!
-
-isCategoryBrowser
- ^ canvasType == #categoryBrowserSpec
- or:[ canvasType == #singleCategoryBrowserSpec
- or:[ canvasType == #multipleCategoryBrowserSpec ]]
-
- "Modified: / 25.2.2000 / 01:17:02 / cg"
-!
-
-isChainBrowser
- ^ canvasType == #chainBrowserSpec
-!
-
-isCheckOutputBrowser
- ^ canvasType == #multipleClassWithInfoAndMethodWithInfoBrowserSpec
- or:[canvasType == #multipleMethodWithInfoBrowserSpec
- or:[canvasType == #multipleClassWithInfoBrowserSpec]]
-!
-
-isClassBrowser
- ^ canvasType == #classBrowserSpec
- or:[ canvasType == #singleClassBrowserSpec
- or:[ canvasType == #multipleClassBrowserSpec ]]
-
- "Modified: / 25.2.2000 / 00:38:07 / cg"
-!
-
-isClassDocumentationBrowser
- ^ canvasType == #classDocumentationBrowserSpec
-
- "Created: / 24.2.2000 / 14:54:40 / cg"
-!
-
-isClassExtensionBrowser
- ^ canvasType == #multipleClassExtensionBrowserSpec
-
- "Created: / 24.2.2000 / 14:54:40 / cg"
-!
-
-isFullBrowser
- ^ canvasType == #fullBrowserSpec
-!
-
-isFullClassSourceBrowser
- ^ canvasType == #fullClassSourceBrowserSpec
-
- "Created: / 24.2.2000 / 14:54:40 / cg"
-!
-
-isFullProtocolBrowser
- ^ canvasType == #singleFullProtocolBrowserSpec
- or:[ canvasType == #multipleFullProtocolBrowserSpec ]
-
- "Created: / 24.2.2000 / 21:32:09 / cg"
- "Modified: / 25.2.2000 / 03:11:00 / cg"
-!
-
-isLintResultBrowser
- ^ canvasType == #smallLintByRuleResultBrowserSpec
-!
-
-isMethodBrowser
- ^ canvasType == #methodListBrowserSpec
- or:[ canvasType == #singleMethodBrowserSpec
- or:[ canvasType == #multipleMethodBrowserSpec
- or:[ canvasType == #multipleMethodWithInfoBrowserSpec ]]]
-
- "Modified: / 1.3.2000 / 13:35:12 / cg"
-!
-
-isMethodListBrowser
- canvasType == #methodListBrowserSpec ifTrue:[^ true].
- canvasType == #multipleMethodBrowserSpec ifTrue:[^ true].
- canvasType == #singleProtocolBrowserSpec ifTrue:[^ true].
- ^ false.
-!
-
-isNameSpaceBrowser
- ^ canvasType == #singleNameSpaceBrowserSpec
- or:[ canvasType == #multipleNameSpaceBrowserSpec]
-
- "Modified: / 18.8.2000 / 16:12:34 / cg"
-!
-
-isNameSpaceFullBrowser
- ^ canvasType == #singleNameSpaceFullBrowserSpec
- or:[ canvasType == #multipleNameSpaceFullBrowserSpec ]
-
- "Created: / 18.8.2000 / 14:58:36 / cg"
-!
-
-isProjectBrowser
- ^ canvasType == #singleProjectBrowserSpec
- or:[ canvasType == #multipleProjectBrowserSpec ]
-
- "Created: / 24.2.2000 / 21:32:09 / cg"
- "Modified: / 25.2.2000 / 03:11:00 / cg"
-!
-
-isProjectFullBrowser
- ^ canvasType == #singleProjectFullBrowserSpec
- or:[ canvasType == #multipleProjectFullBrowserSpec ]
-
- "Created: / 18.8.2000 / 19:02:49 / cg"
-!
-
-isProtocolBrowser
- ^ canvasType == #singleProtocolBrowserSpec
- or:[ canvasType == #multipleProtocolBrowserSpec ]
-
- "Created: / 24.2.2000 / 21:32:09 / cg"
- "Modified: / 25.2.2000 / 03:11:00 / cg"
-!
-
-isProtocolOrFullProtocolBrowser
- ^ self isProtocolBrowser
- or:[ self isFullProtocolBrowser ]
-!
-
-isSingleCategoryBrowser
- ^ canvasType == #singleCategoryBrowserSpec
-!
-
-isSingleClassBrowser
- ^ canvasType == #singleClassBrowserSpec
-!
-
-isSingleFullProtocolBrowser
- ^ canvasType == #singleFullProtocolBrowserSpec
-!
-
-isSingleMethodBrowser
- ^ canvasType == #singleMethodBrowserSpec
-
- "Created: / 1.3.2000 / 13:35:52 / cg"
-!
-
-isSingleNamespaceBrowser
- ^ canvasType == #singleNameSpaceBrowserSpec
-!
-
-isSingleNamespaceFullBrowser
- ^ canvasType == #singleNameSpaceFullBrowserSpec
-!
-
-isSingleProjectBrowser
- ^ canvasType == #singleProjectBrowserSpec
- or:[ canvasType == #singleProjectFullBrowserSpec ]
-
- "Created: / 24.2.2000 / 21:32:09 / cg"
- "Modified: / 25.2.2000 / 03:11:00 / cg"
-!
-
-isSingleProjectFullBrowser
- ^ canvasType == #singleProjectFullBrowserSpec
-
- "Created: / 24.2.2000 / 21:32:09 / cg"
- "Modified: / 25.2.2000 / 03:11:00 / cg"
-!
-
-isSingleProtocolBrowser
- ^ canvasType == #singleProtocolBrowserSpec
-!
-
-isVersionDiffBrowser
- ^ canvasType == #multipleClassRepositoryDiffBrowserSpec
-! !
-
-!NavigationState class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.47 2012-11-03 14:22:14 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.47 2012-11-03 14:22:14 cg Exp $'
-!
-
-version_SVN
- ^ '§Id§'
-! !
--- a/Tools_NavigatorModel.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,370 +0,0 @@
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-ApplicationModel subclass:#NavigatorModel
- instanceVariableNames:''
- classVariableNames:'AllEntry SuperSendEntry UncommentedEntry'
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!NavigatorModel class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-! !
-
-!NavigatorModel class methodsFor:'initialization'!
-
-initialize
- AllEntry := '* all *'.
-
- "Created: / 24.2.2000 / 13:41:29 / cg"
-! !
-
-!NavigatorModel class methodsFor:'defaults'!
-
-isPseudoCategory:cat
- ^ cat = self nameListEntryForChanged
- or:[ cat = self nameListEntryForUndocumented
- or:[ cat = self nameListEntryForUnloaded
- or:[ cat = self nameListEntryForExtendedClasses
- or:[ cat = self nameListEntryForALL ]]]]
-!
-
-isPseudoProtocol:protocol
- ^ protocol = self nameListEntryForObsolete
- or:[ protocol = self nameListEntryForSuperSend
- or:[ protocol = self nameListEntryForUncommented ]]
-!
-
-markForBeingInChangeList
- ^ ' *'
-
- "Created: / 29-08-2006 / 10:26:05 / cg"
-!
-
-markForBeingManagedBySVN: package
-
- | repo branch mark |
-
- (ConfigurableFeatures includesFeature: #SubversionSupportEnabled) ifFalse:[^''].
- package = PackageId noProjectID ifTrue:[^''].
-
- "/ use Smalltalk-at to trick the dependency/prerequisite generator
- repo := (Smalltalk at:#SVN::RepositoryManager) current
- repositoryForPackage: package onlyFromCache: true.
- repo ifNil:[^''].
- mark := ' [SVN]'.
- branch := repo workingCopy branchOrNil.
- branch ifNotNil:[mark := ' [SVN: ', branch path,']'].
- ^mark asText colorizeAllWith: Color gray
-
- "Created: / 06-04-2010 / 11:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified (comment): / 07-09-2011 / 10:43:00 / cg"
- "Modified: / 19-01-2012 / 10:44:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-markForBeingManagedBySVN: package branch: branch
-
- | mark |
- mark := branch
- ifNil:
- [' [SVN]']
- ifNotNil:
- [' [SVN: ',branch,']'].
-
- ^mark asText colorizeAllWith: Color gray.
-
- "Created: / 14-12-2010 / 15:56:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-nameListEntryForALL
- ^ AllEntry ? '* all *'
-
- "Created: / 24.2.2000 / 13:39:10 / cg"
- "Modified: / 25.2.2000 / 21:18:30 / cg"
-!
-
-nameListEntryForALLWithCount
- ^ '* all (%1) *'
-!
-
-nameListEntryForAnnotated
- ^ '* annotated (%1) *'
-
- "Created: / 07-09-2011 / 10:11:40 / cg"
-!
-
-nameListEntryForBookmarked
- ^ '* bookmarked (%1) *'
-!
-
-nameListEntryForChanged
- ^ '* changed *'
-!
-
-nameListEntryForChangedWithCount
- ^ '* changed (%1) *'
-!
-
-nameListEntryForDocumentation
- ^ '* documentation (%1) *'
-!
-
-nameListEntryForExtendedClasses
- ^ '* extended *'
-!
-
-nameListEntryForExtendedClassesWithCount
- ^ '* extended (%1) *'
-!
-
-nameListEntryForExtensions
- ^ '* extensions (%1) *'
-!
-
-nameListEntryForFailedTests
- ^ '* failed tests (%1) *'
-
- "Created: / 08-03-2010 / 18:26:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-nameListEntryForFullyCovered
- ^ '* covered (%1) *'
-
- "Created: / 20-07-2011 / 18:20:53 / cg"
-!
-
-nameListEntryForLong
- ^ '* long (%1) *'
-!
-
-nameListEntryForMustBeRedefinedInSubclass
- ^ '* must be redefined (%1) *'
-!
-
-nameListEntryForNILCategory
- ^ '* no category *'
-!
-
-nameListEntryForNonStatic
- ^ '* instance *'
-!
-
-nameListEntryForNotInstrumented
- ^ '* coverage unknown/not instrumented (%1) *'
-
- "Created: / 20-07-2011 / 18:41:53 / cg"
-!
-
-nameListEntryForObsolete
- ^ '* obsolete (%1) *'
-!
-
-nameListEntryForOverride
- ^ '* override (%1) *'
-!
-
-nameListEntryForPartiallyCovered
- ^ '* partially covered (%1) *'
-
- "Created: / 20-07-2011 / 18:21:05 / cg"
-!
-
-nameListEntryForPassedTests
- ^ '* passed tests (%1) *'
-
- "Created: / 08-03-2010 / 18:26:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-nameListEntryForRedefine
- ^ '* redefine (%1) *'
-!
-
-nameListEntryForRedefined
- ^ '* redefined (%1) *'
-!
-
-nameListEntryForRequired
- ^ '* required (%1) *'
-!
-
-nameListEntryForStatic
- ^ '* static *'
-!
-
-nameListEntryForSuperSend
- ^ '* super (%1) *'
-!
-
-nameListEntryForUncommented
- ^ '* uncommented (%1) *'
-!
-
-nameListEntryForUncovered
- ^ '* not covered (%1) *'
-
- "Created: / 20-07-2011 / 18:20:44 / cg"
-!
-
-nameListEntryForUndocumented
- ^ '* undocumented *'
-!
-
-nameListEntryForUndocumentedWithCount
- ^ '* undocumented (%1) *'
-!
-
-nameListEntryForUnloaded
- ^ '* unloaded *'
-!
-
-nameListEntryForUnloadedWithCount
- ^ '* unloaded (%1) *'
-!
-
-nameListEntryForVisited
- ^ '* visited (%1) *'
-!
-
-pseudoEntryForegroundColor
- ^ UserPreferences current colorForPseudoProtocolsInMethodListInBrowser.
-
- "Modified: / 07-09-2011 / 09:59:55 / cg"
-! !
-
-!NavigatorModel class methodsFor:'interface specs'!
-
-metaSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:Tools::NavigatorModel andSelector:#metaSpec
- Tools::NavigatorModel new openInterface:#metaSpec
- "
-
- <resource: #canvas>
-
- ^
- #(FullSpec
- name: metaSpec
- window:
- (WindowSpec
- label: 'MetaToggles'
- name: 'MetaToggles'
- min: (Point 0 0)
- max: (Point 1024 721)
- bounds: (Rectangle 0 0 300 28)
- )
- component:
- (SpecCollection
- collection: (
- (RadioButtonSpec
- label: 'Instance'
- name: 'InstanceToggle'
- layout: (LayoutFrame 0 0.0 0 0.0 0 0.5 25 0)
- translateLabel: true
- tabable: true
- model: notMetaToggle
- isTriggerOnDown: true
- select: true
- isToggle: true
- )
- (RadioButtonSpec
- label: 'Class'
- name: 'ClassToggle'
- layout: (LayoutFrame 0 0.5 0 0 0 1.0 25 0)
- translateLabel: true
- labelChannel: metaToggleLabelHolder
- tabable: false
- model: metaToggle
- isTriggerOnDown: true
- select: true
- isToggle: true
- )
- )
-
- )
- )
-! !
-
-!NavigatorModel class methodsFor:'misc'!
-
-classResources
- ^ NewSystemBrowser classResources
-! !
-
-!NavigatorModel class methodsFor:'queries'!
-
-hasSubversionSupport
- ^ ConfigurableFeatures includesFeature: #SubversionSupportEnabled
-
- "Created: / 06-04-2010 / 11:09:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 07-09-2011 / 10:45:45 / cg"
- "Modified: / 19-01-2012 / 10:43:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!NavigatorModel methodsFor:'misc'!
-
-resources
- "answer the resources of my masterApp, if there is one"
-
- |m|
-
- (m := self masterApplication) notNil ifTrue:[
- ^ m resources
- ].
- ^ super resources
-! !
-
-!NavigatorModel methodsFor:'queries'!
-
-hasSubversionSupport
- ^ ConfigurableFeatures includesFeature: #SubversionSupportEnabled
-
- "Modified: / 07-09-2011 / 10:45:49 / cg"
- "Modified: / 19-01-2012 / 10:43:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!NavigatorModel class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.23 2012-11-07 13:57:05 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.23 2012-11-07 13:57:05 cg Exp $'
-!
-
-version_SVN
- ^ '§Id: Tools__NavigatorModel.st 7802 2011-07-05 18:33:36Z vranyj1 §'
-! !
-
-NavigatorModel initialize!
--- a/Tools_OrganizerCanvas.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,5043 +0,0 @@
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-NavigatorModel subclass:#OrganizerCanvas
- instanceVariableNames:'projectListSlaveMode namespaceListSlaveMode categoryListSlaveMode
- classInheritanceListSlaveMode classListSlaveMode
- classHierarchyListSlaveMode organizerMode metaToggle
- notMetaToggle meta classList classCategoryDoubleClickChannel
- classDoubleClickChannel classGeneratorHolder
- classGeneratorHolderFromClassCategory
- classGeneratorHolderFromClassHierarchy
- classGeneratorHolderFromProject classGeneratorHolderFromNamespace
- classCategoryListMenuHolder categoryListShown
- classCategoryListUpdateTrigger classListUpdateTrigger
- classListMenuHolder classHierarchyListMenuHolder
- projectListMenuHolder variablesMenuHolder filterClassVars
- variableFilter packageFilter nameSpaceFilter hidePrivateClasses
- hideUnloadedClasses showClassPackages immediateUpdate
- metaToggleLabelHolder selectedCategories selectedClasses
- selectedNamespaces selectedProjects selectionChangeCondition
- nameSpaceFilterSelection markApplicationsHolder
- sortVariablesByName showAllClassesInNameSpaceView
- showMethodInheritance showMethodComplexity showMethodTypeIcon
- methodVisibilityHolder showCoverageInformation
- sortByNameAndInheritance'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!OrganizerCanvas class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- I implement the top part containing the list views in the new system browser
-"
-! !
-
-!OrganizerCanvas class methodsFor:'constants'!
-
-organizerModeCategory
- ^ #category
-!
-
-organizerModeClassHierarchy
- ^ #classHierarchy
-!
-
-organizerModeClassInheritance
- ^ #classInheritance
-!
-
-organizerModeHierarchy
- ^ #hierarchy
-!
-
-organizerModeNamespace
- ^ #namespace
-!
-
-organizerModePackageDiagram
- ^ #packageDiagram
-!
-
-organizerModeProject
- ^ #project
-! !
-
-!OrganizerCanvas class methodsFor:'interface specs'!
-
-embeddedNameSpaceListSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:OrganizerCanvas andSelector:#embeddedNameSpaceListSpec
- OrganizerCanvas new openInterface:#embeddedNameSpaceListSpec
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #embeddedNameSpaceListSpec
- #window:
- #(#WindowSpec
- #label: 'Organizer'
- #name: 'Organizer'
- #min: #(#Point 0 0)
- #max: #(#Point 1024 721)
- #bounds: #(#Rectangle 218 175 518 475)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SubCanvasSpec
- #name: 'NamespaceList2'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #level: 1
- #majorKey: #'NamespaceList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #nameSpaceFilterDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceNamespaceGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #nameSpaceListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #classGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedNamespaces
- #aspect: #nameSpaceFilterSelection
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #popUpNameSpaceListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #nameSpaceListUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- #postBuildCallback: #nameSpaceListWidgetWasBuilt:
- )
- )
-
- )
- )
-!
-
-windowSpec
- ^ self windowSpecNonHierarchicalWithClassDiagram
- "/ ^ self windowSpecNonHierarchical
- "/ ^ self windowSpecHierarchical
-
- "
- self openInterface:#windowSpec
- self openInterface:#windowSpecWithoutMetaToggles
- self openInterface:#windowSpecNonHierarchicalWithClassDiagram
- "
-
- "Modified: / 03-09-2006 / 10:47:15 / cg"
-!
-
-windowSpecHierarchical
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:OrganizerCanvas andSelector:#windowSpec
- OrganizerCanvas new openInterface:#windowSpec
- OrganizerCanvas open
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'Organizer'
- #name: 'Organizer'
- #min: #(#Point 0 0)
- #max: #(#Point 1024 721)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#VariableHorizontalPanelSpec
- #name: 'CategoryNameSpaceAndProjectPanel'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #categoryNameSpaceAndProjectPanelShown
- #barWidth: 2
- #showHandle: false
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'LeftBox'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'ClassCategoryAndNamespaceFilterBox'
- #layout: #(#LayoutFrame 0 0 0 0 0 1 0 1)
- #visibilityChannel: #categoryListShown
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SubCanvasSpec
- #name: 'ClassCategoryList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
-"/ #majorKey: #'ClassCategoryList'
- #majorKey: #'HierarchicalClassCategoryList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classCategoryDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceClassCategoryGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classCategoryListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #classGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedCategories
- #aspect: #selectedCategories
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #categoryListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classCategoryListUpdateTrigger
- )
- #(#SubChannelInfoSpec
- #subAspect: #nameSpaceFilter
- #aspect: #nameSpaceFilterSelection
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#ExtendedComboBoxSpec
- #name: 'NameSpaceFilterComboBox'
- #layout: #(#LayoutFrame 0 0 -25 1 0 1 0 1)
- #tabable: true
- #model: #nameSpaceFilterSelectedNameSpace
- #menuWidgetHolder: #nameSpaceListWidgetHolder
- #miniScrollerHorizontal: true
- #menuSelector: #nameSpaceFilterPopUpMenu
- )
- )
-
- )
- )
- #(#SubCanvasSpec
- #name: 'NamespaceList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #initiallyInvisible: true
- #visibilityChannel: #nameSpaceListShown
- #majorKey: #'NamespaceList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #nameSpaceDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceNamespaceGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #nameSpaceListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #classGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedNamespaces
- #aspect: #selectedNamespaces
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #nameSpaceListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #nameSpaceListUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#SubCanvasSpec
- #name: 'ProjectList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #initiallyInvisible: true
- #visibilityChannel: #projectListShown
-"/ #majorKey: #'HierarchicalProjectList'
- #majorKey: #'ProjectList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #projectDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceProjectGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #projectListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #classGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedProjects
- #aspect: #selectedProjects
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #projectListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #projectListUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- )
-
- )
- )
- #(#ViewSpec
- #name: 'RightBox'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#VariableVerticalPanelSpec
- #name: 'ClassAndVariablesPanel'
- #layout: #(#LayoutFrame 0 0 0 0 0 1 -25 1)
- #showHandle: false
- #snapMode: #both
- #handlePosition: #left
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SubCanvasSpec
- #name: 'ClassList'
- #majorKey: #'ClassList'
- #minorKey: #windowSpec
- #subAspectHolders:
- #(#Array
-
-
- #(#SubChannelInfoSpec
- #subAspect: #showCoverageInformation
- #aspect: #showCoverageInformation
- )
- #(#SubChannelInfoSpec
- #subAspect: #hidePrivateClasses
- #aspect: #hidePrivateClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #sortByNameAndInheritance
- #aspect: #sortByNameAndInheritance
- )
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #markApplicationsHolder
- #aspect: #markApplicationsHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #showClassPackages
- #aspect: #showClassPackages
- )
- #(#SubChannelInfoSpec
- #subAspect: #inGeneratorHolder
- #aspect: #classGeneratorHolder
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #meta
- #aspect: #meta
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #outGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolderForMethods
- #aspect: #selectorListGenerator5
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #packageFilter
- #aspect: #packageFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #nameSpaceFilter
- #aspect: #nameSpaceFilter
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectedClasses
- #aspect: #selectedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #classListSlaveMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classListUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#SubCanvasSpec
- #name: 'VariableList'
- #majorKey: #'VariableList'
- #subAspectHolders:
- #(#Array
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #variableDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #classHolder
- #aspect: #selectedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #variablesMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedVariables
- #aspect: #variableFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #showClassVarsInVariableList
- #aspect: #filterClassVars
- )
- #(#SubChannelInfoSpec
- #subAspect: #sortVariablesByName
- #aspect: #sortVariablesByName
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- )
-
- )
- #handles: #(#Any 0.5 1.0)
- )
- #(#UISubSpecification
- #name: 'MetaToggleSpec2'
- #layout: #(#LayoutFrame 0 0 -25 1 0 1 0 1)
- #minorKey: #metaSpec
- )
- )
-
- )
- )
- )
-
- )
- #handles: #(#Any 0.5 1.0)
- )
- #(#ViewSpec
- #name: 'ClassHierarchyOrInheritanceBox'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #initiallyInvisible: true
- #visibilityChannel: #classHierarchyOrInheritanceShown
- #component:
- #(#SpecCollection
- #collection: #(
- #(#VariableVerticalPanelSpec
- #name: 'VariableVerticalPanel2'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
- #showHandle: false
- #snapMode: #both
- #handlePosition: #left
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'HierarchyOrInheritanceBox'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SubCanvasSpec
- #name: 'ClassHierarchyList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #classHierarchyShown
- #majorKey: #'HierarchicalClassList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceClassInheritanceGeneratorTrigger
- )
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #markApplicationsHolder
- #aspect: #markApplicationsHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #showClassPackages
- #aspect: #showClassPackages
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classInheritanceListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #meta
- #aspect: #meta
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #outGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolderForMethods
- #aspect: #selectorListGenerator5
- )
- #(#SubChannelInfoSpec
- #subAspect: #packageFilter
- #aspect: #packageFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #nameSpaceFilter
- #aspect: #nameSpaceFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedClasses
- #aspect: #selectedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #classHierarchyListSlaveMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #topClassHolder
- #aspect: #classHierarchyTopClass
- )
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classHierarchyUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#SubCanvasSpec
- #name: 'ClassInheritanceList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #classInheritanceShown
- #majorKey: #'InheritanceClassList'
- #subAspectHolders:
- #(#Array
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceClassInheritanceGeneratorTrigger
- )
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #markApplicationsHolder
- #aspect: #markApplicationsHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #showClassPackages
- #aspect: #showClassPackages
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classInheritanceListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #meta
- #aspect: #meta
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #outGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolderForMethods
- #aspect: #selectorListGenerator5
- )
- #(#SubChannelInfoSpec
- #subAspect: #packageFilter
- #aspect: #packageFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #nameSpaceFilter
- #aspect: #nameSpaceFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedClasses
- #aspect: #selectedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #classInheritanceListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #topClassHolder
- #aspect: #classHierarchyTopClass
- )
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classHierarchyUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- )
-
- )
- )
- #(#SubCanvasSpec
- #name: 'VariableList2'
- #majorKey: #'VariableList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #variableDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #classHolder
- #aspect: #selectedClasses
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #variablesMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #classHierarchyListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectedVariables
- #aspect: #variableFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #showClassVarsInVariableList
- #aspect: #filterClassVars
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- )
-
- )
- #handles: #(#Any 0.5 1.0)
- )
- #(#SubCanvasSpec
- #name: 'MetaToggles1'
- #layout: #(#LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
- #hasHorizontalScrollBar: false
- #hasVerticalScrollBar: false
- #minorKey: #metaSpec
- )
- )
-
- )
- )
- )
-
- )
- )
-
- "Modified: / 04-07-2011 / 19:05:28 / cg"
- "Modified: / 07-08-2011 / 19:14:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-windowSpecNonHierarchical
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:OrganizerCanvas andSelector:#windowSpec
- OrganizerCanvas new openInterface:#windowSpec
- OrganizerCanvas open
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'Organizer'
- #name: 'Organizer'
- #min: #(#Point 0 0)
- #max: #(#Point 1024 721)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#VariableHorizontalPanelSpec
- #name: 'CategoryNameSpaceAndProjectPanel'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #categoryNameSpaceAndProjectPanelShown
- #barWidth: 2
- #showHandle: false
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'LeftBox'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'ClassCategoryAndNamespaceFilterBox'
- #layout: #(#LayoutFrame 0 0 0 0 0 1 0 1)
- #visibilityChannel: #categoryListShown
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SubCanvasSpec
- #name: 'ClassCategoryList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
- #majorKey: #'ClassCategoryList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classCategoryDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceClassCategoryGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classCategoryListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #classGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedCategories
- #aspect: #selectedCategories
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #categoryListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classCategoryListUpdateTrigger
- )
- #(#SubChannelInfoSpec
- #subAspect: #nameSpaceFilter
- #aspect: #nameSpaceFilterSelection
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#ExtendedComboBoxSpec
- #name: 'NameSpaceFilterComboBox'
- #layout: #(#LayoutFrame 0 0 -25 1 0 1 0 1)
- #tabable: true
- #model: #nameSpaceFilterSelectedNameSpace
- #menuWidgetHolder: #nameSpaceListWidgetHolder
- #miniScrollerHorizontal: true
- #menuSelector: #nameSpaceFilterPopUpMenu
- )
- )
-
- )
- )
- #(#SubCanvasSpec
- #name: 'NamespaceList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #initiallyInvisible: true
- #visibilityChannel: #nameSpaceListShown
- #majorKey: #'NamespaceList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #nameSpaceDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceNamespaceGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #nameSpaceListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #classGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedNamespaces
- #aspect: #selectedNamespaces
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #nameSpaceListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #nameSpaceListUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#SubCanvasSpec
- #name: 'ProjectList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #initiallyInvisible: true
- #visibilityChannel: #projectListShown
-"/ #majorKey: #'HierarchicalProjectList'
- #majorKey: #'ProjectList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #projectDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceProjectGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #projectListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #classGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedProjects
- #aspect: #selectedProjects
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #projectListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #projectListUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- )
-
- )
- )
- #(#ViewSpec
- #name: 'RightBox'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#VariableVerticalPanelSpec
- #name: 'ClassAndVariablesPanel'
- #layout: #(#LayoutFrame 0 0 0 0 0 1 -25 1)
- #showHandle: false
- #snapMode: #both
- #handlePosition: #left
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SubCanvasSpec
- #name: 'ClassList'
- #majorKey: #'ClassList'
- #minorKey: #windowSpec
- #subAspectHolders:
- #(#Array
-
-
- #(#SubChannelInfoSpec
- #subAspect: #hidePrivateClasses
- #aspect: #hidePrivateClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #sortByNameAndInheritance
- #aspect: #sortByNameAndInheritance
- )
- #(#SubChannelInfoSpec
- #subAspect: #showCoverageInformation
- #aspect: #showCoverageInformation
- )
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #markApplicationsHolder
- #aspect: #markApplicationsHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #showClassPackages
- #aspect: #showClassPackages
- )
- #(#SubChannelInfoSpec
- #subAspect: #inGeneratorHolder
- #aspect: #classGeneratorHolder
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #meta
- #aspect: #meta
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #outGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolderForMethods
- #aspect: #selectorListGenerator5
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #packageFilter
- #aspect: #packageFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #nameSpaceFilter
- #aspect: #nameSpaceFilter
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectedClasses
- #aspect: #selectedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #classListSlaveMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classListUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#SubCanvasSpec
- #name: 'VariableList'
- #majorKey: #'VariableList'
- #subAspectHolders:
- #(#Array
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #variableDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #classHolder
- #aspect: #selectedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #variablesMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedVariables
- #aspect: #variableFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #showClassVarsInVariableList
- #aspect: #filterClassVars
- )
- #(#SubChannelInfoSpec
- #subAspect: #sortVariablesByName
- #aspect: #sortVariablesByName
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- )
-
- )
- #handles: #(#Any 0.5 1.0)
- )
- #(#UISubSpecification
- #name: 'MetaToggleSpec2'
- #layout: #(#LayoutFrame 0 0 -25 1 0 1 0 1)
- #minorKey: #metaSpec
- )
- )
-
- )
- )
- )
-
- )
- #handles: #(#Any 0.5 1.0)
- )
- #(#ViewSpec
- #name: 'ClassHierarchyOrInheritanceBox'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #initiallyInvisible: true
- #visibilityChannel: #classHierarchyOrInheritanceShown
- #component:
- #(#SpecCollection
- #collection: #(
- #(#VariableVerticalPanelSpec
- #name: 'VariableVerticalPanel2'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
- #showHandle: false
- #snapMode: #both
- #handlePosition: #left
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'HierarchyOrInheritanceBox'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SubCanvasSpec
- #name: 'ClassHierarchyList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #classHierarchyShown
- #majorKey: #'HierarchicalClassList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceClassInheritanceGeneratorTrigger
- )
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #markApplicationsHolder
- #aspect: #markApplicationsHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #showClassPackages
- #aspect: #showClassPackages
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classInheritanceListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #meta
- #aspect: #meta
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #outGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolderForMethods
- #aspect: #selectorListGenerator5
- )
- #(#SubChannelInfoSpec
- #subAspect: #packageFilter
- #aspect: #packageFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #nameSpaceFilter
- #aspect: #nameSpaceFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedClasses
- #aspect: #selectedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #classHierarchyListSlaveMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #topClassHolder
- #aspect: #classHierarchyTopClass
- )
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classHierarchyUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#SubCanvasSpec
- #name: 'ClassInheritanceList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #classInheritanceShown
- #majorKey: #'InheritanceClassList'
- #subAspectHolders:
- #(#Array
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceClassInheritanceGeneratorTrigger
- )
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #markApplicationsHolder
- #aspect: #markApplicationsHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #showClassPackages
- #aspect: #showClassPackages
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classInheritanceListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #meta
- #aspect: #meta
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #outGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolderForMethods
- #aspect: #selectorListGenerator5
- )
- #(#SubChannelInfoSpec
- #subAspect: #packageFilter
- #aspect: #packageFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #nameSpaceFilter
- #aspect: #nameSpaceFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedClasses
- #aspect: #selectedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #classInheritanceListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #topClassHolder
- #aspect: #classHierarchyTopClass
- )
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classHierarchyUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- )
-
- )
- )
- #(#SubCanvasSpec
- #name: 'VariableList2'
- #majorKey: #'VariableList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #variableDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #classHolder
- #aspect: #selectedClasses
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #variablesMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #classHierarchyListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectedVariables
- #aspect: #variableFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #showClassVarsInVariableList
- #aspect: #filterClassVars
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- )
-
- )
- #handles: #(#Any 0.5 1.0)
- )
- #(#SubCanvasSpec
- #name: 'MetaToggles1'
- #layout: #(#LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
- #hasHorizontalScrollBar: false
- #hasVerticalScrollBar: false
- #minorKey: #metaSpec
- )
- )
-
- )
- )
- )
-
- )
- )
-
- "Modified: / 04-07-2011 / 19:05:47 / cg"
- "Modified: / 07-08-2011 / 19:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-windowSpecNonHierarchicalWithClassDiagram
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:Tools::OrganizerCanvas andSelector:#windowSpecNonHierarchicalWithClassDiagram
- Tools::OrganizerCanvas new openInterface:#windowSpecNonHierarchicalWithClassDiagram
- "
-
- <resource: #canvas>
-
- ^
- #(FullSpec
- name: windowSpecNonHierarchicalWithClassDiagram
- window:
- (WindowSpec
- label: 'Organizer'
- name: 'Organizer'
- min: (Point 0 0)
- max: (Point 1024 721)
- bounds: (Rectangle 0 0 300 300)
- )
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'PackageDiagramClassChooser'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- level: 0
- initiallyInvisible: true
- visibilityChannel: packageDiagramShown
- component:
- (SpecCollection
- collection: (
- (ComboListSpec
- name: 'ComboList1'
- layout: (LayoutFrame 0 0 0 0 0 1 25 0)
- model: selectedDiagramProject
- comboList: packageList
- useIndex: false
- )
- (SubCanvasSpec
- name: 'SubCanvas1'
- layout: (LayoutFrame 0 0 25 0 0 1 -25 1)
- level: 0
- hasHorizontalScrollBar: false
- hasVerticalScrollBar: false
- minorKey: windowSpecForClassChooser
- clientHolder: diagramApplicationModelHolder
- createNewBuilder: false
- )
- (SubCanvasSpec
- name: 'MetaToggles2'
- layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
- hasHorizontalScrollBar: false
- hasVerticalScrollBar: false
- minorKey: metaSpec
- createNewBuilder: false
- )
- )
-
- )
- )
- (ViewSpec
- name: 'ClassHierarchyOrInheritanceBox'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- initiallyInvisible: true
- visibilityChannel: classHierarchyOrInheritanceShown
- component:
- (SpecCollection
- collection: (
- (VariableVerticalPanelSpec
- name: 'VariableVerticalPanel2'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
- showHandle: false
- snapMode: both
- handlePosition: left
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'HierarchyOrInheritanceBox'
- component:
- (SpecCollection
- collection: (
- (SubCanvasSpec
- name: 'ClassHierarchyList'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- visibilityChannel: classHierarchyShown
- majorKey: HierarchicalClassList
- subAspectHolders:
- (Array
-
- (SubChannelInfoSpec
- subAspect: doubleClickChannel
- aspect: classDoubleClickChannel
- )
- (SubChannelInfoSpec
- subAspect: forceGeneratorTrigger
- aspect: forceClassInheritanceGeneratorTrigger
- )
-
- (SubChannelInfoSpec
- subAspect: hideUnloadedClasses
- aspect: hideUnloadedClasses
- )
- (SubChannelInfoSpec
- subAspect: markApplicationsHolder
- aspect: markApplicationsHolder
- )
-
- (SubChannelInfoSpec
- subAspect: showClassPackages
- aspect: showClassPackages
- )
- (SubChannelInfoSpec
- subAspect: immediateUpdate
- aspect: immediateUpdate
- )
-
- (SubChannelInfoSpec
- subAspect: menuHolder
- aspect: classInheritanceListMenuHolder
- )
- (SubChannelInfoSpec
- subAspect: meta
- aspect: meta
- )
-
- (SubChannelInfoSpec
- subAspect: organizerMode
- aspect: organizerMode
- )
- (SubChannelInfoSpec
- subAspect: outGeneratorHolder
- aspect: outGeneratorHolder
- )
- (SubChannelInfoSpec
- subAspect: #outGeneratorHolderForMethods
- aspect: #selectorListGenerator5
- )
-
-
- (SubChannelInfoSpec
- subAspect: packageFilter
- aspect: packageFilter
- )
- (SubChannelInfoSpec
- subAspect: nameSpaceFilter
- aspect: nameSpaceFilter
- )
-
- (SubChannelInfoSpec
- subAspect: selectedClasses
- aspect: selectedClasses
- )
- (SubChannelInfoSpec
- subAspect: selectionChangeCondition
- aspect: selectionChangeCondition
- )
-
- (SubChannelInfoSpec
- subAspect: slaveMode
- aspect: classHierarchyListSlaveMode
- )
- (SubChannelInfoSpec
- subAspect: topClassHolder
- aspect: classHierarchyTopClass
- )
-
- (SubChannelInfoSpec
- subAspect: updateTrigger
- aspect: classHierarchyUpdateTrigger
- )
- )
- createNewApplication: true
- createNewBuilder: true
- )
- (SubCanvasSpec
- name: 'ClassInheritanceList'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- visibilityChannel: classInheritanceShown
- majorKey: InheritanceClassList
- subAspectHolders:
- (Array
-
- (SubChannelInfoSpec
- subAspect: doubleClickChannel
- aspect: classDoubleClickChannel
- )
- (SubChannelInfoSpec
- subAspect: forceGeneratorTrigger
- aspect: forceClassInheritanceGeneratorTrigger
- )
-
- (SubChannelInfoSpec
- subAspect: hideUnloadedClasses
- aspect: hideUnloadedClasses
- )
- (SubChannelInfoSpec
- subAspect: markApplicationsHolder
- aspect: markApplicationsHolder
- )
-
- (SubChannelInfoSpec
- subAspect: showClassPackages
- aspect: showClassPackages
- )
- (SubChannelInfoSpec
- subAspect: immediateUpdate
- aspect: immediateUpdate
- )
-
- (SubChannelInfoSpec
- subAspect: menuHolder
- aspect: classInheritanceListMenuHolder
- )
- (SubChannelInfoSpec
- subAspect: meta
- aspect: meta
- )
-
- (SubChannelInfoSpec
- subAspect: organizerMode
- aspect: organizerMode
- )
- (SubChannelInfoSpec
- subAspect: outGeneratorHolder
- aspect: outGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolderForMethods
- #aspect: #selectorListGenerator5
- )
-
- (SubChannelInfoSpec
- subAspect: packageFilter
- aspect: packageFilter
- )
- (SubChannelInfoSpec
- subAspect: nameSpaceFilter
- aspect: nameSpaceFilter
- )
-
- (SubChannelInfoSpec
- subAspect: selectedClasses
- aspect: selectedClasses
- )
- (SubChannelInfoSpec
- subAspect: selectionChangeCondition
- aspect: selectionChangeCondition
- )
-
- (SubChannelInfoSpec
- subAspect: slaveMode
- aspect: classInheritanceListSlaveMode
- )
- (SubChannelInfoSpec
- subAspect: topClassHolder
- aspect: classHierarchyTopClass
- )
-
- (SubChannelInfoSpec
- subAspect: updateTrigger
- aspect: classHierarchyUpdateTrigger
- )
- )
- createNewApplication: true
- createNewBuilder: true
- )
- )
-
- )
- )
- (SubCanvasSpec
- name: 'VariableList2'
- majorKey: VariableList
- subAspectHolders:
- (Array
-
- (SubChannelInfoSpec
- subAspect: doubleClickChannel
- aspect: variableDoubleClickChannel
- )
- (SubChannelInfoSpec
- subAspect: classHolder
- aspect: selectedClasses
- )
-
- (SubChannelInfoSpec
- subAspect: menuHolder
- aspect: variablesMenuHolder
- )
- (SubChannelInfoSpec
- subAspect: slaveMode
- aspect: classHierarchyListSlaveMode
- )
-
- (SubChannelInfoSpec
- subAspect: selectedVariables
- aspect: variableFilter
- )
- (SubChannelInfoSpec
- subAspect: showClassVarsInVariableList
- aspect: filterClassVars
- )
- )
- createNewApplication: true
- createNewBuilder: true
- )
- )
-
- )
- handles: (Any 0.5 1.0)
- )
- (SubCanvasSpec
- name: 'MetaToggles1'
- layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
- hasHorizontalScrollBar: false
- hasVerticalScrollBar: false
- minorKey: metaSpec
- createNewBuilder: false
- )
- )
-
- )
- )
- (VariableHorizontalPanelSpec
- name: 'CategoryNameSpaceAndProjectPanel'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- visibilityChannel: categoryNameSpaceAndProjectPanelShown
- barWidth: 2
- showHandle: false
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'LeftBox'
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'ClassCategoryAndNamespaceFilterBox'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- visibilityChannel: categoryListShown
- component:
- (SpecCollection
- collection: (
- (SubCanvasSpec
- name: 'ClassCategoryList'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
- majorKey: ClassCategoryList
- subAspectHolders:
- (Array
-
- (SubChannelInfoSpec
- subAspect: doubleClickChannel
- aspect: classCategoryDoubleClickChannel
- )
- (SubChannelInfoSpec
- subAspect: forceGeneratorTrigger
- aspect: forceClassCategoryGeneratorTrigger
- )
-
- (SubChannelInfoSpec
- subAspect: hideUnloadedClasses
- aspect: hideUnloadedClasses
- )
- (SubChannelInfoSpec
- subAspect: immediateUpdate
- aspect: immediateUpdate
- )
-
- (SubChannelInfoSpec
- subAspect: menuHolder
- aspect: classCategoryListMenuHolder
- )
- (SubChannelInfoSpec
- subAspect: organizerMode
- aspect: organizerMode
- )
-
- (SubChannelInfoSpec
- subAspect: outGeneratorHolder
- aspect: classGeneratorHolder
- )
- (SubChannelInfoSpec
- subAspect: selectedCategories
- aspect: selectedCategories
- )
-
- (SubChannelInfoSpec
- subAspect: selectionChangeCondition
- aspect: selectionChangeCondition
- )
- (SubChannelInfoSpec
- subAspect: slaveMode
- aspect: categoryListSlaveMode
- )
-
- (SubChannelInfoSpec
- subAspect: updateTrigger
- aspect: classCategoryListUpdateTrigger
- )
- (SubChannelInfoSpec
- subAspect: nameSpaceFilter
- aspect: nameSpaceFilterSelection
- )
- )
- createNewApplication: true
- createNewBuilder: true
- )
- (ExtendedComboBoxSpec
- name: 'NameSpaceFilterComboBox'
- layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
- tabable: true
- model: nameSpaceFilterSelectedNameSpace
- menuWidgetHolder: nameSpaceListWidgetHolder
- miniScrollerHorizontal: true
- menuSelector: nameSpaceFilterPopUpMenu
- )
- )
-
- )
- )
- (SubCanvasSpec
- name: 'NamespaceList'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- initiallyInvisible: true
- visibilityChannel: nameSpaceListShown
- majorKey: NamespaceList
- subAspectHolders:
- (Array
-
- (SubChannelInfoSpec
- subAspect: doubleClickChannel
- aspect: nameSpaceDoubleClickChannel
- )
- (SubChannelInfoSpec
- subAspect: forceGeneratorTrigger
- aspect: forceNamespaceGeneratorTrigger
- )
-
- (SubChannelInfoSpec
- subAspect: hideUnloadedClasses
- aspect: hideUnloadedClasses
- )
- (SubChannelInfoSpec
- subAspect: immediateUpdate
- aspect: immediateUpdate
- )
-
- (SubChannelInfoSpec
- subAspect: menuHolder
- aspect: nameSpaceListMenuHolder
- )
- (SubChannelInfoSpec
- subAspect: organizerMode
- aspect: organizerMode
- )
-
- (SubChannelInfoSpec
- subAspect: outGeneratorHolder
- aspect: classGeneratorHolder
- )
- (SubChannelInfoSpec
- subAspect: selectedNamespaces
- aspect: selectedNamespaces
- )
-
- (SubChannelInfoSpec
- subAspect: selectionChangeCondition
- aspect: selectionChangeCondition
- )
- (SubChannelInfoSpec
- subAspect: slaveMode
- aspect: nameSpaceListSlaveMode
- )
-
- (SubChannelInfoSpec
- subAspect: updateTrigger
- aspect: nameSpaceListUpdateTrigger
- )
- )
- createNewApplication: true
- createNewBuilder: true
- )
- (SubCanvasSpec
- name: 'ProjectList'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- initiallyInvisible: true
- visibilityChannel: projectListShown
- majorKey: ProjectList
- subAspectHolders:
- (Array
-
- (SubChannelInfoSpec
- subAspect: doubleClickChannel
- aspect: projectDoubleClickChannel
- )
- (SubChannelInfoSpec
- subAspect: forceGeneratorTrigger
- aspect: forceProjectGeneratorTrigger
- )
-
- (SubChannelInfoSpec
- subAspect: hideUnloadedClasses
- aspect: hideUnloadedClasses
- )
- (SubChannelInfoSpec
- subAspect: immediateUpdate
- aspect: immediateUpdate
- )
-
- (SubChannelInfoSpec
- subAspect: menuHolder
- aspect: projectListMenuHolder
- )
- (SubChannelInfoSpec
- subAspect: organizerMode
- aspect: organizerMode
- )
-
- (SubChannelInfoSpec
- subAspect: outGeneratorHolder
- aspect: classGeneratorHolder
- )
- (SubChannelInfoSpec
- subAspect: selectedProjects
- aspect: selectedProjects
- )
-
- (SubChannelInfoSpec
- subAspect: selectionChangeCondition
- aspect: selectionChangeCondition
- )
- (SubChannelInfoSpec
- subAspect: slaveMode
- aspect: projectListSlaveMode
- )
-
- (SubChannelInfoSpec
- subAspect: updateTrigger
- aspect: projectListUpdateTrigger
- )
- )
- createNewApplication: true
- createNewBuilder: true
- )
- )
-
- )
- )
- (ViewSpec
- name: 'RightBox'
- component:
- (SpecCollection
- collection: (
- (VariableVerticalPanelSpec
- name: 'ClassAndVariablesPanel'
- layout: (LayoutFrame 0 0 0 0 0 1 -25 1)
- showHandle: false
- snapMode: both
- handlePosition: left
- component:
- (SpecCollection
- collection: (
- (SubCanvasSpec
- name: 'ClassList'
- majorKey: ClassList
- minorKey: windowSpec
- subAspectHolders:
- (Array
-
-
- #(#SubChannelInfoSpec
- #subAspect: #hidePrivateClasses
- #aspect: #hidePrivateClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #sortByNameAndInheritance
- #aspect: #sortByNameAndInheritance
- )
- #(#SubChannelInfoSpec
- #subAspect: #showCoverageInformation
- #aspect: #showCoverageInformation
- )
- (SubChannelInfoSpec
- subAspect: doubleClickChannel
- aspect: classDoubleClickChannel
- )
- (SubChannelInfoSpec
- subAspect: markApplicationsHolder
- aspect: markApplicationsHolder
- )
-
- (SubChannelInfoSpec
- subAspect: immediateUpdate
- aspect: immediateUpdate
- )
- (SubChannelInfoSpec
- subAspect: showClassPackages
- aspect: showClassPackages
- )
-
- (SubChannelInfoSpec
- subAspect: inGeneratorHolder
- aspect: classGeneratorHolder
- )
- (SubChannelInfoSpec
- subAspect: menuHolder
- aspect: classListMenuHolder
- )
-
- (SubChannelInfoSpec
- subAspect: meta
- aspect: meta
- )
- (SubChannelInfoSpec
- subAspect: organizerMode
- aspect: organizerMode
- )
-
- (SubChannelInfoSpec
- subAspect: outGeneratorHolder
- aspect: outGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolderForMethods
- #aspect: #selectorListGenerator5
- )
- (SubChannelInfoSpec
- subAspect: packageFilter
- aspect: packageFilter
- )
-
- (SubChannelInfoSpec
- subAspect: nameSpaceFilter
- aspect: nameSpaceFilter
- )
- (SubChannelInfoSpec
- subAspect: selectedClasses
- aspect: selectedClasses
- )
-
- (SubChannelInfoSpec
- subAspect: selectionChangeCondition
- aspect: selectionChangeCondition
- )
- (SubChannelInfoSpec
- subAspect: slaveMode
- aspect: classListSlaveMode
- )
-
- (SubChannelInfoSpec
- subAspect: updateTrigger
- aspect: classListUpdateTrigger
- )
- )
- createNewApplication: true
- createNewBuilder: true
- )
- (SubCanvasSpec
- name: 'VariableList'
- majorKey: VariableList
- subAspectHolders:
- (Array
-
- (SubChannelInfoSpec
- subAspect: doubleClickChannel
- aspect: variableDoubleClickChannel
- )
- (SubChannelInfoSpec
- subAspect: classHolder
- aspect: selectedClasses
- )
-
- (SubChannelInfoSpec
- subAspect: menuHolder
- aspect: variablesMenuHolder
- )
- (SubChannelInfoSpec
- subAspect: selectedVariables
- aspect: variableFilter
- )
-
- (SubChannelInfoSpec
- subAspect: showClassVarsInVariableList
- aspect: filterClassVars
- )
- (SubChannelInfoSpec
- subAspect: sortVariablesByName
- aspect: sortVariablesByName
- )
- )
- createNewApplication: true
- createNewBuilder: true
- )
- )
-
- )
- handles: (Any 0.5 1.0)
- )
- (UISubSpecification
- name: 'MetaToggleSpec2'
- layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
- minorKey: metaSpec
- )
- )
-
- )
- )
- )
-
- )
- handles: (Any 0.5 1.0)
- )
- )
-
- )
- )
-
- "Modified: / 04-07-2011 / 19:06:13 / cg"
- "Modified: / 07-08-2011 / 19:16:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-windowSpecWithoutMetaToggles
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:OrganizerCanvas andSelector:#windowSpecWithoutMetaToggles
- OrganizerCanvas new openInterface:#windowSpecWithoutMetaToggles
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #windowSpecWithoutMetaToggles
- #window:
- #(#WindowSpec
- #label: 'Organizer'
- #name: 'Organizer'
- #min: #(#Point 0 0)
- #max: #(#Point 1024 721)
- #bounds: #(#Rectangle 13 23 313 323)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SubCanvasSpec
- #name: 'ClassHierarchyList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #classHierarchyShown
- #majorKey: #'HierarchicalClassList'
- #minorKey: #windowSpec
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceClassInheritanceGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #markApplicationsHolder
- #aspect: #markApplicationsHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #showClassPackages
- #aspect: #showClassPackages
- )
- #(#SubChannelInfoSpec
- #subAspect: #showMethodInheritance
- #aspect: #showMethodInheritance
- )
- #(#SubChannelInfoSpec
- #subAspect: #showMethodComplexity
- #aspect: #showMethodComplexity
- )
- #(#SubChannelInfoSpec
- #subAspect: #showMethodTypeIcon
- #aspect: #showMethodTypeIcon
- )
- #(#SubChannelInfoSpec
- #subAspect: #methodVisibilityHolder
- #aspect: #methodVisibilityHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classInheritanceListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #meta
- #aspect: #meta
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #outGeneratorHolder
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #packageFilter
- #aspect: #packageFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #nameSpaceFilter
- #aspect: #nameSpaceFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedClasses
- #aspect: #selectedClasses
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #classInheritanceListSlaveMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #showCoverageInformation
- #aspect: #showCoverageInformation
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #topClassHolder
- #aspect: #classHierarchyTopClass
- )
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classHierarchyUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#SubCanvasSpec
- #name: 'ClassInheritanceList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #classInheritanceShown
- #majorKey: #'InheritanceClassList'
- #minorKey: #windowSpec
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceClassInheritanceGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #markApplicationsHolder
- #aspect: #markApplicationsHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classInheritanceListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #meta
- #aspect: #meta
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #outGeneratorHolder
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #packageFilter
- #aspect: #packageFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #nameSpaceFilter
- #aspect: #nameSpaceFilter
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedClasses
- #aspect: #selectedClasses
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #classInheritanceListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #topClassHolder
- #aspect: #classHierarchyTopClass
- )
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classHierarchyUpdateTrigger
- )
- #(#SubChannelInfoSpec
- #subAspect: #showCoverageInformation
- #aspect: #showCoverageInformation
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#VariableHorizontalPanelSpec
- #name: 'VariableHorizontalPanel1'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #classHierarchyNotShown
- #barWidth: 2
- #showHandle: false
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'Box1'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SubCanvasSpec
- #name: 'ClassCategoryList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #categoryListShown
- #majorKey: #'ClassCategoryList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classCategoryDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceClassCategoryGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classCategoryListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #classGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedCategories
- #aspect: #selectedCategories
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classCategoryListUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#SubCanvasSpec
- #name: 'NamespaceList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #nameSpaceListShown
- #majorKey: #'NamespaceList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #nameSpaceDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceNamespaceGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #nameSpaceListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #classGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedNamespaces
- #aspect: #selectedNamespaces
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #nameSpaceListUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- #(#SubCanvasSpec
- #name: 'ProjectList'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #visibilityChannel: #projectListShown
- #majorKey: #'ProjectList'
- #subAspectHolders:
- #(#Array
-
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #projectDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #forceGeneratorTrigger
- #aspect: #forceProjectGeneratorTrigger
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #projectListMenuHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #classGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedProjects
- #aspect: #selectedProjects
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #projectListUpdateTrigger
- )
- #(#SubChannelInfoSpec
- #subAspect: #showCoverageInformation
- #aspect: #showCoverageInformation
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- )
-
- )
- )
- #(#SubCanvasSpec
- #name: 'ClassList'
- #majorKey: #'ClassList'
- #minorKey: #windowSpec
- #subAspectHolders:
- #(#Array
-
-
- #(#SubChannelInfoSpec
- #subAspect: #showCoverageInformation
- #aspect: #showCoverageInformation
- )
- #(#SubChannelInfoSpec
- #subAspect: #doubleClickChannel
- #aspect: #classDoubleClickChannel
- )
- #(#SubChannelInfoSpec
- #subAspect: #hidePrivateClasses
- #aspect: #hidePrivateClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #hideUnloadedClasses
- #aspect: #hideUnloadedClasses
- )
- #(#SubChannelInfoSpec
- #subAspect: #sortByNameAndInheritance
- #aspect: #sortByNameAndInheritance
- )
- #(#SubChannelInfoSpec
- #subAspect: #markApplicationsHolder
- #aspect: #markApplicationsHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #immediateUpdate
- #aspect: #immediateUpdate
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #inGeneratorHolder
- #aspect: #classGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #menuHolder
- #aspect: #classListMenuHolder
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #meta
- #aspect: #meta
- )
- #(#SubChannelInfoSpec
- #subAspect: #organizerMode
- #aspect: #organizerMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #outGeneratorHolder
- #aspect: #outGeneratorHolder
- )
- #(#SubChannelInfoSpec
- #subAspect: #selectedClasses
- #aspect: #selectedClasses
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #selectionChangeCondition
- #aspect: #selectionChangeCondition
- )
- #(#SubChannelInfoSpec
- #subAspect: #slaveMode
- #aspect: #classListSlaveMode
- )
-
- #(#SubChannelInfoSpec
- #subAspect: #updateTrigger
- #aspect: #classListUpdateTrigger
- )
- )
- #createNewApplication: true
- #createNewBuilder: true
- )
- )
-
- )
- #handles: #(#Any 0.5 1.0)
- )
- )
-
- )
- )
-
- "Modified: / 20-07-2011 / 14:26:44 / cg"
-! !
-
-!OrganizerCanvas class methodsFor:'plugIn spec'!
-
-aspectSelectors
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this. If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "Return a description of exported aspects;
- these can be connected to aspects of an embedding application
- (if this app is embedded in a subCanvas)."
-
- ^ #(
- #(classCategoryDoubleClickChannel action)
- #classCategoryListMenuHolder
- #(classDoubleClickChannel action)
- #classHierarchyListMenuHolder
- #classHierarchyTopClass
- #classListMenuHolder
- #filterClassVars
- #hidePrivateClasses
- #hideUnloadedClasses
- #sortByNameAndInheritance
- #immediateUpdate
- #markApplicationsHolder
- #meta
- #metaToggleLabelHolder
- #(nameSpaceDoubleClickChannel action)
- #nameSpaceFilter
- #nameSpaceListMenuHolder
- #organizerMode
- #outGeneratorHolder
- #packageFilter
- #(projectDoubleClickChannel action)
- #projectListMenuHolder
- #selectedCategories
- #selectedClasses
- #selectedNamespaces
- #selectedProjects
- #selectedProtocols
- #selectionChangeCondition
- #showClassPackages
- #sortVariablesBy
- #(variableDoubleClickChannel action)
- #variableFilter
- #variablesMenuHolder
- #showCoverageInformation
- ).
-
- "Modified: / 20-07-2011 / 14:28:47 / cg"
-! !
-
-!OrganizerCanvas methodsFor:'aspects'!
-
-classCategoryDoubleClickChannel
- classCategoryDoubleClickChannel isNil ifTrue:[
- classCategoryDoubleClickChannel := TriggerValue new.
- ].
- ^ classCategoryDoubleClickChannel.
-!
-
-classCategoryListMenuHolder
- classCategoryListMenuHolder isNil ifTrue:[
- classCategoryListMenuHolder := ValueHolder new.
- ].
- ^ classCategoryListMenuHolder.
-
- "Created: / 18.2.2000 / 11:52:55 / cg"
-!
-
-classDoubleClickChannel
- classDoubleClickChannel isNil ifTrue:[
- classDoubleClickChannel := TriggerValue new.
- ].
- ^ classDoubleClickChannel.
-!
-
-classGeneratorHolder
- classGeneratorHolder isNil ifTrue:[
- classGeneratorHolder := ValueHolder new.
- ].
- ^ classGeneratorHolder.
-
- "Created: / 18.2.2000 / 00:56:50 / cg"
-!
-
-classGeneratorHolderFromClassCategory
- classGeneratorHolderFromClassCategory isNil ifTrue:[
- classGeneratorHolderFromClassCategory := ValueHolder new.
- ].
- ^ classGeneratorHolderFromClassCategory.
-
- "Created: / 18.2.2000 / 02:21:55 / cg"
-!
-
-classGeneratorHolderFromClassHierarchy
- classGeneratorHolderFromClassHierarchy isNil ifTrue:[
- classGeneratorHolderFromClassHierarchy := ValueHolder new.
- ].
- ^ classGeneratorHolderFromClassHierarchy.
-
- "Created: / 18.2.2000 / 02:21:55 / cg"
-!
-
-classGeneratorHolderFromNamespace
- classGeneratorHolderFromNamespace isNil ifTrue:[
- classGeneratorHolderFromNamespace := ValueHolder new.
- ].
- ^ classGeneratorHolderFromNamespace.
-
- "Created: / 18.2.2000 / 02:21:55 / cg"
-!
-
-classGeneratorHolderFromProject
- classGeneratorHolderFromProject isNil ifTrue:[
- classGeneratorHolderFromProject := ValueHolder new.
- ].
- ^ classGeneratorHolderFromProject.
-
- "Created: / 18.2.2000 / 02:21:55 / cg"
-!
-
-classHierarchyListMenuHolder
- classHierarchyListMenuHolder isNil ifTrue:[
- classHierarchyListMenuHolder := ValueHolder new.
- ].
- ^ classHierarchyListMenuHolder.
-
- "Created: / 18.2.2000 / 11:52:55 / cg"
-!
-
-classHierarchyTopClass
- ^ builder valueAspectFor:#classHierarchyTopClass initialValue:Object
-!
-
-classInheritanceListMenuHolder
- ^ self classHierarchyListMenuHolder
-!
-
-classList
- classList isNil ifTrue:[
- classList := ValueHolder new.
- ].
- ^ classList.
-
- "Created: / 18.2.2000 / 00:23:43 / cg"
-!
-
-classListMenuHolder
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- classListMenuHolder isNil ifTrue:[
- classListMenuHolder := ValueHolder new.
-"/ classListMenuHolder addDependent:self.
- ].
- ^ classListMenuHolder.
-
- "Created: / 18.2.2000 / 11:57:22 / cg"
-!
-
-defaultOrganizerMode
- ^ OrganizerCanvas organizerModePackageDiagram.
- ^ OrganizerCanvas organizerModeCategory
-!
-
-diagramPackageSelection
- |holder|
-
- (holder := builder bindingAt:#diagramPackageSelection) isNil ifTrue:[
- holder := nil asValue.
- builder aspectAt:#diagramPackageSelection put:holder.
- holder onChangeSend:#diagramPackageSelectionChanged to:self.
- ].
- ^ holder.
-!
-
-filterClassVars
- filterClassVars isNil ifTrue:[
- filterClassVars := ValueHolder new.
-"/ filterClassVars addDependent:self.
- ].
- ^ filterClassVars.
-
- "Created: / 24-02-2000 / 23:29:52 / cg"
-!
-
-hidePrivateClasses
- hidePrivateClasses isNil ifTrue:[
- hidePrivateClasses := false asValue.
-"/ hidePrivateClasses addDependent:self.
- ].
- ^ hidePrivateClasses.
-
- "Created: / 24-02-2000 / 16:18:45 / cg"
-!
-
-hideUnloadedClasses
- hideUnloadedClasses isNil ifTrue:[
- hideUnloadedClasses := false asValue.
-"/ hideUnloadedClasses addDependent:self.
- ].
- ^ hideUnloadedClasses.
-
- "Created: / 18-02-2000 / 17:54:57 / cg"
-!
-
-immediateUpdate
- immediateUpdate isNil ifTrue:[
- immediateUpdate := false asValue.
-"/ immediateUpdate addDependent:self.
- ].
- ^ immediateUpdate.
-
- "Created: / 18-02-2000 / 00:23:43 / cg"
-!
-
-initialOrganizerMode
- ^ nil "/ dummy
-!
-
-markApplicationsHolder
- markApplicationsHolder isNil ifTrue:[
- markApplicationsHolder := false asValue.
- ].
- ^ markApplicationsHolder.
-!
-
-meta
- meta isNil ifTrue:[
- meta := false asValue.
-"/ meta addDependent:self.
- ].
- ^ meta.
-
- "Created: / 18-02-2000 / 00:23:43 / cg"
- "Modified (comment): / 04-07-2011 / 18:52:49 / cg"
-!
-
-metaToggle
- metaToggle isNil ifTrue:[
- metaToggle := PluggableAdaptor on:(self meta).
- metaToggle
- getBlock:[:m | m value == true]
- putBlock:[:m :newValue | m value:(newValue ? false)]
- updateBlock:[:m :aspect :param | true].
- ].
- ^ metaToggle
-!
-
-metaToggleLabelHolder
- "this is changed from 'Instance/Class' to 'Instance/Static' for Java"
-
- metaToggleLabelHolder isNil ifTrue:[
- metaToggleLabelHolder := (resources string:'Class') asValue.
-"/ metaToggleLabelHolder addDependent:self.
- ].
- ^ metaToggleLabelHolder.
-
- "Created: / 18-02-2000 / 11:52:55 / cg"
-!
-
-methodVisibilityHolder
- masterApplication notNil ifTrue:[
- ^ masterApplication methodVisibilityHolder
- ].
-
- methodVisibilityHolder isNil ifTrue:[
- methodVisibilityHolder := false asValue.
- ].
- ^ methodVisibilityHolder.
-
- "Created: / 05-11-2007 / 16:57:58 / cg"
-!
-
-nameSpaceDoubleClickChannel
- |holder|
-
- (holder := builder bindingAt:#nameSpaceDoubleClickChannel) isNil ifTrue:[
- holder := TriggerValue new.
- builder aspectAt:#nameSpaceDoubleClickChannel put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-
- "Modified (comment): / 04-07-2011 / 18:53:36 / cg"
-!
-
-nameSpaceFilter
- nameSpaceFilter isNil ifTrue:[
- nameSpaceFilter := ValueHolder new.
- nameSpaceFilter onChangeEvaluate:[
- nameSpaceFilter value ~= nameSpaceFilterSelection value ifTrue:[
- self halt:'should not happen'
- ].
-"/ self nameSpaceFilter value: nameSpaceFilterSelection value.
- ]
- ].
- ^ nameSpaceFilter.
-
- "Created: / 24.2.2000 / 23:29:52 / cg"
-!
-
-nameSpaceFilterDoubleClickChannel
- |holder|
-
- (holder := builder bindingAt:#nameSpaceFilterDoubleClickChannel) isNil ifTrue:[
- holder := TriggerValue new.
- builder aspectAt:#nameSpaceFilterDoubleClickChannel put:holder.
- holder onChangeEvaluate:[
- (builder componentAt:#NameSpaceFilterComboBox) closeMenu.
-"/ self nameSpaceDoubleClickChannel value:true.
- ]
- ].
- ^ holder.
-
- "Modified (comment): / 04-07-2011 / 18:53:39 / cg"
-!
-
-nameSpaceFilterPopUpMenu
- ^ self nameSpaceListMenuHolder.
-!
-
-nameSpaceFilterSelectedNameSpace
- |holder|
-
- (holder := builder bindingAt:#nameSpaceFilterSelectedNameSpace) isNil ifTrue:[
- holder := self class nameListEntryForALL "'* all *'" asValue.
- builder aspectAt:#nameSpaceFilterSelectedNameSpace put:holder.
- holder onChangeEvaluate:[ self updateNameSpaceLabel. ].
- ].
- ^ holder.
-
- "Created: / 18.2.2000 / 11:52:55 / cg"
-!
-
-nameSpaceFilterSelection
- "automatically generated by UIPainter ..."
-
- nameSpaceFilterSelection isNil ifTrue:[
- nameSpaceFilterSelection := (OrderedCollection with:self class nameListEntryForALL) asValue.
- nameSpaceFilterSelection addDependent:self.
- ].
- ^ nameSpaceFilterSelection.
-!
-
-nameSpaceListMenuHolder
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#nameSpaceListMenuHolder) isNil ifTrue:[
- holder := ValueHolder new.
- builder aspectAt:#nameSpaceListMenuHolder put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-
- "Created: / 18.2.2000 / 11:52:55 / cg"
-!
-
-nameSpaceListWidget
- |view|
-
- view := SubCanvas new.
- view client:self spec:#embeddedNameSpaceListSpec builder:nil. "/ (self builder).
- (view builder findComponentAt:#List) autoHideHorizontalScrollBar:true.
- ^ view.
-!
-
-nameSpaceListWidgetHolder
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#nameSpaceListWidgetHolder) isNil ifTrue:[
- holder := ValueHolder new.
- builder aspectAt:#nameSpaceListWidgetHolder put:holder.
- holder value:(self nameSpaceListWidget).
- ].
- ^ holder.
-!
-
-notMetaToggle
- notMetaToggle isNil ifTrue:[
- notMetaToggle := PluggableAdaptor on:(self meta).
- notMetaToggle
- getBlock:[:m | m value == false]
- putBlock:[:m :newValue | m value:(newValue ? false) not]
- updateBlock:[:m :aspect :param | true].
- ].
- ^ notMetaToggle
-!
-
-organizerMode
- organizerMode isNil ifTrue:[
- organizerMode := self defaultOrganizerMode asValue.
- organizerMode addDependent:self.
- ].
- ^ organizerMode
-
- "Created: / 18.2.2000 / 00:30:44 / cg"
- "Modified: / 18.2.2000 / 02:56:21 / cg"
-!
-
-outGeneratorHolder
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#outGeneratorHolder) isNil ifTrue:[
- holder := ValueHolder new.
- builder aspectAt:#outGeneratorHolder put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-
- "Created: / 18.2.2000 / 00:23:43 / cg"
-!
-
-packageFilter
- "automatically generated by UIPainter ..."
-
- packageFilter isNil ifTrue:[
- packageFilter := ValueHolder new.
- "/ packageFilter addDependent:self.
- ].
- ^ packageFilter.
-
- "Created: / 24.2.2000 / 23:29:52 / cg"
-!
-
-packageList
- |holder|
-
- (holder := builder bindingAt:#packageList) isNil ifTrue:[
- holder := ValueHolder with:(ProjectList new listOfProjects).
- builder aspectAt:#packageList put:holder.
- ].
- ^ holder.
-!
-
-popUpNameSpaceListSlaveMode
- ^ false
-!
-
-projectDoubleClickChannel
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#projectDoubleClickChannel) isNil ifTrue:[
- holder := TriggerValue new.
- builder aspectAt:#projectDoubleClickChannel put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-!
-
-projectListMenuHolder
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- projectListMenuHolder isNil ifTrue:[
- projectListMenuHolder := ValueHolder new.
-"/ projectListMenuHolder addDependent:self.
- ].
- ^ projectListMenuHolder.
-
- "Created: / 18.2.2000 / 11:52:55 / cg"
-!
-
-selectedCategories
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- selectedCategories isNil ifTrue:[
- selectedCategories := ValueHolder new.
-"/ selectedCategories addDependent:self.
- ].
- ^ selectedCategories.
-
- "Created: / 18.2.2000 / 12:27:58 / cg"
-!
-
-selectedClasses
- "bad name- it's a holder, baby"
-
- selectedClasses isNil ifTrue:[
- selectedClasses := ValueHolder new.
- selectedClasses addDependent:self.
- ].
- ^ selectedClasses.
-
- "Created: / 18.2.2000 / 00:23:43 / cg"
-!
-
-selectedDiagramProject
- |holder|
-
- (holder := builder bindingAt:#selectedDiagramProject) isNil ifTrue:[
- holder := nil asValue.
- builder aspectAt:#selectedDiagramProject put:holder.
- holder addDependent:self.
- ].
- ^ holder.
-!
-
-selectedNamespaces
- selectedNamespaces isNil ifTrue:[
- selectedNamespaces := (OrderedCollection with:self class nameListEntryForALL) asValue.
- ].
- ^ selectedNamespaces.
-
- "Created: / 18.2.2000 / 12:27:58 / cg"
-!
-
-selectedProjects
- selectedProjects isNil ifTrue:[
- selectedProjects := ValueHolder new.
- selectedProjects addDependent:self.
- ].
- ^ selectedProjects.
-
- "Created: / 18.2.2000 / 12:16:01 / cg"
-!
-
-selectionChangeCondition
-
- selectionChangeCondition isNil ifTrue:[
- selectionChangeCondition := ValueHolder new.
-"/ selectionChangeCondition addDependent:self.
- ].
- ^ selectionChangeCondition.
-
- "Created: / 18.2.2000 / 00:23:43 / cg"
-!
-
-showAllClassesInNameSpaceOrganisation
- masterApplication notNil ifTrue:[
- ^ masterApplication showAllClassesInNameSpaceOrganisation
- ].
-
- showAllClassesInNameSpaceView isNil ifTrue:[
- showAllClassesInNameSpaceView := false asValue.
- ].
- ^ showAllClassesInNameSpaceView.
-
- "Created: / 05-03-2007 / 16:52:02 / cg"
- "Modified: / 06-03-2007 / 12:30:17 / cg"
-!
-
-showClassPackages
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- showClassPackages isNil ifTrue:[
- showClassPackages := false asValue.
-"/ showClassPackages addDependent:self.
- ].
- ^ showClassPackages.
-
- "Created: / 18.2.2000 / 17:54:57 / cg"
-!
-
-showCoverageInformation
- masterApplication notNil ifTrue:[
- ^ masterApplication showCoverageInformation
- ].
-
- showCoverageInformation isNil ifTrue:[
- showCoverageInformation := false asValue.
- ].
- ^ showCoverageInformation.
-
- "Created: / 27-04-2010 / 16:32:56 / cg"
-!
-
-showMethodComplexity
- masterApplication notNil ifTrue:[
- ^ masterApplication showMethodComplexity
- ].
-
- showMethodComplexity isNil ifTrue:[
- showMethodComplexity := false asValue.
- ].
- ^ showMethodComplexity.
-
- "Created: / 05-11-2007 / 16:56:36 / cg"
-!
-
-showMethodInheritance
- masterApplication notNil ifTrue:[
- ^ masterApplication showMethodInheritance
- ].
-
- showMethodInheritance isNil ifTrue:[
- showMethodInheritance := false asValue.
- ].
- ^ showMethodInheritance.
-
- "Created: / 05-11-2007 / 16:55:35 / cg"
-!
-
-showMethodTypeIcon
- masterApplication notNil ifTrue:[
- ^ masterApplication showMethodTypeIcon
- ].
-
- showMethodTypeIcon isNil ifTrue:[
- showMethodTypeIcon := false asValue.
- ].
- ^ showMethodTypeIcon.
-
- "Created: / 05-11-2007 / 16:57:12 / cg"
-!
-
-sortByNameAndInheritance
- sortByNameAndInheritance isNil ifTrue:[
- sortByNameAndInheritance := false asValue.
-"/ sortByNameAndInheritance addDependent:self.
- ].
- ^ sortByNameAndInheritance.
-
- "Created: / 04-07-2011 / 18:41:22 / cg"
-!
-
-sortVariablesByName
- sortVariablesByName isNil ifTrue:[
- sortVariablesByName := false asValue.
- ].
- ^ sortVariablesByName.
-!
-
-updateNameSpaceLabel
- |box|
-
- box := self componentAt:#NameSpaceFilterComboBox.
- box notNil ifTrue:[
- "/ new code: ExtComboBox uses always an EditField
- box editor contents:nameSpaceFilterSelection value first.
-
- "/ old code: readOnly ExtComboBox used a Label
- "/ box menuField label:nameSpaceFilterSelection value first
- ]
-!
-
-variableDoubleClickChannel
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#variableDoubleClickChannel) isNil ifTrue:[
- holder := TriggerValue new.
- builder aspectAt:#variableDoubleClickChannel put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-!
-
-variableFilter
- variableFilter isNil ifTrue:[
- variableFilter := ValueHolder new.
- ].
- ^ variableFilter.
-
- "Created: / 24.2.2000 / 23:29:52 / cg"
-!
-
-variablesMenuHolder
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- variablesMenuHolder isNil ifTrue:[
- variablesMenuHolder := ValueHolder new.
-"/ variablesMenuHolder addDependent:self.
- ].
- ^ variablesMenuHolder.
-
- "Created: / 24.2.2000 / 23:29:52 / cg"
-! !
-
-!OrganizerCanvas methodsFor:'aspects-exported'!
-
-classCategoryDoubleClickChannel:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ classCategoryDoubleClickChannel removeDependent:self.
-
- classCategoryDoubleClickChannel := something.
-
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.8.2000 / 20:04:48 / cg"
-!
-
-classCategoryListMenuHolder:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ classCategoryListMenuHolder removeDependent:self.
-
- classCategoryListMenuHolder := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 11:53:31 / cg"
-!
-
-classCategoryListUpdateTrigger:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ classCategoryListUpdateTrigger removeDependent:self.
-
- classCategoryListUpdateTrigger := something.
-
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 02:08:01 / cg"
-!
-
-classDoubleClickChannel:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ classDoubleClickChannel removeDependent:self.
-
- classDoubleClickChannel := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-!
-
-classHierarchyListMenuHolder:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ classHierarchyListMenuHolder removeDependent:self.
-
- classHierarchyListMenuHolder := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 11:53:31 / cg"
-!
-
-classHierarchyShown:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ |holder|
-
- "/ (holder := builder bindingAt:#classHierarchyShown) notNil ifTrue:[
- "/ holder removeDependent:self.
- "/ ].
- builder aspectAt:#classHierarchyShown put:something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 00:24:28 / cg"
-!
-
-classHierarchyTopClass:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ |holder|
-
- "/ (holder := builder bindingAt:#classHierarchyTopClass) notNil ifTrue:[
- "/ holder removeDependent:self.
- "/ ].
- builder aspectAt:#classHierarchyTopClass put:something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-!
-
-classHierarchyUpdateTrigger:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ |holder|
-
- "/ (holder := builder bindingAt:#classHierarchyUpdateTrigger) notNil ifTrue:[
- "/ holder removeDependent:self.
- "/ ].
- builder aspectAt:#classHierarchyUpdateTrigger put:something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 02:08:01 / cg"
-!
-
-classList:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ classList notNil ifTrue:[
- "/ classList removeDependent:self.
- "/ ].
- classList := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 00:24:28 / cg"
-!
-
-classListMenuHolder:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ classListMenuHolder removeDependent:self.
-
- classListMenuHolder := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 11:57:22 / cg"
-!
-
-classListUpdateTrigger:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ classListUpdateTrigger removeDependent:self.
-
- classListUpdateTrigger := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 02:08:01 / cg"
-!
-
-filterClassVars:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ filterClassVars removeDependent:self.
-
- filterClassVars := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 24.2.2000 / 23:46:16 / cg"
-!
-
-hidePrivateClasses:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ hidePrivateClasses removeDependent:self.
-
- hidePrivateClasses := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 24.2.2000 / 16:18:32 / cg"
-!
-
-hideUnloadedClasses:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ hideUnloadedClasses removeDependent:self.
-
- hideUnloadedClasses := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 17:54:57 / cg"
-!
-
-immediateUpdate:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ immediateUpdate removeDependent:self.
-
- immediateUpdate := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 00:24:29 / cg"
-!
-
-markApplicationsHolder:something
- markApplicationsHolder := something.
-!
-
-meta:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ meta notNil ifTrue:[
- "/ meta removeDependent:self.
- "/ ].
-"/ (something == true or:[something == false]) ifTrue:[self halt].
- meta := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- metaToggle notNil ifTrue:[
- metaToggle model:something
- ].
- notMetaToggle notNil ifTrue:[
- notMetaToggle model:something
- ].
- ^ self.
-
- "Created: / 18.2.2000 / 00:24:29 / cg"
-!
-
-metaToggleLabelHolder:something
- |v|
-
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ metaToggleLabelHolder removeDependent:self.
-
- metaToggleLabelHolder := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- (v := builder componentAt:#ClassToggle) notNil ifTrue:[
- v labelChannel:metaToggleLabelHolder.
- ].
- ^ self.
-
- "Created: / 18.2.2000 / 11:53:31 / cg"
-!
-
-methodVisibilityHolder:aValueHolder
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- methodVisibilityHolder := aValueHolder.
-
- "Created: / 05-11-2007 / 16:57:34 / cg"
-!
-
-nameSpaceFilter:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ packageFilter notNil ifTrue:[
- "/ packageFilter removeDependent:self.
- "/ ].
- nameSpaceFilter := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- self nameSpaceFilterSelection value:something value.
- ^ self.
-
- "Created: / 24.2.2000 / 23:46:16 / cg"
-!
-
-nameSpaceListMenuHolder:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ |holder|
-
- "/ (holder := builder bindingAt:#namespaceListMenuHolder) notNil ifTrue:[
- "/ holder removeDependent:self.
- "/ ].
- builder aspectAt:#nameSpaceListMenuHolder put:something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 11:53:31 / cg"
-!
-
-nameSpaceListUpdateTrigger:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ |holder|
-
- "/ (holder := builder bindingAt:#namespaceListUpdateTrigger) notNil ifTrue:[
- "/ holder removeDependent:self.
- "/ ].
- builder aspectAt:#nameSpaceListUpdateTrigger put:something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 02:08:01 / cg"
-!
-
-organizerMode:aValueHolder
- organizerMode notNil ifTrue:[
- organizerMode removeDependent:self.
- ].
- organizerMode := aValueHolder.
- organizerMode notNil ifTrue:[
- organizerMode addDependent:self.
- ].
-
- "Created: / 18.2.2000 / 10:21:41 / cg"
-!
-
-outGeneratorHolder:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ |holder|
-
- "/ (holder := builder bindingAt:#outGeneratorHolder) notNil ifTrue:[
- "/ holder removeDependent:self.
- "/ ].
- builder aspectAt:#outGeneratorHolder put:something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 00:24:29 / cg"
-!
-
-packageFilter:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ packageFilter notNil ifTrue:[
- "/ packageFilter removeDependent:self.
- "/ ].
- packageFilter := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 24.2.2000 / 23:46:16 / cg"
-!
-
-projectDoubleClickChannel:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ |holder|
-
- "/ (holder := builder bindingAt:#projectDoubleClickChannel) notNil ifTrue:[
- "/ holder removeDependent:self.
- "/ ].
- builder aspectAt:#projectDoubleClickChannel put:something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-!
-
-projectListMenuHolder:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- projectListMenuHolder := something.
-
- "Created: / 18.2.2000 / 11:53:31 / cg"
-!
-
-projectListUpdateTrigger:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ |holder|
-
- "/ (holder := builder bindingAt:#projectListUpdateTrigger) notNil ifTrue:[
- "/ holder removeDependent:self.
- "/ ].
- builder aspectAt:#projectListUpdateTrigger put:something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 02:08:01 / cg"
-!
-
-selectedCategories:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- selectedCategories := something.
- ^ self.
-
- "Created: / 18.2.2000 / 14:04:36 / cg"
-!
-
-selectedClasses:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- selectedClasses removeDependent:self.
-
- selectedClasses := something.
- something notNil ifTrue:[
- something addDependent:self.
- ].
- ^ self.
-
- "Created: / 18.2.2000 / 00:24:29 / cg"
-!
-
-selectedNamespaces:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- selectedNamespaces := something.
- selectedNamespaces onChangeEvaluate:[
- nameSpaceFilterSelection notNil ifTrue:[
- nameSpaceFilterSelection value:selectedNamespaces value.
- ]
- ].
-
- "Modified: / 05-11-2007 / 17:16:56 / cg"
-!
-
-selectedProjects:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- selectedProjects := something.
-!
-
-selectionChangeCondition:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- selectionChangeCondition := something.
-!
-
-showClassPackages:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- showClassPackages := something.
-!
-
-showCoverageInformation:something
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- showCoverageInformation := something.
-
- "Created: / 06-07-2011 / 19:48:20 / cg"
-!
-
-showMethodComplexity:aValueHolder
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- showMethodComplexity := aValueHolder.
-
- "Created: / 05-11-2007 / 16:56:18 / cg"
-!
-
-showMethodInheritance:aValueHolder
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- showMethodInheritance := aValueHolder.
-
- "Created: / 05-11-2007 / 16:55:12 / cg"
-!
-
-showMethodTypeIcon:aValueHolder
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- showMethodTypeIcon := aValueHolder.
-
- "Created: / 05-11-2007 / 16:57:02 / cg"
-!
-
-sortByNameAndInheritance:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ sortByNameAndInheritance removeDependent:self.
-
- sortByNameAndInheritance := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
-
- "Created: / 04-07-2011 / 18:42:01 / cg"
-!
-
-sortVariablesByName:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- sortVariablesByName := something.
-!
-
-variableDoubleClickChannel:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ |holder|
-
- "/ (holder := builder bindingAt:#variableDoubleClickChannel) notNil ifTrue:[
- "/ holder removeDependent:self.
- "/ ].
- builder aspectAt:#variableDoubleClickChannel put:something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-!
-
-variableFilter:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- variableFilter := something.
-!
-
-variablesMenuHolder:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- variablesMenuHolder := something.
-! !
-
-!OrganizerCanvas methodsFor:'aspects-private'!
-
-categoryListSlaveMode
- categoryListSlaveMode isNil ifTrue:[
- categoryListSlaveMode := false asValue.
- ].
- ^ categoryListSlaveMode
-
- "Created: / 18.2.2000 / 00:30:44 / cg"
- "Modified: / 18.2.2000 / 02:56:21 / cg"
-!
-
-classHierarchyListSlaveMode
- classHierarchyListSlaveMode isNil ifTrue:[
- classHierarchyListSlaveMode := true asValue.
- ].
- ^ classHierarchyListSlaveMode
-
- "Created: / 18.2.2000 / 00:30:44 / cg"
- "Modified: / 18.2.2000 / 02:56:21 / cg"
-!
-
-classInheritanceListSlaveMode
- classInheritanceListSlaveMode isNil ifTrue:[
- classInheritanceListSlaveMode := true asValue.
- ].
- ^ classInheritanceListSlaveMode
-
- "Modified: / 18.2.2000 / 02:56:21 / cg"
- "Created: / 26.2.2000 / 00:09:18 / cg"
-!
-
-classListSlaveMode
- classListSlaveMode isNil ifTrue:[
- classListSlaveMode := false asValue.
- ].
- ^ classListSlaveMode
-
- "Created: / 18.2.2000 / 00:30:44 / cg"
- "Modified: / 18.2.2000 / 02:56:21 / cg"
-!
-
-nameSpaceListSlaveMode
- namespaceListSlaveMode isNil ifTrue:[
- namespaceListSlaveMode := true asValue.
- ].
- ^ namespaceListSlaveMode
-
- "Created: / 18.2.2000 / 00:30:44 / cg"
- "Modified: / 18.2.2000 / 02:56:21 / cg"
-!
-
-projectListSlaveMode
- projectListSlaveMode isNil ifTrue:[
- projectListSlaveMode := true asValue.
- ].
- ^ projectListSlaveMode
-
- "Created: / 18.2.2000 / 00:30:44 / cg"
- "Modified: / 18.2.2000 / 02:56:21 / cg"
-! !
-
-!OrganizerCanvas methodsFor:'aspects-trigger'!
-
-classCategoryListUpdateTrigger
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- classCategoryListUpdateTrigger isNil ifTrue:[
- classCategoryListUpdateTrigger := TriggerValue new.
-"/ classCategoryListUpdateTrigger addDependent:self.
- ].
- ^ classCategoryListUpdateTrigger.
-
- "Created: / 18.2.2000 / 02:05:14 / cg"
- "Modified: / 18.2.2000 / 02:14:04 / cg"
-!
-
-classHierarchyUpdateTrigger
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#classHierarchyUpdateTrigger) isNil ifTrue:[
- holder := TriggerValue new.
- builder aspectAt:#classHierarchyUpdateTrigger put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-
- "Created: / 18.2.2000 / 02:05:14 / cg"
- "Modified: / 18.2.2000 / 02:13:57 / cg"
-!
-
-classListUpdateTrigger
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- classListUpdateTrigger isNil ifTrue:[
- classListUpdateTrigger := TriggerValue new.
-"/ classListUpdateTrigger addDependent:self.
- ].
- ^ classListUpdateTrigger.
-
- "Created: / 18.2.2000 / 02:05:14 / cg"
- "Modified: / 18.2.2000 / 02:14:08 / cg"
-!
-
-forceClassCategoryGeneratorTrigger
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#forceClassCategoryGeneratorTrigger) isNil ifTrue:[
- holder := TriggerValue new.
- builder aspectAt:#forceClassCategoryGeneratorTrigger put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-
- "Created: / 18.2.2000 / 02:49:43 / cg"
- "Modified: / 18.2.2000 / 02:52:30 / cg"
-!
-
-forceClassHierarchyGeneratorTrigger
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#forceClassHierarchyGeneratorTrigger) isNil ifTrue:[
- holder := TriggerValue new.
- builder aspectAt:#forceClassHierarchyGeneratorTrigger put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-
- "Created: / 18.2.2000 / 02:49:43 / cg"
- "Modified: / 18.2.2000 / 02:52:32 / cg"
-!
-
-forceNamespaceGeneratorTrigger
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#forceNamespaceGeneratorTrigger) isNil ifTrue:[
- holder := TriggerValue new.
- builder aspectAt:#forceNamespaceGeneratorTrigger put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-
- "Created: / 18.2.2000 / 02:49:43 / cg"
- "Modified: / 18.2.2000 / 02:52:35 / cg"
-!
-
-forceProjectGeneratorTrigger
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#forceProjectGeneratorTrigger) isNil ifTrue:[
- holder := TriggerValue new.
- builder aspectAt:#forceProjectGeneratorTrigger put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-
- "Created: / 18.2.2000 / 02:49:43 / cg"
- "Modified: / 18.2.2000 / 02:52:38 / cg"
-!
-
-nameSpaceListUpdateTrigger
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#nameSpaceListUpdateTrigger) isNil ifTrue:[
- holder := TriggerValue new.
- builder aspectAt:#nameSpaceListUpdateTrigger put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-
- "Created: / 18.2.2000 / 02:05:14 / cg"
- "Modified: / 18.2.2000 / 02:14:12 / cg"
-!
-
-projectListUpdateTrigger
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#projectListUpdateTrigger) isNil ifTrue:[
- holder := TriggerValue new.
- builder aspectAt:#projectListUpdateTrigger put:holder.
-"/ holder addDependent:self.
- ].
- ^ holder.
-
- "Created: / 18.2.2000 / 02:05:14 / cg"
- "Modified: / 18.2.2000 / 02:14:15 / cg"
-! !
-
-!OrganizerCanvas methodsFor:'aspects-visibility'!
-
-categoryListShown
- categoryListShown isNil ifTrue:[
- categoryListShown := BlockValue
- with:[:v | v == OrganizerCanvas organizerModeCategory]
- argument:(self organizerMode).
- ].
- ^ categoryListShown
-
- "Modified: / 08-03-2007 / 23:01:48 / cg"
-!
-
-categoryNameSpaceAndProjectPanelShown
- |holder|
-
- (holder := builder bindingAt:#categoryNameSpaceAndProjectPanelShown) isNil ifTrue:[
- holder := BlockValue
- with:[:v1 :v2 :v3 | (v1 or:[v2 or:[v3]]) not]
- argument:(self classHierarchyShown)
- argument:(self classInheritanceShown)
- argument:(self packageDiagramShown).
- builder aspectAt:#categoryNameSpaceAndProjectPanelShown put: holder
- ].
- ^ holder
-
- "Modified: / 08-03-2007 / 23:01:57 / cg"
-!
-
-classHierarchyNotShown
- |holder|
-
- (holder := builder bindingAt:#classHierarchyNotShown) isNil ifTrue:[
- holder := BlockValue
- with:[:v | |org|
- org := v.
- org ~~ OrganizerCanvas organizerModeHierarchy
- and:[org ~~ OrganizerCanvas organizerModeClassHierarchy
- and:[org ~~ OrganizerCanvas organizerModeClassInheritance]]]
- argument:(self organizerMode).
- builder aspectAt:#classHierarchyNotShown put: holder
- ].
- ^ holder
-
- "Created: / 18-02-2000 / 00:36:38 / cg"
- "Modified: / 08-03-2007 / 23:01:51 / cg"
-!
-
-classHierarchyOrInheritanceNotShown
- <resource: #obsolete>
-
- |holder|
-
- (holder := builder bindingAt:#classHierarchyOrInheritanceNotShown) isNil ifTrue:[
- holder := BlockValue
- with:[:v1 :v2 | (v1 or:[v2]) not]
- argument:(self classHierarchyShown)
- argument:(self classInheritanceShown).
- builder aspectAt:#classHierarchyOrInheritanceNotShown put: holder
- ].
- ^ holder
-
- "Modified: / 08-03-2007 / 23:01:57 / cg"
-!
-
-classHierarchyOrInheritanceShown
- |holder|
-
- (holder := builder bindingAt:#classHierarchyOrInheritanceShown) isNil ifTrue:[
- holder := BlockValue
- with:[:v1 :v2 | v1 or:[v2] ]
- argument:(self classHierarchyShown)
- argument:(self classInheritanceShown).
- builder aspectAt:#classHierarchyOrInheritanceShown put: holder
- ].
- ^ holder
-
- "Modified: / 08-03-2007 / 23:02:03 / cg"
-!
-
-classHierarchyShown
- |holder|
-
- (holder := builder bindingAt:#classHierarchyShown) isNil ifTrue:[
- holder := BlockValue
- with:[:v | |org|
- org := v.
- org == OrganizerCanvas organizerModeHierarchy
- or:[org == OrganizerCanvas organizerModeClassHierarchy]]
- argument:(self organizerMode).
- builder aspectAt:#classHierarchyShown put: holder
- ].
- ^ holder
-
- "Modified: / 08-03-2007 / 23:02:07 / cg"
-!
-
-classInheritanceShown
- |holder|
-
- (holder := builder bindingAt:#classInheritanceShown) isNil ifTrue:[
- holder := BlockValue
- with:[:v | v == OrganizerCanvas organizerModeClassInheritance]
- argument:(self organizerMode).
- builder aspectAt:#classInheritanceShown put: holder
- ].
- ^ holder
-
- "Created: / 24-02-2000 / 13:23:01 / cg"
- "Modified: / 08-03-2007 / 23:02:09 / cg"
-!
-
-classListShown
- |holder|
-
- (holder := builder bindingAt:#classListShown) isNil ifTrue:[
- holder := BlockValue
- with:[:v | v ~~ OrganizerCanvas organizerModeHierarchy]
- argument:(self organizerMode).
- builder aspectAt:#classListShown put: holder
- ].
- ^ holder
-
- "Modified: / 08-03-2007 / 23:02:12 / cg"
-!
-
-nameSpaceListShown
- |holder|
-
- (holder := builder bindingAt:#nameSpaceListShown) isNil ifTrue:[
- holder := BlockValue
- with:[:v | v == OrganizerCanvas organizerModeNamespace]
- argument:(self organizerMode).
- builder aspectAt:#nameSpaceListShown put: holder
- ].
- ^ holder
-
- "Created: / 18-02-2000 / 00:32:09 / cg"
- "Modified: / 08-03-2007 / 23:02:15 / cg"
-!
-
-packageDiagramShown
- |holder|
-
- (holder := builder bindingAt:#packageDiagramShown) isNil ifTrue:[
- holder := BlockValue
- with:[:v | |org|
- org := v.
- org == OrganizerCanvas organizerModePackageDiagram]
- argument:(self organizerMode).
- builder aspectAt:#packageDiagramShown put: holder
- ].
- ^ holder
-
- "Modified: / 08-03-2007 / 23:02:07 / cg"
-!
-
-projectListShown
- |holder|
-
- (holder := builder bindingAt:#projectListShown) isNil ifTrue:[
- holder := BlockValue
- with:[:v | v == OrganizerCanvas organizerModeProject]
- argument:(self organizerMode).
- builder aspectAt:#projectListShown put: holder
- ].
- ^ holder
-
- "Created: / 18-02-2000 / 00:32:09 / cg"
- "Modified: / 08-03-2007 / 23:02:18 / cg"
-! !
-
-!OrganizerCanvas methodsFor:'change & update'!
-
-diagramClassSelectionChanged
- |graphApp classes|
-
- graphApp := self diagramApplicationModelHolder value.
-
- classes := graphApp selectedClassesHolder value.
- self classGeneratorHolder value:classes.
- self classList value:classes.
- self selectedClasses value:classes.
-
-"/ self outGeneratorHolder value:classes.
-!
-
-diagramPackageSelectionChanged
- |package|
-
- self packageDiagramShown value ifTrue:[
- package := self diagramPackageSelection value.
- self withWaitCursorDo:[
- self diagramApplicationModelHolder value
- packages:(Array with:package);
- generateDiagram
- ]
- ].
-!
-
-packageFilterChanged
-!
-
-selectedProjectsChanged
- self updatePackageDiagramView
-!
-
-update:something with:aParameter from:changedObject
- |orgMode trigger classes selectedClassesHolder selectionValue|
-
- orgMode := organizerMode value.
- selectedClassesHolder := self selectedClasses.
- classes := selectedClassesHolder value copy ? #().
-
- changedObject == packageFilter ifTrue:[
- self breakPoint:#cg
- ].
-
- changedObject == organizerMode ifTrue:[
- self classHierarchyListSlaveMode value:true.
- self classInheritanceListSlaveMode value:true.
- self classListSlaveMode value:true.
- self categoryListSlaveMode value:true.
- self nameSpaceListSlaveMode value:true.
- self projectListSlaveMode value:true.
-
- self variableFilter value:nil.
- self packageFilter value:nil.
- self nameSpaceFilter value:nil.
-
- "/ must update the packageFilter
- orgMode == OrganizerCanvas organizerModeProject ifTrue:[
- self selectedProjects value:(classes collect:[:each | each package]) asSet.
- packageFilter setValue:(self selectedProjects value)
- ] ifFalse:[
- packageFilter value:nil
- ].
-
- self updateOrganizationFromChangedClass.
-
- orgMode == OrganizerCanvas organizerModeCategory ifTrue:[
- trigger := self forceClassCategoryGeneratorTrigger.
- ] ifFalse:[ orgMode == OrganizerCanvas organizerModeHierarchy ifTrue:[
- trigger := self forceClassHierarchyGeneratorTrigger.
- ] ifFalse:[ orgMode == OrganizerCanvas organizerModeNamespace ifTrue:[
- trigger := self forceNamespaceGeneratorTrigger
- ] ifFalse:[ orgMode == OrganizerCanvas organizerModeProject ifTrue:[
- trigger := self forceProjectGeneratorTrigger.
- ] ifFalse:[ ((orgMode == OrganizerCanvas organizerModeClassHierarchy)
- or:[orgMode == OrganizerCanvas organizerModeClassInheritance]) ifTrue:[
-"/ trigger := self forceClassHierarchyGeneratorTrigger.
- ]]]]].
-
- trigger notNil ifTrue:[
- trigger value:true
- ].
- "/ selectedClassesHolder value:classes.
-
- (orgMode == OrganizerCanvas organizerModeClassHierarchy or:[orgMode == OrganizerCanvas organizerModeHierarchy]) ifTrue:[
- classHierarchyListSlaveMode value:false.
- ].
- (orgMode == OrganizerCanvas organizerModeClassInheritance) ifTrue:[
- classInheritanceListSlaveMode value:false.
- ].
- (orgMode == OrganizerCanvas organizerModeClassInheritance
- or:[orgMode == OrganizerCanvas organizerModeClassHierarchy
- or:[orgMode == OrganizerCanvas organizerModeHierarchy]])
- ifFalse:[
- classListSlaveMode value:false.
- ].
- (orgMode == OrganizerCanvas organizerModeCategory) ifTrue:[
- categoryListSlaveMode value:false.
- ].
- (orgMode == OrganizerCanvas organizerModeNamespace) ifTrue:[
- namespaceListSlaveMode value:false.
- ].
- (orgMode == OrganizerCanvas organizerModeProject) ifTrue:[
- projectListSlaveMode value:false.
- ].
- (orgMode == OrganizerCanvas organizerModePackageDiagram) ifTrue:[
- "/
- self selectedProjects value isEmptyOrNil ifTrue:[
- self updateProjectSelectionFromClasses.
- ].
- ].
-
- ^ self
- ].
-
- changedObject == selectedClasses ifTrue:[
- selectedClasses value size ~~ 0 ifTrue:[
- (orgMode ~~ OrganizerCanvas organizerModeClassHierarchy
- and:[ orgMode ~~ OrganizerCanvas organizerModeProject
- and:[ orgMode ~~ OrganizerCanvas organizerModePackageDiagram ]]) ifTrue:[
- self updateOrganizationFromChangedClass.
- ].
- ]
- ].
-"/ changedObject == selectedNamespaces ifTrue:[
-"/ self halt.
-"/ ].
- changedObject == nameSpaceFilterSelection ifTrue:[
- selectionValue := nameSpaceFilterSelection value.
- selectionValue size > 1 ifTrue:[
- nameSpaceFilterSelection value:(OrderedCollection with:selectionValue first).
- selectionValue := nameSpaceFilterSelection value.
- ].
- self selectedNamespaces value:selectionValue.
- selectionValue size > 0 ifTrue:[
- self nameSpaceFilterSelectedNameSpace setValue:selectionValue first.
- self updateNameSpaceLabel.
- ].
- self nameSpaceFilter value: selectionValue.
- ].
- changedObject == self selectedProjects ifTrue:[
- self breakPoint:#cg.
- self selectedProjectsChanged.
- ].
- changedObject == self selectedDiagramProject ifTrue:[
- self breakPoint:#cg.
- self selectedProjects value:(Array with:self selectedDiagramProject value).
- self selectedProjectsChanged.
- ^ self
- ].
-
- super update:something with:aParameter from:changedObject
-
- "Modified: / 27-04-2010 / 16:58:31 / cg"
-!
-
-updateCategorySelectionFromClasses
- |allEntry changedEntry oldSelectedCategories categories|
-
- allEntry := self class nameListEntryForALL.
- changedEntry := self class nameListEntryForChanged.
-
- categories := Set new.
- oldSelectedCategories := self selectedCategories value.
-
- "/ category-selection feedBack;
- "/ if '* all *' was in its selection, keep it (to avoid updating the classList)
- oldSelectedCategories size > 0 ifTrue:[
- (oldSelectedCategories includes:allEntry) ifTrue:[
- categories add:allEntry
- ].
- oldSelectedCategories do:[:entry |
- (NavigatorModel isPseudoCategory:entry) ifTrue:[
- (oldSelectedCategories size == 1) ifTrue:[
- "/ don't switch to category
- ^ self
- ].
- categories add:entry
- ].
- ].
- ].
-
- (self selectedClasses value ? #()) do:[:eachSelectedClass |
- |cat cls|
-
- cls := eachSelectedClass theNonMetaclass.
- cls isPrivate ifTrue:[
- cls := cls topOwningClass.
- ].
- cat := cls category.
- categories add:cat.
- ].
-
- (categories conform:[:each | (self selectedCategories value ? #()) includes:each]) ifFalse:[
- self selectedCategories value:categories.
- ].
-
- "Modified: / 18.2.2000 / 13:17:36 / cg"
-!
-
-updateNamespaceSelectionFromClasses
- "invoked when switching to the namespace-organization;
- update selected namespaces from the set of selected classes"
-
- |allEntry classes selectedNamespaces oldSelectedNamespaces|
-
- allEntry := self class nameListEntryForALL.
-
- classes := self selectedClasses value.
- classes isEmptyOrNil ifTrue:[
- |categories includesAll|
-
- categories := self selectedCategories value.
- categories notEmptyOrNil ifTrue:[
- includesAll := categories includes:BrowserList nameListEntryForALL.
- classes := Smalltalk allClassesForWhich:[:aClass |
- (includesAll or:[categories includes:aClass category]).
- ].
- ].
- ].
- classes notEmptyOrNil ifTrue:[
- selectedNamespaces := self selectedNamespaces value.
- oldSelectedNamespaces := (selectedNamespaces ? #()) asSet.
- selectedNamespaces := Set new.
-
- "/ namespace-selection feedBack;
- "/ if '* all *' was in its selection, keep it (to avoid updating the classList)
-"/ (oldSelectedNamespaces includes:allEntry) ifTrue:[
-"/ selectedNamespaces add:allEntry.
-"/ ].
- selectedNamespaces addAll:(classes collect:[:eachClass | eachClass theNonMetaclass topNameSpace name.]).
-
- classes := classes copy.
- "/ selectedNamespaces ~= oldSelectedNamespaces ifTrue:[
- self selectedNamespaces value:selectedNamespaces.
- "/ ].
-
-"/ (classes ~= self selectedClasses) value ifTrue:[self halt:'oops'].
- ].
-
- "Modified: / 10-08-2006 / 16:04:55 / cg"
-!
-
-updateOrganizationFromChangedClass
- |orgMode selectedClassesHolder selectedClasses classHierarchyTopClassHolder commonSuperClass|
-
- orgMode := organizerMode value.
- selectedClassesHolder := self selectedClasses.
- selectedClasses := selectedClassesHolder value.
- classHierarchyTopClassHolder := self classHierarchyTopClass.
-
- orgMode == OrganizerCanvas organizerModeCategory ifTrue:[
- self updateCategorySelectionFromClasses.
- ^ self.
- ].
- orgMode == OrganizerCanvas organizerModeNamespace ifTrue:[
- self updateNamespaceSelectionFromClasses.
- ^ self.
- ].
- orgMode == OrganizerCanvas organizerModeProject ifTrue:[
- self updateProjectSelectionFromClasses.
- ^ self.
- ].
- orgMode == OrganizerCanvas organizerModeHierarchy ifTrue:[
- classHierarchyTopClassHolder value:nil.
- ^ self.
- ].
- (orgMode == OrganizerCanvas organizerModeClassHierarchy) ifTrue:[
-"/ (selectedClasses size == 1) ifTrue:[
-"/ self classHierarchyTopClass value:selectedClasses first
-"/ ].
- "/ classHierarchyTopClassHolder value isNil ifTrue:[
- selectedClasses size > 0 ifTrue:[
- commonSuperClass := selectedClasses
- inject:selectedClasses first
- into:[:commonSuperClass :thisClass | commonSuperClass commonSuperclass:thisClass ].
- classHierarchyTopClassHolder value:commonSuperClass "selectedClasses first".
- ].
- "/ ].
- ^ self.
- ].
- (orgMode == OrganizerCanvas organizerModeClassInheritance) ifTrue:[
- classHierarchyTopClassHolder value:
- ((selectedClasses size == 1) ifTrue:[selectedClasses first] ifFalse:nil).
- ^ self.
- ].
- orgMode == OrganizerCanvas organizerModePackageDiagram ifTrue:[
- self updatePackageDiagramView.
- ].
-!
-
-updatePackageDiagramView
- |diagramApp packages selectedClasses|
-
- self packageDiagramShown computeValue ifTrue:[
- diagramApp := self diagramApplicationModelHolder value.
- selectedClasses := self selectedClasses value ? #().
-
- packages := self selectedProjects value ? #().
- packages isEmpty ifTrue:[
- selectedClasses notEmptyOrNil ifTrue:[
- packages := (selectedClasses collect:[:cls | cls package]) asSet asOrderedCollection.
- ].
- ].
-
- self selectedDiagramProject value:(packages firstIfEmpty:nil) withoutNotifying:self.
- diagramApp notNil ifTrue:[
- self withWaitCursorDo:[
- diagramApp
- packages:packages;
- generateDiagram;
- selectClasses:selectedClasses.
- ]
- ]
- ].
-
- "Modified: / 28-04-2010 / 08:16:55 / cg"
-!
-
-updateProjectSelectionFromClasses
- "invoked when switching to the projects-organization;
- update selected projects from the set of selected classes"
-
- |allEntry classes selectedProjects oldSelectedProjects categories|
-
- allEntry := self class nameListEntryForALL.
-
- selectedProjects := self selectedProjects value.
- oldSelectedProjects := (selectedProjects ? #()) asSet.
-
- variableFilter value:nil.
- packageFilter value:nil.
- nameSpaceFilter value:nil.
-
- selectedProjects := Set new.
- "/ project-selection feedBack;
- "/ if '* all *' was in its selection, keep it (to avoid updating the classList)
- (oldSelectedProjects size > 0
- and:[oldSelectedProjects includes:allEntry])
- ifTrue:[
- selectedProjects add:allEntry.
- ].
-
- classes := self selectedClasses value.
- classes isEmptyOrNil ifTrue:[
- classes := OrderedCollection new.
- categories := self selectedCategories value.
- categories notEmptyOrNil ifTrue:[
- categories do:[:eachCategory |
- classes addAll:(Smalltalk allClassesInCategory:eachCategory)
- ].
- ].
- ].
- classes notEmptyOrNil ifTrue:[
- classes do:[:eachClass |
- selectedProjects add:(eachClass package).
- eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
- selectedProjects add:(mthd package).
- ]
- ].
- ].
-
- selectedProjects ~= oldSelectedProjects ifTrue:[
- self selectedProjects value:selectedProjects.
- ].
-
- "Created: / 26-02-2000 / 01:09:13 / cg"
- "Modified: / 22-02-2007 / 13:52:21 / cg"
-! !
-
-!OrganizerCanvas methodsFor:'forwarder operations'!
-
-copyMethods:methods toClass:cls
- self masterApplication copyMethods:methods toClass:cls.
-!
-
-moveClasses:classes toCategory:cat
- self masterApplication moveClasses:classes toCategory:cat
-!
-
-moveClasses:classes toProject:cat
- self masterApplication moveClasses:classes toProject:cat
-!
-
-moveMethods:methods toClass:cls
- self masterApplication moveMethods:methods toClass:cls.
-!
-
-moveMethods:methods toProject:package
- self masterApplication moveMethods:methods toProject:package.
-! !
-
-!OrganizerCanvas methodsFor:'help specs'!
-
-flyByHelpTextFor:aComponent
- (aComponent isSameOrComponentOf:(builder componentAt:#NameSpaceFilterComboBox)) ifTrue:[
- ^ resources string:'Namespace filter'
- ].
- ^ super flyByHelpTextFor:aComponent
-! !
-
-!OrganizerCanvas methodsFor:'initialize-release'!
-
-release
- super release.
-
- nameSpaceFilterSelection removeDependent:self.
- organizerMode removeDependent:self.
- selectedClasses removeDependent:self.
-! !
-
-!OrganizerCanvas methodsFor:'private'!
-
-nameSpaceListWidgetWasBuilt:widget
- |list|
-
- "/ sigh - cannot do this in the nameSpaceListWidget method,
- "/ because the GUI is build late (when the menu is popped up the first time)
- widget application immediateUpdate:true.
- list := widget builder componentAt:#List.
- list autoHideHorizontalScrollBar:true.
-! !
-
-!OrganizerCanvas methodsFor:'subapplications'!
-
-diagramApplicationModelHolder
- |holder graphApp|
-
- (holder := builder bindingAt:#diagramApplicationModelHolder) isNil ifTrue:[
- OOM::MetricVisualizer notNil ifTrue:[
- graphApp := OOM::MetricVisualizer new.
- graphApp masterApplication:self.
- graphApp selectedClassesHolder onChangeSend:#diagramClassSelectionChanged to:self.
- graphApp showShortClassInfo:true.
- graphApp ignoreAutoloadedClasses:true.
- graphApp askForAutoload:false.
-
- holder := ValueHolder new.
- holder value:graphApp.
- builder aspectAt:#diagramApplicationModelHolder put: holder.
-
- self packageFilter onChangeSend:#packageFilterChanged to:self.
- ].
- ].
- ^ holder
-! !
-
-!OrganizerCanvas class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.50 2012-11-03 11:43:46 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.50 2012-11-03 11:43:46 cg Exp $'
-! !
--- a/Tools_ProjectList.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,973 +0,0 @@
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-BrowserList subclass:#ProjectList
- instanceVariableNames:'projectList projectNameList selectionIndexHolder worker
- workerQueue includedPseudoEntryForChanged'
- classVariableNames:'AdditionalEmptyProjects HideModules'
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!ProjectList class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-!
-
-documentation
-"
- I implement the project list in the new system browser
-"
-! !
-
-!ProjectList class methodsFor:'interface specs'!
-
-singleProjectWindowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:ClassCategoryList andSelector:#singleCategoryWindowSpec
- ClassCategoryList new openInterface:#singleCategoryWindowSpec
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #singleProjectWindowSpec
- #window:
- #(#WindowSpec
- #label: 'ProjectList'
- #name: 'ProjectList'
- #min: #(#Point 0 0)
- #max: #(#Point 1024 721)
- #bounds: #(#Rectangle 218 175 518 475)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'ProjectName'
- #name: 'ProjectLabel'
- #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)
- #translateLabel: true
- #labelChannel: #projectLabelHolder
- #menu: #menuHolder
- )
- )
-
- )
- )
-!
-
-windowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:ProjectList andSelector:#windowSpec
- ProjectList new openInterface:#windowSpec
- ProjectList open
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'ProjectList'
- #name: 'ProjectList'
- #min: #(#Point 0 0)
- #bounds: #(#Rectangle 13 23 313 323)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SequenceViewSpec
- #name: 'List'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #tabable: true
- #model: #selectionIndexHolder
- #menu: #menuHolder
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #isMultiSelect: true
- #valueChangeSelector: #selectionChangedByClick
- #useIndex: true
- #sequenceList: #projectNameList
- #doubleClickChannel: #doubleClickChannel
- #properties:
- #(#PropertyListDictionary
- #dragArgument: nil
- #dropArgument: nil
- #canDropSelector: #canDropContext:
- #dropSelector: #doDropContext:
- )
- )
- )
-
- )
- )
-
- "Created: / 17.2.2000 / 23:45:47 / cg"
- "Modified: / 17.2.2000 / 23:47:53 / cg"
-! !
-
-!ProjectList class methodsFor:'queries-plugin'!
-
-aspectSelectors
- ^ #(
- #(#doubleClickChannel #action )
- immediateUpdate
- selectedProjects
- menuHolder
- outGeneratorHolder
- inGeneratorHolder
- selectionChangeCondition
- updateTrigger
- forceGeneratorTrigger
- hideUnloadedClasses
- organizerMode
- slaveMode
- )
-
- "Created: / 17.2.2000 / 23:46:18 / cg"
- "Modified: / 25.2.2000 / 22:32:10 / cg"
-! !
-
-!ProjectList methodsFor:'accessing'!
-
-includedPseudoEntryForChanged:something
- includedPseudoEntryForChanged := something.
-! !
-
-!ProjectList methodsFor:'aspects'!
-
-itemList
- ^ self projectList value
-!
-
-projectLabelHolder
- ^ self pseudoListLabelHolder
-!
-
-projectList
- projectList isNil ifTrue:[
- projectList := ValueHolder new.
- projectList addDependent:self.
- ].
- ^ projectList
-
- "Created: / 17.2.2000 / 23:39:32 / cg"
-!
-
-projectNameList
- projectNameList isNil ifTrue:[
- projectNameList := ValueHolder new.
- "/ projectNameList addDependent:self.
- ].
- ^ projectNameList
-
- "Created: / 17.2.2000 / 23:39:32 / cg"
-!
-
-selectedProjects
- ^ self selectionHolder
-
- "Created: / 17.2.2000 / 23:39:57 / cg"
-!
-
-selectedProjects:aValueHolder
- ^ self selectionHolder:aValueHolder
-!
-
-selectionIndexHolder
- selectionIndexHolder isNil ifTrue:[
- selectionIndexHolder := 0 asValue.
- selectionIndexHolder addDependent:self.
- ].
- ^ selectionIndexHolder
-
- "Created: / 17.2.2000 / 23:39:32 / cg"
-! !
-
-!ProjectList methodsFor:'change & update'!
-
-delayedUpdate:something with:aParameter from:changedObject
- |cls sel pkg mthd newSel allIdx|
-
- self inSlaveModeOrInvisible
- "/ (self slaveMode value == true)
- ifTrue:[
- (changedObject == Smalltalk
- or:[ something == #projectOrganization ]) ifTrue:[
- listValid := false
- ].
- ^ self
- ].
-
- changedObject == self selectionIndexHolder ifTrue:[
- listValid ifFalse:[
- self updateList.
- ].
- newSel := changedObject value collect:[:idx | projectList value at:idx].
- newSel ~= self selectedProjects value ifTrue:[
- self selectedProjects value:newSel.
- ].
- ^ self.
- ].
- changedObject == self selectionHolder ifTrue:[
- listValid ifFalse:[
- self updateList.
- ].
- allIdx := projectList value indexOf:(self class nameListEntryForALL).
- newSel := changedObject value
- collect:[:val | |i|
- i := projectList value indexOf:val.
- i == 0 ifTrue:[allIdx] ifFalse:[i]]
- thenSelect:[:idx | idx ~~ 0].
- newSel ~= self selectionIndexHolder value ifTrue:[
- self selectionIndexHolder value:newSel
- ].
- ].
-
- changedObject == slaveMode ifTrue:[
- listValid ~~ true ifTrue:[
- self enqueueDelayedUpdateList
- ].
- "/ self invalidateList.
- ^ self
- ].
-
- changedObject == self projectList ifTrue:[
- ^ self
- ].
-
- changedObject == Smalltalk ifTrue:[
- something == #projectOrganization ifTrue:[
- self invalidateList.
- self enqueueDelayedUpdateOutputGenerator.
- ^ self.
- ].
- something == #methodInClass ifTrue:[
- listValid == true ifTrue:[
- cls := aParameter at:1.
- sel := aParameter at:2.
- mthd := cls compiledMethodAt:sel.
- mthd notNil ifTrue:[
- pkg := mthd package.
- (projectList value includes:pkg) ifFalse:[
- self invalidateList.
- ]
- ].
- ].
- ^ self
- ].
-
- (something == #classDefinition
- or:[something == #newClass]) ifTrue:[
- listValid == true ifTrue:[
- cls := aParameter.
- pkg := cls package.
- (projectList value includes:pkg) ifFalse:[
- self invalidateList.
- ] ifTrue:[
- self enqueueDelayedUpdateOutputGenerator
- ].
- ] ifFalse:[
- self invalidateList
- ].
- ^ self
- ].
- (something == #classRemove) ifTrue:[
- listValid == true ifTrue:[
- cls := aParameter.
- pkg := cls package.
- ].
- ].
- ^ self
- ].
-
-"/ something == #projectOrganization ifTrue:[
-"/ aParameter isSymbol ifTrue:[
-"/ "/ a single method has changed
-"/"/ sel := aParameter.
-"/"/ mthd := changedObject compiledMethodAt:sel.
-"/ self enqueueDelayedUpdateOutputGenerator.
-"/ ].
-"/ ^ self
-"/ ].
-
- changedObject == ChangeSet ifTrue:[
- self invalidateList.
- ^ self
- ].
-
- (organizerMode notNil
- and:[organizerMode value ~~ #project]) ifTrue:[
- self invalidateList.
- ^ self
- ].
- super delayedUpdate:something with:aParameter from:changedObject
-
- "Created: / 17-02-2000 / 23:41:02 / cg"
- "Modified: / 17-10-2006 / 18:43:40 / cg"
-!
-
-selectionChangedByClick
- "we are not interested in that - get another notification
- via the changed valueHolder"
-
- "Created: / 17.2.2000 / 23:41:17 / cg"
-!
-
-update:something with:aParameter from:changedObject
-
- (self builder isNil or:[self window topView realized not]) ifTrue:[
- self makeIndependent
- ].
-
- changedObject == Smalltalk ifTrue:[
- something == #methodDictionary ifTrue:[
- ^ self
- ].
- something == #methodTrap ifTrue:[
- ^ self
- ].
- something == #methodCoverageInfo ifTrue:[
- ^ self
- ].
- something == #methodInClass ifTrue:[
- ^ self
- ].
- something == #classVariables ifTrue:[
- ^ self
- ].
- something == #classComment ifTrue:[
- ^ self.
- ].
- something == #methodInClassRemoved ifTrue:[
- ^ self.
- ].
- ].
- super update:something with:aParameter from:changedObject
-
- "Modified: / 20-07-2011 / 18:54:39 / cg"
-! !
-
-!ProjectList methodsFor:'drag & drop'!
-
-canDropContext:aDropContext
- |objects package|
-
- objects := aDropContext dropObjects collect:[:obj | obj theObject].
-
- (self objectsAreClassFiles:objects) ifTrue:[^ true].
-
- (objects conform:[:aMethodOrClass | (aMethodOrClass isMethod or:[aMethodOrClass isClass]) ]) ifFalse:[^ false].
-
- package := self packageAtTargetPointOf:aDropContext.
- package isNil ifTrue:[^ false].
-
- (objects contains:[:aMethodOrClass | aMethodOrClass package ~= package]) ifFalse:[^ false].
- ^ true
-
- "Modified: / 17-10-2006 / 18:30:32 / cg"
-!
-
-doDropContext:aDropContext
- |package objects methods classes|
-
- objects := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
- (objects conform:[:something | (something isMethod or:[something isClass])]) ifTrue:[
- methods := objects select:[:something | something isMethod].
- classes := objects select:[:something | something isClass].
-
- package := self packageAtTargetPointOf:aDropContext.
- package notNil ifTrue:[
- methods notEmpty ifTrue:[
- self masterApplication moveMethods:methods toProject:package.
- ].
- classes notEmpty ifTrue:[
- self masterApplication moveClasses:classes toProject:package.
- ]
- ].
- ^ self
- ].
-
- (objects conform:[:something | something isFilename]) ifTrue:[
- |p|
-
- p := (self selectedProjects value ? #()) firstIfEmpty:PackageId noProjectID.
-
- Class packageQuerySignal answer:p
- do:[
- self dropClassFiles:objects.
- ].
- ^ self
- ].
-
- "Modified: / 17-10-2006 / 18:34:43 / cg"
-!
-
-packageAtTargetPointOf:aDropContext
- |p packageListView lineNr item package dropInfo now
- overItem timeOverItem|
-
- p := aDropContext targetPoint.
-
- packageListView := aDropContext targetWidget.
-
- dropInfo := aDropContext dropInfo.
-
- lineNr := packageListView yVisibleToLineNr:p y.
- lineNr isNil ifTrue:[^ nil].
-
- item := projectList value at:lineNr.
- item isNil ifTrue:[^ nil].
- item isString ifTrue:[^ item asSymbol].
-
- item canExpand ifTrue:[
- now := Timestamp now.
- overItem := dropInfo at:#overItem ifAbsentPut:item.
- timeOverItem := dropInfo at:#timeOverItem ifAbsentPut:[now].
-
- overItem ~~ item ifTrue:[
- dropInfo at:#timeOverItem put:now.
- dropInfo at:#overItem put:item.
- aDropContext passiveAction:[ self packageAtTargetPointOf:aDropContext ].
- ] ifFalse:[
- (now millisecondDeltaFrom:timeOverItem) >= (UserPreferences current timeToAutoExpandItemsWhenDraggingOver) ifTrue:[
- aDropContext saveDraw:[ item expand. packageListView repairDamage ].
- dropInfo removeKey:#timeOverItem.
- dropInfo removeKey:#overItem.
- ] ifFalse:[
- aDropContext passiveAction:[ self packageAtTargetPointOf:aDropContext ].
- ]
- ].
- ].
-
- package := item package.
- package = self class nameListEntryForALL ifTrue:[^ nil].
- ^ package.
-
- "Modified: / 18-11-2006 / 16:13:47 / cg"
-! !
-
-!ProjectList methodsFor:'generators'!
-
-makeGenerator
- "return a generator which enumerates the classes from the selected project(s)."
-
- |selectedPackages thePackage hideUnloadedClasses showChangedClasses|
-
- selectedPackages := self selectedProjects value.
- selectedPackages size == 0 ifTrue:[
- ^ #()
- ].
- selectedPackages := selectedPackages collect:[:p | p string withoutSeparators].
-
- showChangedClasses := selectedPackages includes:(self class nameListEntryForChanged).
- hideUnloadedClasses := self hideUnloadedClasses value.
-
- (selectedPackages includes:(self class nameListEntryForALL)) ifTrue:[
- hideUnloadedClasses ifTrue:[
- ^ Iterator on:[:whatToDo |
- Smalltalk allClassesDo:[:cls |
- cls isLoaded ifTrue:[
- cls isRealNameSpace ifFalse:[
- whatToDo value:cls
- ]
- ]
- ]
- ]
- ].
- ^ Iterator on:[:whatToDo |
- Smalltalk allClassesDo:[:cls |
- cls isRealNameSpace ifFalse:[
- whatToDo value:cls
- ]
- ]
- ]
- ].
-
- selectedPackages size == 1 ifTrue:[
- "/ faster common case
- thePackage := selectedPackages first.
-
- ^ Iterator on:[:whatToDo |
- |changedClasses|
-
- showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses ].
-
- Smalltalk allClassesDo:[:cls |
- |doInclude|
-
- (hideUnloadedClasses not or:[cls isLoaded])
- ifTrue:[
- cls isRealNameSpace ifFalse:[
- doInclude := (thePackage = cls package).
- doInclude ifFalse:[
- cls isJavaClass ifFalse:[
- doInclude := (cls methodDictionary contains:[:mthd | thePackage = mthd package])
- or:[ cls class methodDictionary contains:[:mthd | thePackage = mthd package]].
- ].
- doInclude ifFalse:[
- (showChangedClasses and:[ (changedClasses includes:cls theNonMetaclass)
- or:[(changedClasses includes:cls theMetaclass)] ]) ifTrue:[
- doInclude := true
- ].
- ].
- ].
- doInclude ifTrue:[
- whatToDo value:cls
- ]
- ]
- ]
- ]
- ]
- ].
-
- ^ Iterator on:[:whatToDo |
- |changedClasses|
-
- showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses ].
-
- Smalltalk allClassesDo:[:cls |
- |doInclude|
-
- (hideUnloadedClasses not or:[cls isLoaded])
- ifTrue:[
- cls isRealNameSpace ifFalse:[
- doInclude := (selectedPackages includes:cls package).
- doInclude ifFalse:[
- cls isJavaClass ifFalse:[
- doInclude := (cls methodDictionary contains:[:mthd | selectedPackages includes:mthd package])
- or:[ cls class methodDictionary contains:[:mthd | selectedPackages includes:mthd package]].
- doInclude ifFalse:[
- (showChangedClasses and:[ (changedClasses includes:cls theNonMetaclass)
- or:[(changedClasses includes:cls theMetaclass)] ]) ifTrue:[
- doInclude := true
- ].
- ].
-
- ]
- ].
- doInclude ifTrue:[
- whatToDo value:cls
- ]
- ]
- ]
- ]
- ]
-
- "Created: / 17-02-2000 / 23:49:37 / cg"
- "Modified: / 10-11-2006 / 17:15:15 / cg"
-! !
-
-!ProjectList methodsFor:'initialize-release'!
-
-commonPostBuild
- super commonPostBuild.
- listValid ifFalse:[
- self enqueueDelayedUpdateList.
- ].
-!
-
-commonPostOpen
- super commonPostOpen.
- listValid ifFalse:[
- self enqueueDelayedUpdateList.
- ].
-!
-
-initialize
-
- super initialize.
- workerQueue := SharedQueue new.
- includedPseudoEntryForChanged := true.
-
- "Created: / 14-12-2010 / 15:41:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-release
- super release.
-
- projectList removeDependent:self.
-! !
-
-!ProjectList methodsFor:'private'!
-
-allShownProjects
- |hideUnloaded allProjects projectBag generator addWithAllParentPackages hideModules|
-
- hideModules := HideModules ? true.
- hideModules := HideModules ? false.
-
- allProjects := IdentitySet new.
- projectBag := Bag new.
-
- inGeneratorHolder isNil ifTrue:[
- hideUnloaded := self hideUnloadedClasses value.
-
- addWithAllParentPackages :=
- [:package |
- |p parent module|
-
- (allProjects includes:package) ifFalse:[
- allProjects add:package.
- (package ~= PackageId noProjectID
- and:[package ~= #private]) ifTrue:[
- p := package asPackageId.
- [(parent := p parentPackage) notNil] whileTrue:[
- allProjects add:parent asSymbol.
- p := parent.
- ].
- hideModules ifFalse:[
- (module := p module) notNil ifTrue:[
- allProjects add:module asSymbol.
- ].
- ].
- ].
- ].
- ].
-
- Smalltalk allClassesDo:[:eachClass |
- |cls pkg p classPackage|
-
- eachClass isRealNameSpace ifFalse:[
-
- (hideUnloaded not or:[eachClass isLoaded]) ifTrue:[
- cls := eachClass theNonMetaclass.
- cls isPrivate ifTrue:[
- cls := cls topOwningClass
- ].
-
- classPackage := cls package ? (PackageId noProjectID).
- classPackage size > 0 ifTrue:[
- classPackage := classPackage asSymbol.
- addWithAllParentPackages value:classPackage.
- projectBag add:classPackage.
- ] ifFalse:[
- "/ for now, nameSpaces are not in any package;
- "/ this might change. Then, 0-sized packages are
- "/ illegal, and the following should be enabled.
- "/ self halt
- ].
-
- cls isJavaClass ifFalse:[
- cls instAndClassSelectorsAndMethodsDo:[:sel :mthd |
- |mpkg|
-
- mpkg := mthd package asSymbol.
- mpkg ~~ classPackage ifTrue:[
- (allProjects includes:mpkg) ifFalse:[
- addWithAllParentPackages value:mpkg.
- ]
- ].
- ].
- ].
- ].
- ].
- ].
- allProjects := allProjects asOrderedCollection.
-
- "/ those are simulated - in ST/X, empty projects do not
- "/ really exist; however, during browsing, it makes sense.
- AdditionalEmptyProjects size > 0 ifTrue:[
- "/ remove those that are present ...
- AdditionalEmptyProjects := AdditionalEmptyProjects select:[:pkg | (allProjects includes:pkg) not].
- allProjects addAll:AdditionalEmptyProjects.
- ].
- ] ifFalse:[
- generator := inGeneratorHolder value.
- generator isNil ifTrue:[^ #() ].
- generator do:[:prj | allProjects add:prj].
- ].
- ^ allProjects asOrderedCollection.
-
- "Modified: / 16-01-2007 / 15:56:16 / cg"
-!
-
-defaultSlaveModeValue
- |mode|
-
- mode := self topApplication perform:#initialOrganizerMode ifNotUnderstood:nil.
- mode == OrganizerCanvas organizerModeProject ifTrue:[^ false].
- mode isNil ifTrue:[^ false].
- ^ true
-!
-
-initialOrganizerMode
- ^ OrganizerCanvas organizerModeProject
-!
-
-listOfProjects
- |allProjects numClassesInChangeSet|
-
- allProjects := self allShownProjects copyAsOrderedCollection.
- allProjects sort.
-
- allProjects size == 1 ifTrue:[
- "/ self projectLabelHolder value:(allProjects first , ' [Project]').
- self projectLabelHolder value:(LabelAndIcon icon:(self class packageIcon) string:allProjects first).
- ].
-
- includedPseudoEntryForChanged ifTrue:[
- numClassesInChangeSet := ChangeSet current changedClasses size.
- numClassesInChangeSet > 0 ifTrue:[
- "/ don't include count - makeGenerator compares against the un-expanded nameListEntry (sigh - need two lists)
- allProjects addFirst:((self class nameListEntryForChanged "bindWith:numClassesInChangeSet") allItalic).
- ].
- ].
-
- allProjects size > 1 ifTrue:[
- allProjects addFirst:(self class nameListEntryForALL allItalic).
- ].
-
- ^ allProjects
-
- "Created: / 17-02-2000 / 23:43:05 / cg"
- "Modified: / 17-08-2006 / 15:08:42 / cg"
-!
-
-makeDependent
- Smalltalk addDependent:self.
- ChangeSet addDependent:self.
-!
-
-makeIndependent
- Smalltalk removeDependent:self.
- ChangeSet removeDependent:self.
-!
-
-markEntry: rawEntry at: index forBeingManagedBySVN: package
- ^ rawEntry.
-
- (ConfigurableFeatures includesFeature: #SubversionSupportEnabled) ifFalse:[^rawEntry].
- package = PackageId noProjectID ifTrue:[^rawEntry].
-
-"/ workerQueue
-"/ nextPut:[
-"/ | repo newEntry branch mark|
-"/ "/ use Smalltalk-at to trick the dependency/prerequisite generator
-"/ repo := (Smalltalk at:#SVN::RepositoryManager) current
-"/ repositoryForPackage: package onlyFromCache: false.
-"/ repo ifNotNil:[
-"/ mark := ' [SVN]'.
-"/ branch := repo workingCopy branchOrNil.
-"/ branch ifNotNil:[mark := ' [SVN: ', branch path,']'].
-"/ newEntry := rawEntry , (mark asText colorizeAllWith: Color gray).
-"/ self projectNameList value at: index put: newEntry.
-"/ self projectNameList changed.
-"/ ]].
- ^rawEntry
-
- "Created: / 14-12-2010 / 15:59:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 15-01-2012 / 13:17:30 / cg"
- "Modified: / 19-01-2012 / 10:46:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-nameListFor:aProjectList
- "
- self basicNew
- nameListFor:#(
- 'exept:expecco'
- 'exept:expecco/application'
- 'exept:procware'
- 'exept:workflow'
- )
-
- self basicNew
- nameListFor:#(
- 'exept'
- 'exept:expecco'
- 'exept:expecco/application'
- 'exept:procware'
- 'exept:workflow'
- )
- "
-
- |stack projectsWithExtensions projectsWithChangedCode packagesInChangeSet projectNameList|
-
- stack := OrderedCollection new.
-
- projectsWithExtensions := Set new.
- projectsWithChangedCode := Set new.
-
- packagesInChangeSet := ChangeSet current changedPackages.
-
- projectNameList := OrderedCollection new.
- aProjectList do:[:this |
- |thisC entry rawEntry prefix indent|
-
- this = self class nameListEntryForALL ifTrue:[
- entry := this
- ] ifFalse:[
- thisC := this asCollectionOfSubstringsSeparatedByAny:':/'.
- thisC isEmpty ifTrue:[
- thisC := Array with:(PackageId noProjectID).
- ].
-
- [
- |stackTop|
-
- stack notEmpty
- and:[
- stackTop := stack last.
- (thisC startsWith:stackTop) ifFalse:[
- stack removeLast.
- true
- ] ifTrue:[
- false
- ]]
- ] whileTrue.
- prefix := stack notEmpty ifTrue:[ stack last ] ifFalse:[ #() ].
- indent := stack size * 4.
- stack addLast:thisC.
- prefix isEmpty ifTrue:[
- rawEntry := thisC first.
- thisC size > 1 ifTrue:[
- rawEntry := rawEntry , ':' , ((thisC copyFrom:2) asStringWith:$/).
- ]
- ] ifFalse:[
- rawEntry := (thisC copyFrom:prefix size+1) asStringWith:$/.
- ].
-
- (packagesInChangeSet includes:this) ifTrue:[
- rawEntry := rawEntry , self class markForBeingInChangeList.
- rawEntry := self colorizeForChangedCode:rawEntry.
- ].
-
- entry := (String new:indent) , rawEntry.
- ((ConfigurableFeatures includesFeature: #SubversionSupportEnabled) and:[this first ~= $*]) ifTrue:[
- entry := self markEntry: entry at: projectNameList size + 1 forBeingManagedBySVN: this.
- ].
- ].
- projectNameList add:entry.
- ].
- self startWorker.
- ^ projectNameList.
-
- "Created: / 17-02-2000 / 23:43:05 / cg"
- "Modified: / 07-09-2011 / 10:45:05 / cg"
- "Modified: / 19-01-2012 / 10:46:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-startWorker
-
- worker ifNil:
- [worker :=
- [[workerQueue notEmpty ] whileTrue:
- [| job |
- job := workerQueue next.
- job value].
- worker := nil.
- ] newProcess.
- worker resume].
-
- "Created: / 14-12-2010 / 15:49:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 16-12-2010 / 17:35:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-updateList
- |newList oldList newNameList oldNameList oldSelection newSelection selectedProjectsHolder|
-
- selectedProjectsHolder := self selectedProjects.
- oldSelection := selectedProjectsHolder value.
- newList := self listOfProjects.
- oldList := projectList value.
- newNameList := self nameListFor:newList.
- oldNameList := self projectNameList value.
- (newList ~= oldList
- or:[ newNameList ~= oldNameList]) ifTrue:[
-"/ oldSelection size > 0 ifTrue:[
-"/ selectedProjectsHolder removeDependent:self.
-"/ selectedProjectsHolder value:#().
-"/ selectedProjectsHolder addDependent:self.
-"/ ].
-
- self projectList value:newList.
- listValid := true.
- self projectNameList value:newNameList.
-
- oldSelection size > 0 ifTrue:[
- newSelection := oldSelection select:[:prj | newList includes:prj].
- selectedProjectsHolder value:newSelection.
- ]
- ].
- listValid := true.
-
- "Modified: / 25.2.2000 / 23:10:01 / cg"
-! !
-
-!ProjectList methodsFor:'special'!
-
-addAdditionalProject:aProject
- "/ those are simulated - in ST/X, empty projects do not
- "/ really exist; however, during browsing, it makes sense.
- AdditionalEmptyProjects isNil ifTrue:[
- AdditionalEmptyProjects := Set new.
- ].
- AdditionalEmptyProjects add:aProject.
-
- Smalltalk changed:#projectOrganization "/ not really ... to force update
-
- "Created: / 17.2.2000 / 23:44:27 / cg"
-!
-
-removeAdditionalProjects:aListOfProjects
- "/ those are simulated - in ST/X, empty categories do not
- "/ really exist; however, during browsing, it makes sense.
- AdditionalEmptyProjects notNil ifTrue:[
- aListOfProjects do:[:eachProject |
- AdditionalEmptyProjects remove:eachProject ifAbsent:nil.
- ].
- ].
- Smalltalk changed:#projectOrganization "/ not really ... to force update
-
- "Created: / 17.2.2000 / 23:45:24 / cg"
-! !
-
-!ProjectList class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.56 2012-12-13 18:39:32 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.56 2012-12-13 18:39:32 cg Exp $'
-! !
--- a/Tools_SearchDialog.st Tue Feb 26 12:38:54 2013 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,1393 +0,0 @@
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libtool' }"
-
-"{ NameSpace: Tools }"
-
-DialogBox subclass:#SearchDialog
- instanceVariableNames:'openHow classes methods selectedClasses selectedCategories
- selectedMethods selectedPackages currentClass currentNamespace
- currentClassCategory currentPackage browser whereRadioGroup
- currentPanel searchAreas caseHolder matchHolder isMethodHolder
- codeField selectorHolder defaultOpenHow withTextEntry allowFind
- allowBuffer allowBrowser searchWhat searchClassProtocolHolder
- searchInstanceProtocolHolder selectorOrCode selectionList
- listHolder matchProcess inputField showMetaFilter
- metaclassesOnlyHolder classesOnlyHolder'
- classVariableNames:'LastCodeSearched LastCodeSearchWasMethod LastGlobalSearched
- LastStringSearched LastSearchWasMatch LastSearchWasCaseSensitive
- LastStringSearchArea LastCodeSearchArea AREA_LISTOFMETHODS
- LastResourceSearched'
- poolDictionaries:''
- category:'Interface-Browsers-New'
-!
-
-!SearchDialog class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2000 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-! !
-
-!SearchDialog class methodsFor:'initialization'!
-
-initialize
- AREA_LISTOFMETHODS := #listOfMethods
-
- "Created: / 19-11-2010 / 12:00:18 / cg"
-! !
-
-!SearchDialog class methodsFor:'constants'!
-
-constantForListOfMethodsArea
- ^ AREA_LISTOFMETHODS
-
- "Created: / 19-11-2010 / 12:11:50 / cg"
-! !
-
-!SearchDialog class methodsFor:'queries'!
-
-lastCodeSearchArea
- ^ LastCodeSearchArea
-!
-
-lastStringSearchArea
- ^ LastStringSearchArea
-! !
-
-!SearchDialog methodsFor:'accessing'!
-
-showMetaFilter:something
- showMetaFilter := something.
-! !
-
-!SearchDialog methodsFor:'accessing-entered values'!
-
-classesOnly
- ^ (classesOnlyHolder ? false) value
-
- "Created: / 20-08-2012 / 13:25:26 / cg"
-!
-
-classesToSearch
- ^ classes.
-!
-
-codeToSearch
- ^ selectorOrCode.
-!
-
-matchMethods
- ^ isMethodHolder value ? false.
-!
-
-metaclassesOnly
- ^ (metaclassesOnlyHolder ? false) value
-
- "Created: / 20-08-2012 / 13:17:12 / cg"
-!
-
-methodsToSearch
- ^ methods.
-!
-
-openHow
- ^ openHow.
-!
-
-searchIgnoringCase
- ^ self searchIsCaseSensitive not
-!
-
-searchIsCaseSensitive
- ^ (caseHolder value ? false)
-!
-
-searchWithMatch
- ^ matchHolder value ? false.
-!
-
-selectorToSearch
- ^ selectorOrCode.
-! !
-
-!SearchDialog methodsFor:'obsolete'!
-
-addCheckBoxForClassMethodSearch
- |b|
-
- b := CheckBox label:(resources string:'Class Protocol').
- b model:(self searchClassProtocolHolder).
- currentPanel add:b.
- ^ b.
-!
-
-addCheckBoxForInstanceMethodSearch
- |b|
-
- b := CheckBox label:(resources string:'Instance Protocol').
- b model:(self searchInstanceProtocolHolder).
- currentPanel add:b.
- ^ b.
-! !
-
-!SearchDialog methodsFor:'private'!
-
-searchClassProtocolHolder
- searchClassProtocolHolder isNil ifTrue:[
- searchClassProtocolHolder := true asValue
- ].
- ^ searchClassProtocolHolder
-!
-
-searchInstanceProtocolHolder
- searchInstanceProtocolHolder isNil ifTrue:[
- searchInstanceProtocolHolder := true asValue
- ].
- ^ searchInstanceProtocolHolder
-!
-
-showHelpOnCodePatterns
- HTMLDocumentView openFullOnHelpFile:'Browser/RBSearchPatterns.html'
-!
-
-updateListOfMatchingSelectorsFor:s
- |p|
-
- (p := matchProcess) notNil ifTrue:[
- p terminate.
- ].
- listHolder isNil ifTrue:[^ self].
-
- matchProcess :=
- [
- |what matching|
-
- [
- searchWhat == #globalName ifFalse:[
- what := DoWhatIMeanSupport selectorCompletion:s inEnvironment:Smalltalk match:(matchHolder value) ignoreCase:(caseHolder value not)
- ] ifTrue:[
- what := DoWhatIMeanSupport globalNameCompletion:s inEnvironment:Smalltalk match:(matchHolder value).
- ].
- "/ best := what first.
- matching := what second.
- self sensor pushAction:[ listHolder contents:matching ].
- ] ensure:[
- matchProcess := nil.
- ].
- ] fork.
-
- "Modified: / 26-10-2010 / 20:33:05 / cg"
-! !
-
-!SearchDialog methodsFor:'public'!
-
-addTextEntryWithCaseIgnore:withCaseIgnore withMatch:withMatch
- matchHolder := caseHolder := nil.
-
- searchWhat == #code ifTrue:[
- self addTextEntryFieldForCode.
- ^ self.
- ].
-
- self addInputFieldForSelectorOrNameOrString.
- withCaseIgnore ifTrue:[
- self
- addCheckBox:(resources string:'Case Sensitive')
- on:(caseHolder := (LastSearchWasCaseSensitive ? false) asValue).
- ].
- withMatch ifTrue:[
- self
- addCheckBox:(resources string:'Match')
- on:(matchHolder := (LastSearchWasMatch ? true) asValue).
-"/ (isSelector and:[ sel notNil. ]) ifTrue:[
-"/ sel includesMatchCharacters ifTrue:[
-"/ matchHolder value:false.
-"/ ].
-"/ ].
- ]
-
- "Modified (format): / 06-07-2011 / 11:56:31 / cg"
-!
-
-askThenDo:aBlock
- |where code sel matchHolderValue caseHolderValue|
-
- self beScreenDialog. "raise it above all windows"
- self open.
- self accepted ifFalse:[
- ^ self.
- ].
-
- openHow isNil ifTrue:[
- openHow := defaultOpenHow.
- ].
- where := whereRadioGroup value.
- withTextEntry ifTrue:[
- searchWhat == #code ifTrue:[
- code := codeField contentsAsString.
- LastCodeSearched := code.
- LastCodeSearchArea := where.
- ] ifFalse:[
- (selectionList notNil and:[selectionList hasSelection]) ifTrue:[
- sel := selectionList selectionValue.
- ] ifFalse:[
- sel := selectorHolder value withoutSeparators.
- ].
- sel isEmptyOrNil ifTrue:[
- browser warn:((searchWhat == #selector)
- ifTrue:[ 'No selector entered for search'. ]
- ifFalse:[ 'Nothing entered for search'. ]).
- ^ self.
- ].
- sel := sel string.
-
- (browser ? SystemBrowser) rememberSearchPattern:sel.
- searchWhat == #globalName ifTrue:[
- LastGlobalSearched := sel.
- ] ifFalse:[
- searchWhat == #string ifTrue:[
- LastStringSearched := sel.
- LastStringSearchArea := where.
- ] ifFalse:[
- (sel startsWith:'#''') ifTrue:[
- sel := sel copyFrom:3.
- (sel endsWith:$') ifTrue:[
- sel := sel copyWithoutLast:1.
- ].
- ].
- ]
- ]
- ].
- ].
- where isNil ifTrue:[
- (browser ? Dialog) warn:'No class(es) for search'.
- ^ self.
- ].
- self getClassesAndMethodsFor:where.
-
- (#(#classesWithPrivateClasses #classHierarchiesWithPrivateClasses #ownersWithPrivateClasses #ownersHierarchiesWithPrivateClasses)
- includes:where)
- ifTrue:[
- |toSearch|
-
- toSearch := IdentitySet withAll:classes.
- classes := IdentitySet withAll:toSearch.
- [ toSearch notEmpty ] whileTrue:[
- |cls|
-
- cls := toSearch removeFirst.
- classes addAll:cls allPrivateClasses.
- ].
- ].
-
- classes size == 0 ifTrue:[
- classes := nil.
- methods size == 0 ifTrue:[
- (browser ? Dialog) warn:'No class(es) given for search.'.
- ^ self.
- ].
- ] ifFalse:[
- classes := classes asOrderedCollection.
- methods size ~~ 0 ifTrue:[
- (browser ? Dialog) warn:'oops'.
- methods := nil.
- ].
- ].
-
- matchHolderValue := matchHolder value.
- matchHolderValue notNil ifTrue:[
- LastSearchWasMatch := matchHolderValue
- ].
- caseHolderValue := caseHolder value.
- caseHolderValue notNil ifTrue:[
- LastSearchWasCaseSensitive := caseHolderValue
- ].
-
- selectorOrCode := sel ? code.
-
- aBlock numArgs == 7 ifTrue:[
- "/ old style
- aBlock
- value:classes
- value:(sel ? code)
- value:(self searchIgnoringCase)
- value:openHow
- value:(matchHolderValue ? false)
- value:methods
- value:(isMethodHolder value ? false).
- ] ifFalse:[
- aBlock value.
- ]
-
- "Modified: / 26-09-2012 / 11:50:45 / cg"
-!
-
-setupToAskForMethodSearchTitle:title forBrowser:brwsrArg searchWhat:searchWhatArg
- searchArea:whereDefault withCaseIgnore:withCaseIgnore withMatch:withMatch
- withMethodList:withMethodList allowFind:allowFindArg allowBuffer:allowBufferArg
- allowBrowser:allowBrowserArg withTextEntry:withTextEntryArg
-
- |where ns methodNameSpaces methodPackages hPanel leftVerticalPanel rightVerticalPanel|
-
- allowFind := allowFindArg.
- allowBuffer := allowBufferArg.
- allowBrowser := allowBrowserArg.
- searchWhat := searchWhatArg.
-
- withTextEntry := withTextEntryArg.
-
- (browser := brwsrArg) isNil ifTrue:[
- resources := NewSystemBrowser classResources.
- ] ifFalse:[
- resources := browser resources.
- selectedClasses := browser selectedClasses value.
- selectedCategories := browser selectedCategoriesValue.
- selectedCategories := selectedCategories reject:[:cat | NavigatorModel isPseudoCategory:cat].
- selectedMethods := browser selectedMethods value.
- currentClass := browser theSingleSelectedClass.
- currentClassCategory := browser theSingleSelectedCategory.
- currentPackage := browser theSingleSelectedProject.
- currentClass isNil ifTrue:[
- browser hasMethodSelected ifTrue:[
- currentClass := selectedMethods first mclass.
- "/ selectedClasses := (selectedMethods collect:[:each | each mclass ]) asIdentitySet.
- "/ selectedClasses := selectedClasses select:[:each | each notNil ].
- ].
- ].
- ].
-
- (self addTextLabel:(resources stringWithCRs:title)) adjust:#left.
-
- currentClass notNil ifTrue:[
- currentClass := currentClass theNonMetaclass.
- ].
- withTextEntry ifTrue:[
- self addTextEntryWithCaseIgnore:withCaseIgnore withMatch:withMatch.
- ].
-
- searchAreas := OrderedCollection new.
-
- self addHorizontalLine.
- "/ self addVerticalSpace.
-
- (showMetaFilter ? false) ifTrue:[
- currentPanel := self.
- self addCheckBoxForMetaClassesOnly.
- ].
-
-
- hPanel := HorizontalPanelView "SimpleView" new.
- hPanel verticalLayout:#top.
- hPanel horizontalLayout:#left.
-
- leftVerticalPanel := currentPanel := VerticalPanelView new.
- leftVerticalPanel verticalLayout:#topSpace.
- leftVerticalPanel horizontalLayout:#fitSpace.
-
- (self addTextLabel:(resources string:'Search in:')) adjust:#left.
-
- whereRadioGroup := RadioButtonGroup new.
-
- (selectedCategories size > 0 or:[ selectedClasses size > 0 ]) ifTrue:[
- self addCheckBoxForEverywhere.
- "/ classMethodListView notNil ifTrue:[
- "/ b := CheckBox label:(resources string:'Shown Methods').
- "/ panel add:b. whereChannel add:b value:#currentMethodList.
- "/ areas add:#currentMethodList.
- "/ self makeTabable:b.
- "/ ].
- browser isMethodListBrowser ifTrue:[
- methods := browser selectedMethods value ? #().
- methodNameSpaces := methods
- select:[:eachMethod | eachMethod mclass notNil]
- thenCollect:[:eachMethod | eachMethod mclass topNameSpace ].
- methodPackages := methods
- collect:[:eachMethod | eachMethod package ].
- ].
- methodNameSpaces size == 1 ifTrue:[
- currentNamespace := methodNameSpaces first.
- ] ifFalse:[
- currentNamespace := browser currentNamespace.
- selectedClasses size == 0 ifTrue:[
- |classesInAllSelectedCategories nameSpacesOfAllClassesInAllSelectedCategories|
- classesInAllSelectedCategories := Smalltalk allClasses select:[:cls | selectedCategories includes:cls category].
- nameSpacesOfAllClassesInAllSelectedCategories := classesInAllSelectedCategories collect:[:eachClass | eachClass topNameSpace].
- nameSpacesOfAllClassesInAllSelectedCategories size == 1 ifTrue:[
- currentNamespace := nameSpacesOfAllClassesInAllSelectedCategories first.
- ].
- ].
- ].
-
- (currentNamespace notNil
- and:[ currentNamespace ~= (browser nameListEntryForALL) ])
- ifTrue:[ self addCheckBoxForCurrentNamespace ]
- ifFalse:[
- (currentClass notNil
- and:[ (ns := currentClass nameSpace) notNil and:[ ns ~~ Smalltalk ] ])
- ifTrue:[ self addCheckBoxForClassesNamespace:ns ].
- ].
-
- methodPackages size == 1 ifTrue:[
- currentPackage := methodPackages first.
- ] ifFalse:[
- currentPackage := browser currentProject.
-"/ selectedClasses size == 0 ifTrue:[
-"/ |classesInAllSelectedCategories packagesOfAllClassesInAllSelectedCategories|
-"/ classesInAllSelectedCategories := Smalltalk allClasses select:[:cls | selectedCategories includes:cls category].
-"/ packagesOfAllClassesInAllSelectedCategories := classesInAllSelectedCategories collect:[:eachClass | eachClass package].
-"/ packagesOfAllClassesInAllSelectedCategories size == 1 ifTrue:[
-"/ currentPackage := packagesOfAllClassesInAllSelectedCategories first.
-"/ ].
-"/ ].
- ].
-
- (currentPackage notNil
- and:[ currentPackage ~= (browser nameListEntryForALL) ])
- ifTrue:[ self addCheckBoxForCurrentPackage ]
- ifFalse:[
- (currentClass notNil) ifTrue:[
- self addCheckBoxForClassesPackage:(currentClass package)
- ].
- ].
-
- selectedCategories size > 0 ifTrue:[
- self addCheckBoxForSelectedClassCategory.
- ].
- (selectedClasses size > 0 or:[ selectedMethods size > 0 ]) ifTrue:[
- self addCheckBoxForSelectedClass.
- self addCheckBoxForSelectedClassAndSuperclasses.
- self addCheckBoxForSelectedClassAndSubclasses.
- self addCheckBoxForSelectedClassAndPrivateClasses.
- self addCheckBoxForSelectedClassAndSubclassesAndPrivateClasses.
- self addCheckBoxForOwnerAndItsPrivateClasses.
- self addCheckBoxForOwnerAndItsSubclassesAndItsPrivateClasses.
- ].
- ] ifFalse:[
- (browser notNil and:[browser currentNamespace ~~ Smalltalk]) ifTrue:[
- self addCheckBoxForEverywhere.
- currentNamespace := browser currentNamespace.
- currentNamespace ~= (browser nameListEntryForALL) ifTrue:[
- self addCheckBoxForCurrentNamespace.
- ] ifFalse:[
- (currentClass notNil
- and:[ (ns := currentClass nameSpace) notNil
- and:[ ns ~~ Smalltalk ] ])
- ifTrue:[
- self addCheckBoxForClassesNamespace:ns
- ].
- ].
- ].
- ].
- searchAreas size == 0 ifTrue:[
- self addCheckBoxForEverywhere.
- ].
- self addCheckBoxForChangedClassesList.
-
- withMethodList ifTrue:[
- browser isMethodListBrowser ifTrue:[
- searchAreas size == 0 ifTrue:[
- self addCheckBoxForEverywhere.
- ].
- self addCheckBoxForMethodList.
- self addCheckBoxForSelectedMethods.
- self addCheckBoxForSelectedMethodClasses.
- self addCheckBoxForSelectedMethodPackages.
- ] ifFalse:[
- searchAreas size == 0 ifTrue:[
- self addCheckBoxForEverywhere.
- ].
- self addCheckBoxForChangedMethodList.
- ].
- ].
-
- searchAreas size == 0 ifTrue:[
- whereRadioGroup := #everywhere asValue.
- self addDummyCheckBoxForEverywhere.
- ] ifFalse:[
- whereDefault notNil ifTrue:[
- (searchAreas includes:whereDefault) ifTrue:[
- where := whereDefault asSymbol.
- ] ifFalse:[
- where := searchAreas first.
- ].
- ] ifFalse:[
- where := #everywhere.
- ].
- whereRadioGroup value:where.
- ].
-
- hPanel add:leftVerticalPanel.
-
-false ifTrue:[
- "/ noone liked the right panel...
- rightVerticalPanel := currentPanel := VerticalPanelView new.
- rightVerticalPanel verticalLayout:#topSpace.
- rightVerticalPanel horizontalLayout:#fitSpace.
-
- self addCheckBoxForClassMethodSearch.
- self addCheckBoxForInstanceMethodSearch.
-"/ rightVerticalPanel origin:0.75@0.0 corner:1.0@1.0.
- hPanel
- preferredExtent:(leftVerticalPanel preferredWidth + rightVerticalPanel preferredWidth)
- @
- (leftVerticalPanel preferredHeight max:rightVerticalPanel preferredHeight).
- hPanel add:rightVerticalPanel.
-] ifFalse:[
-
-"/ rightVerticalPanel origin:0.75@0.0 corner:1.0@1.0.
- hPanel
- preferredExtent:(leftVerticalPanel preferredWidth) @ (leftVerticalPanel preferredHeight).
-].
-
- self addComponent:hPanel indent:0.
-
- "/ panel has its own idea of indenting
- "/ self addVerticalSpace.
- searchWhat == #selector ifTrue:[
- "/ not yet implemented
- "/ self addHorizontalLine.
- "/ self addCheckBoxesForClassAndMetaSearch.
-
- selectionList := self addFilteredListOfMatchingSelectors.
- self stickAtBottomWithVariableHeight:selectionList.
- matchHolder notNil ifTrue:[
- matchHolder onChangeEvaluate:[ self updateListOfMatchingSelectorsFor:inputField contents ]
- ].
- inputField notNil ifTrue:[ self updateListOfMatchingSelectorsFor:inputField contents ].
- ] ifFalse:[
- self addHorizontalLine.
- ].
- self addButtons.
-
- self label:(resources string:'Search').
-
- "Modified: / 20-08-2012 / 13:25:03 / cg"
-! !
-
-!SearchDialog methodsFor:'setup'!
-
-addCheckBox:b forSearchArea:area
- currentPanel add:b.
- whereRadioGroup add:b value:area.
- searchAreas add:area.
- self makeTabable:b.
-!
-
-addCheckBoxForChangedClassesList
- |b|
-
- b := CheckBox label:(resources string:'Changed Classes').
- self addCheckBox:b forSearchArea:#listOfChangedClasses.
- ChangeSet current changedClasses isEmpty ifTrue:[
- b disable
- ].
- ^ b.
-!
-
-addCheckBoxForChangedMethodList
- |b|
-
- b := CheckBox label:(resources string:'Changed Methods').
- self addCheckBox:b forSearchArea:#listOfChangedMethods.
- ChangeSet current changeSelectors isEmpty ifTrue:[
- b disable
- ].
- ^ b.
-!
-
-addCheckBoxForClassesNamespace:ns
- |b|
-
- b := CheckBox
- label:(resources string:'Classes'' nameSpace ("%1")' with:ns name).
- self addCheckBox:b forSearchArea:#currentClassesNameSpace.
- ^ b.
-!
-
-addCheckBoxForClassesPackage:pkg
- |b|
-
- b := CheckBox
- label:(resources string:'Classes'' package ("%1")' with:pkg).
- self addCheckBox:b forSearchArea:#currentClassesPackage.
- ^ b.
-
- "Created: / 21-09-2006 / 17:39:55 / cg"
-!
-
-addCheckBoxForCurrentNamespace
- |b|
-
- b := CheckBox
- label:(resources string:'Current nameSpace ("%1")' with:currentNamespace name).
- self addCheckBox:b forSearchArea:#currentNameSpace.
- ^ b.
-
- "Modified: / 10-10-2006 / 15:28:47 / cg"
-!
-
-addCheckBoxForCurrentPackage
- |b|
-
- b := CheckBox
- label:(resources string:'Current package ("%1")' with:currentPackage).
- self addCheckBox:b forSearchArea:#currentPackage.
- ^ b.
-
- "Modified: / 10-10-2006 / 15:28:51 / cg"
-!
-
-addCheckBoxForCurrentPackage:pkg
- |b|
-
- b := CheckBox
- label:(resources string:'Classes'' package ("%1")' with:pkg).
- self addCheckBox:b forSearchArea:#currentClassesPackage.
- ^ b.
-
- "Modified: / 10-10-2006 / 15:29:06 / cg"
-!
-
-addCheckBoxForEverywhere
- |b|
-
- b := CheckBox label:(resources string:'Everywhere').
- self addCheckBox:b forSearchArea:#everywhere.
- ^ b.
-!
-
-addCheckBoxForMetaClassesOnly
- |p b|
-
- p := View new.
-
- b := CheckBox label:(resources string:'Metaclasses Only') in:p.
- b model:(metaclassesOnlyHolder := false asValue).
- metaclassesOnlyHolder onChangeEvaluate:[metaclassesOnlyHolder value ifTrue:[classesOnlyHolder value:false]].
- self makeTabable:b.
-
- b := CheckBox label:(resources string:'Classes Only') in:p.
- b left:0.5.
- b model:(classesOnlyHolder := false asValue).
- classesOnlyHolder onChangeEvaluate:[classesOnlyHolder value ifTrue:[metaclassesOnlyHolder value:false]].
- self makeTabable:b.
-
- currentPanel add:p.
- ^ nil.
-
- "Created: / 20-08-2012 / 11:32:15 / cg"
-!
-
-addCheckBoxForMethodList
- |b|
-
- b := CheckBox label:(resources string:'Methodlist').
- self addCheckBox:b forSearchArea:AREA_LISTOFMETHODS.
- ^ b.
-
- "Modified: / 19-11-2010 / 12:00:52 / cg"
-!
-
-addCheckBoxForOwnerAndItsPrivateClasses
- |b lbl arg|
-
- (currentClass notNil and:[ currentClass isPrivate. ]) ifTrue:[
- lbl := 'Owner (%1) & all its private classes'.
- arg := currentClass owningClass name.
- ] ifFalse:[
- lbl := 'Owners & all their private classes'.
- ].
- b := CheckBox label:(resources string:lbl with:arg).
- self addCheckBox:b forSearchArea:#ownersWithPrivateClasses.
- (selectedClasses contains:[ :cls | cls isPrivate. ]) ifFalse:[
- b disable.
- ].
- ^ b.
-!
-
-addCheckBoxForOwnerAndItsSubclassesAndItsPrivateClasses
- |b lbl arg|
-
- (currentClass notNil and:[ currentClass isPrivate. ]) ifTrue:[
- lbl := 'Owner (%1) & its subclasses & all its private classes'.
- arg := currentClass owningClass name.
- ] ifFalse:[
- lbl := 'Owners & their subclasses & all their private classes'.
- ].
- b := CheckBox label:(resources string:lbl with:arg).
- self addCheckBox:b forSearchArea:#ownersHierarchiesWithPrivateClasses.
- (selectedClasses contains:[ :cls | cls isPrivate. ]) ifFalse:[
- b disable.
- ].
- ^ b.
-!
-
-addCheckBoxForSelectedClass
- |b lbl arg|
-
- (browser isMethodListBrowser
- or:[ currentClass isNil
- or:[ selectedClasses size > 1] ]) ifTrue:[
- selectedClasses size == 1 ifTrue:[
- lbl := 'Selected class ("%1")'.
- arg := selectedClasses first theNonMetaclass name.
- ] ifFalse:[
- lbl := 'Selected classes (%1)'.
- arg := selectedClasses size.
- ].
- ] ifFalse:[
- lbl := 'Class ("%1")'.
- arg := currentClass name.
- ].
- b := CheckBox label:(resources string:lbl with:arg).
- self addCheckBox:b forSearchArea:#classes.
- ^ b.
-!
-
-addCheckBoxForSelectedClassAndPrivateClasses
- |b lbl|
-
- (browser isMethodListBrowser
- or:[ currentClass isNil
- or:[ selectedClasses size > 1] ]) ifTrue:[
- lbl := 'Selected classes & all private classes'.
- ] ifFalse:[
- lbl := 'Class & private classes'.
- ].
- b := CheckBox label:(resources string:lbl).
- self addCheckBox:b forSearchArea:#classesWithPrivateClasses.
- (selectedClasses
- contains:[ :cls | cls theNonMetaclass privateClasses size > 0. ])
- ifFalse:[ b disable. ].
- ^ b.
-!
-
-addCheckBoxForSelectedClassAndSubclasses
- |b lbl|
-
- (browser isMethodListBrowser
- or:[ currentClass isNil
- or:[ selectedClasses size > 1] ]) ifTrue:[
- lbl := 'Selected classes & all subclasses'.
- ] ifFalse:[
- lbl := 'Class & subclasses'.
- ].
- b := CheckBox label:(resources string:lbl).
- self addCheckBox:b forSearchArea:#classHierarchies.
- (selectedClasses
- contains:[ :cls | cls theNonMetaclass subclasses size > 0. ])
- ifFalse:[ b disable. ].
- ^ b.
-!
-
-addCheckBoxForSelectedClassAndSubclassesAndPrivateClasses
- |b lbl|
-
- (browser isMethodListBrowser
- or:[ currentClass isNil
- or:[ selectedClasses size > 1] ]) ifTrue:[
- lbl := 'Selected classes & all subclasses & all private classes'.
- ] ifFalse:[
- lbl := 'Class & subclasses & all private classes'.
- ].
- b := CheckBox label:(resources string:lbl).
- self addCheckBox:b forSearchArea:#classHierarchiesWithPrivateClasses.
- (selectedClasses
- contains:[ :cls | cls theNonMetaclass privateClasses size > 0. ])
- ifFalse:[ b disable. ].
- ^ b.
-!
-
-addCheckBoxForSelectedClassAndSuperclasses
- |b lbl|
-
- (browser isMethodListBrowser
- or:[ currentClass isNil
- or:[ selectedClasses size > 1] ]) ifTrue:[
- lbl := 'Selected classes & all superclasses'.
- ] ifFalse:[
- lbl := 'Class & superclasses'.
- ].
- b := CheckBox label:(resources string:lbl).
- self addCheckBox:b forSearchArea:#classesAndSuperclasses.
- (selectedClasses
- contains:[ :cls | cls theNonMetaclass superclass notNil. ])
- ifFalse:[ b disable. ].
- ^ b.
-!
-
-addCheckBoxForSelectedClassCategory
- |b lbl arg|
-
- currentClassCategory notNil ifTrue:[
- lbl := 'Class category ("%1")'.
- arg := currentClassCategory.
- ] ifFalse:[
- lbl := 'Selected class categories (%1)'.
- arg := selectedCategories size.
- ].
- b := CheckBox label:(resources string:lbl with:arg).
- self addCheckBox:b forSearchArea:#classCategories.
- ^ b.
-!
-
-addCheckBoxForSelectedMethodClasses
- |b classes numClasses|
-
- classes := ((browser selectedMethods value ? #())
- select:[:m | m mclass notNil]
- thenCollect:[:m | m mclass theNonMetaclass]) asSet.
- numClasses := classes size.
- numClasses == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
-
- numClasses == 1 ifTrue:[
- b := CheckBox label:(resources string:'Selected method''s class ("%1")'
- with:classes first name).
- ] ifFalse:[
- b := CheckBox label:(resources string:'Selected methods'' classes (%1)'
- with:numClasses).
- numClasses == 0 ifTrue:[
- b disable
- ].
- ].
- self addCheckBox:b forSearchArea:#listOfSelectedMethodClasses.
- ^ b.
-
- "Modified (comment): / 20-07-2012 / 11:40:44 / cg"
-!
-
-addCheckBoxForSelectedMethodPackages
- |b packages numPackages|
-
- packages := ((browser selectedMethods value ? #())
- collect:[:m | m package]) asSet.
- numPackages := packages size.
- numPackages size == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
-
- numPackages == 1 ifTrue:[
- b := CheckBox label:(resources string:'Selected method''s package ("%1")'
- with:packages first).
- ] ifFalse:[
- b := CheckBox label:(resources string:'Selected methods'' packages (%1)'
- with:numPackages).
- numPackages == 0 ifTrue:[
- b disable
- ].
- ].
- self addCheckBox:b forSearchArea:#listOfSelectedMethodPackages.
- ^ b.
-
- "Created: / 29-02-2012 / 19:42:26 / cg"
-!
-
-addCheckBoxForSelectedMethods
- |b numSelected|
-
- numSelected := browser selectedMethods value size.
- numSelected == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
-
- b := CheckBox label:(resources string:'Selected methods (%1)' with:numSelected).
- self addCheckBox:b forSearchArea:#listOfSelectedMethods.
- numSelected == 0 ifTrue:[b disable].
- ^ b.
-
- "Modified (comment): / 20-07-2012 / 11:40:33 / cg"
-!
-
-addCheckBoxForSelectedPackage
- |b lbl arg|
-
- currentClassCategory notNil ifTrue:[
- lbl := 'Class category ("%1")'.
- arg := currentClassCategory.
- ] ifFalse:[
- lbl := 'Selected classes categories (%1)'.
- arg := selectedCategories size.
- ].
- b := CheckBox label:(resources string:lbl with:arg).
- self addCheckBox:b forSearchArea:#classCategories.
- ^ b.
-!
-
-addCheckBoxesForClassAndMetaSearch
- |y b1 b2|
-
- y := self yPosition.
- b1 := self addCheckBox:(resources string:'Instance Protocol') on:(self searchInstanceProtocolHolder).
- "/ b1 width:0.5.
-
- "/ self yPosition:y.
- b2 := self addCheckBox:(resources string:'Class Protocol') on:(self searchClassProtocolHolder).
- "/ b2 left:0.5; width:0.5.
-
- "Created: / 06-12-2011 / 11:24:11 / cg"
-!
-
-addDummyCheckBoxForEverywhere
- |b|
-
- b := CheckBox label:(resources string:'Everywhere').
- b turnOn.
- b disable.
-
- currentPanel add:b.
-!
-
-addFilteredListOfMatchingSelectors
- |l|
-
- listHolder := List new.
-
- l := HVScrollableView for:SelectionInListView.
- l listHolder:listHolder.
- self addComponent:l.
- l doubleClickAction:[
- selectorHolder value:(l selectionValue).
- matchHolder value:false.
- caseHolder value:false.
- self doAccept.
- self okPressed.
- ].
- ^ l.
-!
-
-addInputFieldForSelectorOrNameOrString
- |sel lastSearchPatterns|
-
- browser notNil ifTrue:[
- searchWhat == #selector ifTrue:[
- sel := browser selectorToSearchFor.
- ] ifFalse:[
- searchWhat == #globalName ifTrue:[
- sel := browser globalNameToSearchFor ? LastGlobalSearched.
- ] ifFalse:[
- searchWhat == #string ifTrue:[
- sel := browser stringToSearchFor ? LastStringSearched.
- ] ifFalse:[
- searchWhat == #resource ifTrue:[
- sel := browser stringToSearchFor ? LastResourceSearched.
- ] ifFalse:[
- sel := browser selectorToSearchFor.
- ]
- ]
- ].
- ].
- ].
- lastSearchPatterns := (browser ? SystemBrowser) lastSearchPatterns.
-
- sel isEmptyOrNil ifTrue:[
- "/ use last searchString
- lastSearchPatterns size > 0 ifTrue:[
- sel := lastSearchPatterns first.
- ].
- ].
- selectorHolder := (sel ? '') withoutSeparators asValue.
-
- inputField := self addComboBoxOn:selectorHolder tabable:true.
- inputField list:lastSearchPatterns.
- inputField selectAllInitially.
- inputField immediateAccept:true.
- inputField takeFocus.
- inputField
- entryCompletionBlock:[ :contents |
- |s what|
-
- s := contents withoutSpaces.
- self topView
- withWaitCursorDo:[
- |best matching|
-
- searchWhat == #resource ifTrue:[
- what := DoWhatIMeanSupport resourceCompletion:s inEnvironment:Smalltalk match:true ignoreCase:false.
- ] ifFalse:[
- searchWhat == #globalName ifFalse:[
- what := DoWhatIMeanSupport selectorCompletion:s inEnvironment:Smalltalk.
- ] ifTrue:[
- what := DoWhatIMeanSupport globalNameCompletion:s inEnvironment:Smalltalk match:true.
- ].
- ].
- best := what first.
- matching := what second.
- inputField contents:best.
- "/ listHolder contents:matching.
- matching size ~~ 1 ifTrue:[
- (browser ? self) window beep.
- ].
- ].
- ].
-
- selectorHolder onChangeEvaluate:[ self updateListOfMatchingSelectorsFor:inputField contents ].
-
- "Modified: / 14-02-2012 / 14:13:52 / cg"
-!
-
-addTextEntryFieldForCode
- |initial box panel patternInfoBox infoLabel helpButton errMessageField checkCodeAction
- metaBox b|
-
- box := View new.
- box extent:(600 @ 200).
-
- panel := VariableHorizontalPanel in:box.
- panel origin:0.0@0.0 corner:(1.0@1.0).
-
- codeField := CodeView in:panel.
- codeField canTab:true.
-"/ codeField origin:0.0@0.0 corner:(0.75@1.0).
-
- patternInfoBox := View in:panel.
-
- infoLabel := Label in:patternInfoBox.
- infoLabel geometryLayout:(LayoutFrame bottomInset:30).
-
- infoLabel font:(codeField font asSize:(codeField font size - 2)).
- infoLabel adjust:#left.
- infoLabel label:(self helpTextForMetaPatterns).
-
- panel relativeCorners:#(0.6 1.0).
- panel showHandle:true.
-
- helpButton := Button label:(resources string:'Pattern Help') in:patternInfoBox.
- helpButton layout:((AlignmentOrigin fractionalFromPoint:0.5@1.0)
- leftOffset:2
- topOffset:helpButton preferredHeight negated;
- leftAlignmentFraction:0.5 topAlignmentFraction:0).
- helpButton topInset:0.75@1.0.
- helpButton action:[self showHelpOnCodePatterns].
-
-
- self addComponent:box tabable:true.
-
- metaBox := HorizontalPanelView new.
- metaBox horizontalLayout:#leftMax.
- b := Button label:'+Lit' action:[ codeField pasteOrReplace:'`#n' ] in:metaBox.
- b helpKey:#matchAnyLiteral.
- b := Button label:'+Var' action:[ codeField pasteOrReplace:'`v' ] in:metaBox.
- b helpKey:#matchAnyVariable.
- b := Button label:'+Expr' action:[ codeField pasteOrReplace:'`@e' ] in:metaBox.
- b helpKey:#matchAnyExpression.
- b := Button label:'+Msg' action:[ codeField pasteOrReplace:'`@m:' ] in:metaBox.
- b helpKey:#matchAnyMessage.
- b := Button label:'+Node' action:[ codeField pasteOrReplace:'`{:node | node isLiteral and:[node value isSymbol] }' ] in:metaBox.
- b helpKey:#matchAnyNode.
- b := Button label:'+Stats' action:[ codeField pasteOrReplace:'`.@stats' ] in:metaBox.
- b helpKey:#matchAnyStats.
- self addComponent:metaBox.
-
- errMessageField := (self addTextLabel:'') adjust:#left.
- errMessageField level:-1.
- self addCheckBox:(resources string:'Method') on:self isMethodHolder.
-
- checkCodeAction := [ self checkCodeIn:codeField notifying:errMessageField. ].
-
- codeField modifiedChannel onChangeEvaluate:checkCodeAction.
- self isMethodHolder onChangeEvaluate:checkCodeAction.
-
- initial := browser selectionInCodeView.
- initial isEmptyOrNil ifTrue:[
- initial := LastCodeSearched ? ''
- ].
- codeField contents:initial.
- checkCodeAction value.
-
- "Modified: / 23-07-2011 / 10:35:14 / cg"
-!
-
-checkCodeIn:codeField notifying:errMessageField
- |codeString tree errAction|
-
- codeString := codeField contents asString string.
- errAction := [:str :pos |
- |line col badLine|
-
- line := codeField lineOfCharacterPosition:pos.
- col := (codeField colOfCharacterPosition:pos) max:1.
-
- badLine := (codeField listAt:line) ? ''.
- col <= badLine size size ifTrue:[
- codeField
- listAt:line
- put:(badLine asText
- emphasisAt:col
- put:(UserPreferences current unknownIdentifierEmphasis)).
- "/ codeField selectFromCharacterPosition:pos to:pos.
- ].
- errMessageField label:('line: ',line printString,' ',str).
- errMessageField backgroundColor:Color red.
- codeField requestFocus.
- nil.
- ].
-
- isMethodHolder value ifTrue:[
- tree := RBParser parseRewriteMethod:codeString onError: errAction.
- ] ifFalse:[
- tree := RBParser parseRewriteExpression:codeString onError: errAction.
- ].
- tree notNil ifTrue:[
- errMessageField backgroundColor:View defaultViewBackgroundColor.
- errMessageField label:nil
- ].
- codeField modifiedChannel setValue:false.
-!
-
-getClassesAndMethodsFor:where
- where == #everywhere ifTrue:[
- classes := Smalltalk allClasses.
- methods := nil.
- ^ self.
- ].
- where == #currentNameSpace ifTrue:[
- classes := currentNamespace allClassesWithAllPrivateClasses.
- methods := nil.
- ^ self.
- ].
- where == #currentClassesNameSpace ifTrue:[
- currentClass isPrivate ifTrue:[
- classes := currentClass topOwningClass nameSpace
- allClassesWithAllPrivateClasses.
- ] ifFalse:[
- classes := currentClass nameSpace allClassesWithAllPrivateClasses.
- ].
- methods := nil.
- ^ self.
- ].
- where == #currentPackage ifTrue:[
- classes := Smalltalk allClassesInPackage:currentPackage.
- methods := nil.
- ^ self.
- ].
- where == #currentClassesPackage ifTrue:[
- classes := Smalltalk allClassesInPackage:currentClass package.
- methods := nil.
- ^ self.
- ].
- where == #classCategories ifTrue:[
- classes := Smalltalk allClasses
- select:[ :cls | selectedCategories includes:cls category. ].
- classes := classes collect:[ :each | each theNonMetaclass. ].
- methods := nil.
- ^ self.
- ].
- (where == #classes or:[ where == #classesWithPrivateClasses. ]) ifTrue:[
- classes := selectedClasses collect:[ :each | each theNonMetaclass. ].
- methods := nil.
- ^ self.
- ].
- (where == #classHierarchies or:[ where == #classHierarchiesWithPrivateClasses. ])
- ifTrue:[
- classes := IdentitySet new.
- selectedClasses do:[ :cls |
- classes addAll:cls theNonMetaclass withAllSubclasses.
- ].
- methods := nil.
- ^ self.
- ].
- where == #ownersWithPrivateClasses ifTrue:[
- classes := IdentitySet new.
- selectedClasses do:[ :cls |
- |c|
-
- c := cls theNonMetaclass.
- classes add:(c owningClass ? c).
- ].
- methods := nil.
- ^ self.
- ].
- where == #ownersHierarchiesWithPrivateClasses ifTrue:[
- classes := IdentitySet new.
- selectedClasses do:[ :cls |
- |c|
-
- c := cls theNonMetaclass.
- classes addAll:(c owningClass ? c) withAllSubclasses.
- ].
- methods := nil.
- ^ self.
- ].
- (where == #classesAndSuperclasses) ifTrue:[
- classes := IdentitySet new.
- selectedClasses do:[ :cls |
- classes addAll:cls theNonMetaclass withAllSuperclasses.
- ].
- methods := nil.
- ^ self.
- ].
- (where == AREA_LISTOFMETHODS) ifTrue:[
- classes := nil.
- methods := browser methodListApp methodList value.
- ^ self.
- ].
- (where == #listOfSelectedMethods) ifTrue:[
- classes := nil.
- methods := browser selectedMethods value ? #().
- ^ self.
- ].
- (where == #listOfSelectedMethodClasses) ifTrue:[
- classes := ((browser selectedMethods value ? #()) collect:[:m | m mclass theNonMetaclass]) asSet asOrderedCollection.
- methods := nil.
- ^ self.
- ].
- (where == #listOfSelectedMethodPackages) ifTrue:[
- classes := (((browser selectedMethods value ? #()) collect:[:m | m package]) asSet
- collectAll:[:p | Smalltalk allClassesInPackage:p ]) asOrderedCollection.
- methods := nil.
- ^ self.
- ].
- (where == #listOfChangedClasses) ifTrue:[
- classes := ChangeSet current changedClasses.
- methods := nil.
- ^ self.
- ].
- (where == #listOfChangedMethods) ifTrue:[
- classes := nil.
- methods := Set new.
- ChangeSet current do:[:chg |
- |mthd|
-
- chg notNil ifTrue:[
- chg isMethodChange ifTrue:[
- mthd := chg changeMethod.
- mthd notNil ifTrue:[
- methods add:mthd
- ]
- ]
- ]
- ].
- methods := methods asOrderedCollection.
- ^ self.
- ].
-
- self halt:'inumplemented search'.
-
- "Modified: / 05-10-2011 / 15:48:20 / az"
- "Modified: / 29-02-2012 / 19:47:42 / cg"
-!
-
-helpTextForMetaPatterns
- ^ 'MetaPatterns:
- ' , '`' allBold , ' = meta
- ' , '@' allBold , ' = list/any
- ' , '.' allBold , ' = statement
- ' , '`' allBold , ' = recurse
-
- ' , '`#n' allBold , ' any lit
- ' , '`v' allBold , ' any var (`V => global)
- ' , '`@e' allBold , ' any expr
- ' , '`@m:' allBold , ' any message (`m => unary)
- ' , '`{:n|...}' allBold , ' node pattern
- ' , '`''a.*''' allBold , ' regex on string const
-'.
-
- "Modified: / 08-08-2011 / 20:33:03 / cg"
-!
-
-isMethodHolder
- isMethodHolder isNil ifTrue:[isMethodHolder := (LastCodeSearchWasMethod ? false) asValue].
- ^ isMethodHolder
-! !
-
-!SearchDialog methodsFor:'setup-buttons'!
-
-addBrowseButton
- |b|
-
- b := Button label:(resources string:'Browse').
- (DialogBox defaultOKButtonAtLeft) ifTrue:[
- self addButton:b before:nil.
- ] ifFalse:[
- self addButton:b after:nil.
- ].
- b
- action:[
- openHow := #newBrowser.
- self doAccept.
- self okPressed.
- ].
- ^ b.
-!
-
-addBufferButton
- |b|
-
- b := Button label:(resources string:'Add Buffer').
- (DialogBox defaultOKButtonAtLeft) ifTrue:[
- self addButton:b before:nil.
- ] ifFalse:[
- self addButton:b after:nil.
- ].
- b
- action:[
- openHow := #newBuffer.
- self doAccept.
- self okPressed.
- ].
- ^ b.
-!
-
-addButtons
- "add find/newBrowser/newBuffer buttons"
-
- |prevButton|
-
- allowFind ifTrue:[
- defaultOpenHow := #showHere.
- prevButton := self addFindButton.
- ].
- allowBrowser ifTrue:[
- defaultOpenHow := #newBrowser.
- prevButton := self addBrowseButton.
- ].
- allowBuffer ifTrue:[
- defaultOpenHow := #newBuffer.
- prevButton := self addBufferButton.
- ].
- prevButton notNil ifTrue:[
- prevButton isReturnButton:true.
- ].
- self addAbortButton.
-!
-
-addFindButton
- |b|
-
- b := Button label:(resources string:'Find').
- (DialogBox defaultOKButtonAtLeft) ifTrue:[
- self addButton:b before:nil.
- ] ifFalse:[
- self addButton:b after:nil.
- ].
- b
- action:[
- openHow := #showHere.
- self doAccept.
- self okPressed.
- ].
- ^ b.
-! !
-
-!SearchDialog class methodsFor:'documentation'!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.73 2012-12-02 10:10:34 cg Exp $'
-! !
-
-SearchDialog initialize!
--- a/Tools__AbstractTestRunner.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__AbstractTestRunner.st Wed Feb 27 12:34:59 2013 +0000
@@ -65,7 +65,6 @@
"
! !
-
!AbstractTestRunner class methodsFor:'initialization'!
initialize
@@ -81,7 +80,6 @@
"Modified: / 05-07-2011 / 14:12:34 / cg"
! !
-
!AbstractTestRunner class methodsFor:'accessing'!
currentlyRunningColor
@@ -116,7 +114,6 @@
"Modified: / 15-03-2010 / 21:54:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractTestRunner methodsFor:'private'!
buildSuiteFromClass:testCaseCls
@@ -133,7 +130,6 @@
"Modified: / 28-02-2011 / 21:31:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractTestRunner methodsFor:'utilities'!
suiteNameFromClasses: classes
@@ -182,7 +178,6 @@
"Modified: / 18-10-2011 / 22:59:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!AbstractTestRunner class methodsFor:'documentation'!
version
@@ -193,6 +188,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.11 2012-10-17 18:12:41 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__AbstractTestRunner.st 7681 2011-03-04 11:30:02Z vranyj1 §'
! !
--- a/Tools__BackgroundSourceProcessingService.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__BackgroundSourceProcessingService.st Wed Feb 27 12:34:59 2013 +0000
@@ -13,7 +13,7 @@
"{ NameSpace: Tools }"
-Tools::CodeViewService subclass:#BackgroundSourceProcessingService
+CodeViewService subclass:#BackgroundSourceProcessingService
instanceVariableNames:'job done modified'
classVariableNames:''
poolDictionaries:''
@@ -55,7 +55,6 @@
"
! !
-
!BackgroundSourceProcessingService class methodsFor:'testing'!
isAbstract
@@ -65,7 +64,6 @@
"Created: / 24-01-2012 / 12:27:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BackgroundSourceProcessingService methodsFor:'acessing-defaults'!
defaultJobName
@@ -76,7 +74,6 @@
"Created: / 24-01-2012 / 12:05:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BackgroundSourceProcessingService methodsFor:'change & update'!
modelChanged
@@ -132,7 +129,6 @@
"Modified: / 17-03-2012 / 16:06:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BackgroundSourceProcessingService methodsFor:'event handling'!
linesDeletedFrom:start to:end
@@ -156,7 +152,6 @@
"Created: / 16-09-2011 / 15:15:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BackgroundSourceProcessingService methodsFor:'initialization'!
initialize
@@ -178,7 +173,6 @@
"Modified: / 19-07-2012 / 16:17:21 / cg"
! !
-
!BackgroundSourceProcessingService methodsFor:'processing'!
process
@@ -221,7 +215,6 @@
"Created: / 24-01-2012 / 12:25:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BackgroundSourceProcessingService methodsFor:'registering'!
registerIn: aCodeView
@@ -232,7 +225,6 @@
"Created: / 27-07-2011 / 13:25:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BackgroundSourceProcessingService class methodsFor:'documentation'!
version
@@ -243,6 +235,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__BackgroundSourceProcessingService.st,v 1.3 2012-07-19 15:19:59 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__BackgroundSourceProcessingService.st 8022 2012-07-25 09:51:30Z vranyj1 $'
! !
--- a/Tools__BreakpointBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__BreakpointBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -32,7 +32,7 @@
privateIn:BreakpointBrowser
!
-Tools::BreakpointBrowser::BreakpointListEntry subclass:#BreakpointListEntryForLineBreak
+BreakpointBrowser::BreakpointListEntry subclass:#BreakpointListEntryForLineBreak
instanceVariableNames:'breakPoint'
classVariableNames:''
poolDictionaries:''
@@ -71,7 +71,6 @@
"
! !
-
!BreakpointBrowser class methodsFor:'initialization'!
defaultListOfMessagesAndTypes
@@ -95,7 +94,6 @@
MessagesAndTypes := self defaultListOfMessagesAndTypes
! !
-
!BreakpointBrowser class methodsFor:'defaults'!
defaultIcon
@@ -104,7 +102,6 @@
^ ToolbarIconLibrary openBreakpointBrowserIcon
! !
-
!BreakpointBrowser class methodsFor:'interface specs'!
windowSpec
@@ -207,7 +204,6 @@
)
! !
-
!BreakpointBrowser class methodsFor:'menu specs'!
itemMenu
@@ -499,7 +495,6 @@
)
! !
-
!BreakpointBrowser class methodsFor:'tableColumns specs'!
tableColumns
@@ -767,7 +762,6 @@
)
! !
-
!BreakpointBrowser methodsFor:'accessing'!
aboutThisApplicationText
@@ -818,7 +812,6 @@
^ updatingLabelShown
! !
-
!BreakpointBrowser methodsFor:'aspects'!
enableAssertions
@@ -952,7 +945,6 @@
^ showWhichHaltsHolder
! !
-
!BreakpointBrowser methodsFor:'change & update'!
delayedUpdate:something with:aParameter from:changedObject
@@ -1318,7 +1310,6 @@
].
! !
-
!BreakpointBrowser methodsFor:'initialization & release'!
codeViewClass
@@ -1364,7 +1355,6 @@
super release
! !
-
!BreakpointBrowser methodsFor:'menu actions-item'!
browseItem
@@ -1393,7 +1383,6 @@
"Modified: / 18-02-2007 / 12:57:58 / cg"
! !
-
!BreakpointBrowser methodsFor:'menus-dynamic'!
codeBreakpointMenu
@@ -1503,7 +1492,6 @@
"Modified: / 09-09-2012 / 13:11:30 / cg"
! !
-
!BreakpointBrowser methodsFor:'tests'!
aMethodWith_assert
@@ -1567,7 +1555,6 @@
self todo
! !
-
!BreakpointBrowser methodsFor:'user actions'!
browseSelectedItem
@@ -1676,7 +1663,6 @@
self showOthers:(self showOthers not).
! !
-
!BreakpointBrowser::BreakpointListEntry methodsFor:'accessing'!
arg
@@ -1725,7 +1711,6 @@
enabled := enabledArg.
! !
-
!BreakpointBrowser::BreakpointListEntry methodsFor:'actions'!
browse
@@ -1745,7 +1730,6 @@
^ (Smalltalk classNamed:className) compiledMethodAt:selector.
! !
-
!BreakpointBrowser::BreakpointListEntry methodsFor:'testing'!
isAssertion
@@ -1777,7 +1761,6 @@
^ type == #other
! !
-
!BreakpointBrowser::BreakpointListEntryForLineBreak methodsFor:'accessing'!
breakPoint
@@ -1790,7 +1773,6 @@
breakPoint := something.
! !
-
!BreakpointBrowser::MessageArgumentExtractor methodsFor:'accessing'!
callBack:something
@@ -1801,7 +1783,6 @@
selectorToSearch := something.
! !
-
!BreakpointBrowser::MessageArgumentExtractor methodsFor:'visiting'!
acceptMessageNode: aMessageNode
@@ -1852,7 +1833,6 @@
super acceptMessageNode: aMessageNode
! !
-
!BreakpointBrowser class methodsFor:'documentation'!
version
@@ -1863,6 +1843,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.39 2012-11-04 14:02:58 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__BreakpointBrowser.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
--- a/Tools__BreakpointService.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__BreakpointService.st Wed Feb 27 12:34:59 2013 +0000
@@ -27,7 +27,7 @@
"{ NameSpace: Tools }"
-Tools::CodeViewService subclass:#BreakpointService
+CodeViewService subclass:#BreakpointService
instanceVariableNames:'breakpoints currentMethod'
classVariableNames:''
poolDictionaries:''
@@ -64,14 +64,12 @@
"
! !
-
!BreakpointService methodsFor:'accessing'!
breakpoints
^ breakpoints
! !
-
!BreakpointService methodsFor:'change & update'!
update: aspect with: param from: sender
@@ -105,7 +103,6 @@
"Modified: / 06-07-2011 / 17:32:54 / jv"
! !
-
!BreakpointService methodsFor:'event handling'!
buttonPress:button x:x y:y in:view
@@ -147,7 +144,6 @@
"Created: / 06-07-2011 / 17:16:36 / jv"
! !
-
!BreakpointService methodsFor:'initialization'!
initialize
@@ -158,7 +154,6 @@
"Created: / 17-06-2011 / 13:49:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BreakpointService methodsFor:'private'!
breakpointAtLine:line
@@ -289,7 +284,6 @@
"Modified: / 02-08-2012 / 09:26:38 / cg"
! !
-
!BreakpointService methodsFor:'redrawing'!
drawLine:lineNo in:view atX:x y:y width:w height:h from:startCol to:endColOrNil with:fg and:bg
@@ -324,7 +318,6 @@
"Modified (format): / 05-07-2011 / 22:14:33 / cg"
! !
-
!BreakpointService class methodsFor:'documentation'!
version_CVS
@@ -332,6 +325,11 @@
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/Tools__BrowserList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__BrowserList.st Wed Feb 27 12:34:59 2013 +0000
@@ -1879,6 +1879,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.54 2012/12/12 15:38:00 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id:: Tools__BrowserList.st 8086 2013-01-15 12:03:21Z vranyj1 $'
! !
+
--- a/Tools__BrowserListWithFilter.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__BrowserListWithFilter.st Wed Feb 27 12:34:59 2013 +0000
@@ -13,7 +13,7 @@
"{ NameSpace: Tools }"
-Tools::BrowserList subclass:#BrowserListWithFilter
+BrowserList subclass:#BrowserListWithFilter
instanceVariableNames:'listView filterView filterPatternHolder showFilterHolder'
classVariableNames:''
poolDictionaries:''
@@ -54,7 +54,6 @@
"
! !
-
!BrowserListWithFilter class methodsFor:'plugIn spec'!
aspectSelectors
@@ -66,7 +65,6 @@
"Created: / 11-02-2012 / 22:44:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BrowserListWithFilter methodsFor:'accessing'!
filterPattern
@@ -89,7 +87,6 @@
"Created: / 29-11-2011 / 15:27:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BrowserListWithFilter methodsFor:'aspects'!
filterPatternHolder
@@ -150,7 +147,6 @@
].
! !
-
!BrowserListWithFilter methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -170,7 +166,6 @@
"Modified (format): / 06-06-2012 / 00:01:37 / cg"
! !
-
!BrowserListWithFilter methodsFor:'event handling-delegation'!
handlesKeyPress:key inView:aView
@@ -193,7 +188,6 @@
"Modified: / 17-01-2013 / 21:28:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BrowserListWithFilter methodsFor:'hooks'!
commonPostBuild
@@ -222,7 +216,6 @@
"Created: / 29-11-2011 / 14:47:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BrowserListWithFilter methodsFor:'private'!
filterList: list
@@ -258,7 +251,6 @@
"Created: / 29-11-2011 / 14:55:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!BrowserListWithFilter class methodsFor:'documentation'!
version
@@ -269,6 +261,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserListWithFilter.st,v 1.4 2012-06-05 22:03:39 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__BrowserListWithFilter.st 8090 2013-01-17 21:52:18Z vranyj1 $'
! !
--- a/Tools__Browslet.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__Browslet.st Wed Feb 27 12:34:59 2013 +0000
@@ -153,6 +153,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__Browslet.st,v 1.2 2011/07/03 13:40:42 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__Browslet.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/Tools__BrowsletCanvas.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__BrowsletCanvas.st Wed Feb 27 12:34:59 2013 +0000
@@ -295,6 +295,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__BrowsletCanvas.st,v 1.2 2011/07/03 13:40:28 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__BrowsletCanvas.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/Tools__CachedTags.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__CachedTags.st Wed Feb 27 12:34:59 2013 +0000
@@ -70,6 +70,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__CachedTags.st,v 1.1 2011/05/06 08:34:57 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__CachedTags.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/Tools__ChangeList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ChangeList.st Wed Feb 27 12:34:59 2013 +0000
@@ -27,7 +27,7 @@
"{ NameSpace: Tools }"
-Tools::BrowserListWithFilter subclass:#ChangeList
+BrowserListWithFilter subclass:#ChangeList
instanceVariableNames:'listHolder showRemovedHolder showSameHolder showTimestampHolder
allowRemoveHolder allowAcceptHolder scrollToBottom applyAction'
classVariableNames:'LastSelectionConditionString'
@@ -72,7 +72,6 @@
"
! !
-
!ChangeList class methodsFor:'image specs'!
iconEqual
@@ -111,7 +110,6 @@
"Modified: / 31-08-2011 / 10:54:46 / cg"
! !
-
!ChangeList class methodsFor:'interface specs'!
windowSpec
@@ -183,7 +181,6 @@
)
! !
-
!ChangeList class methodsFor:'list specs'!
listColumnSpec
@@ -297,7 +294,6 @@
! !
-
!ChangeList class methodsFor:'menu specs'!
listMenu
@@ -420,7 +416,6 @@
)
! !
-
!ChangeList class methodsFor:'plugIn spec'!
aspectSelectors
@@ -449,7 +444,6 @@
! !
-
!ChangeList methodsFor:'accessing'!
acceptEnabled
@@ -531,7 +525,6 @@
"Created: / 05-12-2009 / 14:28:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'actions'!
selectionDoubleclicked
@@ -547,7 +540,6 @@
"Modified: / 24-01-2012 / 22:01:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'aspects'!
allowAcceptHolder
@@ -710,7 +702,6 @@
].
! !
-
!ChangeList methodsFor:'change & update'!
update: aspect with: param from: sender
@@ -746,7 +737,6 @@
"Modified: / 26-07-2012 / 18:44:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'drag & drop'!
canDrop: aDropContext
@@ -778,7 +768,6 @@
"Modified: / 01-08-2012 / 18:15:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'event processing'!
handlesKeyPress:key inView:aView
@@ -799,7 +788,6 @@
"Created: / 08-02-2012 / 14:42:18 / cg"
! !
-
!ChangeList methodsFor:'generators'!
makeGenerator
@@ -818,7 +806,6 @@
"Modified: / 25-07-2012 / 15:39:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'hooks'!
postBuildListView: aView
@@ -829,7 +816,6 @@
"Created: / 29-11-2011 / 14:56:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'initialization'!
initialize
@@ -844,7 +830,6 @@
"Created: / 29-10-2010 / 12:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'menu actions'!
listMenuApply
@@ -1019,7 +1004,6 @@
self updateList
! !
-
!ChangeList methodsFor:'private'!
application
@@ -1159,7 +1143,6 @@
"Modified: / 01-08-2012 / 18:10:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'queries'!
hasChangeSelected
@@ -1198,7 +1181,6 @@
"Created: / 03-04-2012 / 11:28:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList::ListEntry class methodsFor:'instance creation'!
change: aChange
@@ -1222,7 +1204,6 @@
"Created: / 25-07-2009 / 23:33:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!ChangeList::ListEntry methodsFor:'accessing'!
application
@@ -1406,7 +1387,6 @@
^ x
! !
-
!ChangeList::ListEntry methodsFor:'displaying'!
displayLabel:aLabel h:lH on:aGC x:newX y:y h:h
@@ -1443,7 +1423,6 @@
"Modified: / 27-07-2012 / 17:13:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList::ListEntry methodsFor:'private'!
iconSelector
@@ -1459,7 +1438,6 @@
"Modified: / 31-08-2011 / 10:39:32 / cg"
! !
-
!ChangeList::ListEntry methodsFor:'protocol-queries'!
hasChildren
@@ -1469,7 +1447,6 @@
"Modified (format): / 27-07-2012 / 21:25:34 / cg"
! !
-
!ChangeList class methodsFor:'documentation'!
version
@@ -1480,6 +1457,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.20 2013-01-17 10:40:20 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__ChangeList.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !
--- a/Tools__ChangeSetDiffInfo.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ChangeSetDiffInfo.st Wed Feb 27 12:34:59 2013 +0000
@@ -156,6 +156,12 @@
!ChangeSetDiffInfo class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ChangeSetDiffInfo.st 8036 2012-08-03 15:14:04Z vranyj1 $'
! !
+
--- a/Tools__ChangeSetDiffList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ChangeSetDiffList.st Wed Feb 27 12:34:59 2013 +0000
@@ -603,6 +603,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffList.st,v 1.6 2011/11/30 11:14:53 vrany Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ChangeSetDiffList.st 8089 2013-01-17 17:16:17Z vranyj1 $'
! !
+
--- a/Tools__ChangeSetSelectionDialog.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ChangeSetSelectionDialog.st Wed Feb 27 12:34:59 2013 +0000
@@ -622,6 +622,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeSetSelectionDialog.st,v 1.2 2011/10/02 19:52:17 stefan Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ChangeSetSelectionDialog.st 8036 2012-08-03 15:14:04Z vranyj1 $'
! !
+
--- a/Tools__ChangeSetSpec.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ChangeSetSpec.st Wed Feb 27 12:34:59 2013 +0000
@@ -384,6 +384,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeSetSpec.st,v 1.2 2011/10/02 19:52:17 stefan Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ChangeSetSpec.st 8036 2012-08-03 15:14:04Z vranyj1 $'
! !
+
--- a/Tools__CheckinInfoDialog.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__CheckinInfoDialog.st Wed Feb 27 12:34:59 2013 +0000
@@ -54,7 +54,6 @@
"
! !
-
!CheckinInfoDialog class methodsFor:'interface specs'!
windowSpec
@@ -207,7 +206,6 @@
)
! !
-
!CheckinInfoDialog class methodsFor:'opening'!
getCheckinInfoFor:aString initialAnswer:initialAnswer
@@ -275,7 +273,6 @@
"Created: / 12-03-2012 / 12:36:26 / cg"
! !
-
!CheckinInfoDialog methodsFor:'accessing'!
allowEmptyLogMessage
@@ -346,7 +343,6 @@
^ self quickCheckInVisibleHolder value:aBoolean
! !
-
!CheckinInfoDialog methodsFor:'aspects'!
descriptionHolder
@@ -427,7 +423,6 @@
"Created: / 06-07-2010 / 11:30:29 / cg"
! !
-
!CheckinInfoDialog class methodsFor:'documentation'!
version
@@ -438,6 +433,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.15 2012-03-12 12:13:08 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__CheckinInfoDialog.st 7952 2012-03-21 17:50:14Z vranyj1 $'
! !
--- a/Tools__ClassCategoryList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ClassCategoryList.st Wed Feb 27 12:34:59 2013 +0000
@@ -978,6 +978,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.40 2012/11/07 14:19:04 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id:: Tools__ClassCategoryList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__ClassChecker.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ClassChecker.st Wed Feb 27 12:34:59 2013 +0000
@@ -925,6 +925,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.17 2012/11/06 17:49:11 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ClassChecker.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__ClassGeneratorList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ClassGeneratorList.st Wed Feb 27 12:34:59 2013 +0000
@@ -13,7 +13,7 @@
"{ NameSpace: Tools }"
-Tools::BrowserList subclass:#ClassGeneratorList
+BrowserList subclass:#ClassGeneratorList
instanceVariableNames:'organizerList categoryList namespaceList namespaceNameList
projectList selectedCategories selectedNamespaces
selectedProjects selectedClasses'
@@ -522,6 +522,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.12 2012/11/03 11:29:20 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ClassGeneratorList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__ClassList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ClassList.st Wed Feb 27 12:34:59 2013 +0000
@@ -2023,6 +2023,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.70 2012/11/07 14:21:22 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id:: Tools__ClassList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__ClassSorter.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ClassSorter.st Wed Feb 27 12:34:59 2013 +0000
@@ -98,6 +98,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__ClassSorter.st,v 1.1 2011/07/01 13:28:45 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ClassSorter.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/Tools__CodeCompletionMenu.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__CodeCompletionMenu.st Wed Feb 27 12:34:59 2013 +0000
@@ -65,7 +65,6 @@
"
! !
-
!CodeCompletionMenu class methodsFor:'interface opening'!
openFor: aCodeView at: anInteger with:aCollection
@@ -81,7 +80,6 @@
"Modified: / 01-07-2011 / 00:05:01 / cg"
! !
-
!CodeCompletionMenu methodsFor:'accessing'!
contentHeight
@@ -110,7 +108,6 @@
"Modified: / 06-03-2010 / 08:17:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeCompletionMenu methodsFor:'event handling'!
backspaceKeyPress
@@ -223,7 +220,6 @@
"Created: / 29-05-2005 / 09:50:03 / janfrog"
! !
-
!CodeCompletionMenu methodsFor:'initialize'!
initialize
@@ -251,7 +247,6 @@
"Modified: / 01-07-2011 / 00:08:31 / cg"
! !
-
!CodeCompletionMenu methodsFor:'interface opening'!
openModalXX
@@ -294,7 +289,6 @@
"Modified: / 01-07-2011 / 09:30:29 / cg"
! !
-
!CodeCompletionMenu methodsFor:'updating'!
updateList
@@ -305,13 +299,17 @@
"Modified: / 27-05-2005 / 22:23:37 / janfrog"
! !
-
!CodeCompletionMenu class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionMenu.st,v 1.4 2013-01-17 10:39:42 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__CodeCompletionMenu.st 7690 2011-03-19 02:23:25Z vranyj1 §'
! !
--- a/Tools__CodeCompletionService.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__CodeCompletionService.st Wed Feb 27 12:34:59 2013 +0000
@@ -189,6 +189,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__CodeCompletionService.st,v 1.6 2011/07/27 12:34:03 vrany Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__CodeCompletionService.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/Tools__CodeCritics.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__CodeCritics.st Wed Feb 27 12:34:59 2013 +0000
@@ -105,6 +105,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__CodeCritics.st,v 1.3 2011/07/03 13:31:36 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__CodeCritics.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/Tools__CodeHighlightingService.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__CodeHighlightingService.st Wed Feb 27 12:34:59 2013 +0000
@@ -27,7 +27,7 @@
"{ NameSpace: Tools }"
-Tools::BackgroundSourceProcessingService subclass:#CodeHighlightingService
+BackgroundSourceProcessingService subclass:#CodeHighlightingService
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -64,7 +64,6 @@
"
! !
-
!CodeHighlightingService class methodsFor:'accessing'!
label
@@ -76,7 +75,6 @@
"Created: / 07-03-2010 / 14:00:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeHighlightingService methodsFor:'accessing'!
syntaxHighlighter
@@ -143,7 +141,6 @@
"Modified: / 19-07-2012 / 12:58:48 / cg"
! !
-
!CodeHighlightingService methodsFor:'acessing-defaults'!
defaultJobName
@@ -153,7 +150,6 @@
"Created: / 24-01-2012 / 12:06:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeHighlightingService methodsFor:'private'!
process
@@ -361,7 +357,6 @@
"Modified: / 17-03-2012 / 19:33:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeHighlightingService class methodsFor:'documentation'!
version
@@ -372,6 +367,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.36 2013-01-11 09:56:42 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__CodeHighlightingService.st 7715 2011-04-10 16:32:58Z vranyj1 §'
! !
--- a/Tools__CodeNavigationService.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__CodeNavigationService.st Wed Feb 27 12:34:59 2013 +0000
@@ -27,7 +27,7 @@
"{ NameSpace: Tools }"
-Tools::CodeViewService subclass:#CodeNavigationService
+CodeViewService subclass:#CodeNavigationService
instanceVariableNames:'selectorEmphasis variableEmphasis currentEmphasis linesToRedraw'
classVariableNames:'DefaultVariableEmphasis DefaultSelectorEmphasis'
poolDictionaries:''
@@ -64,7 +64,6 @@
"
! !
-
!CodeNavigationService class methodsFor:'accessing'!
label
@@ -83,7 +82,6 @@
"Created: / 27-07-2011 / 11:40:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeNavigationService class methodsFor:'accessing - defaults'!
defaultSelectorEmphasis
@@ -106,7 +104,6 @@
"Modified: / 21-08-2011 / 11:04:20 / cg"
! !
-
!CodeNavigationService methodsFor:'change & update'!
update: aspect with: param from: sender
@@ -124,7 +121,6 @@
"Modified: / 05-09-2011 / 05:15:42 / cg"
! !
-
!CodeNavigationService methodsFor:'code services'!
browseClass:class
@@ -151,7 +147,6 @@
"Created: / 06-03-2010 / 21:14:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeNavigationService methodsFor:'event handling'!
button1Press
@@ -384,7 +379,6 @@
"Created: / 16-09-2011 / 15:19:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeNavigationService methodsFor:'initialization'!
initialize
@@ -397,7 +391,6 @@
"Created: / 25-06-2010 / 14:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeNavigationService methodsFor:'private'!
elementAtCursor
@@ -649,7 +642,6 @@
"Created: / 25-06-2010 / 14:15:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeNavigationService methodsFor:'redrawing'!
redrawLines
@@ -662,13 +654,17 @@
"Modified (format): / 18-08-2011 / 16:01:34 / cg"
! !
-
!CodeNavigationService class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.20 2013-01-30 17:54:04 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__CodeNavigationService.st 7788 2011-06-17 07:57:48Z vranyj1 §'
! !
--- a/Tools__CodeView2.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__CodeView2.st Wed Feb 27 12:34:59 2013 +0000
@@ -89,7 +89,6 @@
"
! !
-
!CodeView2 class methodsFor:'initialization'!
initialize
@@ -102,7 +101,6 @@
"Modified: / 14-02-2010 / 15:36:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 class methodsFor:'debugging'!
trace: aSelector
@@ -126,7 +124,6 @@
"Created: / 14-02-2010 / 09:53:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 class methodsFor:'examples'!
example1
@@ -149,7 +146,6 @@
"Created: / 02-09-2009 / 21:48:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 class methodsFor:'menu specs'!
debugMenu
@@ -485,7 +481,6 @@
"Modified: / 02-03-2012 / 19:53:19 / cg"
! !
-
!CodeView2 methodsFor:'* As yet uncategorized *'!
defaultFileNameForSave
@@ -494,7 +489,6 @@
"Created: / 11-05-2012 / 15:38:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'accessing'!
acceptAction:aBlock
@@ -751,7 +745,6 @@
"Created: / 19-03-2012 / 14:25:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'accessing - code component'!
klass
@@ -766,7 +759,6 @@
"Created: / 27-07-2011 / 13:14:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'accessing-code component'!
klass: aClass
@@ -810,7 +802,6 @@
"Created: / 27-07-2011 / 13:12:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'aspects'!
browserHolder
@@ -1006,7 +997,6 @@
"Modified: / 17-06-2011 / 12:55:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'change & update'!
update:aspect with:param from:sender
@@ -1046,7 +1036,6 @@
"Created: / 23-06-2010 / 19:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'channels'!
modifiedChannel
@@ -1131,7 +1120,6 @@
"Created: / 23-06-2010 / 19:03:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'code services'!
browseMethod: method
@@ -1230,7 +1218,6 @@
"Modified: / 18-11-2011 / 14:58:19 / cg"
! !
-
!CodeView2 methodsFor:'delegation'!
doesNotUnderstand: aMessage
@@ -1251,7 +1238,6 @@
"Created: / 14-02-2010 / 09:53:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'delegation - events'!
buttonMotion: button x:x y:y in: view
@@ -1344,7 +1330,6 @@
"Created: / 19-03-2012 / 17:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'delegation-drawing'!
drawLine:lineNo in: view atX:x y:y width: w height:h from:startCol to:endColOrNil with:fg and:bg
@@ -1380,7 +1365,6 @@
"Modified: / 07-03-2010 / 14:46:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'delegation-events'!
linesDeletedFrom: start to: end
@@ -1420,7 +1404,6 @@
"Modified: / 06-10-2011 / 14:13:44 / cg"
! !
-
!CodeView2 methodsFor:'diff mode'!
recomputeDiff:view
@@ -1453,7 +1436,6 @@
"Modified: / 23-06-2010 / 17:25:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'initialization'!
initialize
@@ -1540,7 +1522,6 @@
"Modified: / 23-06-2010 / 19:38:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'menu actions'!
accept
@@ -1647,7 +1628,6 @@
"Created: / 16-02-2010 / 19:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'menus-dynamic'!
editMenu
@@ -1844,7 +1824,6 @@
"Modified: / 06-10-2011 / 14:14:30 / cg"
! !
-
!CodeView2 methodsFor:'private'!
codeCompletion
@@ -1968,7 +1947,6 @@
"Modified: / 13-02-2010 / 23:25:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'private-accessing'!
gutterView
@@ -2017,7 +1995,6 @@
"Created: / 14-02-2010 / 15:21:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'realization'!
postRealize
@@ -2029,7 +2006,6 @@
"Created: / 23-01-2012 / 10:35:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2 methodsFor:'services'!
registerService: aCodeViewService
@@ -2049,7 +2025,6 @@
"Created: / 19-07-2012 / 16:34:18 / cg"
! !
-
!CodeView2 methodsFor:'testing'!
isCodeView2
@@ -2066,7 +2041,6 @@
"Created: / 14-02-2010 / 22:13:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::GutterView methodsFor:'accessing'!
setTextView: aTextView
@@ -2091,7 +2065,6 @@
"Created: / 07-12-2009 / 22:36:31 / Jindra <a>"
! !
-
!CodeView2::GutterView methodsFor:'accessing-dimensions'!
acceptButtonBottom
@@ -2158,7 +2131,6 @@
^ (codeView showAcceptCancelBar ifTrue:[widthAcceptCancel ? 0] ifFalse:[0])
! !
-
!CodeView2::GutterView methodsFor:'actions'!
accept
@@ -2180,7 +2152,6 @@
"Created: / 07-10-2011 / 20:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::GutterView methodsFor:'aspects'!
currentBlockNodeHolder
@@ -2212,7 +2183,6 @@
].
! !
-
!CodeView2::GutterView methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -2248,7 +2218,6 @@
"Modified: / 05-04-2012 / 17:47:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::GutterView methodsFor:'event handling'!
buttonPress: btn x: x y: y
@@ -2289,7 +2258,6 @@
"Modified (comment): / 18-05-2012 / 10:56:54 / cg"
! !
-
!CodeView2::GutterView methodsFor:'help'!
flyByHelpText
@@ -2298,7 +2266,6 @@
"Created: / 27-01-2012 / 14:04:52 / cg"
! !
-
!CodeView2::GutterView methodsFor:'initialization'!
initialize
@@ -2336,7 +2303,6 @@
"Modified: / 05-04-2012 / 17:46:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::GutterView methodsFor:'queries'!
displayedString: line
@@ -2377,7 +2343,6 @@
"Created: / 14-12-2009 / 13:35:07 / Jindra <a>"
! !
-
!CodeView2::GutterView methodsFor:'redrawing'!
redrawAcceptCancelBarX: x y: y width:w height:h
@@ -2537,7 +2502,6 @@
"Modified: / 10-10-2011 / 16:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'accessing'!
changedDiffText
@@ -2651,7 +2615,6 @@
"Created: / 07-10-2011 / 19:28:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'accessing-colors'!
colorChanged
@@ -2675,7 +2638,6 @@
"Modified: / 24-06-2010 / 14:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'accessing-contents'!
list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStrings
@@ -2698,7 +2660,6 @@
"Created: / 07-10-2011 / 18:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'accessing-look'!
lineSpacing
@@ -2709,7 +2670,6 @@
"Created: / 19-03-2012 / 13:22:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'accessing-state'!
beUnmodified
@@ -2735,7 +2695,6 @@
"Created: / 08-10-2011 / 12:52:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'channels'!
reallyModifiedChannel
@@ -2764,7 +2723,6 @@
"Created: / 07-10-2011 / 18:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'delegation-events'!
isQuickMenuModifierPressed
@@ -2781,7 +2739,6 @@
^ self sensor metaDown not
! !
-
!CodeView2::TextView methodsFor:'drawing'!
backgroundForVisibleLine:visLineNr default:bg
@@ -2936,7 +2893,6 @@
"Modified: / 17-03-2012 / 09:27:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'editing'!
contentsChanged
@@ -3072,7 +3028,6 @@
"Modified: / 18-11-2011 / 14:58:22 / cg"
! !
-
!CodeView2::TextView methodsFor:'editing-basic'!
basicDeleteCharsAtLine:lineNr fromCol:startCol toCol:endCol
@@ -3140,7 +3095,6 @@
"Created: / 20-12-2011 / 15:32:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'event handling'!
buttonMotion:button x:x y:y
@@ -3208,7 +3162,6 @@
"Modified: / 06-03-2010 / 21:04:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'formatting'!
leftIndentForLine:lineNr
@@ -3249,7 +3202,6 @@
"Created: / 10-12-2011 / 11:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'initialization'!
initialize
@@ -3289,7 +3241,6 @@
"Created: / 02-09-2009 / 21:57:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'menu & menu actions'!
accept
@@ -3374,7 +3325,6 @@
"Created: / 08-03-2012 / 12:44:03 / cg"
! !
-
!CodeView2::TextView methodsFor:'notification'!
notifyLinesDeletedFrom: startLine to: endLine
@@ -3412,7 +3362,6 @@
"Created: / 16-09-2011 / 15:12:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'private'!
superEditMenu
@@ -3517,14 +3466,12 @@
"Modified: / 28-10-2011 / 09:23:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'queries'!
supportsSyntaxElements
^ true
! !
-
!CodeView2::TextView methodsFor:'scrolling'!
basicScrollTo:anOrigin redraw:doRedraw
@@ -3554,7 +3501,6 @@
"Created: / 19-03-2012 / 17:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2::TextView methodsFor:'undo & again'!
nonUndoableDo: aBlock
@@ -3573,7 +3519,6 @@
"Created: / 06-07-2011 / 17:48:49 / jv"
! !
-
!CodeView2 class methodsFor:'documentation'!
version
@@ -3584,6 +3529,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.69 2013-01-30 17:54:06 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__CodeView2.st 7797 2011-06-28 07:45:06Z vranyj1 §'
! !
--- a/Tools__CodeView2SettingsAppl.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__CodeView2SettingsAppl.st Wed Feb 27 12:34:59 2013 +0000
@@ -39,7 +39,6 @@
"
! !
-
!CodeView2SettingsAppl class methodsFor:'help specs'!
flyByHelpSpec
@@ -81,7 +80,6 @@
)
! !
-
!CodeView2SettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -107,7 +105,6 @@
RRY(UUUD***("*)J*****$R***"J)J******QJ***HUUUZUUUUUD***TQDQDQDQDQDR***************(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@C@@@G??LG??<_??<_??<G??<G??<G??<G??<G??8G??0G??0G??0G??0G??0G??0G??0G??0G??0O??0@@@@') ; yourself); yourself]
! !
-
!CodeView2SettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -293,7 +290,6 @@
)
! !
-
!CodeView2SettingsAppl methodsFor:'aspects'!
acceptCancelInGutterEnabledHolder
@@ -386,7 +382,6 @@
"Created: / 26-07-2011 / 10:31:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2SettingsAppl methodsFor:'aspects-enablement'!
useCodeView2InToolEnabled
@@ -404,7 +399,6 @@
"Modified (format): / 25-11-2011 / 15:11:55 / cg"
! !
-
!CodeView2SettingsAppl methodsFor:'protocol'!
basicAspects
@@ -445,7 +439,6 @@
"Modified: / 19-07-2011 / 16:55:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!CodeView2SettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -457,7 +450,6 @@
"Modified (format): / 25-11-2011 / 15:25:16 / cg"
! !
-
!CodeView2SettingsAppl class methodsFor:'documentation'!
version
@@ -468,6 +460,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2SettingsAppl.st,v 1.7 2013-02-01 14:49:02 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/Tools__CodeViewService.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__CodeViewService.st Wed Feb 27 12:34:59 2013 +0000
@@ -420,6 +420,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__CodeViewService.st,v 1.8 2012/01/24 12:56:23 vrany Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__CodeViewService.st 7860 2012-02-01 10:42:29Z vranyj1 $'
! !
+
--- a/Tools__Diff2CodeView2.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__Diff2CodeView2.st Wed Feb 27 12:34:59 2013 +0000
@@ -284,6 +284,12 @@
!Diff2CodeView2 class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__Diff2CodeView2.st 7925 2012-03-16 17:08:17Z vranyj1 $'
! !
+
--- a/Tools__Diff3CodeView2.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__Diff3CodeView2.st Wed Feb 27 12:34:59 2013 +0000
@@ -362,6 +362,12 @@
!Diff3CodeView2 class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__Diff3CodeView2.st 7974 2012-04-09 11:37:13Z vranyj1 $'
! !
+
--- a/Tools__DiffCodeView2.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__DiffCodeView2.st Wed Feb 27 12:34:59 2013 +0000
@@ -71,7 +71,6 @@
"
! !
-
!DiffCodeView2 class methodsFor:'defaults'!
textViewClass
@@ -83,7 +82,6 @@
"Created: / 06-03-2010 / 10:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!DiffCodeView2 methodsFor:'accessing'!
classHolder: aValueModel
@@ -139,7 +137,6 @@
"Modified: / 15-07-2010 / 23:08:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!DiffCodeView2 methodsFor:'initialization'!
initialize
@@ -159,7 +156,6 @@
"Modified: / 23-06-2010 / 19:36:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!DiffCodeView2 methodsFor:'private'!
computeDiffDataForText1:t1 text2:t2
@@ -320,7 +316,6 @@
"Modified (comment): / 26-07-2012 / 21:45:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!DiffCodeView2::DiffData methodsFor:'accessing'!
changed
@@ -367,13 +362,17 @@
text2 := something.
! !
-
!DiffCodeView2 class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__DiffCodeView2.st,v 1.6 2012-07-27 22:05:42 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__DiffCodeView2.st 7594 2010-07-16 08:57:35Z vranyj1 §'
! !
--- a/Tools__FullMethodCategoryList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__FullMethodCategoryList.st Wed Feb 27 12:34:59 2013 +0000
@@ -126,6 +126,12 @@
^ '$Id: Tools__FullMethodCategoryList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__FullMethodCategoryList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__HierarchicalChangeList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__HierarchicalChangeList.st Wed Feb 27 12:34:59 2013 +0000
@@ -221,6 +221,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangeList.st,v 1.7 2012/01/24 22:18:49 vrany Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__HierarchicalChangeList.st 8027 2012-07-26 18:46:57Z vranyj1 $'
! !
+
--- a/Tools__HierarchicalChangesetDialog.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__HierarchicalChangesetDialog.st Wed Feb 27 12:34:59 2013 +0000
@@ -71,7 +71,6 @@
"
! !
-
!HierarchicalChangesetDialog class methodsFor:'interface specs'!
codeViewSpec
@@ -235,7 +234,6 @@
"Modified: / 06-11-2008 / 17:51:26 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!HierarchicalChangesetDialog class methodsFor:'plugIn spec'!
aspectSelectors
@@ -258,7 +256,6 @@
"Modified: / 03-04-2009 / 09:46:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!HierarchicalChangesetDialog methodsFor:'accessing'!
changeSet
@@ -322,7 +319,6 @@
"Created: / 06-11-2008 / 15:02:13 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!HierarchicalChangesetDialog methodsFor:'actions'!
changeListToggleRemoved
@@ -340,7 +336,6 @@
ifNotNil:[ selectedChangeSetHolder value:self selectedChangeSet ]
! !
-
!HierarchicalChangesetDialog methodsFor:'aspects'!
changeSetHolder
@@ -435,7 +430,6 @@
"Modified: / 06-11-2008 / 15:04:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!HierarchicalChangesetDialog methodsFor:'change & update'!
updateChangeSet
@@ -481,7 +475,6 @@
"Modified (format): / 18-11-2011 / 14:59:31 / cg"
! !
-
!HierarchicalChangesetDialog methodsFor:'hooks'!
commonPostOpen
@@ -492,14 +485,12 @@
"Modified: / 06-11-2008 / 17:11:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!HierarchicalChangesetDialog::Change class methodsFor:'documentation'!
version
^'$Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangesetDialog.st,v 1.4 2012-08-13 11:12:18 stefan Exp $'
! !
-
!HierarchicalChangesetDialog::Change class methodsFor:'image specs'!
checkedIcon
@@ -552,7 +543,6 @@
"Created: / 06-11-2008 / 16:32:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!HierarchicalChangesetDialog::Change class methodsFor:'instance creation'!
forChange: aChange
@@ -569,7 +559,6 @@
"Created: / 26-11-2008 / 11:33:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!HierarchicalChangesetDialog::Change methodsFor:'accessing'!
change
@@ -656,7 +645,6 @@
"Modified: / 06-11-2008 / 16:31:13 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!HierarchicalChangesetDialog::Change methodsFor:'change & update'!
updateRemoved
@@ -667,7 +655,6 @@
"Created: / 06-11-2008 / 17:36:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!HierarchicalChangesetDialog::Change methodsFor:'private'!
setRemoved: aBoolean
@@ -679,7 +666,6 @@
"Created: / 06-11-2008 / 17:49:20 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!HierarchicalChangesetDialog::Change methodsFor:'testing'!
isCompositeChange
@@ -705,13 +691,17 @@
"Modified: / 18-11-2011 / 14:59:39 / cg"
! !
-
!HierarchicalChangesetDialog class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangesetDialog.st,v 1.4 2012-08-13 11:12:18 stefan Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__HierarchicalChangesetDialog.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !
--- a/Tools__HierarchicalClassCategoryList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__HierarchicalClassCategoryList.st Wed Feb 27 12:34:59 2013 +0000
@@ -409,6 +409,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.9 2011/07/20 12:54:09 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__HierarchicalClassCategoryList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__HierarchicalClassList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__HierarchicalClassList.st Wed Feb 27 12:34:59 2013 +0000
@@ -13,7 +13,7 @@
"{ NameSpace: Tools }"
-Tools::ClassList subclass:#HierarchicalClassList
+ClassList subclass:#HierarchicalClassList
instanceVariableNames:'topClassHolder'
classVariableNames:'InheritedEntry'
poolDictionaries:''
@@ -317,8 +317,14 @@
^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.10 2012/10/30 10:09:09 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__HierarchicalClassList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
HierarchicalClassList initialize!
--- a/Tools__HierarchicalLintRuleList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__HierarchicalLintRuleList.st Wed Feb 27 12:34:59 2013 +0000
@@ -27,7 +27,7 @@
"{ NameSpace: Tools }"
-Tools::LintRuleList subclass:#HierarchicalLintRuleList
+LintRuleList subclass:#HierarchicalLintRuleList
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -64,7 +64,6 @@
"
! !
-
!HierarchicalLintRuleList class methodsFor:'interface specs'!
windowSpec
@@ -124,7 +123,6 @@
)
! !
-
!HierarchicalLintRuleList class methodsFor:'plugIn spec'!
aspectSelectors
@@ -148,7 +146,6 @@
! !
-
!HierarchicalLintRuleList methodsFor:'aspects'!
listHolder
@@ -163,7 +160,6 @@
"Created: / 15-04-2010 / 20:32:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!HierarchicalLintRuleList methodsFor:'private'!
updateList
@@ -203,13 +199,17 @@
"Modified: / 08-03-2012 / 03:11:19 / cg"
! !
-
!HierarchicalLintRuleList class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.4 2012-03-08 02:44:52 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__HierarchicalLintRuleList.st 7617 2010-08-25 12:56:19Z vranyj1 §'
! !
--- a/Tools__HierarchicalPackageFilterList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__HierarchicalPackageFilterList.st Wed Feb 27 12:34:59 2013 +0000
@@ -463,6 +463,11 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.2 2011/07/03 17:46:47 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__HierarchicalPackageFilterList.st 7911 2012-02-22 09:55:48Z vranyj1 $'
! !
--- a/Tools__HierarchicalProjectList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__HierarchicalProjectList.st Wed Feb 27 12:34:59 2013 +0000
@@ -525,6 +525,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.10 2011/07/20 12:54:00 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__HierarchicalProjectList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__ImplementingClassList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ImplementingClassList.st Wed Feb 27 12:34:59 2013 +0000
@@ -120,6 +120,12 @@
^ '$Id: Tools__ImplementingClassList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ImplementingClassList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__ImplementingMethodList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ImplementingMethodList.st Wed Feb 27 12:34:59 2013 +0000
@@ -290,6 +290,12 @@
^ '$Id: Tools__ImplementingMethodList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ImplementingMethodList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__InheritanceClassList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__InheritanceClassList.st Wed Feb 27 12:34:59 2013 +0000
@@ -13,7 +13,7 @@
"{ NameSpace: Tools }"
-Tools::HierarchicalClassList subclass:#InheritanceClassList
+HierarchicalClassList subclass:#InheritanceClassList
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -193,6 +193,12 @@
^ '$Header: /cvs/stx/stx/libtool/Tools_InheritanceClassList.st,v 1.5 2012/11/07 14:35:53 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__InheritanceClassList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__Inspector2.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__Inspector2.st Wed Feb 27 12:34:59 2013 +0000
@@ -56,7 +56,6 @@
"
! !
-
!Inspector2 class methodsFor:'initialization'!
initialize
@@ -78,7 +77,6 @@
"Modified: / 17-01-2012 / 12:57:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!Inspector2 class methodsFor:'help specs'!
flyByHelpSpec
@@ -143,7 +141,6 @@
)
! !
-
!Inspector2 class methodsFor:'image specs'!
settingsIcon
@@ -356,7 +353,6 @@
?8C???>@???? @@a') ; yourself); yourself]
! !
-
!Inspector2 class methodsFor:'interface specs'!
windowSpec
@@ -412,7 +408,6 @@
)
! !
-
!Inspector2 class methodsFor:'menu specs'!
mainMenu
@@ -645,7 +640,6 @@
)
! !
-
!Inspector2 class methodsFor:'startup'!
openOn: anObject
@@ -657,7 +651,6 @@
"Modified (format): / 11-07-2011 / 22:28:03 / cg"
! !
-
!Inspector2 class methodsFor:'testing'!
testSimpleShow
@@ -676,7 +669,6 @@
"Modified: / 11-01-2008 / 20:36:37 / janfrog"
! !
-
!Inspector2 methodsFor:'accessing'!
backButtonEnabled:value
@@ -727,7 +719,6 @@
"Modified: / 19-08-2011 / 09:16:38 / cg"
! !
-
!Inspector2 methodsFor:'aspects'!
backButtonEnabledHolder
@@ -888,7 +879,6 @@
"Modified: / 27-02-2008 / 12:05:56 / janfrog"
! !
-
!Inspector2 methodsFor:'menu'!
backButtonMenuChannel
@@ -905,7 +895,6 @@
"Modified: / 22-02-2008 / 16:58:11 / janfrog"
! !
-
!Inspector2 methodsFor:'menu actions'!
backButtonAction
@@ -989,7 +978,6 @@
"Created: / 21-08-2011 / 08:23:00 / cg"
! !
-
!Inspector2 methodsFor:'opening'!
closeDownViews
@@ -1051,7 +1039,6 @@
"Created: / 15-07-2011 / 16:25:42 / cg"
! !
-
!Inspector2::NavigationState class methodsFor:'creating classes'!
for:anObject
@@ -1064,7 +1051,6 @@
"Modified (format): / 19-08-2011 / 09:24:40 / cg"
! !
-
!Inspector2::NavigationState class methodsFor:'documentation'!
version
@@ -1075,7 +1061,6 @@
^'§Id: Tools__Inspector2.st 115 2009-04-16 12:47:07Z vranyj1 §'
! !
-
!Inspector2::NavigationState methodsFor:'accessing'!
index
@@ -1152,7 +1137,6 @@
"Modified: / 19-08-2011 / 09:16:25 / cg"
! !
-
!Inspector2::NavigationState methodsFor:'comparing'!
= anotherState
@@ -1170,7 +1154,6 @@
"Created: / 21-02-2008 / 19:38:08 / janfrog"
! !
-
!Inspector2::NavigationState methodsFor:'displaying'!
displayString
@@ -1189,7 +1172,6 @@
"Modified: / 13-06-2012 / 14:40:34 / cg"
! !
-
!Inspector2::NavigationState methodsFor:'initialization'!
initializeClassBrowserTab
@@ -1289,7 +1271,6 @@
"Created: / 21-08-2011 / 08:23:11 / cg"
! !
-
!Inspector2 class methodsFor:'documentation'!
version
@@ -1304,6 +1285,11 @@
^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Inspector2.st,v 1.6 2008-02-27 13:45:23 vranyj1 Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__Inspector2.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !
--- a/Tools__Inspector2Tab.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__Inspector2Tab.st Wed Feb 27 12:34:59 2013 +0000
@@ -36,7 +36,6 @@
"
! !
-
!Inspector2Tab methodsFor:'accessing'!
application
@@ -113,7 +112,6 @@
viewHolder := something.
! !
-
!Inspector2Tab class methodsFor:'documentation'!
version_CVS
@@ -124,6 +122,11 @@
^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Inspector2Tab.st,v 1.3 2008-02-17 10:12:10 vranyj1 Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__Inspector2Tab.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !
--- a/Tools__LintAnnotation.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__LintAnnotation.st Wed Feb 27 12:34:59 2013 +0000
@@ -129,6 +129,12 @@
!LintAnnotation class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__LintAnnotation.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/Tools__LintHighlighter.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__LintHighlighter.st Wed Feb 27 12:34:59 2013 +0000
@@ -37,7 +37,6 @@
"
! !
-
!LintHighlighter methodsFor:'accessing'!
annotations
@@ -54,7 +53,6 @@
"Modified (format): / 07-03-2012 / 17:24:02 / cg"
! !
-
!LintHighlighter methodsFor:'accessing-emphasis'!
emphasisForError
@@ -118,7 +116,6 @@
"Modified: / 20-04-2012 / 18:29:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintHighlighter methodsFor:'formatting'!
formatClassDefinition:source in:class
@@ -169,7 +166,6 @@
"Created: / 04-08-2011 / 23:42:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintHighlighter methodsFor:'formatting-private'!
format: text
@@ -182,8 +178,6 @@
"Created: / 04-08-2011 / 23:51:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-
-
format: text tree: tree
annotations := SortedCollection new.
@@ -237,7 +231,6 @@
"Created: / 03-02-2012 / 10:39:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintHighlighter methodsFor:'initialization'!
reset
@@ -246,7 +239,6 @@
"Created: / 18-02-2012 / 22:54:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintHighlighter methodsFor:'markup'!
mark: text from: start to: end for: rule
@@ -260,7 +252,6 @@
"Created: / 30-01-2012 / 15:30:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintHighlighter class methodsFor:'documentation'!
version
@@ -271,6 +262,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.5 2012-03-08 03:16:18 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__LintHighlighter.st 8047 2012-09-07 11:37:19Z vranyj1 $'
! !
--- a/Tools__LintRuleDetail.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__LintRuleDetail.st Wed Feb 27 12:34:59 2013 +0000
@@ -64,7 +64,6 @@
"
! !
-
!LintRuleDetail class methodsFor:'help specs'!
flyByHelpSpec
@@ -90,7 +89,6 @@
"Created: / 07-09-2011 / 04:08:11 / cg"
! !
-
!LintRuleDetail class methodsFor:'interface specs'!
windowSpec
@@ -180,7 +178,6 @@
)
! !
-
!LintRuleDetail class methodsFor:'plugIn spec'!
aspectSelectors
@@ -202,7 +199,6 @@
"Modified: / 01-03-2012 / 16:31:04 / cg"
! !
-
!LintRuleDetail methodsFor:'actions'!
browseLintRule
@@ -220,7 +216,6 @@
"Created: / 07-09-2011 / 04:09:38 / cg"
! !
-
!LintRuleDetail methodsFor:'aspects'!
rationaleVisibleHolder
@@ -326,7 +321,6 @@
"Modified: / 01-03-2012 / 15:29:16 / cg"
! !
-
!LintRuleDetail methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -370,7 +364,6 @@
"Modified: / 04-09-2011 / 20:18:48 / cg"
! !
-
!LintRuleDetail methodsFor:'initialization'!
setupHTMLView:aView
@@ -382,7 +375,6 @@
"Created: / 04-08-2011 / 18:00:36 / cg"
! !
-
!LintRuleDetail methodsFor:'private'!
heightWhenNotShowingRationale
@@ -444,7 +436,6 @@
"Modified: / 01-03-2012 / 10:35:51 / cg"
! !
-
!LintRuleDetail class methodsFor:'documentation'!
version
@@ -455,6 +446,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.13 2012-03-01 19:59:38 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__LintRuleDetail.st 7617 2010-08-25 12:56:19Z vranyj1 §'
! !
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/Tools__LintRuleEditDialog.st Wed Feb 27 12:34:59 2013 +0000
@@ -0,0 +1,466 @@
+"
+ Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
+ Copyright (c) 2009-2010 eXept Software AG
+
+ Permission is hereby granted, free of charge, to any person
+ obtaining a copy of this software and associated documentation
+ files (the 'Software'), to deal in the Software without
+ restriction, including without limitation the rights to use,
+ copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the
+ Software is furnished to do so, subject to the following
+ conditions:
+
+ The above copyright notice and this permission notice shall be
+ included in all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+ OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+ FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+ OTHER DEALINGS IN THE SOFTWARE.
+"
+"{ Package: 'stx:libtool' }"
+
+"{ NameSpace: Tools }"
+
+SimpleDialog subclass:#LintRuleEditDialog
+ instanceVariableNames:'ruleHolder nameHolder selectionHolder variablePanel
+ relativeCorners detailsShown listSelection'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Lint'
+!
+
+!LintRuleEditDialog class methodsFor:'documentation'!
+
+copyright
+"
+ Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
+ Copyright (c) 2009-2010 eXept Software AG
+
+ Permission is hereby granted, free of charge, to any person
+ obtaining a copy of this software and associated documentation
+ files (the 'Software'), to deal in the Software without
+ restriction, including without limitation the rights to use,
+ copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the
+ Software is furnished to do so, subject to the following
+ conditions:
+
+ The above copyright notice and this permission notice shall be
+ included in all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+ OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+ FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+ OTHER DEALINGS IN THE SOFTWARE.
+"
+!
+
+documentation
+"
+ documentation to be added.
+
+ [author:]
+ Jan Vrany (jv@neso)
+
+ [instance variables:]
+
+ [class variables:]
+
+ [see also:]
+
+"
+!
+
+examples
+"
+ Starting the application:
+ [exBegin]
+ Tools::LintRuleSelectionDialog open
+
+ [exEnd]
+
+ more examples to be added:
+ [exBegin]
+ ... add code fragment for
+ ... executable example here ...
+ [exEnd]
+"
+! !
+
+!LintRuleEditDialog class methodsFor:'interface specs'!
+
+windowSpec
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
+
+ "
+ UIPainter new openOnClass:Tools::LintRuleEditDialog andSelector:#windowSpec
+ Tools::LintRuleEditDialog new openInterface:#windowSpec
+ Tools::LintRuleEditDialog open
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Select Lint Rules'
+ name: 'Select Lint Rules'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 600 400)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'Content'
+ layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
+ horizontalLayout: fit
+ verticalLayout: topFit
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'NameBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Name:'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0 0 0 60 0 0 1)
+ translateLabel: true
+ adjust: left
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 60 0 3 0 0 1 -2 1)
+ model: nameHolder
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 25)
+ )
+ (ViewSpec
+ name: 'Spacer'
+ extent: (Point 600 7)
+ )
+ (LabelSpec
+ label: 'Rules'
+ name: 'Label2'
+ translateLabel: true
+ adjust: left
+ extent: (Point 600 25)
+ )
+ (VariableVerticalPanelSpec
+ name: 'VariableVerticalPanel1'
+ component:
+ (SpecCollection
+ collection: (
+ (SubCanvasSpec
+ name: 'RuleList'
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: #'Tools::HierarchicalLintRuleList'
+ subAspectHolders:
+ (Array
+
+ (SubChannelInfoSpec
+ subAspect: inGeneratorHolder
+ aspect: allRulesHolder
+ )
+ (SubChannelInfoSpec
+ subAspect: listSelection
+ aspect: listSelection
+ )
+
+ (SubChannelInfoSpec
+ subAspect: modeHolder
+ aspect: modeHolder
+ )
+ (SubChannelInfoSpec
+ subAspect: outGeneratorHolder
+ aspect: selectedRulesHolder
+ )
+
+ (SubChannelInfoSpec
+ subAspect: selectionHolder
+ aspect: selectionHolder
+ )
+ )
+ createNewApplication: true
+ createNewBuilder: true
+ )
+ (SubCanvasSpec
+ name: 'RuleDesc'
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: #'Tools::LintRuleDetail'
+ subAspectHolders:
+ (Array
+
+ (SubChannelInfoSpec
+ subAspect: ruleHolder
+ aspect: listSelection
+ )
+ )
+ createNewApplication: true
+ createNewBuilder: true
+ )
+ )
+
+ )
+ extent: (Point 600 304)
+ handles: (Any 0.75 1.0)
+ )
+ )
+
+ )
+ )
+ (HorizontalPanelViewSpec
+ name: 'BottonPanel'
+ layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'CancelButton'
+ translateLabel: true
+ model: doCancel
+ extent: (Point 295 22)
+ )
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'OKButton'
+ translateLabel: true
+ model: doAccept
+ isDefault: true
+ defaultable: true
+ extent: (Point 296 22)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+! !
+
+!LintRuleEditDialog methodsFor:'accessing'!
+
+rule: anRBCompositeLintRule
+ self ruleHolder value: anRBCompositeLintRule
+
+ "Created: / 27-02-2013 / 11:53:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+selection
+
+ ^self selectionHolder value
+
+ "Created: / 25-08-2010 / 14:10:03 / Jan Vrany <enter your email here>"
+!
+
+selection: anObject
+
+ self selectionHolder value: anObject
+
+ "Created: / 25-08-2010 / 14:09:40 / Jan Vrany <enter your email here>"
+! !
+
+!LintRuleEditDialog methodsFor:'actions'!
+
+hideResultView
+
+ detailsShown == true ifFalse:[^self].
+
+ variablePanel shown ifFalse:[^self].
+
+ relativeCorners := variablePanel relativeCorners.
+
+ variablePanel
+ relativeCorners:#( 0.99 1.0 );
+ resizeSubviews.
+ detailsShown := false.
+
+ "Created: / 10-02-2007 / 11:39:10 / janfrog"
+ "Modified: / 24-07-2010 / 15:30:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+showResultView
+ detailsShown == true ifTrue:[^self].
+ variablePanel
+ relativeCorners:relativeCorners ? #(0.5 1.0);
+ resizeSubviews.
+ detailsShown := true.
+
+ "Created: / 10-02-2007 / 11:38:26 / janfrog"
+ "Modified: / 24-07-2010 / 15:30:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LintRuleEditDialog methodsFor:'aspects'!
+
+allRulesHolder
+
+ ^[(RBCompositeLintRule allRules) rules]
+
+ "Created: / 15-04-2010 / 20:09:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+listSelection
+ "return/create the 'listSelection' value holder (automatically generated)"
+
+ listSelection isNil ifTrue:[
+ listSelection := ValueHolder new.
+ ].
+ ^ listSelection
+!
+
+listSelection:something
+ "set the 'listSelection' value holder (automatically generated)"
+
+ listSelection := something.
+!
+
+modeHolder
+
+ ^[#select]
+
+ "Created: / 15-04-2010 / 20:13:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+nameHolder
+ "return/create the 'nameHolder' value holder (automatically generated)"
+
+ nameHolder isNil ifTrue:[
+ nameHolder := ValueHolder new.
+ ].
+ ^ nameHolder
+!
+
+ruleHolder
+ "return/create the 'ruleHolder' value holder (automatically generated)"
+
+ ruleHolder isNil ifTrue:[
+ ruleHolder := ValueHolder new.
+ ruleHolder addDependent:self.
+ ].
+ ^ ruleHolder
+!
+
+ruleHolder:something
+ "set the 'ruleHolder' value holder (automatically generated)"
+
+ |oldValue newValue|
+
+ ruleHolder notNil ifTrue:[
+ oldValue := ruleHolder value.
+ ruleHolder removeDependent:self.
+ ].
+ ruleHolder := something.
+ ruleHolder notNil ifTrue:[
+ ruleHolder addDependent:self.
+ ].
+ newValue := ruleHolder value.
+ oldValue ~~ newValue ifTrue:[
+ self update:#value with:newValue from:ruleHolder.
+ ].
+!
+
+selectionHolder
+ "return/create the 'selectionHolder' value holder (automatically generated)"
+
+ selectionHolder isNil ifTrue:[
+ selectionHolder := ValueHolder new.
+ ].
+ ^ selectionHolder
+! !
+
+!LintRuleEditDialog methodsFor:'callbacks - post build'!
+
+postBuildVariablePanel: aPanel
+
+ variablePanel := aPanel.
+
+ "Created: / 24-07-2010 / 15:05:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LintRuleEditDialog methodsFor:'change & update'!
+
+update:something with:aParameter from:changedObject
+ "Invoked when an object that I depend upon sends a change notification."
+
+ "stub code automatically generated - please change as required"
+
+ changedObject == ruleHolder ifTrue:[
+ self updateSelection.
+ self updateName.
+ ^ self.
+ ].
+ changedObject == accept ifTrue:[
+ self ruleHolder value name: self nameHolder value.
+ self ruleHolder value rules: self selectionHolder value.
+ acceptedValue := self ruleHolder value.
+ ].
+ super update:something with:aParameter from:changedObject
+
+ "Modified: / 27-02-2013 / 11:52:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+updateName
+ self nameHolder value: (self ruleHolder value name)
+
+ "Created: / 27-02-2013 / 11:46:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+updateSelection
+ self selectionHolder value: (self ruleHolder value flattened)
+
+ "Created: / 27-02-2013 / 11:42:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LintRuleEditDialog methodsFor:'initialization'!
+
+initialize
+ super initialize.
+ accept addDependent: self.
+
+ "Created: / 27-02-2013 / 11:45:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LintRuleEditDialog class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+
--- a/Tools__LintRuleList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__LintRuleList.st Wed Feb 27 12:34:59 2013 +0000
@@ -27,7 +27,7 @@
"{ NameSpace: Tools }"
-Tools::BrowserList subclass:#LintRuleList
+BrowserList subclass:#LintRuleList
instanceVariableNames:'listHolder filterHolder modeHolder listSelection listView
initialSelectionHolder'
classVariableNames:''
@@ -72,7 +72,6 @@
"
! !
-
!LintRuleList class methodsFor:'interface specs'!
windowSpec
@@ -111,7 +110,7 @@
acceptOnReturn: true
acceptOnTab: true
acceptOnPointerLeave: true
- emptyFieldReplacementText: 'Rule Search'
+ emptyFieldReplacementText: 'Search...'
)
(SelectionInListModelViewSpec
name: 'RuleList'
@@ -132,7 +131,6 @@
)
! !
-
!LintRuleList class methodsFor:'menu specs'!
menu
@@ -168,7 +166,6 @@
)
! !
-
!LintRuleList class methodsFor:'plugIn spec'!
aspectSelectors
@@ -184,17 +181,14 @@
^ #(
#inGeneratorHolder
+ #listSelection
#modeHolder
#outGeneratorHolder
#selectionHolder
- #listSelection
).
- "Modified: / 05-08-2011 / 00:09:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 01-03-2012 / 10:48:43 / cg"
! !
-
!LintRuleList methodsFor:'accessing'!
mode
@@ -235,7 +229,6 @@
"Modified: / 15-04-2010 / 20:56:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintRuleList methodsFor:'aspects'!
filterHolder
@@ -330,7 +323,6 @@
"Created: / 02-02-2010 / 20:43:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintRuleList methodsFor:'change & update'!
delayedUpdate:something with:aParameter from:changedObject
@@ -374,7 +366,6 @@
"Created: / 05-08-2011 / 00:10:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintRuleList methodsFor:'event processing'!
buttonPress:button x:x y:y view:aView
@@ -408,7 +399,6 @@
"Modified: / 15-04-2010 / 20:19:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintRuleList methodsFor:'generators'!
makeGenerator
@@ -428,7 +418,6 @@
"Modified: / 25-08-2010 / 13:39:51 / Jan Vrany <enter your email here>"
! !
-
!LintRuleList methodsFor:'hooks'!
commonPostOpen
@@ -446,7 +435,6 @@
"Created: / 08-12-2009 / 14:10:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintRuleList methodsFor:'initialization'!
initialize
@@ -458,7 +446,6 @@
"Modified: / 25-08-2010 / 15:24:45 / Jan Vrany <enter your email here>"
! !
-
!LintRuleList methodsFor:'menu actions'!
menuInspect
@@ -471,7 +458,6 @@
"Modified: / 25-08-2010 / 14:25:24 / Jan Vrany <enter your email here>"
! !
-
!LintRuleList methodsFor:'private'!
listEntryFor: anRBLintRule
@@ -543,7 +529,6 @@
"Modified: / 07-03-2012 / 18:06:50 / cg"
! !
-
!LintRuleList methodsFor:'queries'!
supportsSearch
@@ -553,7 +538,6 @@
"Created: / 04-08-2011 / 23:04:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintRuleList methodsFor:'selection'!
selectionAdd: rule
@@ -585,7 +569,6 @@
"Modified: / 26-08-2010 / 12:05:06 / Jan Vrany <enter your email here>"
! !
-
!LintRuleList::ListEntry class methodsFor:'instance creation'!
change: aChange
@@ -609,7 +592,6 @@
"Created: / 25-07-2009 / 23:33:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!LintRuleList::ListEntry methodsFor:'accessing'!
application
@@ -741,7 +723,6 @@
"Modified: / 15-04-2010 / 20:48:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintRuleList::ListEntry methodsFor:'displaying'!
displayLabel:aLabel h:lH on:aGC x:newX y:y h:h
@@ -769,7 +750,6 @@
"Created: / 15-04-2010 / 19:13:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintRuleList class methodsFor:'documentation'!
version
@@ -780,6 +760,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.13 2012-11-06 00:48:36 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__LintRuleList.st 7619 2010-08-26 10:15:15Z vranyj1 §'
! !
--- a/Tools__LintRuleSelectionDialog.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__LintRuleSelectionDialog.st Wed Feb 27 12:34:59 2013 +0000
@@ -28,8 +28,8 @@
"{ NameSpace: Tools }"
SimpleDialog subclass:#LintRuleSelectionDialog
- instanceVariableNames:'selectedRulesHolder selectionHolder variablePanel relativeCorners
- detailsShown listSelection'
+ instanceVariableNames:'selectionHolder variablePanel relativeCorners detailsShown
+ listSelection'
classVariableNames:''
poolDictionaries:''
category:'Interface-Lint'
@@ -97,7 +97,6 @@
"
! !
-
!LintRuleSelectionDialog class methodsFor:'interface specs'!
windowSpec
@@ -228,7 +227,6 @@
"Modified: / 01-03-2012 / 10:50:28 / cg"
! !
-
!LintRuleSelectionDialog methodsFor:'accessing'!
selection
@@ -252,7 +250,6 @@
"Created: / 25-08-2010 / 14:10:58 / Jan Vrany <enter your email here>"
! !
-
!LintRuleSelectionDialog methodsFor:'actions'!
hideResultView
@@ -283,7 +280,6 @@
"Modified: / 24-07-2010 / 15:30:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintRuleSelectionDialog methodsFor:'aspects'!
allRulesHolder
@@ -324,7 +320,6 @@
^ selectionHolder
! !
-
!LintRuleSelectionDialog methodsFor:'callbacks - post build'!
postBuildVariablePanel: aPanel
@@ -334,13 +329,17 @@
"Created: / 24-07-2010 / 15:05:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintRuleSelectionDialog class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSelectionDialog.st,v 1.3 2012-03-01 09:55:40 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__LintRuleSelectionDialog.st 7617 2010-08-25 12:56:19Z vranyj1 §'
! !
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/Tools__LintRuleSettingsApplication.st Wed Feb 27 12:34:59 2013 +0000
@@ -0,0 +1,401 @@
+"
+ COPYRIGHT (c) 2006 by eXept Software AG
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+"{ Package: 'stx:libtool' }"
+
+"{ NameSpace: Tools }"
+
+AbstractSettingsApplication subclass:#LintRuleSettingsApplication
+ instanceVariableNames:'rulesetList rulesetSelectionHolder hasSelectionHolder'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Lint'
+!
+
+!LintRuleSettingsApplication class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 2006 by eXept Software AG
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+! !
+
+!LintRuleSettingsApplication class methodsFor:'interface opening'!
+
+open
+
+ | settingsApp |
+
+ settingsApp := SettingsDialog new.
+ settingsApp addApplClass:self fullName
+ withName:'SmallLint Rules'.
+ settingsApp showRoot: false.
+ settingsApp selectedItem value:
+ (settingsApp applicationList root children anyOne).
+ settingsApp open.
+
+ "Created: / 26-05-2008 / 12:17:20 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 27-02-2013 / 11:25:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LintRuleSettingsApplication class methodsFor:'interface specs'!
+
+windowSpec
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
+
+ "
+ UIPainter new openOnClass:Tools::LintRuleSettingsApplication andSelector:#windowSpec
+ Tools::LintRuleSettingsApplication new openInterface:#windowSpec
+ Tools::LintRuleSettingsApplication open
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Profiles'
+ name: 'Profiles'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 782 552)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Predefined SmallLint Rule Sets'
+ name: 'Label'
+ layout: (LayoutFrame 0 0 35 0 0 1 65 0)
+ translateLabel: true
+ adjust: left
+ )
+ (SelectionInListModelViewSpec
+ name: 'ProfileList'
+ layout: (LayoutFrame 0 0 65 0 -100 1 0 1)
+ enableChannel: svnEnabled
+ model: rulesetSelectionHolder
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ listModel: rulesetList
+ useIndex: false
+ highlightMode: line
+ doubleClickSelector: doConfigurationEdit
+ )
+ (VerticalPanelViewSpec
+ name: 'Buttons1'
+ layout: (LayoutFrame -95 1 65 0 0 1 0 0.7)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 5
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Add'
+ name: 'ButtonAdd'
+ translateLabel: true
+ model: doAdd
+ extent: (Point 95 22)
+ )
+ (ActionButtonSpec
+ label: 'Copy'
+ name: 'ButtonCopy'
+ translateLabel: true
+ model: doCopy
+ enableChannel: canCopyHolder
+ extent: (Point 95 22)
+ )
+ (ActionButtonSpec
+ label: 'Edit'
+ name: 'ButtonEdit'
+ translateLabel: true
+ model: doEdit
+ enableChannel: canEditHolder
+ extent: (Point 95 22)
+ )
+ (ActionButtonSpec
+ label: 'Remove'
+ name: 'ButtonRemove'
+ translateLabel: true
+ model: doRemove
+ enableChannel: canRemoveHolder
+ extent: (Point 95 22)
+ )
+ )
+
+ )
+ )
+ (VerticalPanelViewSpec
+ name: 'Buttons2'
+ layout: (LayoutFrame -95 1 0 0.7 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: bottom
+ horizontalSpace: 5
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Export'
+ name: 'Button2'
+ translateLabel: true
+ model: doExport
+ enableChannel: canExportHolder
+ extent: (Point 95 22)
+ )
+ (ActionButtonSpec
+ label: 'Import'
+ name: 'Button3'
+ translateLabel: true
+ model: doImport
+ extent: (Point 95 22)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+
+ "Modified: / 27-02-2013 / 11:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LintRuleSettingsApplication methodsFor:'accessing'!
+
+selection
+
+ ^self selectionHolder value
+
+ "Created: / 25-08-2010 / 14:10:03 / Jan Vrany <enter your email here>"
+!
+
+selection: anObject
+
+ self selectionHolder value: anObject
+
+ "Created: / 25-08-2010 / 14:09:40 / Jan Vrany <enter your email here>"
+! !
+
+!LintRuleSettingsApplication methodsFor:'actions'!
+
+doAdd
+ <resource: #uiCallback>
+
+ self doAdd: RBCompositeLintRule new
+
+ "Modified: / 27-02-2013 / 11:25:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+doAdd: anRBCompositeLintRule
+
+ anRBCompositeLintRule name isNil ifTrue:[
+ anRBCompositeLintRule name: 'New Rule Set ' , (self rulesetList size + 1) printString
+ ].
+ self rulesetList add: anRBCompositeLintRule.
+ self rulesetSelectionHolder value: anRBCompositeLintRule.
+ self updateModifiedChannel.
+ self doEdit.
+
+ "Created: / 27-02-2013 / 11:25:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+doCopy
+ <resource: #uiCallback>
+
+ | ruleset |
+
+ ruleset := self rulesetSelectionHolder value deepCopy.
+ ruleset name: ruleset name , ' (copy)'.
+ self doAdd: ruleset
+
+ "Modified: / 27-02-2013 / 11:30:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+doEdit
+ <resource: #uiCallback>
+
+ | rule |
+ rule := self rulesetSelectionHolder value.
+ LintRuleEditDialog new
+ rule: rule;
+ open.
+ self updateModifiedChannel
+
+ "Modified: / 27-02-2013 / 11:57:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+doExport
+ <resource: #uiCallback>
+
+ "automatically generated by UIPainter..."
+
+ "*** the code below performs no action"
+ "*** (except for some feedback on the Transcript)"
+ "*** Please change as required and accept in the browser."
+ "*** (and replace this comment by something more useful ;-)"
+
+ "action to be defined here..."
+
+ Transcript showCR:self class name, ': action for doExport ...'.
+!
+
+doImport
+ <resource: #uiCallback>
+
+ "automatically generated by UIPainter..."
+
+ "*** the code below performs no action"
+ "*** (except for some feedback on the Transcript)"
+ "*** Please change as required and accept in the browser."
+ "*** (and replace this comment by something more useful ;-)"
+
+ "action to be defined here..."
+
+ Transcript showCR:self class name, ': action for doImport ...'.
+!
+
+doRemove
+ <resource: #uiCallback>
+
+ | rule idx |
+
+ rule := self rulesetSelectionHolder value.
+ idx := self rulesetList indexOf: rule.
+ idx ~~ 0 ifTrue:[
+ self rulesetList remove: rule.
+ self rulesetList size > 0 ifTrue:[
+ self rulesetSelectionHolder value: (self rulesetList at: ((idx -1 ) max: 1))
+ ]
+ ].
+ self updateModifiedChannel
+
+ "Modified: / 27-02-2013 / 11:57:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LintRuleSettingsApplication methodsFor:'aspects'!
+
+canCopyHolder
+ ^self hasSelectionHolder
+
+ "Created: / 27-02-2013 / 11:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+canEditHolder
+ ^self hasSelectionHolder
+
+ "Created: / 27-02-2013 / 11:24:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+canExportHolder
+ ^self hasSelectionHolder
+
+ "Created: / 27-02-2013 / 11:24:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+canRemoveHolder
+ ^self hasSelectionHolder
+
+ "Created: / 27-02-2013 / 11:24:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+hasSelectionHolder
+ "return/create the 'hasSelectionHolder' value holder (automatically generated)"
+
+ hasSelectionHolder isNil ifTrue:[
+ hasSelectionHolder := (AspectAdaptor forAspect: #notNil) subjectChannel: self rulesetSelectionHolder
+ ].
+ ^ hasSelectionHolder
+
+ "Modified: / 27-02-2013 / 11:24:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+rulesetList
+ "return/create the 'rulesetList' value holder (automatically generated)"
+
+ rulesetList isNil ifTrue:[
+ rulesetList := List new.
+ ].
+ ^ rulesetList
+
+ "Modified: / 27-02-2013 / 11:14:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+rulesetSelectionHolder
+ "return/create the 'rulesetSelectionHolder' value holder (automatically generated)"
+
+ rulesetSelectionHolder isNil ifTrue:[
+ rulesetSelectionHolder := ValueHolder new.
+ ].
+ ^ rulesetSelectionHolder
+! !
+
+!LintRuleSettingsApplication methodsFor:'protocol'!
+
+basicReadSettings
+ "superclass AbstractSettingsApplication says that I am responsible to implement this method"
+
+ self rulesetList removeAll; addAll: RBCompositeLintRule rulesets
+
+ "Modified: / 27-02-2013 / 11:15:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+basicSaveSettings
+ "superclass AbstractSettingsApplication says that I am responsible to implement this method"
+
+ RBCompositeLintRule rulesets: self rulesetList asOrderedCollection
+
+ "Modified: / 27-02-2013 / 11:16:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+helpFilename
+ "subclasses must return the relative name of a helpFile
+ in the doc/online/<language>/help directory.
+ Or nil, if no help is available."
+
+ ^ nil
+
+ "Modified: / 27-02-2013 / 11:16:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LintRuleSettingsApplication methodsFor:'queries'!
+
+hasUnsavedChanges
+ "superclass AbstractSettingsApplication says that I am responsible to implement this method"
+
+ ^RBCompositeLintRule rulesets ~= self rulesetList
+
+ "Modified: / 27-02-2013 / 11:17:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LintRuleSettingsApplication class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+
--- a/Tools__LintService.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__LintService.st Wed Feb 27 12:34:59 2013 +0000
@@ -27,7 +27,7 @@
"{ NameSpace: Tools }"
-Tools::CodeViewService subclass:#LintService
+CodeViewService subclass:#LintService
instanceVariableNames:'ruleHolderFromApp highlighter'
classVariableNames:''
poolDictionaries:''
@@ -64,7 +64,6 @@
"
! !
-
!LintService class methodsFor:'accessing'!
label
@@ -76,7 +75,6 @@
"Created: / 05-08-2011 / 11:01:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintService methodsFor:'accessing'!
syntaxHighlighter
@@ -96,7 +94,6 @@
"Modified: / 08-03-2012 / 01:23:48 / cg"
! !
-
!LintService methodsFor:'aspects'!
ruleHolderFromApp
@@ -135,7 +132,6 @@
].
! !
-
!LintService methodsFor:'change & update'!
update: aspect with: param from: sender
@@ -151,7 +147,6 @@
"Modified: / 07-03-2012 / 17:16:59 / cg"
! !
-
!LintService methodsFor:'initialization'!
initialize
@@ -164,7 +159,6 @@
"Created: / 05-08-2011 / 11:53:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintService methodsFor:'private'!
syntaxHighlight: delayed
@@ -178,7 +172,6 @@
"Created: / 05-08-2011 / 11:49:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!LintService methodsFor:'registering'!
fetchLintRuleHolder
@@ -209,7 +202,6 @@
"Modified: / 08-03-2012 / 01:16:51 / cg"
! !
-
!LintService class methodsFor:'documentation'!
version
@@ -220,6 +212,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.6 2012-03-12 18:20:05 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__LintService.st 7953 2012-03-22 13:55:44Z vranyj1 $'
! !
--- a/Tools__MethodCategoryCache.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__MethodCategoryCache.st Wed Feb 27 12:34:59 2013 +0000
@@ -154,6 +154,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__MethodCategoryCache.st,v 1.4 2011/07/03 13:33:26 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__MethodCategoryCache.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/Tools__MethodCategoryList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__MethodCategoryList.st Wed Feb 27 12:34:59 2013 +0000
@@ -2080,9 +2080,15 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.89 2012/11/07 16:34:06 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id:: Tools__MethodCategoryList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
MethodCategoryList initialize!
MethodCategoryList::CachedMethodInfo initialize!
--- a/Tools__MethodList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__MethodList.st Wed Feb 27 12:34:59 2013 +0000
@@ -1825,6 +1825,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.74 2012/11/07 23:04:35 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__MethodList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__MethodRewriter.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__MethodRewriter.st Wed Feb 27 12:34:59 2013 +0000
@@ -68,7 +68,6 @@
"
! !
-
!MethodRewriter class methodsFor:'example templates'!
templateReplaceAtIfAbsentByAtAifAbsentPut
@@ -156,7 +155,6 @@
"Created: / 12-12-2007 / 11:03:32 / janfrog"
! !
-
!MethodRewriter class methodsFor:'interface specs'!
classesSpec
@@ -502,7 +500,6 @@
"Modified: / 12-12-2007 / 11:39:31 / janfrog"
! !
-
!MethodRewriter class methodsFor:'list specs'!
tabList
@@ -541,7 +538,6 @@
"Modified: / 12-12-2007 / 11:21:27 / janfrog"
! !
-
!MethodRewriter methodsFor:'accessing'!
actionInProgress: aBoolean
@@ -626,11 +622,8 @@
"Created: / 12-12-2007 / 11:17:55 / janfrog"
! !
-
!MethodRewriter methodsFor:'actions'!
-
-
doRewrite: methodsMatching
| changes compositeChangeCollector |
@@ -735,7 +728,6 @@
"Created: / 12-12-2007 / 11:14:15 / janfrog"
! !
-
!MethodRewriter methodsFor:'aspects'!
actionInProgresHolder
@@ -903,7 +895,6 @@
"Created: / 12-12-2007 / 11:17:16 / janfrog"
! !
-
!MethodRewriter methodsFor:'change & update'!
selectedTemplateIndexChanged
@@ -914,7 +905,6 @@
"Created: / 12-12-2007 / 11:20:16 / janfrog"
! !
-
!MethodRewriter methodsFor:'drag & drop'!
canDropClasses: dropContext
@@ -943,7 +933,6 @@
"Created: / 20-07-2007 / 16:58:16 / janfrog"
! !
-
!MethodRewriter methodsFor:'hooks'!
postBuildFindTextView: scrollableView
@@ -960,7 +949,6 @@
"Created: / 20-07-2007 / 15:55:29 / janfrog"
! !
-
!MethodRewriter methodsFor:'private'!
doSearch: pattern withResultDo: block
@@ -1079,7 +1067,6 @@
"Modified: / 12-12-2007 / 10:32:48 / janfrog"
! !
-
!MethodRewriter methodsFor:'testing method'!
testXXX
@@ -1089,13 +1076,17 @@
"Modified: / 12-12-2007 / 10:45:20 / janfrog"
! !
-
!MethodRewriter class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.16 2012-08-03 19:21:17 stefan Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__MethodRewriter.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !
--- a/Tools__NamespaceFilter.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__NamespaceFilter.st Wed Feb 27 12:34:59 2013 +0000
@@ -108,6 +108,11 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__NamespaceFilter.st,v 1.2 2011/07/03 13:37:47 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__NamespaceFilter.st 7911 2012-02-22 09:55:48Z vranyj1 $'
! !
--- a/Tools__NamespaceList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__NamespaceList.st Wed Feb 27 12:34:59 2013 +0000
@@ -564,6 +564,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.20 2012/10/20 19:36:38 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__NamespaceList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__NavigationHistory.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__NavigationHistory.st Wed Feb 27 12:34:59 2013 +0000
@@ -53,7 +53,6 @@
"
! !
-
!NavigationHistory class methodsFor:'instance creation'!
new
@@ -62,7 +61,6 @@
"Created: / 21-02-2008 / 15:26:05 / janfrog"
! !
-
!NavigationHistory methodsFor:'accessing'!
currentItem
@@ -99,7 +97,6 @@
"Modified: / 03-07-2011 / 16:00:45 / cg"
! !
-
!NavigationHistory methodsFor:'backward list compatibility'!
addFirst:anEntry
@@ -207,7 +204,6 @@
"Created: / 04-07-2011 / 22:44:28 / cg"
! !
-
!NavigationHistory methodsFor:'initialization'!
beGlobalHistory
@@ -232,7 +228,6 @@
"Modified: / 03-07-2011 / 14:43:08 / cg"
! !
-
!NavigationHistory methodsFor:'menu & menu actions'!
goBackMenu
@@ -261,7 +256,6 @@
"Modified: / 27-02-2008 / 11:52:26 / janfrog"
! !
-
!NavigationHistory methodsFor:'navigation'!
goBack
@@ -322,7 +316,6 @@
"Modified: / 03-07-2011 / 16:03:11 / cg"
! !
-
!NavigationHistory methodsFor:'queries'!
canGoBack
@@ -342,7 +335,6 @@
"Created: / 21-02-2008 / 16:40:48 / janfrog"
! !
-
!NavigationHistory class methodsFor:'documentation'!
version_CVS
@@ -353,6 +345,11 @@
^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Tools__NavigationHistory.st,v 1.2 2008-02-27 13:45:21 vranyj1 Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__NavigationHistory.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !
--- a/Tools__NavigatorCanvas.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__NavigatorCanvas.st Wed Feb 27 12:34:59 2013 +0000
@@ -6932,6 +6932,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_NavigatorCanvas.st,v 1.17 2011/08/07 18:41:11 vrany Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__NavigatorCanvas.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__NavigatorModel.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__NavigatorModel.st Wed Feb 27 12:34:59 2013 +0000
@@ -363,8 +363,14 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.23 2012/11/07 13:57:05 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__NavigatorModel.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
NavigatorModel initialize!
--- a/Tools__NewClassWizardDialog.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__NewClassWizardDialog.st Wed Feb 27 12:34:59 2013 +0000
@@ -1250,6 +1250,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.17 2012/01/27 13:55:52 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__NewClassWizardDialog.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/Tools__NewSystemBrowserCodeView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__NewSystemBrowserCodeView.st Wed Feb 27 12:34:59 2013 +0000
@@ -37,7 +37,6 @@
"
! !
-
!NewSystemBrowserCodeView class methodsFor:'initialization'!
initialize
@@ -59,7 +58,6 @@
"Modified (comment): / 01-07-2011 / 16:21:38 / cg"
! !
-
!NewSystemBrowserCodeView class methodsFor:'menu specs'!
editMenuSpec
@@ -194,7 +192,6 @@
"Modified: / 18-10-2008 / 18:50:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!NewSystemBrowserCodeView methodsFor:'accessing'!
browser
@@ -292,7 +289,6 @@
"Modified: / 04-08-2011 / 19:05:43 / cg"
! !
-
!NewSystemBrowserCodeView methodsFor:'accessing-contents'!
list: anObject
@@ -303,7 +299,6 @@
"Created: / 25-12-2007 / 10:05:17 / janfrog"
! !
-
!NewSystemBrowserCodeView methodsFor:'change & update'!
updateParseTree
@@ -315,7 +310,6 @@
"Modified: / 25-12-2007 / 21:29:28 / janfrog"
! !
-
!NewSystemBrowserCodeView methodsFor:'event handling'!
buttonMotion:button x:x y:y
@@ -409,7 +403,6 @@
"Modified: / 19-02-2008 / 09:16:11 / janfrog"
! !
-
!NewSystemBrowserCodeView methodsFor:'menu'!
browseClassesMenu: classes
@@ -553,7 +546,6 @@
"Modified: / 09-09-2012 / 13:24:19 / cg"
! !
-
!NewSystemBrowserCodeView methodsFor:'menu - actions'!
accept
@@ -668,7 +660,6 @@
"Modified: / 19-02-2008 / 09:59:11 / janfrog"
! !
-
!NewSystemBrowserCodeView methodsFor:'menu - double dispatch'!
blueButtonMenuForMessageNode:messageNode
@@ -750,7 +741,6 @@
"Modified: / 18-02-2008 / 21:05:56 / janfrog"
! !
-
!NewSystemBrowserCodeView methodsFor:'private'!
implementorsOf: selector
@@ -774,7 +764,6 @@
"Created: / 26-12-2007 / 11:37:22 / janfrog"
! !
-
!NewSystemBrowserCodeView methodsFor:'private - highlighting'!
highlightClear
@@ -913,7 +902,6 @@
"Modified: / 01-09-2009 / 22:29:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!NewSystemBrowserCodeView methodsFor:'private - highlighting - nodes'!
highlightLiteralNode: node
@@ -941,7 +929,6 @@
"Modified: / 18-02-2008 / 20:51:51 / janfrog"
! !
-
!NewSystemBrowserCodeView methodsFor:'private - parsing'!
parseTree
@@ -1018,7 +1005,6 @@
"Created: / 25-12-2007 / 21:16:03 / janfrog"
! !
-
!NewSystemBrowserCodeView methodsFor:'private - testing'!
isInstanceVariableNode: node
@@ -1040,13 +1026,17 @@
"Created: / 21-02-2008 / 09:32:33 / janfrog"
! !
-
!NewSystemBrowserCodeView class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.13 2013-01-30 17:56:09 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__NewSystemBrowserCodeView.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !
--- a/Tools__OrganizerCanvas.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__OrganizerCanvas.st Wed Feb 27 12:34:59 2013 +0000
@@ -13,7 +13,7 @@
"{ NameSpace: Tools }"
-Tools::NavigatorModel subclass:#OrganizerCanvas
+NavigatorModel subclass:#OrganizerCanvas
instanceVariableNames:'projectListSlaveMode namespaceListSlaveMode categoryListSlaveMode
classInheritanceListSlaveMode classListSlaveMode
classHierarchyListSlaveMode organizerMode metaToggle
@@ -5042,6 +5042,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.50 2012/11/03 11:43:46 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__OrganizerCanvas.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__Profiler.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__Profiler.st Wed Feb 27 12:34:59 2013 +0000
@@ -89,7 +89,6 @@
"
! !
-
!Profiler class methodsFor:'instance creation'!
readStatisticsFrom: stream
@@ -99,7 +98,6 @@
"Created: / 24-11-2007 / 09:24:12 / janfrog"
! !
-
!Profiler class methodsFor:'messageTally compatible interface'!
spyDetailedOn: aBlock
@@ -128,7 +126,6 @@
^ profiler retVal
! !
-
!Profiler class methodsFor:'profiling'!
profile: aBlock
@@ -178,7 +175,6 @@
"Created: / 24-11-2007 / 08:25:37 / janfrog"
! !
-
!Profiler methodsFor:'I/O'!
storeStatisticsOn: stream
@@ -188,7 +184,6 @@
"Created: / 24-11-2007 / 09:23:11 / janfrog"
! !
-
!Profiler methodsFor:'accessing'!
computationTime
@@ -219,7 +214,6 @@
"Created: / 24-11-2007 / 09:01:12 / janfrog"
! !
-
!Profiler methodsFor:'profiling'!
profileOn: aBlock interval: interval
@@ -231,7 +225,6 @@
"Created: / 24-11-2007 / 08:21:28 / janfrog"
! !
-
!Profiler class methodsFor:'documentation'!
version
@@ -242,6 +235,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__Profiler.st,v 1.5 2012-11-04 21:42:25 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__Profiler.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !
--- a/Tools__ProfilerInfoBuilder.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ProfilerInfoBuilder.st Wed Feb 27 12:34:59 2013 +0000
@@ -192,6 +192,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__ProfilerInfoBuilder.st,v 1.2 2011/07/03 17:46:45 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ProfilerInfoBuilder.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/Tools__ProfilerInfoItem.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ProfilerInfoItem.st Wed Feb 27 12:34:59 2013 +0000
@@ -64,7 +64,6 @@
"
! !
-
!ProfilerInfoItem methodsFor:'accessing'!
isBlock
@@ -173,7 +172,6 @@
"Created: / 01-12-2007 / 20:47:09 / janfrog"
! !
-
!ProfilerInfoItem methodsFor:'accessing - private'!
setChildren: collection
@@ -184,7 +182,6 @@
"Created: / 01-12-2007 / 20:43:36 / janfrog"
! !
-
!ProfilerInfoItem methodsFor:'comparing'!
= anotherMethodInfo
@@ -203,13 +200,17 @@
"Created: / 01-12-2007 / 21:17:01 / janfrog"
! !
-
!ProfilerInfoItem class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__ProfilerInfoItem.st,v 1.5 2012-11-04 21:40:34 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__ProfilerInfoItem.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !
--- a/Tools__ProjectCheckerBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ProjectCheckerBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -54,7 +54,6 @@
"
! !
-
!ProjectCheckerBrowser class methodsFor:'interface specs'!
windowSpec
@@ -177,7 +176,6 @@
)
! !
-
!ProjectCheckerBrowser methodsFor:'accessing'!
problemList: problems
@@ -201,7 +199,6 @@
"Created: / 13-02-2012 / 17:03:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ProjectCheckerBrowser methodsFor:'actions'!
doCheckAgain
@@ -245,7 +242,6 @@
"Created: / 26-07-2012 / 10:06:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ProjectCheckerBrowser methodsFor:'aspects'!
infoPanel
@@ -334,7 +330,6 @@
].
! !
-
!ProjectCheckerBrowser methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -356,7 +351,6 @@
"Modified: / 13-09-2012 / 17:34:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ProjectCheckerBrowser methodsFor:'hooks'!
setupHTMLView:aView
@@ -367,7 +361,6 @@
"Created: / 23-02-2012 / 14:04:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ProjectCheckerBrowser class methodsFor:'documentation'!
version
@@ -378,6 +371,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__ProjectCheckerBrowser.st,v 1.1 2012-07-26 11:59:59 vrany Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__ProjectCheckerBrowser.st 8024 2012-07-26 10:10:37Z vranyj1 §'
! !
--- a/Tools__ProjectLoader.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ProjectLoader.st Wed Feb 27 12:34:59 2013 +0000
@@ -422,8 +422,14 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__ProjectLoader.st,v 1.2 2011/07/03 19:41:59 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ProjectLoader.st 7989 2012-05-05 21:28:49Z vranyj1 $'
! !
+
ProjectLoader initialize!
--- a/Tools__SearchDialog.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__SearchDialog.st Wed Feb 27 12:34:59 2013 +0000
@@ -1390,8 +1390,14 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.73 2012/12/02 10:10:34 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__SearchDialog.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
SearchDialog initialize!
--- a/Tools__SendersBrowslet.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__SendersBrowslet.st Wed Feb 27 12:34:59 2013 +0000
@@ -88,6 +88,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__SendersBrowslet.st,v 1.2 2011/07/03 13:40:50 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__SendersBrowslet.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+! !
+
--- a/Tools__SmalltalkDiffTool.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__SmalltalkDiffTool.st Wed Feb 27 12:34:59 2013 +0000
@@ -1000,6 +1000,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__SmalltalkDiffTool.st,v 1.8 2011/09/12 09:52:32 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__SmalltalkDiffTool.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/Tools__SourceCodeManagerConfigurationTestTool.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__SourceCodeManagerConfigurationTestTool.st Wed Feb 27 12:34:59 2013 +0000
@@ -189,6 +189,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__SourceCodeManagerConfigurationTestTool.st,v 1.2 2011/10/12 21:10:19 vrany Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__SourceCodeManagerConfigurationTestTool.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/Tools__SpecialCodeView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__SpecialCodeView.st Wed Feb 27 12:34:59 2013 +0000
@@ -80,6 +80,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools_SpecialCodeView.st,v 1.3 2010/05/07 12:27:43 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__SpecialCodeView.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
+
--- a/Tools__StringSearchTool.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__StringSearchTool.st Wed Feb 27 12:34:59 2013 +0000
@@ -70,7 +70,6 @@
"
! !
-
!StringSearchTool class methodsFor:'accessing'!
lastMatchCase
@@ -93,7 +92,6 @@
LastRestart := aBoolean
! !
-
!StringSearchTool class methodsFor:'image specs'!
closeSearchBarIcon
@@ -281,7 +279,6 @@
(Q0_$1XZ#1X["A(]^QPX&34>?;&).&-Z/6]Y06MU1&AR/5UG15-N0EYF1&EO0&EN/&EP.6AN.%5N.5-M.5%P/UYQ.$)I.4)L0UQW/U-\+5YX5XFA') ; mask:((Depth1Image new) width: 22; height: 19; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C G@G0C@O0C@O8C@_8C@?<C@?<CA?>CC??CC??CC??#G??#O??3O??3_??;????????????????') ; yourself); yourself]
! !
-
!StringSearchTool class methodsFor:'interface specs'!
windowSpec
@@ -395,7 +392,6 @@
)
! !
-
!StringSearchTool methodsFor:'accessing'!
closeBlock
@@ -446,7 +442,6 @@
^ searchTextView contents
! !
-
!StringSearchTool methodsFor:'aspects'!
matchCaseHolder
@@ -512,7 +507,6 @@
"Created: / 15-06-2007 / 18:07:19 / Administrador"
! !
-
!StringSearchTool methodsFor:'change & update'!
matchCaseHolderChanged
@@ -576,7 +570,6 @@
"Modified: / 16-06-2007 / 09:21:27 / Administrador"
! !
-
!StringSearchTool methodsFor:'images'!
restartSearchBarIcon
@@ -589,7 +582,6 @@
^ self class warningSearchBarIcon
! !
-
!StringSearchTool methodsFor:'initialization & release'!
commonPostOpen
@@ -604,7 +596,6 @@
"Created: / 15-06-2007 / 18:17:15 / Administrador"
! !
-
!StringSearchTool methodsFor:'private'!
searchReachEndOrBeginningIcon
@@ -636,7 +627,6 @@
"Created: / 16-06-2007 / 06:29:00 / Administrador"
! !
-
!StringSearchTool methodsFor:'public'!
escapePressed
@@ -712,7 +702,6 @@
searchTextView requestFocus.
! !
-
!StringSearchTool methodsFor:'searching'!
hideSearchBar
@@ -802,7 +791,6 @@
"/ ignoreCase: ignoreCase
! !
-
!StringSearchTool class methodsFor:'documentation'!
version
@@ -813,6 +801,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.21 2013-01-17 11:18:42 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__StringSearchTool.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
--- a/Tools__StringSearchToolForTextView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__StringSearchToolForTextView.st Wed Feb 27 12:34:59 2013 +0000
@@ -508,6 +508,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__StringSearchToolForTextView.st,v 1.16 2010/05/07 12:27:34 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__StringSearchToolForTextView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/Tools__Tag.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__Tag.st Wed Feb 27 12:34:59 2013 +0000
@@ -20,182 +20,182 @@
category:'Interface-Tools-File-Tags'
!
-Tools::Tag subclass:#TElement
+Tag subclass:#TElement
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TClass
+Tag subclass:#TClass
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TDocumentation
+Tag subclass:#TDocumentation
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag::TElement subclass:#TAnchorElement
+Tag::TElement subclass:#TAnchorElement
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TEnum
+Tag subclass:#TEnum
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TEnumMember
+Tag subclass:#TEnumMember
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TField
+Tag subclass:#TField
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag::TElement subclass:#TFormElement
+Tag::TElement subclass:#TFormElement
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TFunction
+Tag subclass:#TFunction
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag::TElement subclass:#THeaderElement
+Tag::TElement subclass:#THeaderElement
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TInterface
+Tag subclass:#TInterface
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TLabel
+Tag subclass:#TLabel
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TLispConstant
+Tag subclass:#TLispConstant
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TLispEval
+Tag subclass:#TLispEval
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TLispMacro
+Tag subclass:#TLispMacro
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TMacro
+Tag subclass:#TMacro
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TMakeRule
+Tag subclass:#TMakeRule
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TMakeTarget
+Tag subclass:#TMakeTarget
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TMember
+Tag subclass:#TMember
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TMethod
+Tag subclass:#TMethod
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TPackage
+Tag subclass:#TPackage
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TPrologClause
+Tag subclass:#TPrologClause
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TStruct
+Tag subclass:#TStruct
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TTypedef
+Tag subclass:#TTypedef
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TUnion
+Tag subclass:#TUnion
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
privateIn:Tag
!
-Tools::Tag subclass:#TVariable
+Tag subclass:#TVariable
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -227,7 +227,6 @@
"
! !
-
!Tag class methodsFor:'instance creation'!
label:aLabel pattern:aPattern
@@ -262,7 +261,6 @@
"Modified: / 05-05-2011 / 15:42:45 / cg"
! !
-
!Tag class methodsFor:'accessing'!
typeIdentifier
@@ -271,7 +269,6 @@
! !
-
!Tag methodsFor:'accessing'!
fileName
@@ -324,7 +321,6 @@
^ '???'
! !
-
!Tag methodsFor:'instance creation'!
label:aLabel pattern:aPattern lineNumber:aLineNumer className:cName
@@ -343,7 +339,6 @@
! !
-
!Tag methodsFor:'list interface'!
explainString
@@ -394,7 +389,6 @@
^ l
! !
-
!Tag methodsFor:'queries'!
widthOn:aGC
@@ -405,7 +399,6 @@
^ width
! !
-
!Tag methodsFor:'tag searching'!
lineNumberIn:someText
@@ -462,7 +455,6 @@
^ lnr
! !
-
!Tag methodsFor:'testing'!
isClassTag
@@ -631,7 +623,6 @@
! !
-
!Tag::TElement class methodsFor:'accessing'!
typeIdentifier
@@ -640,7 +631,6 @@
"Created: / 20-04-2011 / 18:52:31 / cg"
! !
-
!Tag::TElement class methodsFor:'documentation'!
documentation
@@ -649,7 +639,6 @@
"
! !
-
!Tag::TElement methodsFor:'accessing'!
typeIdentifierInList
@@ -664,7 +653,6 @@
"Created: / 20-04-2011 / 18:53:29 / cg"
! !
-
!Tag::TElement methodsFor:'testing'!
isElementTag
@@ -675,7 +663,6 @@
"Created: / 20-04-2011 / 18:53:16 / cg"
! !
-
!Tag::TClass class methodsFor:'accessing'!
typeIdentifier
@@ -684,7 +671,6 @@
"Modified: / 05-05-2011 / 15:40:47 / cg"
! !
-
!Tag::TClass class methodsFor:'documentation'!
documentation
@@ -693,7 +679,6 @@
"
! !
-
!Tag::TClass methodsFor:'accessing'!
typeIdentifierInList
@@ -706,7 +691,6 @@
! !
-
!Tag::TClass methodsFor:'testing'!
isClassTag
@@ -717,7 +701,6 @@
! !
-
!Tag::TDocumentation class methodsFor:'accessing'!
typeIdentifier
@@ -726,7 +709,6 @@
"Modified: / 08-05-2011 / 10:06:26 / cg"
! !
-
!Tag::TDocumentation class methodsFor:'documentation'!
documentation
@@ -738,7 +720,6 @@
"
! !
-
!Tag::TDocumentation methodsFor:'accessing'!
typeString
@@ -747,7 +728,6 @@
"Modified: / 08-05-2011 / 10:05:52 / cg"
! !
-
!Tag::TDocumentation methodsFor:'testing'!
isDocumentationTag
@@ -758,7 +738,6 @@
"Created: / 08-05-2011 / 10:06:03 / cg"
! !
-
!Tag::TAnchorElement class methodsFor:'accessing'!
typeIdentifier
@@ -767,7 +746,6 @@
"Created: / 20-04-2011 / 18:52:31 / cg"
! !
-
!Tag::TAnchorElement class methodsFor:'documentation'!
documentation
@@ -776,7 +754,6 @@
"
! !
-
!Tag::TAnchorElement methodsFor:'accessing'!
typeIdentifierInList
@@ -791,7 +768,6 @@
"Created: / 20-04-2011 / 18:53:29 / cg"
! !
-
!Tag::TEnum class methodsFor:'accessing'!
typeIdentifier
@@ -800,7 +776,6 @@
"Modified: / 05-05-2011 / 15:40:54 / cg"
! !
-
!Tag::TEnum methodsFor:'accessing'!
typeString
@@ -809,7 +784,6 @@
"Modified: / 05-05-2011 / 15:37:03 / cg"
! !
-
!Tag::TEnum methodsFor:'testing'!
isEnumTag
@@ -818,7 +792,6 @@
"Created: / 05-05-2011 / 15:37:15 / cg"
! !
-
!Tag::TEnumMember class methodsFor:'accessing'!
typeIdentifier
@@ -827,7 +800,6 @@
"Modified: / 05-05-2011 / 15:40:57 / cg"
! !
-
!Tag::TEnumMember methodsFor:'accessing'!
typeString
@@ -836,7 +808,6 @@
"Modified: / 05-05-2011 / 15:39:05 / cg"
! !
-
!Tag::TEnumMember methodsFor:'testing'!
isEnumMemberTag
@@ -845,7 +816,6 @@
"Created: / 05-05-2011 / 15:38:49 / cg"
! !
-
!Tag::TField class methodsFor:'accessing'!
typeIdentifier
@@ -854,7 +824,6 @@
! !
-
!Tag::TField methodsFor:'accessing'!
typeString
@@ -862,7 +831,6 @@
! !
-
!Tag::TField methodsFor:'testing'!
isFieldTag
@@ -873,7 +841,6 @@
! !
-
!Tag::TFormElement class methodsFor:'accessing'!
typeIdentifier
@@ -882,7 +849,6 @@
"Created: / 20-04-2011 / 18:52:31 / cg"
! !
-
!Tag::TFormElement class methodsFor:'documentation'!
documentation
@@ -891,7 +857,6 @@
"
! !
-
!Tag::TFormElement methodsFor:'accessing'!
typeIdentifierInList
@@ -906,7 +871,6 @@
"Created: / 20-04-2011 / 18:53:29 / cg"
! !
-
!Tag::TFunction class methodsFor:'accessing'!
typeIdentifier
@@ -915,7 +879,6 @@
"Modified: / 05-05-2011 / 15:41:04 / cg"
! !
-
!Tag::TFunction methodsFor:'accessing'!
typeIdentifierInList
@@ -930,7 +893,6 @@
! !
-
!Tag::TFunction methodsFor:'testing'!
isFunctionTag
@@ -941,7 +903,6 @@
! !
-
!Tag::THeaderElement class methodsFor:'accessing'!
typeIdentifier
@@ -950,7 +911,6 @@
"Created: / 20-04-2011 / 18:52:31 / cg"
! !
-
!Tag::THeaderElement class methodsFor:'documentation'!
documentation
@@ -959,7 +919,6 @@
"
! !
-
!Tag::THeaderElement methodsFor:'accessing'!
typeIdentifierInList
@@ -974,7 +933,6 @@
"Created: / 20-04-2011 / 18:53:29 / cg"
! !
-
!Tag::TInterface class methodsFor:'accessing'!
typeIdentifier
@@ -983,7 +941,6 @@
"Modified: / 05-05-2011 / 15:41:08 / cg"
! !
-
!Tag::TInterface methodsFor:'accessing'!
typeString
@@ -992,7 +949,6 @@
! !
-
!Tag::TInterface methodsFor:'testing'!
isInterfaceTag
@@ -1003,7 +959,6 @@
! !
-
!Tag::TLabel class methodsFor:'accessing'!
typeIdentifier
@@ -1012,7 +967,6 @@
! !
-
!Tag::TLabel methodsFor:'accessing'!
typeString
@@ -1021,7 +975,6 @@
! !
-
!Tag::TLabel methodsFor:'testing'!
isLabelTag
@@ -1032,7 +985,6 @@
! !
-
!Tag::TLispConstant class methodsFor:'accessing'!
typeIdentifier
@@ -1041,7 +993,6 @@
! !
-
!Tag::TLispConstant methodsFor:'accessing'!
typeString
@@ -1050,7 +1001,6 @@
! !
-
!Tag::TLispConstant methodsFor:'testing'!
isLispConstantTag
@@ -1061,7 +1011,6 @@
! !
-
!Tag::TLispEval class methodsFor:'accessing'!
typeIdentifier
@@ -1070,7 +1019,6 @@
! !
-
!Tag::TLispEval methodsFor:'accessing'!
printString
@@ -1083,7 +1031,6 @@
! !
-
!Tag::TLispEval methodsFor:'testing'!
isLispEvalTag
@@ -1094,7 +1041,6 @@
! !
-
!Tag::TLispMacro class methodsFor:'accessing'!
typeIdentifier
@@ -1103,7 +1049,6 @@
! !
-
!Tag::TLispMacro methodsFor:'accessing'!
typeString
@@ -1112,7 +1057,6 @@
! !
-
!Tag::TLispMacro methodsFor:'testing'!
isLispMacroTag
@@ -1123,7 +1067,6 @@
! !
-
!Tag::TMacro class methodsFor:'accessing'!
typeIdentifier
@@ -1132,7 +1075,6 @@
! !
-
!Tag::TMacro methodsFor:'accessing'!
typeString
@@ -1141,7 +1083,6 @@
! !
-
!Tag::TMacro methodsFor:'testing'!
isMacroTag
@@ -1152,21 +1093,18 @@
! !
-
!Tag::TMakeRule class methodsFor:'accessing'!
typeIdentifier
^ 'R'
! !
-
!Tag::TMakeRule methodsFor:'accessing'!
typeString
^ 'rule'
! !
-
!Tag::TMakeRule methodsFor:'testing'!
isMakeTargetTag
@@ -1177,7 +1115,6 @@
! !
-
!Tag::TMakeTarget class methodsFor:'accessing'!
typeIdentifier
@@ -1186,7 +1123,6 @@
! !
-
!Tag::TMakeTarget methodsFor:'accessing'!
typeString
@@ -1195,7 +1131,6 @@
! !
-
!Tag::TMakeTarget methodsFor:'testing'!
isMakeTargetTag
@@ -1206,7 +1141,6 @@
! !
-
!Tag::TMember class methodsFor:'accessing'!
typeIdentifier
@@ -1215,7 +1149,6 @@
! !
-
!Tag::TMember methodsFor:'accessing'!
typeString
@@ -1224,7 +1157,6 @@
! !
-
!Tag::TMember methodsFor:'testing'!
isMemberTag
@@ -1235,7 +1167,6 @@
! !
-
!Tag::TMethod class methodsFor:'accessing'!
typeIdentifier
@@ -1244,7 +1175,6 @@
"Modified: / 05-05-2011 / 15:41:29 / cg"
! !
-
!Tag::TMethod methodsFor:'accessing'!
typeIdentifierInList
@@ -1258,7 +1188,6 @@
! !
-
!Tag::TMethod methodsFor:'testing'!
isMethodTag
@@ -1269,7 +1198,6 @@
! !
-
!Tag::TPackage class methodsFor:'accessing'!
typeIdentifier
@@ -1278,7 +1206,6 @@
"Modified: / 05-05-2011 / 15:41:35 / cg"
! !
-
!Tag::TPackage methodsFor:'accessing'!
typeString
@@ -1287,7 +1214,6 @@
! !
-
!Tag::TPackage methodsFor:'testing'!
isPackageTag
@@ -1298,7 +1224,6 @@
! !
-
!Tag::TPrologClause class methodsFor:'accessing'!
typeIdentifier
@@ -1307,7 +1232,6 @@
! !
-
!Tag::TPrologClause methodsFor:'accessing'!
typeString
@@ -1316,7 +1240,6 @@
! !
-
!Tag::TPrologClause methodsFor:'testing'!
isPrologClause
@@ -1327,7 +1250,6 @@
! !
-
!Tag::TStruct class methodsFor:'accessing'!
typeIdentifier
@@ -1336,7 +1258,6 @@
"Modified: / 05-05-2011 / 15:41:42 / cg"
! !
-
!Tag::TStruct methodsFor:'accessing'!
typeString
@@ -1345,7 +1266,6 @@
! !
-
!Tag::TStruct methodsFor:'testing'!
isStructOrUnionTag
@@ -1362,7 +1282,6 @@
! !
-
!Tag::TTypedef class methodsFor:'accessing'!
typeIdentifier
@@ -1371,7 +1290,6 @@
"Modified: / 05-05-2011 / 15:41:46 / cg"
! !
-
!Tag::TTypedef methodsFor:'accessing'!
typeString
@@ -1380,7 +1298,6 @@
! !
-
!Tag::TTypedef methodsFor:'testing'!
isTypedefTag
@@ -1391,7 +1308,6 @@
! !
-
!Tag::TUnion class methodsFor:'accessing'!
typeIdentifier
@@ -1400,7 +1316,6 @@
"Modified: / 05-05-2011 / 15:41:50 / cg"
! !
-
!Tag::TUnion methodsFor:'accessing'!
typeString
@@ -1409,7 +1324,6 @@
"Modified: / 05-05-2011 / 15:07:12 / cg"
! !
-
!Tag::TUnion methodsFor:'testing'!
isStructOrUnionTag
@@ -1426,7 +1340,6 @@
"Created: / 05-05-2011 / 15:07:00 / cg"
! !
-
!Tag::TVariable class methodsFor:'accessing'!
typeIdentifier
@@ -1435,7 +1348,6 @@
! !
-
!Tag::TVariable methodsFor:'accessing'!
typeString
@@ -1444,7 +1356,6 @@
! !
-
!Tag::TVariable methodsFor:'testing'!
isVariableTag
@@ -1455,13 +1366,17 @@
! !
-
!Tag class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.6 2012-09-12 20:42:58 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/Tools__TagList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__TagList.st Wed Feb 27 12:34:59 2013 +0000
@@ -62,7 +62,6 @@
"
! !
-
!TagList class methodsFor:'accessing'!
tagsSuffixes
@@ -104,7 +103,6 @@
"Modified: / 28-09-2012 / 14:48:25 / cg"
! !
-
!TagList class methodsFor:'defaults'!
arcLispSuffixes
@@ -274,7 +272,6 @@
^ self tagsSuffixes at:#'text/yacc'
! !
-
!TagList class methodsFor:'queries'!
isArcLispSuffix:suffix
@@ -401,7 +398,6 @@
^ self isSuffix:suffix in:self yaccSuffixes
! !
-
!TagList class methodsFor:'queries basic'!
isSuffix:suffix in:patterns
@@ -448,7 +444,6 @@
^ nil
! !
-
!TagList class methodsFor:'tag generation'!
cachedTagsFromFile:aFilename in:aTempDirectory
@@ -571,7 +566,6 @@
^ targets
! !
-
!TagList methodsFor:'accessing-filters'!
classesFunctionsAndVariablesOnly
@@ -1400,7 +1394,6 @@
"Modified: / 05-05-2011 / 15:24:06 / cg"
! !
-
!TagList methodsFor:'accessing-presentation'!
groupBy
@@ -1534,7 +1527,6 @@
^ tagTypesPresent
! !
-
!TagList methodsFor:'private'!
applyFilterToList:aList
@@ -2039,7 +2031,6 @@
"Modified: / 05-05-2011 / 15:13:14 / cg"
! !
-
!TagList methodsFor:'queries'!
bestTagForLine:lineNr
@@ -2064,7 +2055,6 @@
^ bestTag
! !
-
!TagList methodsFor:'tag generation'!
fromFile:aFile in:aTempDirectory
@@ -2444,7 +2434,6 @@
"Modified: / 05-05-2011 / 15:45:55 / cg"
! !
-
!TagList methodsFor:'tag generation - simple'!
assemblerTagsInFile:aFilePath
@@ -3631,7 +3620,6 @@
"Modified: / 28-09-2012 / 14:45:52 / cg"
! !
-
!TagList methodsFor:'testing'!
supportsFile:aFile
@@ -3673,7 +3661,6 @@
"/ ^ false
! !
-
!TagList class methodsFor:'documentation'!
version
@@ -3684,6 +3671,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.25 2013-01-29 11:10:00 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/Tools__TagsBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__TagsBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -58,7 +58,6 @@
"
! !
-
!TagsBrowser class methodsFor:'help specs'!
flyByHelpSpec
@@ -87,7 +86,6 @@
"Created: / 06-10-2011 / 12:04:51 / cg"
! !
-
!TagsBrowser class methodsFor:'interface specs'!
windowSpec
@@ -155,7 +153,6 @@
)
! !
-
!TagsBrowser class methodsFor:'menu specs'!
assemblerMenuSlice
@@ -1189,7 +1186,6 @@
)
! !
-
!TagsBrowser methodsFor:'* As yet uncategorized *'!
assignFocusToTagFilterInputField
@@ -1199,7 +1195,6 @@
"Created: / 02-08-2012 / 22:00:45 / cg"
! !
-
!TagsBrowser methodsFor:'accessing'!
action:aOneArgBlock
@@ -1262,7 +1257,6 @@
"Created: / 07-05-2011 / 15:42:44 / cg"
! !
-
!TagsBrowser methodsFor:'accessing filters'!
classesFunctionsAndVariablesOnly
@@ -1864,7 +1858,6 @@
"Modified: / 05-05-2011 / 15:33:18 / cg"
! !
-
!TagsBrowser methodsFor:'accessing presentation aspects'!
groupedByType
@@ -1935,7 +1928,6 @@
tagList sortedByType:aBool
! !
-
!TagsBrowser methodsFor:'aspects'!
editedFileHasAssemblerSuffix
@@ -2081,7 +2073,6 @@
^ tagView
! !
-
!TagsBrowser methodsFor:'change & update'!
delayedEditedFileChanged
@@ -2189,7 +2180,6 @@
"Modified: / 23-06-2011 / 17:28:26 / cg"
! !
-
!TagsBrowser methodsFor:'hooks for ccbrowser'!
buildTarget
@@ -2201,7 +2191,6 @@
"Created: / 07-05-2011 / 15:38:20 / cg"
! !
-
!TagsBrowser methodsFor:'menu actions'!
keepingSelectionDo:aBlock
@@ -2323,7 +2312,6 @@
"Modified: / 07-12-2011 / 11:13:18 / cg"
! !
-
!TagsBrowser methodsFor:'startup & release'!
cloneWith:anApplication
@@ -2370,7 +2358,6 @@
"Created: / 06-12-2011 / 14:57:26 / cg"
! !
-
!TagsBrowser::TagView methodsFor:'accessing'!
application
@@ -2401,7 +2388,6 @@
tagLineNr := lineNr
! !
-
!TagsBrowser::TagView methodsFor:'drawing'!
drawLabelAt:anIndex x:x y:y h:h
@@ -2493,7 +2479,6 @@
]
! !
-
!TagsBrowser::TagView methodsFor:'generating tags'!
generateTagsFor:aFile onTarget:aTarget finally:aBlock
@@ -2580,7 +2565,6 @@
"Modified (comment): / 06-10-2011 / 14:01:30 / cg"
! !
-
!TagsBrowser::TagView methodsFor:'initialize & release'!
destroy
@@ -2596,7 +2580,6 @@
highlightMode := #line.
! !
-
!TagsBrowser::TagView methodsFor:'protocol'!
heightOfLineAt:aLineNr
@@ -2614,7 +2597,6 @@
^ width + TypeInset
! !
-
!TagsBrowser class methodsFor:'documentation'!
version
@@ -2625,6 +2607,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.31 2012-11-26 21:47:52 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/Tools__TestRunner2.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__TestRunner2.st Wed Feb 27 12:34:59 2013 +0000
@@ -27,7 +27,7 @@
"{ NameSpace: Tools }"
-Tools::AbstractTestRunner subclass:#TestRunner2
+AbstractTestRunner subclass:#TestRunner2
instanceVariableNames:'classCategoryOrPackageTabIndexHolder classCategoryList
packageList classList classListOutGeneratorHolder
classListInGeneratorHolder modeHolder detailsHolder
@@ -39,7 +39,7 @@
category:'SUnit-UI'
!
-Tools::ClassList subclass:#ClassList
+ClassList subclass:#ClassList
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -91,7 +91,6 @@
"
! !
-
!TestRunner2 class methodsFor:'initialization'!
initialize
@@ -159,7 +158,6 @@
"Modified: / 18-08-2011 / 11:34:24 / cg"
! !
-
!TestRunner2 class methodsFor:'help specs'!
helpSpec
@@ -188,7 +186,6 @@
"Modified: / 09-08-2012 / 09:37:16 / cg"
! !
-
!TestRunner2 class methodsFor:'image specs'!
defaultIcon
@@ -198,7 +195,6 @@
"Created: / 19-08-2009 / 14:32:13 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!TestRunner2 class methodsFor:'interface specs'!
buttonPaneSpec
@@ -778,7 +774,6 @@
"Created: / 07-02-2010 / 14:48:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TestRunner2 class methodsFor:'list specs'!
classCategoryOrPackageTabList
@@ -841,7 +836,6 @@
collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]
! !
-
!TestRunner2 class methodsFor:'menu specs'!
classListMenu
@@ -1016,7 +1010,6 @@
)
! !
-
!TestRunner2 class methodsFor:'resources'!
startSUnitIcon
@@ -1026,7 +1019,6 @@
"/ ^ ToolbarIconLibrary sUnit28x28Icon
! !
-
!TestRunner2 class methodsFor:'startup'!
openOnTestCase:aTestCaseClass
@@ -1041,7 +1033,6 @@
"Created: / 06-07-2011 / 14:10:00 / cg"
! !
-
!TestRunner2 methodsFor:'accessing'!
errorColor
@@ -1142,7 +1133,6 @@
"Created: / 06-06-2008 / 20:08:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!TestRunner2 methodsFor:'accessing - lists'!
allTestCategories
@@ -1224,7 +1214,6 @@
"Modified: / 28-02-2011 / 21:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TestRunner2 methodsFor:'accessing - menus'!
packageListMenu
@@ -1241,7 +1230,6 @@
"Created: / 23-09-2011 / 18:53:46 / cg"
! !
-
!TestRunner2 methodsFor:'actions'!
classSelectionChanged
@@ -1432,7 +1420,6 @@
"Created: / 21-08-2011 / 17:51:42 / cg"
! !
-
!TestRunner2 methodsFor:'actions - menu'!
classListMenuBrowse
@@ -1520,7 +1507,6 @@
"Created: / 23-09-2011 / 18:55:50 / cg"
! !
-
!TestRunner2 methodsFor:'aspects'!
classCategoryOrPackageTabIndexHolder
@@ -1713,7 +1699,6 @@
"Created: / 18-01-2008 / 18:44:29 / janfrog"
! !
-
!TestRunner2 methodsFor:'displaying'!
displayColor: aColorValue
@@ -1798,7 +1783,6 @@
"Modified: / 05-07-2011 / 14:14:42 / cg"
! !
-
!TestRunner2 methodsFor:'hooks'!
commonPostOpen
@@ -1814,7 +1798,6 @@
"Modified: / 30-06-2011 / 20:20:40 / cg"
! !
-
!TestRunner2 methodsFor:'private'!
buildSuiteFromClass: testCaseCls
@@ -1858,14 +1841,12 @@
"Created: / 18-01-2008 / 18:51:21 / janfrog"
! !
-
!TestRunner2::ClassList class methodsFor:'documentation'!
version
^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.34 2012-11-27 11:08:22 cg Exp $'
! !
-
!TestRunner2::ClassList methodsFor:'private'!
nameListEntryFor:aClass withNameSpace:useFullName
@@ -1882,7 +1863,6 @@
"Modified: / 28-02-2011 / 21:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TestRunner2::ResultList class methodsFor:'interface specs'!
windowSpec
@@ -1933,7 +1913,6 @@
)
! !
-
!TestRunner2::ResultList class methodsFor:'plugIn spec'!
aspectSelectors
@@ -1954,7 +1933,6 @@
! !
-
!TestRunner2::ResultList methodsFor:'actions'!
debugTest:entryIndex
@@ -1982,7 +1960,6 @@
"Created: / 08-02-2010 / 10:08:30 / Jan Vrany <jan,vrany@fit.cvut.cz>"
! !
-
!TestRunner2::ResultList methodsFor:'aspects'!
listHolder
@@ -2042,7 +2019,6 @@
"Created: / 23-09-2011 / 19:02:06 / cg"
! !
-
!TestRunner2::ResultList methodsFor:'change & update'!
update:aspect with:param from:sender
@@ -2084,7 +2060,6 @@
"Modified: / 04-08-2011 / 19:05:57 / cg"
! !
-
!TestRunner2::ResultList methodsFor:'private'!
invalidate
@@ -2103,7 +2078,6 @@
"Created: / 08-02-2010 / 10:28:53 / Jan Vrany <jan,vrany@fit.cvut.cz>"
! !
-
!TestRunner2::ResultList methodsFor:'private-list'!
makeClassEntryFor: class result: result tests: tests
@@ -2178,7 +2152,6 @@
"Created: / 19-03-2010 / 08:41:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TestRunner2::ResultList::ListEntry class methodsFor:'initialization'!
initialize
@@ -2193,7 +2166,6 @@
"Modified: / 07-02-2010 / 15:06:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TestRunner2::ResultList::ListEntry class methodsFor:'instance creation'!
labeled: aStringOrText
@@ -2203,7 +2175,6 @@
"Created: / 07-02-2010 / 13:31:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TestRunner2::ResultList::ListEntry methodsFor:'accessing'!
icon
@@ -2269,7 +2240,6 @@
test := aTestCase.
! !
-
!TestRunner2::ResultList::ListEntry methodsFor:'enumeration'!
leafsDo: aBlock
@@ -2288,7 +2258,6 @@
"Created: / 08-02-2010 / 10:10:36 / Jan Vrany <jan,vrany@fit.cvut.cz>"
! !
-
!TestRunner2::ResultList::ListEntry methodsFor:'initialization'!
reset
@@ -2308,7 +2277,6 @@
"Created: / 07-02-2010 / 11:41:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TestRunner2::ResultList::ListEntry methodsFor:'private'!
computeResult
@@ -2339,7 +2307,6 @@
"Created: / 08-02-2010 / 10:16:52 / Jan Vrany <jan,vrany@fit.cvut.cz>"
! !
-
!TestRunner2::ResultList::ListEntry methodsFor:'testing'!
isError
@@ -2371,7 +2338,6 @@
"Created: / 08-02-2010 / 10:18:15 / Jan Vrany <jan,vrany@fit.cvut.cz>"
! !
-
!TestRunner2 class methodsFor:'documentation'!
version
@@ -2382,10 +2348,14 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.34 2012-11-27 11:08:22 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__TestRunner2.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !
TestRunner2 initialize!
-TestRunner2::ResultList::ListEntry initialize!
--- a/Tools__TestRunnerEmbedded.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__TestRunnerEmbedded.st Wed Feb 27 12:34:59 2013 +0000
@@ -1262,6 +1262,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.32 2012/11/08 00:05:16 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__TestRunnerEmbedded.st 8076 2012-12-03 16:22:00Z vranyj1 $'
! !
+
--- a/Tools__TextDiff2Tool.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__TextDiff2Tool.st Wed Feb 27 12:34:59 2013 +0000
@@ -608,6 +608,12 @@
^ '§Header: /cvs/stx/stx/libtool/Tools__TextDiffTool.st,v 1.6 2011/11/18 14:05:39 cg Exp §'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__TextDiff2Tool.st 8088 2013-01-16 11:59:55Z vranyj1 $'
! !
+
--- a/Tools__TextDiff3Tool.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__TextDiff3Tool.st Wed Feb 27 12:34:59 2013 +0000
@@ -1181,6 +1181,12 @@
!TextDiff3Tool class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__TextDiff3Tool.st 8091 2013-01-18 00:03:03Z vranyj1 $'
! !
+
--- a/Tools__TextDiffTool.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__TextDiffTool.st Wed Feb 27 12:34:59 2013 +0000
@@ -63,7 +63,6 @@
"
! !
-
!TextDiffTool class methodsFor:'image specs'!
versionA24x24
@@ -94,7 +93,6 @@
"Created: / 17-03-2012 / 12:18:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TextDiffTool class methodsFor:'interface specs'!
windowSpec
@@ -185,7 +183,6 @@
)
! !
-
!TextDiffTool class methodsFor:'interface specs - labels'!
versionALabelSpec
@@ -345,7 +342,6 @@
"Created: / 16-03-2012 / 12:16:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TextDiffTool class methodsFor:'plugIn spec'!
aspectSelectors
@@ -368,7 +364,6 @@
"Created: / 16-03-2012 / 12:18:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TextDiffTool methodsFor:'accessing'!
label: aString
@@ -451,7 +446,6 @@
"Created: / 30-08-2011 / 09:45:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TextDiffTool methodsFor:'aspects'!
classHolder
@@ -567,7 +561,6 @@
"Modified: / 19-07-2011 / 12:54:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TextDiffTool methodsFor:'aspects-versions'!
labelAHolder
@@ -756,11 +749,8 @@
"Created: / 16-03-2012 / 12:14:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TextDiffTool methodsFor:'change & update'!
-
-
codeAspect:aSymbol
self codeAspectHolder value:aSymbol
@@ -801,7 +791,6 @@
"Modified (comment): / 16-03-2012 / 12:39:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TextDiffTool methodsFor:'hooks'!
postBuildDiffView:aScrollableView
@@ -823,7 +812,6 @@
"Created: / 26-07-2012 / 19:13:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TextDiffTool methodsFor:'initialization'!
initialize
@@ -841,12 +829,6 @@
"Created: / 16-01-2013 / 09:45:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
-!TextDiffTool methodsFor:'private'!
-
- !
-
-
!TextDiffTool methodsFor:'testing'!
isDiff2
@@ -867,7 +849,6 @@
"Created: / 19-03-2012 / 11:53:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!TextDiffTool class methodsFor:'documentation'!
version
@@ -878,6 +859,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__TextDiffTool.st,v 1.8 2012-07-27 21:48:04 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/Tools__TextMergeInfo.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__TextMergeInfo.st Wed Feb 27 12:34:59 2013 +0000
@@ -457,6 +457,12 @@
!TextMergeInfo class methodsFor:'documentation'!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__TextMergeInfo.st 8073 2012-11-30 14:25:59Z vranyj1 $'
! !
+
--- a/Tools__ToDoListEntry.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__ToDoListEntry.st Wed Feb 27 12:34:59 2013 +0000
@@ -231,6 +231,12 @@
^ '$Id: Tools__ToDoListEntry.st 7854 2012-01-30 17:49:41Z vranyj1 $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ToDoListEntry.st 7854 2012-01-30 17:49:41Z vranyj1 $'
! !
+
--- a/Tools__VariableList.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__VariableList.st Wed Feb 27 12:34:59 2013 +0000
@@ -13,7 +13,7 @@
"{ NameSpace: Tools }"
-Tools::BrowserList subclass:#VariableList
+BrowserList subclass:#VariableList
instanceVariableNames:'variableList classHolder showClassVars sortVariablesByName
selectedVariableEntries showWarningAboutMissingEntryInXmlSpec'
classVariableNames:''
@@ -50,7 +50,6 @@
"
! !
-
!VariableList class methodsFor:'interface specs'!
windowSpec
@@ -102,7 +101,6 @@
)
! !
-
!VariableList class methodsFor:'plugIn spec'!
aspectSelectors
@@ -134,7 +132,6 @@
).
! !
-
!VariableList methodsFor:'aspects'!
classHolder
@@ -245,7 +242,6 @@
! !
-
!VariableList methodsFor:'change & update'!
delayedUpdate:something with:aParameter from:changedObject
@@ -420,7 +416,6 @@
"Modified: / 20-07-2011 / 18:52:44 / cg"
! !
-
!VariableList methodsFor:'generators'!
makeGenerator
@@ -429,7 +424,6 @@
! !
-
!VariableList methodsFor:'private'!
commonPostBuild
@@ -709,7 +703,6 @@
"Modified: / 23-03-2012 / 15:55:47 / cg"
! !
-
!VariableList::VariableEntry class methodsFor:'instance creation'!
application: app class: aClass name: aString
@@ -726,7 +719,6 @@
"Created: / 12-04-2011 / 15:39:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!VariableList::VariableEntry methodsFor:'accessing'!
application: anObject
@@ -809,7 +801,6 @@
"Modified (format): / 16-12-2011 / 00:41:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!VariableList::VariableEntry methodsFor:'displaying'!
displayOn:aGC x:x y:y opaque: opaque
@@ -824,7 +815,6 @@
"Created: / 12-04-2011 / 15:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!VariableList::VariableEntry methodsFor:'queries'!
widthOn:aGC
@@ -835,13 +825,17 @@
"Created: / 16-12-2011 / 01:04:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!VariableList class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.19 2012-10-20 19:41:20 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__VariableList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
! !
--- a/Tools__VisualProfilerCanvas.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__VisualProfilerCanvas.st Wed Feb 27 12:34:59 2013 +0000
@@ -27,7 +27,7 @@
"{ NameSpace: Tools }"
-Tools::NavigatorModel subclass:#VisualProfilerCanvas
+NavigatorModel subclass:#VisualProfilerCanvas
instanceVariableNames:'profilerStatistics selectedMethods packageFilter
perspectiveSpecHolder callTreeHolder selectedCallTreeItemHolder
methodList'
@@ -73,7 +73,6 @@
"
! !
-
!VisualProfilerCanvas class methodsFor:'interface specs'!
callTreeSpec
@@ -416,7 +415,6 @@
"Modified: / 24-11-2007 / 09:07:56 / janfrog"
! !
-
!VisualProfilerCanvas class methodsFor:'list specs'!
perspectiveNotebookTabList
@@ -480,7 +478,6 @@
"Modified: / 24-11-2007 / 08:45:36 / janfrog"
! !
-
!VisualProfilerCanvas class methodsFor:'menu specs'!
sidebarMenu
@@ -513,7 +510,6 @@
)
! !
-
!VisualProfilerCanvas class methodsFor:'plugIn spec'!
aspectSelectors
@@ -536,7 +532,6 @@
"Modified: / 01-12-2007 / 23:57:41 / janfrog"
! !
-
!VisualProfilerCanvas class methodsFor:'tableColumns specs'!
methodListColumns
@@ -593,7 +588,6 @@
"Modified: / 01-12-2007 / 23:56:15 / janfrog"
! !
-
!VisualProfilerCanvas methodsFor:'aspects'!
callTreeHolder
@@ -787,7 +781,6 @@
"Created: / 24-11-2007 / 08:57:58 / janfrog"
! !
-
!VisualProfilerCanvas methodsFor:'change & update'!
methodsSelectionChanged
@@ -859,7 +852,6 @@
"Modified: / 18-11-2011 / 15:02:49 / cg"
! !
-
!VisualProfilerCanvas methodsFor:'hooks'!
commonPostBuild
@@ -882,7 +874,6 @@
"Created: / 09-10-2007 / 21:05:39 / janfrog"
! !
-
!VisualProfilerCanvas methodsFor:'user actions'!
switchToMethod: aMethod
@@ -893,7 +884,6 @@
"Created: / 09-10-2007 / 21:36:35 / janfrog"
! !
-
!VisualProfilerCanvas methodsFor:'user actions-profiler'!
profilerTestAction
@@ -915,14 +905,12 @@
"Modified: / 04-08-2011 / 19:06:07 / cg"
! !
-
!VisualProfilerCanvas::CallTreeItem class methodsFor:'documentation'!
version
^'$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.7 2012-11-04 21:42:49 cg Exp $'
! !
-
!VisualProfilerCanvas::CallTreeItem class methodsFor:'instance creation'!
subject: subject parent: parent
@@ -935,7 +923,6 @@
"Created: / 10-10-2007 / 08:35:55 / janfrog"
! !
-
!VisualProfilerCanvas::CallTreeItem methodsFor:'accessing'!
children
@@ -1060,7 +1047,6 @@
"Created: / 24-11-2007 / 09:43:01 / janfrog"
! !
-
!VisualProfilerCanvas::CallTreeItem methodsFor:'change & update'!
updateChildren
@@ -1071,7 +1057,6 @@
"Created: / 10-10-2007 / 13:02:13 / janfrog"
! !
-
!VisualProfilerCanvas::CallTreeItem methodsFor:'comparing'!
shouldBeMergedWith:anotherCallTreeItem
@@ -1084,7 +1069,6 @@
"Created: / 24-11-2007 / 09:50:34 / janfrog"
! !
-
!VisualProfilerCanvas::CallTreeItem methodsFor:'private'!
mergeChildren: rawChildren
@@ -1104,7 +1088,6 @@
"Created: / 24-11-2007 / 09:20:07 / janfrog"
! !
-
!VisualProfilerCanvas::CallTreeItem methodsFor:'testing'!
isFiltered
@@ -1118,7 +1101,6 @@
"Created: / 10-10-2007 / 13:09:46 / janfrog"
! !
-
!VisualProfilerCanvas class methodsFor:'documentation'!
version
@@ -1129,6 +1111,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.7 2012-11-04 21:42:49 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: Tools__VisualProfilerCanvas.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !
--- a/Tools__WebBrowserPage.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Tools__WebBrowserPage.st Wed Feb 27 12:34:59 2013 +0000
@@ -65,7 +65,6 @@
"
! !
-
!WebBrowserPage class methodsFor:'image specs'!
hideToolBarIcon
@@ -77,7 +76,6 @@
"Created: / 08-06-2011 / 12:09:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!WebBrowserPage class methodsFor:'interface specs'!
contentSpec
@@ -289,7 +287,6 @@
)
! !
-
!WebBrowserPage class methodsFor:'menu specs'!
toolBarMenu
@@ -335,7 +332,6 @@
"Modified: / 08-11-2011 / 16:42:44 / cg"
! !
-
!WebBrowserPage class methodsFor:'plugIn spec'!
aspectSelectors
@@ -355,7 +351,6 @@
! !
-
!WebBrowserPage methodsFor:'actions'!
hideBookmarkBar
@@ -384,7 +379,6 @@
"Created: / 16-06-2011 / 16:10:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!WebBrowserPage methodsFor:'aspects'!
bookmarkBarVisibleHolder
@@ -577,7 +571,6 @@
"Modified: / 30-05-2012 / 18:28:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!WebBrowserPage methodsFor:'aspects-queries'!
canGoBackAspect
@@ -603,7 +596,6 @@
"Modified: / 08-06-2011 / 12:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!WebBrowserPage methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -704,7 +696,6 @@
"Modified: / 18-11-2011 / 15:04:22 / cg"
! !
-
!WebBrowserPage methodsFor:'hooks'!
commonPostOpen
@@ -714,7 +705,6 @@
"Created: / 11-06-2011 / 00:00:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!WebBrowserPage methodsFor:'initialization'!
initialize
@@ -725,7 +715,6 @@
"Created: / 08-06-2011 / 12:23:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!WebBrowserPage methodsFor:'menu-actions'!
goBack
@@ -753,7 +742,6 @@
"Created: / 08-06-2011 / 15:01:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!WebBrowserPage methodsFor:'menu-dynamic'!
goBackMenu
@@ -796,7 +784,6 @@
"Modified (format): / 09-09-2012 / 13:24:59 / cg"
! !
-
!WebBrowserPage class methodsFor:'documentation'!
version
@@ -807,6 +794,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__WebBrowserPage.st,v 1.8 2012-09-09 19:02:51 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id§'
! !
--- a/VersionDiffBrowser.st Tue Feb 26 12:38:54 2013 +0000
+++ b/VersionDiffBrowser.st Wed Feb 27 12:34:59 2013 +0000
@@ -69,7 +69,6 @@
! !
-
!VersionDiffBrowser class methodsFor:'interface specs'!
windowSpec
@@ -283,7 +282,6 @@
)
! !
-
!VersionDiffBrowser class methodsFor:'menu specs'!
mainMenu
@@ -554,7 +552,6 @@
"Modified: / 31-08-2007 / 14:16:39 / cg"
! !
-
!VersionDiffBrowser class methodsFor:'plugIn spec'!
aspectSelectors
@@ -576,7 +573,6 @@
! !
-
!VersionDiffBrowser class methodsFor:'startup'!
openOnClass:aClass againstVersion:aVersionA
@@ -799,7 +795,6 @@
"
! !
-
!VersionDiffBrowser methodsFor:'accessing'!
canIncludeExtensions:something
@@ -958,7 +953,6 @@
^ classChangeSet labelB
! !
-
!VersionDiffBrowser methodsFor:'actions'!
acceptInLeftView
@@ -1125,7 +1119,6 @@
"Modified: / 15-08-2010 / 21:35:00 / cg"
! !
-
!VersionDiffBrowser methodsFor:'aspects'!
boxAVisible
@@ -1401,7 +1394,6 @@
"Modified: / 25-07-2006 / 11:15:07 / cg"
! !
-
!VersionDiffBrowser methodsFor:'aspects-exported'!
changedLabelHolder:aValueHolder
@@ -1447,7 +1439,6 @@
]
! !
-
!VersionDiffBrowser methodsFor:'aspects-menu'!
canAcceptInCodeView
@@ -1468,7 +1459,6 @@
^ self methodsChangedSelection value notNil
! !
-
!VersionDiffBrowser methodsFor:'change & update'!
update:something with:parameter from:changedObject
@@ -1490,7 +1480,6 @@
"Modified: / 17-07-2012 / 17:48:58 / cg"
! !
-
!VersionDiffBrowser methodsFor:'initialization & release'!
postBuildWith:aBuilder
@@ -1505,7 +1494,6 @@
super postBuildWith:aBuilder
! !
-
!VersionDiffBrowser methodsFor:'menu action'!
browseChange:aChange
@@ -1701,7 +1689,6 @@
].
! !
-
!VersionDiffBrowser methodsFor:'private'!
addAcceptToTextViewMenus
@@ -2016,7 +2003,6 @@
"Modified: / 17-07-2012 / 18:34:36 / cg"
! !
-
!VersionDiffBrowser methodsFor:'setup'!
setupForClass:aClass againstVersion:aVersionA
@@ -2094,7 +2080,6 @@
self classChangeSet:changeSet
! !
-
!VersionDiffBrowser::ClassChangeSet class methodsFor:'instance creation'!
changeSetForClass:aClass
@@ -2311,7 +2296,6 @@
].
! !
-
!VersionDiffBrowser::ClassChangeSet methodsFor:'accessing'!
classBeingCompared
@@ -2414,14 +2398,12 @@
versionB := something.
! !
-
!VersionDiffBrowser::ClassChangeSet methodsFor:'misc'!
removeAllVersionMethods
diffSet removeAllVersionMethods.
! !
-
!VersionDiffBrowser::ClassChangeSet methodsFor:'setup'!
setupForClass:aClass againstVersion:aVersionA
@@ -2461,7 +2443,6 @@
^ diffSet
! !
-
!VersionDiffBrowser class methodsFor:'documentation'!
version
@@ -2472,6 +2453,11 @@
^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.111 2012-10-30 16:04:26 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: VersionDiffBrowser.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
--- a/ViewWithAcceptAndCancelBar.st Tue Feb 26 12:38:54 2013 +0000
+++ b/ViewWithAcceptAndCancelBar.st Wed Feb 27 12:34:59 2013 +0000
@@ -58,7 +58,6 @@
"
! !
-
!ViewWithAcceptAndCancelBar methodsFor:'accessing'!
acceptAction:something
@@ -108,7 +107,6 @@
^ slaveView scrolledView
! !
-
!ViewWithAcceptAndCancelBar methodsFor:'action'!
accept
@@ -127,7 +125,6 @@
]
! !
-
!ViewWithAcceptAndCancelBar methodsFor:'change & update'!
hideBar
@@ -177,7 +174,6 @@
"Modified (format): / 29-11-2011 / 14:05:04 / cg"
! !
-
!ViewWithAcceptAndCancelBar methodsFor:'initialization'!
initialize
@@ -214,7 +210,6 @@
"
! !
-
!ViewWithAcceptAndCancelBar::AcceptAndCancelBar methodsFor:'accessing'!
acceptButton
@@ -229,7 +224,6 @@
^ compareButton
! !
-
!ViewWithAcceptAndCancelBar::AcceptAndCancelBar methodsFor:'help'!
flyByHelpTextAt:srcPoint
@@ -249,7 +243,6 @@
"Modified: / 26-09-2012 / 14:26:14 / cg"
! !
-
!ViewWithAcceptAndCancelBar::AcceptAndCancelBar methodsFor:'initialization'!
initialize
@@ -281,7 +274,6 @@
"Modified: / 26-09-2012 / 14:44:18 / cg"
! !
-
!ViewWithAcceptAndCancelBar::AcceptAndCancelBar::ButtonWithHelpText methodsFor:'accessing'!
flyByHelpText
@@ -292,7 +284,6 @@
helpText := something.
! !
-
!ViewWithAcceptAndCancelBar class methodsFor:'documentation'!
version
@@ -303,6 +294,11 @@
^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.11 2012-09-26 12:44:28 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: ViewWithAcceptAndCancelBar.st 8059 2012-09-27 20:08:20Z vranyj1 $'
! !
--- a/Win32FileDialog.st Tue Feb 26 12:38:54 2013 +0000
+++ b/Win32FileDialog.st Wed Feb 27 12:34:59 2013 +0000
@@ -20,7 +20,7 @@
category:'Interface-Tools-File'
!
-ByteArray subclass:#OpenFilenameStructure
+ByteArray variableByteSubclass:#OpenFilenameStructure
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -49,7 +49,6 @@
"
! !
-
!Win32FileDialog class methodsFor:'initialization'!
initialize
@@ -65,14 +64,12 @@
InitialDirectory := Directory pathName: Disk drivePathName.
! !
-
!Win32FileDialog class methodsFor:'instance creation'!
new
^ self basicNew initialize
! !
-
!Win32FileDialog class methodsFor:'accessing'!
getInitialDirectory
@@ -87,7 +84,6 @@
"Modified: / 26-10-2010 / 18:47:48 / cg"
! !
-
!Win32FileDialog class methodsFor:'constants'!
commonDialogConstantAt:aString
@@ -204,7 +200,6 @@
"Modified: / 26-10-2010 / 18:47:57 / cg"
! !
-
!Win32FileDialog class methodsFor:'examples'!
openFile
@@ -223,7 +218,6 @@
"
! !
-
!Win32FileDialog class methodsFor:'filters'!
filterPatternDescription:filterPattern
@@ -283,7 +277,6 @@
"Modified: / 26-10-2010 / 18:48:28 / cg"
! !
-
!Win32FileDialog class methodsFor:'opening'!
fileDialogFor:ownerWindow save:isSaveDialog
@@ -315,7 +308,6 @@
^ filePath
! !
-
!Win32FileDialog methodsFor:'accessing'!
addAllFilesFilter
@@ -580,7 +572,6 @@
"Modified: / 26-10-2010 / 18:47:41 / cg"
! !
-
!Win32FileDialog methodsFor:'dapas'!
dapasOpenFile
@@ -641,7 +632,6 @@
"Modified: / 26-10-2010 / 18:47:14 / cg"
! !
-
!Win32FileDialog methodsFor:'initialization & release'!
cleanUp
@@ -682,7 +672,6 @@
"Modified: / 27-10-2010 / 10:56:21 / cg"
! !
-
!Win32FileDialog methodsFor:'opening'!
asynchronousOpen
@@ -879,7 +868,6 @@
"Modified: / 23-01-2011 / 10:59:20 / cg"
! !
-
!Win32FileDialog methodsFor:'private'!
fillStruct
@@ -925,7 +913,6 @@
"Modified: / 26-10-2010 / 18:46:45 / cg"
! !
-
!Win32FileDialog::OpenFilenameStructure class methodsFor:'accessing'!
sizeInBytes
@@ -933,7 +920,6 @@
^ 76
! !
-
!Win32FileDialog::OpenFilenameStructure class methodsFor:'instance creation'!
new
@@ -941,7 +927,6 @@
^ super new: self sizeInBytes
! !
-
!Win32FileDialog::OpenFilenameStructure methodsFor:'accessing'!
flags
@@ -1189,7 +1174,6 @@
^ self class sizeInBytes
! !
-
!Win32FileDialog::OpenFilenameStructure methodsFor:'printing'!
printOn: aStream
@@ -1217,7 +1201,6 @@
aStream nextPutAll:'nMaxFileTitle: ', self nMaxFileTitle printString; cr.
! !
-
!Win32FileDialog class methodsFor:'documentation'!
version
@@ -1228,6 +1211,11 @@
^ '$Header: /cvs/stx/stx/libtool/Win32FileDialog.st,v 1.13 2012-10-29 11:41:53 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Win32FileDialog.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
--- a/WorkspaceApplication.st Tue Feb 26 12:38:54 2013 +0000
+++ b/WorkspaceApplication.st Wed Feb 27 12:34:59 2013 +0000
@@ -48,7 +48,6 @@
"
! !
-
!WorkspaceApplication class methodsFor:'defaults'!
defaultEditToolbarVisible
@@ -101,7 +100,6 @@
^ '/workspace'
! !
-
!WorkspaceApplication class methodsFor:'help specs'!
flyByHelpSpec
@@ -146,7 +144,6 @@
"Modified: / 08-07-2011 / 08:29:51 / cg"
! !
-
!WorkspaceApplication class methodsFor:'interface specs'!
manageSnipletsDialogSpec
@@ -522,7 +519,6 @@
)
! !
-
!WorkspaceApplication class methodsFor:'menu specs'!
bufferAddMenuSlice
@@ -1663,7 +1659,6 @@
"Modified: / 12-09-2012 / 12:18:40 / cg"
! !
-
!WorkspaceApplication class methodsFor:'private'!
createWorkspaceView
@@ -1674,7 +1669,6 @@
"Modified: / 26-07-2011 / 10:28:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!WorkspaceApplication class methodsFor:'special startup'!
openEvaluationWorkspace
@@ -1982,7 +1976,6 @@
"
! !
-
!WorkspaceApplication class methodsFor:'startup'!
open
@@ -2004,7 +1997,6 @@
"Modified (comment): / 05-07-2011 / 15:23:53 / cg"
! !
-
!WorkspaceApplication methodsFor:'aspects'!
autoDefineVariables
@@ -2185,7 +2177,6 @@
"Modified: / 11-06-2011 / 00:06:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!WorkspaceApplication methodsFor:'aspects-queries'!
anyWorkspaceVariableIsDefined
@@ -2238,7 +2229,6 @@
^ self selectedWorkspacesTextView notNil
! !
-
!WorkspaceApplication methodsFor:'autofetch selection'!
autoFetchSelection
@@ -2336,7 +2326,6 @@
"Created: / 16-11-2010 / 14:44:05 / cg"
! !
-
!WorkspaceApplication methodsFor:'defaults'!
defaultEvaluatorSyntax
@@ -2388,7 +2377,6 @@
^ true
! !
-
!WorkspaceApplication methodsFor:'drag & drop'!
droppedFile:aFilename in:aComponent
@@ -2399,7 +2387,6 @@
to:aFilename asFilename baseName
! !
-
!WorkspaceApplication methodsFor:'help'!
flyByHelpSpec
@@ -2433,7 +2420,6 @@
"Created: / 06-07-2011 / 16:32:13 / cg"
! !
-
!WorkspaceApplication methodsFor:'initialization & release'!
closeRequest
@@ -2489,7 +2475,6 @@
"Created: / 22-01-2011 / 12:10:01 / cg"
! !
-
!WorkspaceApplication methodsFor:'menu-actions'!
askForFilterBlock:message template:template rememberIn:nameOfClassVar
@@ -3059,7 +3044,6 @@
self selectedWorkspacesTextView timeIt
! !
-
!WorkspaceApplication methodsFor:'menu-actions-adding'!
addBookmark
@@ -3495,7 +3479,6 @@
"Created: / 21-06-2011 / 08:56:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!WorkspaceApplication methodsFor:'menu-actions-editing'!
babelFishTranslate:fromToModeString
@@ -3672,7 +3655,6 @@
self selectedWorkspacesTextView undentBy4.
! !
-
!WorkspaceApplication methodsFor:'menu-dynamic'!
bookmarkMenu
@@ -3803,7 +3785,6 @@
^ self recentDoItsMenuFor:#'pasteAndExecute:'
! !
-
!WorkspaceApplication methodsFor:'private'!
askIfAnyModified:question yesButton:yesButtonText
@@ -4060,7 +4041,6 @@
! !
-
!WorkspaceApplication methodsFor:'user actions'!
infoVisibilityChanged
@@ -4085,7 +4065,6 @@
"Created: / 14-07-2007 / 16:45:31 / cg"
! !
-
!WorkspaceApplication class methodsFor:'documentation'!
version
@@ -4096,6 +4075,11 @@
^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.236 2013-01-27 01:50:59 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §'
! !
--- a/XTermView.st Tue Feb 26 12:38:54 2013 +0000
+++ b/XTermView.st Wed Feb 27 12:34:59 2013 +0000
@@ -34,7 +34,6 @@
"
! !
-
!XTermView class methodsFor:'class initialization'!
initialize
@@ -54,7 +53,6 @@
"Created: / 09-12-2010 / 23:15:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView class methodsFor:'defaults'!
defaultFont
@@ -73,7 +71,6 @@
"Created: / 25-11-2010 / 12:21:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView class methodsFor:'queries'!
isAvailable
@@ -83,7 +80,6 @@
"Created: / 09-12-2010 / 23:21:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView methodsFor:'accessing'!
workingDirectory: aStringOrFilename
@@ -94,7 +90,6 @@
"Created: / 25-11-2010 / 12:32:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView methodsFor:'event handling'!
clientUnplugged: clientInitiated
@@ -124,7 +119,6 @@
"Created: / 06-06-2011 / 10:04:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView methodsFor:'initialization & release'!
destroy
@@ -150,7 +144,6 @@
"Created: / 25-11-2010 / 12:34:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView methodsFor:'menu'!
doClear
@@ -198,7 +191,6 @@
"Modified: / 03-04-2012 / 10:34:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView methodsFor:'mimicry'!
defaultFileNameForFileDialog
@@ -266,7 +258,6 @@
"Created: / 25-11-2010 / 12:38:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView methodsFor:'private'!
xcolorNameFor: aColor
@@ -309,7 +300,6 @@
"Modified: / 09-12-2010 / 23:16:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView methodsFor:'queries'!
preferredExtent
@@ -334,7 +324,6 @@
"Created: / 25-11-2010 / 12:51:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView methodsFor:'realization'!
postRealize
@@ -360,7 +349,6 @@
"Modified: / 02-06-2011 / 23:27:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView methodsFor:'testing'!
isTextView
@@ -370,13 +358,17 @@
"Created: / 13-09-2011 / 11:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!XTermView class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/XTermView.st,v 1.3 2012-10-01 10:46:37 stefan Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '§Id: XTermView.st 7802 2011-07-05 18:33:36Z vranyj1 §'
! !
--- a/abbrev.stc Tue Feb 26 12:38:54 2013 +0000
+++ b/abbrev.stc Wed Feb 27 12:34:59 2013 +0000
@@ -219,3 +219,5 @@
FileBrowserV3 FileBrowserV3 stx:libtool 'Interface-Tools-File' 3
Tools::ChangeSetDiffInfo Tools__ChangeSetDiffInfo stx:libtool 'Interface-Diff' 0
PerforceSourceCodeManagerUtilities PerforceSourceCodeManagerUtilities stx:libtool 'System-SourceCodeManagement' 0
+Tools::LintRuleEditDialog Tools__LintRuleEditDialog stx:libtool 'Interface-Lint' 1
+Tools::LintRuleSettingsApplication Tools__LintRuleSettingsApplication stx:libtool 'Interface-Lint' 1
--- a/bc.mak Tue Feb 26 12:38:54 2013 +0000
+++ b/bc.mak Wed Feb 27 12:34:59 2013 +0000
@@ -37,7 +37,7 @@
-LOCALINCLUDES= -I$(INCLUDE_TOP)\stx\libbasic -I$(INCLUDE_TOP)\stx\goodies\refactoryBrowser\parser -I$(INCLUDE_TOP)\stx\libwidg -I$(INCLUDE_TOP)\stx\goodies\sunit -I$(INCLUDE_TOP)\stx\libview2 -I$(INCLUDE_TOP)\stx\libbasic2 -I$(INCLUDE_TOP)\stx\libview -I$(INCLUDE_TOP)\stx\libhtml -I$(INCLUDE_TOP)\stx\libcomp -I$(INCLUDE_TOP)\stx\libboss -I$(INCLUDE_TOP)\stx\libwidg2 -I$(INCLUDE_TOP)\stx\libbasic3 -I$(INCLUDE_TOP)\stx\libui
+LOCALINCLUDES= -I$(INCLUDE_TOP)\stx\libcomp -I$(INCLUDE_TOP)\stx\libwidg2 -I$(INCLUDE_TOP)\stx\libbasic3 -I$(INCLUDE_TOP)\stx\libhtml -I$(INCLUDE_TOP)\stx\libbasic2 -I$(INCLUDE_TOP)\stx\libboss -I$(INCLUDE_TOP)\stx\goodies\refactoryBrowser\parser -I$(INCLUDE_TOP)\stx\libbasic -I$(INCLUDE_TOP)\stx\libview2 -I$(INCLUDE_TOP)\stx\goodies\sunit -I$(INCLUDE_TOP)\stx\libwidg -I$(INCLUDE_TOP)\stx\libui -I$(INCLUDE_TOP)\stx\libview
LOCALDEFINES=
STCLOCALOPT=-package=$(PACKAGE) -I. $(LOCALINCLUDES) -headerDir=. $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) $(COMMONSYMBOLS) -varPrefix=$(LIBNAME)
@@ -54,21 +54,20 @@
# build all prerequisite packages for this package
prereq:
pushd ..\libbasic & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
- pushd ..\libdb\libodbc & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+ pushd ..\libcomp & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
pushd ..\libbasic2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
- pushd ..\libcomp & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+ pushd ..\libdb & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
pushd ..\libview & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
- pushd ..\libdb & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+ pushd ..\libdb\libsqlite & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+ pushd ..\libdb\libodbc & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+ pushd ..\libboss & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
pushd ..\libview2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
- pushd ..\libboss & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
- pushd ..\libdb\libsqlite & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+ pushd ..\libbasic3 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
pushd ..\goodies\sunit & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
pushd ..\libui & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
- pushd ..\libbasic3 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
pushd ..\libwidg & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+ pushd ..\libwidg2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
pushd ..\libhtml & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
- pushd ..\libwidg2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
- pushd ..\librun & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
@@ -147,6 +146,7 @@
$(OUTDIR)Tools__LintAnnotation.$(O) Tools__LintAnnotation.$(H): Tools__LintAnnotation.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__LintHighlighter.$(O) Tools__LintHighlighter.$(H): Tools__LintHighlighter.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__LintRuleDetail.$(O) Tools__LintRuleDetail.$(H): Tools__LintRuleDetail.st $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
+$(OUTDIR)Tools__LintRuleEditDialog.$(O) Tools__LintRuleEditDialog.$(H): Tools__LintRuleEditDialog.st $(INCLUDE_TOP)\stx\libview2\SimpleDialog.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__LintRuleSelectionDialog.$(O) Tools__LintRuleSelectionDialog.$(H): Tools__LintRuleSelectionDialog.st $(INCLUDE_TOP)\stx\libview2\SimpleDialog.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__MethodCategoryCache.$(O) Tools__MethodCategoryCache.$(H): Tools__MethodCategoryCache.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__MethodRewriter.$(O) Tools__MethodRewriter.$(H): Tools__MethodRewriter.st $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
@@ -191,7 +191,7 @@
$(OUTDIR)NewLauncher.$(O) NewLauncher.$(H): NewLauncher.st $(INCLUDE_TOP)\stx\libtool\AbstractLauncherApplication.$(H) $(INCLUDE_TOP)\stx\libview2\ToolApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)OrderedCollectionInspectorView.$(O) OrderedCollectionInspectorView.$(H): OrderedCollectionInspectorView.st $(INCLUDE_TOP)\stx\libtool\InspectorView.$(H) $(INCLUDE_TOP)\stx\libview\SimpleView.$(H) $(INCLUDE_TOP)\stx\libview\DisplaySurface.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsMedium.$(H) $(INCLUDE_TOP)\stx\libview\DeviceGraphicsContext.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsContext.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)SetInspectorView.$(O) SetInspectorView.$(H): SetInspectorView.st $(INCLUDE_TOP)\stx\libtool\InspectorView.$(H) $(INCLUDE_TOP)\stx\libview\SimpleView.$(H) $(INCLUDE_TOP)\stx\libview\DisplaySurface.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsMedium.$(H) $(INCLUDE_TOP)\stx\libview\DeviceGraphicsContext.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsContext.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
-$(OUTDIR)SettingsDialog.$(O) SettingsDialog.$(H): SettingsDialog.st $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libtool\AbstractSettingsApplication.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItemWithLabelAndIcon.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItemWithLabel.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItem.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalList.$(H) $(INCLUDE_TOP)\stx\libbasic2\List.$(H) $(INCLUDE_TOP)\stx\libbasic\OrderedCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\SequenceableCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\Collection.$(H) $(STCHDR)
+$(OUTDIR)SettingsDialog.$(O) SettingsDialog.$(H): SettingsDialog.st $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalList.$(H) $(INCLUDE_TOP)\stx\libbasic2\List.$(H) $(INCLUDE_TOP)\stx\libbasic\OrderedCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\SequenceableCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\Collection.$(H) $(INCLUDE_TOP)\stx\libtool\AbstractSettingsApplication.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItemWithLabelAndIcon.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItemWithLabel.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItem.$(H) $(STCHDR)
$(OUTDIR)SmalltalkCodeGeneratorTool.$(O) SmalltalkCodeGeneratorTool.$(H): SmalltalkCodeGeneratorTool.st $(INCLUDE_TOP)\stx\libtool\CodeGeneratorTool.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__BackgroundSourceProcessingService.$(O) Tools__BackgroundSourceProcessingService.$(H): Tools__BackgroundSourceProcessingService.st $(INCLUDE_TOP)\stx\libtool\Tools__CodeViewService.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__BreakpointService.$(O) Tools__BreakpointService.$(H): Tools__BreakpointService.st $(INCLUDE_TOP)\stx\libtool\Tools__CodeViewService.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
@@ -201,6 +201,7 @@
$(OUTDIR)Tools__CodeView2SettingsAppl.$(O) Tools__CodeView2SettingsAppl.$(H): Tools__CodeView2SettingsAppl.st $(INCLUDE_TOP)\stx\libtool\AbstractSettingsApplication.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__Diff2CodeView2.$(O) Tools__Diff2CodeView2.$(H): Tools__Diff2CodeView2.st $(INCLUDE_TOP)\stx\libtool\Tools__DiffCodeView2.$(H) $(INCLUDE_TOP)\stx\libwidg2\TwoColumnTextView.$(H) $(INCLUDE_TOP)\stx\libwidg2\SyncedMultiColumnTextView.$(H) $(INCLUDE_TOP)\stx\libview\SimpleView.$(H) $(INCLUDE_TOP)\stx\libview\DisplaySurface.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsMedium.$(H) $(INCLUDE_TOP)\stx\libview\DeviceGraphicsContext.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsContext.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__Diff3CodeView2.$(O) Tools__Diff3CodeView2.$(H): Tools__Diff3CodeView2.st $(INCLUDE_TOP)\stx\libtool\Tools__DiffCodeView2.$(H) $(INCLUDE_TOP)\stx\libwidg2\TwoColumnTextView.$(H) $(INCLUDE_TOP)\stx\libwidg2\SyncedMultiColumnTextView.$(H) $(INCLUDE_TOP)\stx\libview\SimpleView.$(H) $(INCLUDE_TOP)\stx\libview\DisplaySurface.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsMedium.$(H) $(INCLUDE_TOP)\stx\libview\DeviceGraphicsContext.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsContext.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
+$(OUTDIR)Tools__LintRuleSettingsApplication.$(O) Tools__LintRuleSettingsApplication.$(H): Tools__LintRuleSettingsApplication.st $(INCLUDE_TOP)\stx\libtool\AbstractSettingsApplication.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__LintService.$(O) Tools__LintService.$(H): Tools__LintService.st $(INCLUDE_TOP)\stx\libtool\Tools__CodeViewService.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__NavigatorCanvas.$(O) Tools__NavigatorCanvas.$(H): Tools__NavigatorCanvas.st $(INCLUDE_TOP)\stx\libtool\Tools__NavigatorModel.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__NewSystemBrowser.$(O) Tools__NewSystemBrowser.$(H): Tools__NewSystemBrowser.st $(INCLUDE_TOP)\stx\libtool\SystemBrowser.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
@@ -247,10 +248,19 @@
$(OUTDIR)Tools__ImplementingClassList.$(O) Tools__ImplementingClassList.$(H): Tools__ImplementingClassList.st $(INCLUDE_TOP)\stx\libtool\Tools__MethodList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__BrowserList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__NavigatorModel.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__ImplementingMethodList.$(O) Tools__ImplementingMethodList.$(H): Tools__ImplementingMethodList.st $(INCLUDE_TOP)\stx\libtool\Tools__MethodList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__BrowserList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__NavigatorModel.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__NamespaceFilter.$(O) Tools__NamespaceFilter.$(H): Tools__NamespaceFilter.st $(INCLUDE_TOP)\stx\libtool\Tools__NamespaceList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__BrowserList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__NavigatorModel.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
-$(OUTDIR)Tools__TestRunner2.$(O) Tools__TestRunner2.$(H): Tools__TestRunner2.st $(INCLUDE_TOP)\stx\libtool\Tools__AbstractTestRunner.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__ClassList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__BrowserList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__NavigatorModel.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItem.$(H) $(STCHDR)
+$(OUTDIR)Tools__TestRunner2.$(O) Tools__TestRunner2.$(H): Tools__TestRunner2.st $(INCLUDE_TOP)\stx\libtool\Tools__AbstractTestRunner.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItem.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__ClassList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__BrowserList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__NavigatorModel.$(H) $(STCHDR)
$(OUTDIR)Tools__HierarchicalChangeList.$(O) Tools__HierarchicalChangeList.$(H): Tools__HierarchicalChangeList.st $(INCLUDE_TOP)\stx\libtool\Tools__ChangeList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__BrowserListWithFilter.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__BrowserList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__NavigatorModel.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
$(OUTDIR)Tools__HierarchicalPackageFilterList.$(O) Tools__HierarchicalPackageFilterList.$(H): Tools__HierarchicalPackageFilterList.st $(INCLUDE_TOP)\stx\libtool\Tools__HierarchicalProjectList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__ProjectList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__BrowserList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__NavigatorModel.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItemWithLabel.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItem.$(H) $(STCHDR)
$(OUTDIR)Tools__InheritanceClassList.$(O) Tools__InheritanceClassList.$(H): Tools__InheritanceClassList.st $(INCLUDE_TOP)\stx\libtool\Tools__HierarchicalClassList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__ClassList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__BrowserList.$(H) $(INCLUDE_TOP)\stx\libtool\Tools__NavigatorModel.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
-$(OUTDIR)extensions.$(O): extensions.st $(INCLUDE_TOP)\stx\libcomp\Breakpoint.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libcomp\BreakpointDescription.$(H) $(INCLUDE_TOP)\stx\libbasic\ByteArray.$(H) $(INCLUDE_TOP)\stx\libbasic\UninterpretedBytes.$(H) $(INCLUDE_TOP)\stx\libbasic\ArrayedCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\SequenceableCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\Collection.$(H) $(INCLUDE_TOP)\stx\libbasic3\Change.$(H) $(INCLUDE_TOP)\stx\libbasic3\ChangeSet.$(H) $(INCLUDE_TOP)\stx\libbasic\OrderedCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\Character.$(H) $(INCLUDE_TOP)\stx\libbasic\Magnitude.$(H) $(INCLUDE_TOP)\stx\libbasic\CharacterArray.$(H) $(INCLUDE_TOP)\stx\libview\Color.$(H) $(INCLUDE_TOP)\stx\libbasic3\CompositeChange.$(H) $(INCLUDE_TOP)\stx\libbasic\Date.$(H) $(INCLUDE_TOP)\stx\libbasic\Dictionary.$(H) $(INCLUDE_TOP)\stx\libbasic\Set.$(H) $(INCLUDE_TOP)\stx\libwidg\EditTextView.$(H) $(INCLUDE_TOP)\stx\libwidg\TextView.$(H) $(INCLUDE_TOP)\stx\libwidg\ListView.$(H) $(INCLUDE_TOP)\stx\libview\View.$(H) $(INCLUDE_TOP)\stx\libview\SimpleView.$(H) $(INCLUDE_TOP)\stx\libview\DisplaySurface.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsMedium.$(H) $(INCLUDE_TOP)\stx\libview\DeviceGraphicsContext.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsContext.$(H) $(INCLUDE_TOP)\stx\libbasic\ExecutableFunction.$(H) $(INCLUDE_TOP)\stx\libview\Form.$(H) $(INCLUDE_TOP)\stx\libview\Image.$(H) $(INCLUDE_TOP)\stx\libbasic\Integer.$(H) $(INCLUDE_TOP)\stx\libbasic\Number.$(H) $(INCLUDE_TOP)\stx\libbasic\ArithmeticValue.$(H) $(INCLUDE_TOP)\stx\libwidg\MenuView.$(H) $(INCLUDE_TOP)\stx\libwidg\SelectionInListView.$(H) $(INCLUDE_TOP)\stx\libbasic\Method.$(H) $(INCLUDE_TOP)\stx\libbasic\CompiledCode.$(H) $(INCLUDE_TOP)\stx\libbasic\MethodDictionary.$(H) $(INCLUDE_TOP)\stx\libbasic\KeyedCollection.$(H) $(INCLUDE_TOP)\stx\libwidg\PopUpMenu.$(H) $(INCLUDE_TOP)\stx\libview\PopUpView.$(H) $(INCLUDE_TOP)\stx\libview\TopView.$(H) $(INCLUDE_TOP)\stx\libbasic3\ProfileTree.$(H) $(INCLUDE_TOP)\stx\libbasic2\RunArray.$(H) $(INCLUDE_TOP)\stx\libwidg2\SelectionInListModelView.$(H) $(INCLUDE_TOP)\stx\libwidg2\ListModelView.$(H) $(INCLUDE_TOP)\stx\libbasic\StringCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\Symbol.$(H) $(INCLUDE_TOP)\stx\libbasic\String.$(H) $(INCLUDE_TOP)\stx\libbasic2\Text.$(H) $(INCLUDE_TOP)\stx\libbasic\Timestamp.$(H) $(INCLUDE_TOP)\stx\libbasic\AbstractTime.$(H) $(INCLUDE_TOP)\stx\libbasic\UserPreferences.$(H) $(INCLUDE_TOP)\stx\libbasic\IdentityDictionary.$(H) $(INCLUDE_TOP)\stx\libcomp\AbstractSyntaxHighlighter.$(H) $(INCLUDE_TOP)\stx\libcomp\Parser.$(H) $(INCLUDE_TOP)\stx\libcomp\Scanner.$(H) $(INCLUDE_TOP)\stx\libwidg\GenericToolbarIconLibrary.$(H) $(INCLUDE_TOP)\stx\libbasic\NameSpace.$(H) $(INCLUDE_TOP)\stx\libbasic\Block.$(H) $(INCLUDE_TOP)\stx\libbasic\LimitedPrecisionReal.$(H) $(INCLUDE_TOP)\stx\libbasic\UndefinedObject.$(H) $(INCLUDE_TOP)\stx\libbasic\Behavior.$(H) $(INCLUDE_TOP)\stx\libbasic2\Iterator.$(H) $(STCHDR)
+$(OUTDIR)extensions.$(O): extensions.st $(INCLUDE_TOP)\stx\libcomp\Breakpoint.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libcomp\BreakpointDescription.$(H) $(INCLUDE_TOP)\stx\libbasic\ByteArray.$(H) $(INCLUDE_TOP)\stx\libbasic\UninterpretedBytes.$(H) $(INCLUDE_TOP)\stx\libbasic\ArrayedCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\SequenceableCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\Collection.$(H) $(INCLUDE_TOP)\stx\libbasic3\Change.$(H) $(INCLUDE_TOP)\stx\libbasic3\ChangeSet.$(H) $(INCLUDE_TOP)\stx\libbasic\OrderedCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\Character.$(H) $(INCLUDE_TOP)\stx\libbasic\Magnitude.$(H) $(INCLUDE_TOP)\stx\libbasic\CharacterArray.$(H) $(INCLUDE_TOP)\stx\libview\Color.$(H) $(INCLUDE_TOP)\stx\libbasic3\CompositeChange.$(H) $(INCLUDE_TOP)\stx\libbasic\Date.$(H) $(INCLUDE_TOP)\stx\libbasic\Dictionary.$(H) $(INCLUDE_TOP)\stx\libbasic\Set.$(H) $(INCLUDE_TOP)\stx\libwidg\EditTextView.$(H) $(INCLUDE_TOP)\stx\libwidg\TextView.$(H) $(INCLUDE_TOP)\stx\libwidg\ListView.$(H) $(INCLUDE_TOP)\stx\libview\View.$(H) $(INCLUDE_TOP)\stx\libview\SimpleView.$(H) $(INCLUDE_TOP)\stx\libview\DisplaySurface.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsMedium.$(H) $(INCLUDE_TOP)\stx\libview\DeviceGraphicsContext.$(H) $(INCLUDE_TOP)\stx\libview\GraphicsContext.$(H) $(INCLUDE_TOP)\stx\libbasic\ExecutableFunction.$(H) $(INCLUDE_TOP)\stx\libview\Form.$(H) $(INCLUDE_TOP)\stx\libview\Image.$(H) $(INCLUDE_TOP)\stx\libbasic\Integer.$(H) $(INCLUDE_TOP)\stx\libbasic\Number.$(H) $(INCLUDE_TOP)\stx\libbasic\ArithmeticValue.$(H) $(INCLUDE_TOP)\stx\libwidg\MenuView.$(H) $(INCLUDE_TOP)\stx\libwidg\SelectionInListView.$(H) $(INCLUDE_TOP)\stx\libbasic\Method.$(H) $(INCLUDE_TOP)\stx\libbasic\CompiledCode.$(H) $(INCLUDE_TOP)\stx\libbasic\MethodDictionary.$(H) $(INCLUDE_TOP)\stx\libbasic\KeyedCollection.$(H) $(INCLUDE_TOP)\stx\libwidg\PopUpMenu.$(H) $(INCLUDE_TOP)\stx\libview\PopUpView.$(H) $(INCLUDE_TOP)\stx\libview\TopView.$(H) $(INCLUDE_TOP)\stx\libbasic3\ProfileTree.$(H) $(INCLUDE_TOP)\stx\libbasic2\RunArray.$(H) $(INCLUDE_TOP)\stx\libwidg2\SelectionInListModelView.$(H) $(INCLUDE_TOP)\stx\libwidg2\ListModelView.$(H) $(INCLUDE_TOP)\stx\libbasic\StringCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\Symbol.$(H) $(INCLUDE_TOP)\stx\libbasic\String.$(H) $(INCLUDE_TOP)\stx\libbasic2\Text.$(H) $(INCLUDE_TOP)\stx\libbasic\Timestamp.$(H) $(INCLUDE_TOP)\stx\libbasic\AbstractTime.$(H) $(INCLUDE_TOP)\stx\libbasic\UserPreferences.$(H) $(INCLUDE_TOP)\stx\libbasic\IdentityDictionary.$(H) $(INCLUDE_TOP)\stx\libcomp\AbstractSyntaxHighlighter.$(H) $(INCLUDE_TOP)\stx\libcomp\Parser.$(H) $(INCLUDE_TOP)\stx\libcomp\Scanner.$(H) $(INCLUDE_TOP)\stx\libwidg\GenericToolbarIconLibrary.$(H) $(INCLUDE_TOP)\stx\libbasic\NameSpace.$(H) $(INCLUDE_TOP)\stx\libbasic\Block.$(H) $(INCLUDE_TOP)\stx\libbasic\LimitedPrecisionReal.$(H) $(INCLUDE_TOP)\stx\libbasic\UndefinedObject.$(H) $(INCLUDE_TOP)\stx\libbasic\Behavior.$(H) $(INCLUDE_TOP)\stx\libbasic2\Iterator.$(H) $(INCLUDE_TOP)\stx\libbasic\Class.$(H) $(INCLUDE_TOP)\stx\libbasic\ClassDescription.$(H) $(STCHDR)
# ENDMAKEDEPEND --- do not remove this line
+
+# **Must be at end**
+
+# Enforce recompilation of package definition class if Mercurial working
+# copy state changes. Together with --guessVersion it ensures that package
+# definition class always contains correct binary revision string.
+!IFDEF HGROOT
+$(OUTDIR)stx_libtool.$(O): $(HGROOT)\.hg\dirstate
+!ENDIF
--- a/extensions.st Tue Feb 26 12:38:54 2013 +0000
+++ b/extensions.st Wed Feb 27 12:34:59 2013 +0000
@@ -9,6 +9,7 @@
"Created: / 25-07-2010 / 08:57:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (format): / 04-10-2011 / 19:47:20 / cg"
! !
+
!AbstractSyntaxHighlighter class methodsFor:'api highlighting'!
formatMethod:aString in:aClass using:preferencesOrNil elementsInto: elements
@@ -17,6 +18,7 @@
"Created: / 25-07-2010 / 08:58:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!ArrayedCollection methodsFor:'inspecting'!
inspector2TabForHexDump
@@ -84,6 +86,7 @@
"Created: / 13-02-2012 / 15:08:42 / cg"
! !
+
!Behavior methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -96,6 +99,7 @@
ifTrue:[ '-nonMeta' -> [ self theNonMetaclass ] ]);
yourself
! !
+
!Behavior methodsFor:'inspecting'!
inspectorValueStringInListFor:anInspector
@@ -108,6 +112,7 @@
].
^ super inspectorValueStringInListFor:anInspector
! !
+
!Block methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -129,6 +134,7 @@
"Created: / 15-11-2011 / 14:24:10 / cg"
! !
+
!Breakpoint methodsFor:'accessing'!
icon
@@ -137,6 +143,7 @@
"Created: / 11-07-2011 / 18:21:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!BreakpointDescription methodsFor:'accessing'!
icon
@@ -160,6 +167,7 @@
"Created: / 28-06-2011 / 08:29:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 27-01-2012 / 13:46:23 / cg"
! !
+
!ByteArray methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -188,11 +196,13 @@
"Created: / 18-09-2006 / 21:29:59 / cg"
"Modified: / 06-10-2006 / 13:57:20 / cg"
! !
+
!Change methodsFor:'private'!
flattenOnto: aCollection
aCollection add: self
! !
+
!Change methodsFor:'private'!
flattenedChanges
@@ -201,6 +211,7 @@
self flattenOnto: changes.
^changes
! !
+
!Change methodsFor:'accessing'!
removed
@@ -209,6 +220,7 @@
"Created: / 24-10-2009 / 21:10:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!Change methodsFor:'accessing'!
removed: aBoolean
@@ -217,6 +229,7 @@
"Created: / 24-10-2009 / 21:11:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!ChangeSet methodsFor:'utilities'!
condenseChangesForRemoved
@@ -238,12 +251,14 @@
"Created: / 05-11-2001 / 14:21:17 / cg"
"Modified: / 12-10-2006 / 16:51:27 / cg"
! !
+
!ChangeSet methodsFor:'private'!
flattenOnto: aCollection
self do:[:change|change flattenOnto: aCollection]
! !
+
!ChangeSet methodsFor:'private'!
flattenedChanges
@@ -252,6 +267,7 @@
self flattenOnto: changes.
^changes
! !
+
!ChangeSet methodsFor:'inspecting'!
inspector2TabBrowser
@@ -268,6 +284,7 @@
"Modified: / 06-08-2011 / 21:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 13-09-2011 / 11:55:53 / cg"
! !
+
!ChangeSet methodsFor:'inspecting'!
inspector2Tabs
@@ -275,6 +292,7 @@
"Created: / 05-07-2011 / 13:40:19 / cg"
! !
+
!Character methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -294,6 +312,7 @@
"Created: / 22-10-2006 / 03:52:20 / cg"
! !
+
!Character methodsFor:'inspecting'!
inspectorValueStringInListFor:anInspector
@@ -304,6 +323,7 @@
].
^ self storeString,(' "%1"' bindWith:asciivalue)
! !
+
!CharacterArray methodsFor:'inspecting'!
inspector2TabBytes
@@ -318,6 +338,7 @@
"Created: / 20-07-2011 / 16:36:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 21-08-2011 / 07:32:57 / cg"
! !
+
!CharacterArray methodsFor:'inspecting'!
inspector2TabHTML
@@ -330,6 +351,7 @@
"Created: / 17-02-2008 / 10:10:50 / janfrog"
"Created: / 07-11-2011 / 12:35:15 / cg"
! !
+
!CharacterArray methodsFor:'inspecting'!
inspector2TabText
@@ -342,6 +364,7 @@
"Created: / 17-02-2008 / 10:10:50 / janfrog"
"Modified: / 21-08-2011 / 08:02:57 / cg"
! !
+
!CharacterArray methodsFor:'inspecting'!
inspector2Tabs
@@ -354,6 +377,7 @@
"Created: / 05-07-2011 / 13:40:27 / cg"
! !
+
!CharacterArray methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -378,6 +402,7 @@
"Created: / 22-10-2006 / 03:52:20 / cg"
! !
+
!CharacterArray methodsFor:'inspecting'!
inspectorValueStringInListFor:anInspector
@@ -385,6 +410,7 @@
^ self basicStoreString contractTo:30.
! !
+
!Class methodsFor:'misc'!
inspectorClass
@@ -396,6 +422,7 @@
].
^ super inspectorClass
! !
+
!Collection methodsFor:'inspecting'!
inspectorValueStringInListFor:anInspector
@@ -408,6 +435,7 @@
].
^ (super inspectorValueStringInListFor:anInspector),' size=',sz printString
! !
+
!Color methodsFor:'inspecting'!
inspectorClass
@@ -418,6 +446,7 @@
"Modified: 23.4.1996 / 13:39:50 / cg"
! !
+
!Color methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -433,6 +462,7 @@
Color red inspect
"
! !
+
!Color methodsFor:'inspecting'!
inspectorValueStringInListFor:anInspector
@@ -440,30 +470,35 @@
^ self htmlPrintString
! !
+
!CompositeChange methodsFor:'utilities'!
condenseChangesForRemoved
self changes condenseChangesForRemoved
! !
+
!CompositeChange methodsFor:'private'!
flattenOnto: aCollection
changes do:[:change|change flattenOnto: aCollection]
! !
+
!CompositeChange methodsFor:'accessing'!
removed
^changes allSatisfy: [:e|e removed]
! !
+
!CompositeChange methodsFor:'accessing'!
removed: aBoolean
changes do:[:e|e removed: aBoolean]
! !
+
!Date methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -484,6 +519,7 @@
"Created: / 20-01-2011 / 12:19:05 / cg"
! !
+
!Dictionary methodsFor:'inspecting'!
inspector2TabLabel
@@ -491,6 +527,7 @@
"Created: / 14-07-2011 / 11:57:18 / cg"
! !
+
!Dictionary methodsFor:'inspecting'!
inspectorClass
@@ -499,6 +536,7 @@
^ DictionaryInspectorView
! !
+
!EditTextView methodsFor:'accessing-dimensions'!
absoluteXOfPosition:positionInText
@@ -516,6 +554,7 @@
"Created: / 16-02-2010 / 10:05:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!EditTextView methodsFor:'accessing-dimensions'!
absoluteYOfCursor
@@ -534,6 +573,7 @@
"Created: / 27-05-2005 / 07:45:53 / janfrog"
"Modified: / 27-05-2005 / 23:03:40 / janfrog"
! !
+
!EditTextView methodsFor:'accessing-dimensions'!
xOfPosition: positionInText
@@ -547,6 +587,7 @@
"Created: / 16-02-2010 / 10:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!EditTextView methodsFor:'accessing-dimensions'!
yOfCursor
@@ -555,6 +596,7 @@
"Created: / 27-05-2005 / 07:43:41 / janfrog"
! !
+
!EditTextView methodsFor:'accessing-dimensions'!
yOfPosition: positionInText
@@ -565,6 +607,7 @@
"Created: / 16-02-2010 / 10:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!ExecutableFunction methodsFor:'printing & storing'!
printStringForBrowserWithSelector:selector
@@ -572,6 +615,7 @@
^ self printStringForBrowserWithSelector:selector inClass:nil
! !
+
!Form methodsFor:'inspecting'!
inspectorClass
@@ -580,6 +624,7 @@
^ ImageInspectorView
! !
+
!GenericToolbarIconLibrary class methodsFor:'image specs-22x22'!
bookmarks22x22
@@ -609,6 +654,7 @@
"Modified: / 05-05-2011 / 12:45:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!GenericToolbarIconLibrary class methodsFor:'image specs-16x16'!
bug16x16Icon
@@ -633,6 +679,7 @@
?_????????????7=W5=_W5?=O/7???????>L?PLC@0LC?_????????7=/4S[7S 8TY/=?VC?????L#L.>JI3I+A%H#[?????GA3_]U*/M3_;BPRLD_????7=
?_B@M>DE-04>?U/??????2_=HEXYQ7:R<Q_???????4>G2$%Q9QEL?5_??????????<=?\;M??????????????????=-H????????0@a') ; colorMapFromArray:#[205 205 205 227 35 35 106 106 106 98 98 98 135 135 135 163 34 34 101 5 5 124 124 124 48 2 2 227 11 11 173 173 173 218 54 54 241 241 241 235 19 19 225 225 225 219 18 18 245 58 58 214 214 214 249 46 46 90 90 90 254 61 61 36 36 36 176 176 176 233 233 233 114 114 114 255 78 78 212 33 33 230 57 57 61 61 61 94 94 94 76 76 76 19 19 19 255 57 57 161 161 161 83 83 83 217 217 217 249 249 249 255 65 65 139 2 2 27 27 27 169 169 169 253 53 53 210 28 28 251 251 251 154 154 154 117 117 117 195 1 1 245 245 245 145 145 145 218 5 5 230 230 230 69 2 2 181 181 181 11 11 11 141 141 141 249 61 61 205 21 21 165 165 165 157 157 157 241 28 28 223 223 223 109 109 109 2 2 2 245 45 45 146 0 0 69 69 69 137 137 137 140 40 40 188 1 1 206 24 24 219 33 33 255 76 76 249 49 49 249 56 56 236 236 236 121 121 121 248 53 53 171 1 1 111 40 40 237 41 41 178 21 21 205 16 16 129 129 129 163 1 1 155 18 18 85 4 4 243 68 68 73 73 73 45 45 45 202 51 51 241 40 40 86 86 86 114 1 1 210 4 4 246 41 41 148 148 148 189 189 189 209 209 209 210 17 17 158 28 28 213 5 5 205 1 1 53 53 53 217 9 9 69 40 40 187 10 10 255 74 74 218 28 28 146 11 11 65 65 65 232 37 37 101 101 101 196 26 26 245 53 53 188 26 26 213 10 10 184 184 184 206 5 5 249 65 65 172 21 21 206 34 34 195 195 195 237 32 32 131 12 12 233 29 29 179 36 36 241 37 37 139 13 13 245 49 49 180 1 1 168 37 37 198 198 198 202 202 202 228 21 21 206 10 10 206 29 29 229 30 30 255 80 80 188 20 20 245 37 37 57 57 57 252 50 50 87 42 42 172 10 10 209 13 13 155 4 4 164 11 11 242 44 44 255 70 70 225 25 25 222 14 14 237 24 24 240 49 49 205 13 13 202 44 44 201 0 0 225 17 17 186 42 42 255 72 72 122 1 1 40 40 40 157 10 10 209 8 8 222 8 8 195 41 41 223 21 21 180 11 11 255 68 68 162 28 28 194 11 11 232 25 25 131 1 1 241 32 32 246 246 246 49 49 49 224 44 44 208 2 2 227 227 227 239 239 239 239 46 46 162 20 20 245 33 33 219 219 219 238 29 29 237 37 37 171 29 29 36 46 46 250 68 68 147 16 16 182 26 26 187 187 187 24 1 1 185 32 32 229 24 24 232 33 33 150 150 150 122 12 12 229 17 17 204 27 27 242 52 52 213 2 2 200 15 15 191 191 191 217 43 43 217 12 12 115 10 10 140 16 16 200 28 28 202 6 6 215 13 13 182 41 41 57 46 46 40 46 46 233 40 40 252 70 70 173 40 40 226 28 28 46 54 54 202 22 22 203 18 18 245 72 72 191 17 17 200 37 37 10 0 0 50 52 52 252 74 74 252 72 72 247 38 38 160 40 40 231 14 14 252 68 68 200 10 10 15 15 15 211 47 47 254 254 254 253 76 76 23 23 23 237 69 69 7 7 7 144 7 7 196 8 7 32 32 32 59 59 59 90 93 93 67 67 67 70 28 28 50 56 56 232 15 16 208 4 4 237 35 35 220 12 11 232 20 20 223 62 62 0 0 0 255 255 255 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@L@@0@C8AO C?0O<C?>G?0??#?>C?0_?@O@@L@b') ; yourself); yourself]
! !
+
!GenericToolbarIconLibrary class methodsFor:'image specs-24x24'!
bug24x24Icon
@@ -661,6 +708,7 @@
<Q_???????????4XO!!?DJRU*Q9P%QSL5?U<-?????????3T5???=F$ EB@?L37?G3;=????????????????O_7D3,7=??????????????????????????<(
[RO?????????????????????????????????????????????') ; colorMapFromArray:#[205 205 205 227 35 35 106 106 106 98 98 98 135 135 135 163 34 34 101 5 5 124 124 124 48 2 2 227 11 11 173 173 173 218 54 54 241 241 241 235 19 19 225 225 225 219 18 18 245 58 58 214 214 214 249 46 46 90 90 90 254 61 61 36 36 36 176 176 176 233 233 233 114 114 114 255 78 78 212 33 33 230 57 57 61 61 61 94 94 94 76 76 76 19 19 19 255 57 57 161 161 161 83 83 83 217 217 217 249 249 249 255 65 65 139 2 2 27 27 27 169 169 169 253 53 53 210 28 28 251 251 251 154 154 154 117 117 117 195 1 1 245 245 245 145 145 145 218 5 5 230 230 230 69 2 2 181 181 181 11 11 11 141 141 141 249 61 61 205 21 21 165 165 165 157 157 157 241 28 28 223 223 223 109 109 109 2 2 2 245 45 45 146 0 0 69 69 69 137 137 137 140 40 40 188 1 1 206 24 24 219 33 33 255 76 76 249 49 49 249 56 56 236 236 236 121 121 121 248 53 53 171 1 1 111 40 40 237 41 41 178 21 21 205 16 16 129 129 129 163 1 1 155 18 18 85 4 4 243 68 68 73 73 73 45 45 45 202 51 51 241 40 40 86 86 86 114 1 1 210 4 4 246 41 41 148 148 148 189 189 189 209 209 209 210 17 17 158 28 28 213 5 5 205 1 1 53 53 53 217 9 9 69 40 40 187 10 10 255 74 74 218 28 28 146 11 11 65 65 65 232 37 37 101 101 101 196 26 26 245 53 53 188 26 26 213 10 10 184 184 184 206 5 5 249 65 65 172 21 21 206 34 34 195 195 195 237 32 32 131 12 12 233 29 29 179 36 36 241 37 37 139 13 13 245 49 49 180 1 1 168 37 37 198 198 198 202 202 202 228 21 21 206 10 10 206 29 29 229 30 30 255 80 80 188 20 20 245 37 37 57 57 57 252 50 50 87 42 42 172 10 10 209 13 13 155 4 4 164 11 11 242 44 44 255 70 70 225 25 25 222 14 14 237 24 24 240 49 49 205 13 13 202 44 44 201 0 0 225 17 17 186 42 42 255 72 72 122 1 1 40 40 40 157 10 10 209 8 8 222 8 8 195 41 41 223 21 21 180 11 11 255 68 68 162 28 28 194 11 11 232 25 25 131 1 1 241 32 32 246 246 246 49 49 49 224 44 44 208 2 2 227 227 227 239 239 239 239 46 46 162 20 20 245 33 33 219 219 219 238 29 29 237 37 37 171 29 29 36 46 46 250 68 68 147 16 16 182 26 26 187 187 187 24 1 1 185 32 32 229 24 24 232 33 33 150 150 150 122 12 12 229 17 17 204 27 27 242 52 52 213 2 2 200 15 15 191 191 191 217 43 43 217 12 12 115 10 10 140 16 16 200 28 28 202 6 6 215 13 13 182 41 41 57 46 46 40 46 46 233 40 40 252 70 70 173 40 40 226 28 28 46 54 54 202 22 22 203 18 18 245 72 72 191 17 17 200 37 37 10 0 0 50 52 52 252 74 74 252 72 72 247 38 38 160 40 40 231 14 14 252 68 68 200 10 10 15 15 15 211 47 47 254 254 254 253 76 76 23 23 23 237 69 69 7 7 7 144 7 7 196 8 7 32 32 32 59 59 59 90 93 93 67 67 67 70 28 28 50 56 56 232 15 16 208 4 4 237 35 35 220 12 11 232 20 20 223 62 62 0 0 0 255 255 255 255 255 255]; mask:((ImageMask new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@H@@HH@@FH@@FH@@CX@@G<@BO<HGO>8A??0@??@@??@G??<C??8@??@G??<G??<G??XA??0C??8CO>8@G8@@A0@@@@@') ; yourself); yourself]
! !
+
!GenericToolbarIconLibrary class methodsFor:'image specs-32x32'!
bug32x32Icon
@@ -712,6 +760,7 @@
yourself
]
! !
+
!GenericToolbarIconLibrary class methodsFor:'image specs-16x16'!
lint16x16Icon
@@ -736,6 +785,7 @@
@XS??????????3<)-;^76.Z5A0O???????<P@W!!8>-3J<0+??????0\JI1,;7^?57-[;''T????<JS0P"PN3'':-V>8L??????V5@''G57.1,!!#X-''R_O???1(R
@RMW:Y*KY6+7*RW??????3P*ZU[;.:#!!/:7???????<A@6AV2?S:9+>5??????????< BC &?????;?Z??????????<XU_?????X<P@a') ; colorMapFromArray:#[0 1 0 0 2 0 1 4 0 3 6 2 30 1 0 6 9 5 34 2 2 10 12 8 43 4 2 13 15 12 15 17 13 77 0 0 16 18 15 35 14 12 17 19 16 67 6 1 19 20 18 75 7 10 21 23 20 86 9 4 25 27 24 111 4 7 103 7 10 96 10 12 32 29 28 29 30 28 31 33 30 153 2 0 33 35 33 35 36 34 110 16 16 173 0 1 36 38 35 41 37 36 165 4 0 155 7 7 128 15 14 39 41 39 157 12 16 51 42 42 207 0 4 43 45 42 58 41 39 141 19 15 199 4 0 210 3 0 221 1 4 48 49 47 231 0 12 211 7 8 172 19 10 172 19 18 52 54 51 53 55 53 234 5 23 59 54 53 176 24 21 56 57 55 57 59 56 204 19 22 195 22 24 103 47 48 227 16 9 60 61 59 198 25 19 216 20 21 61 63 60 119 48 45 228 20 20 63 65 62 211 30 27 68 69 67 69 71 68 212 32 34 242 25 29 72 74 71 74 76 74 191 45 50 245 31 38 76 78 75 77 79 76 79 80 78 138 66 66 248 36 40 240 41 43 83 85 82 216 50 52 241 43 50 195 58 61 86 88 85 244 46 46 87 89 86 89 91 88 214 58 58 193 65 67 92 93 91 248 51 49 109 90 87 185 68 87 194 67 80 87 95 125 250 54 57 173 74 96 202 67 84 159 78 103 253 56 52 188 72 90 87 99 135 129 89 121 99 101 98 73 104 148 255 59 60 159 83 106 175 81 94 94 102 132 187 78 98 215 71 85 255 61 67 169 84 104 251 66 66 104 106 103 90 106 147 151 92 119 200 81 93 107 108 106 140 99 131 162 94 119 255 72 76 144 100 128 96 112 153 228 80 83 159 97 120 111 113 110 191 90 111 206 87 104 113 115 112 87 118 163 115 117 114 83 122 166 179 100 117 118 120 117 199 99 101 231 91 88 138 113 147 120 122 119 196 101 119 123 125 122 115 123 167 213 100 113 119 123 162 180 109 128 127 129 126 208 108 109 115 131 173 185 115 140 158 122 154 173 119 144 131 133 130 130 130 163 178 122 124 181 119 147 106 139 178 136 138 135 120 139 175 126 138 175 204 121 132 132 139 172 113 146 186 136 143 176 144 146 143 121 149 184 153 142 173 135 150 181 148 150 147 125 153 188 130 153 182 179 140 167 150 152 149 205 136 148 181 145 146 136 159 189 155 157 154 140 163 193 159 161 158 161 163 160 143 166 196 162 164 161 148 167 192 164 166 163 165 165 187 197 159 173 167 169 166 152 171 196 191 163 180 157 172 191 169 171 168 216 159 166 171 173 170 208 163 179 187 169 190 217 162 175 174 176 173 159 178 203 186 173 174 207 167 175 163 178 198 213 166 176 179 181 178 198 176 192 169 185 204 183 185 182 216 175 184 209 177 189 212 180 192 204 183 198 208 183 193 188 190 187 180 192 206 194 196 193 215 191 201 187 199 213 204 198 197 211 196 210 199 201 198 190 202 216 191 203 217 201 202 212 202 204 201 208 203 201 219 201 210 205 207 203 217 203 217 206 208 205 213 207 206 223 205 214 203 211 220 211 213 210 211 212 222 214 216 213 221 215 227 217 219 216 219 221 218 228 218 224 217 222 225 221 223 220 231 221 227 216 225 233 220 226 228 224 226 223 221 229 238 231 233 230 228 234 236 233 235 232 235 238 234 249 251 248 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@L@@0@C8AO0C?0O>C?>O?0??#?>C?0O?@OC@LLb') ; yourself); yourself]
! !
+
!GenericToolbarIconLibrary class methodsFor:'image specs-24x24'!
lint24x24Icon
@@ -764,6 +814,7 @@
/:6D??????????<)@PLSXEY?2?S<>.Y-/;V-?????????1$A??<GRU)/]8JMT"_?/;>5#O??????????????H@ +NBXQ??????>:/=*L??????????????<9
FEU_????????6OF5????????????????????????????-]K?') ; colorMapFromArray:#[0 1 0 0 2 0 1 4 0 3 6 2 30 1 0 6 9 5 34 2 2 10 12 8 43 4 2 13 15 12 15 17 13 77 0 0 16 18 15 35 14 12 17 19 16 67 6 1 19 20 18 75 7 10 21 23 20 86 9 4 25 27 24 111 4 7 103 7 10 96 10 12 32 29 28 29 30 28 31 33 30 153 2 0 33 35 33 35 36 34 110 16 16 173 0 1 36 38 35 41 37 36 165 4 0 155 7 7 128 15 14 39 41 39 157 12 16 51 42 42 207 0 4 43 45 42 58 41 39 141 19 15 199 4 0 210 3 0 221 1 4 48 49 47 231 0 12 211 7 8 172 19 10 172 19 18 52 54 51 53 55 53 234 5 23 59 54 53 176 24 21 56 57 55 57 59 56 204 19 22 195 22 24 103 47 48 227 16 9 60 61 59 198 25 19 216 20 21 61 63 60 119 48 45 228 20 20 63 65 62 211 30 27 68 69 67 69 71 68 212 32 34 242 25 29 72 74 71 74 76 74 191 45 50 245 31 38 76 78 75 77 79 76 79 80 78 138 66 66 248 36 40 240 41 43 83 85 82 216 50 52 241 43 50 195 58 61 86 88 85 244 46 46 87 89 86 89 91 88 214 58 58 193 65 67 92 93 91 248 51 49 109 90 87 185 68 87 194 67 80 87 95 125 250 54 57 173 74 96 202 67 84 159 78 103 253 56 52 188 72 90 87 99 135 129 89 121 99 101 98 73 104 148 255 59 60 159 83 106 175 81 94 94 102 132 187 78 98 215 71 85 255 61 67 169 84 104 251 66 66 104 106 103 90 106 147 151 92 119 200 81 93 107 108 106 140 99 131 162 94 119 255 72 76 144 100 128 96 112 153 228 80 83 159 97 120 111 113 110 191 90 111 206 87 104 113 115 112 87 118 163 115 117 114 83 122 166 179 100 117 118 120 117 199 99 101 231 91 88 138 113 147 120 122 119 196 101 119 123 125 122 115 123 167 213 100 113 119 123 162 180 109 128 127 129 126 208 108 109 115 131 173 185 115 140 158 122 154 173 119 144 131 133 130 130 130 163 178 122 124 181 119 147 106 139 178 136 138 135 120 139 175 126 138 175 204 121 132 132 139 172 113 146 186 136 143 176 144 146 143 121 149 184 153 142 173 135 150 181 148 150 147 125 153 188 130 153 182 179 140 167 150 152 149 205 136 148 181 145 146 136 159 189 155 157 154 140 163 193 159 161 158 161 163 160 143 166 196 162 164 161 148 167 192 164 166 163 165 165 187 197 159 173 167 169 166 152 171 196 191 163 180 157 172 191 169 171 168 216 159 166 171 173 170 208 163 179 187 169 190 217 162 175 174 176 173 159 178 203 186 173 174 207 167 175 163 178 198 213 166 176 179 181 178 198 176 192 169 185 204 183 185 182 216 175 184 209 177 189 212 180 192 204 183 198 208 183 193 188 190 187 180 192 206 194 196 193 215 191 201 187 199 213 204 198 197 211 196 210 199 201 198 190 202 216 191 203 217 201 202 212 202 204 201 208 203 201 219 201 210 205 207 203 217 203 217 206 208 205 213 207 206 223 205 214 203 211 220 211 213 210 211 212 222 214 216 213 221 215 227 217 219 216 219 221 218 228 218 224 217 222 225 221 223 220 231 221 227 216 225 233 220 226 228 224 226 223 221 229 238 231 233 230 228 234 236 233 235 232 235 238 234 249 251 248 255 255 255]; mask:((ImageMask new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@LL@@FH@@FH@@CX@@G<@BG>HGO>XA??8@?? @?? G??<G??8@??0G??<G??<G??<@??8A??8CO><@G8O@A8G@@@F') ; yourself); yourself]
! !
+
!GenericToolbarIconLibrary class methodsFor:'image specs-32x32'!
lint32x32Icon
@@ -800,6 +851,7 @@
@@@@@@@@D@@@NC @@A 8@@@\L@@@CC@@@@Y0@@@G8@@@C? @AA?<H@8??G@G???0@???8@G??8@@??>@C???>A???? O???0@O??0@C??<@O???8G???>@??
?? @???@@_??8@O???@GO?38@!!?8_@@O<C8@@>@^@@@@C@@@@@@b') ; yourself); yourself]
! !
+
!GenericToolbarIconLibrary class methodsFor:'image specs-16x16'!
smalllintWarning16x16
@@ -830,6 +882,7 @@
@@@@@@@@????????????9\^ 1(T.1(T.1(T.1(T.1(T.9\^ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@????????????????????????????@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@_@C>@_<A?0G?0_? ?>C?<G?0_?!!?>G?8O?@G<@@@b') ; yourself); yourself]
! !
+
!GenericToolbarIconLibrary class methodsFor:'image specs-versions'!
versionMerged24x24
@@ -858,6 +911,7 @@
UEQNS30GLFI,\V11\W!!,X&I"Y&I!!W%9^T5MSWS0HLH]:^&93[798[G9/\V1,X&I!!WFA\Y30EMIF,%9RK_G%9\&=/[6=1[&91[GV@]DHDJ9>6+)2P"8"A!!7=?
_7=?_7=?\7Q.^4@CA"X-I2\''I2</JR$)JR (JB (K"4,J"T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[28 1 19 26 0 23 36 0 35 57 0 48 55 1 50 58 0 51 61 0 54 57 3 52 56 0 54 63 0 57 64 0 58 63 0 62 67 3 66 66 0 68 69 5 67 70 6 68 70 0 72 71 0 73 57 15 60 65 17 63 72 9 70 79 0 77 70 0 74 72 0 75 61 25 59 81 2 79 74 13 71 74 1 77 76 4 79 70 15 72 66 23 68 78 7 81 75 19 76 81 12 83 61 25 67 75 21 77 78 23 79 91 5 94 114 6 111 122 0 119 124 0 121 130 0 123 118 0 120 110 25 104 119 0 122 119 17 114 120 0 123 125 20 115 129 2 127 135 0 131 137 0 134 139 0 136 125 26 118 138 1 141 137 22 130 142 9 143 138 16 142 139 31 136 142 22 145 145 26 147 147 16 155 154 0 166 159 22 161 128 73 126 148 48 147 186 0 187 155 40 156 187 0 189 196 0 193 188 0 190 188 0 191 156 31 162 189 0 192 180 0 187 157 32 163 198 0 197 164 20 172 191 4 193 200 0 200 182 3 189 156 57 155 193 9 194 202 0 202 203 0 204 196 13 195 152 66 152 194 0 199 205 0 206 164 41 168 206 0 207 197 17 195 195 0 201 207 0 208 188 16 192 196 0 202 198 20 195 207 0 209 196 0 203 197 0 204 167 45 171 199 23 196 198 0 205 208 0 211 192 23 194 200 26 196 189 0 201 199 2 206 201 29 196 203 7 208 202 31 197 192 5 203 200 0 210 173 52 176 206 13 209 201 0 211 195 11 204 199 33 198 214 18 211 204 36 198 201 0 212 208 17 210 202 0 213 197 15 205 190 33 195 203 0 214 184 47 187 210 21 211 202 39 200 208 41 201 211 24 212 200 22 207 202 25 208 214 28 214 204 28 209 198 1 216 207 47 203 207 31 211 200 45 202 185 65 187 208 33 212 198 32 208 209 35 213 210 38 214 212 40 215 213 42 216 207 55 208 202 40 211 193 73 194 214 44 217 205 42 213 216 46 218 213 28 223 206 44 214 208 47 215 220 49 221 214 62 214 221 51 222 192 87 193 210 50 217 206 83 201 215 64 215 211 51 218 224 55 224 213 53 219 217 67 217 227 58 226 218 68 218 215 56 221 218 58 223 213 80 212 220 71 220 219 60 224 229 62 229 220 61 225 231 64 230 223 74 222 201 96 202 222 63 226 224 75 223 225 76 224 218 85 217 224 65 228 226 78 224 224 67 229 218 77 222 228 80 226 229 82 227 226 70 231 230 83 228 223 81 226 211 105 211 225 92 223 233 85 230 226 93 224 224 84 228 231 75 235 227 95 225 234 87 232 219 94 223 230 98 228 228 89 232 217 106 222 234 102 232 225 100 229 226 101 230 228 104 232 213 116 219 229 105 233 231 107 235 224 114 229 199 149 203 242 102 244 216 137 220 205 135 215 237 113 241 234 128 234 238 114 242 223 126 229 226 134 228 236 130 236 225 128 231 229 131 234 240 134 239 233 117 242 230 133 236 239 128 243 236 143 238 238 145 239 238 123 247 243 133 247 238 146 240 215 161 223 241 148 243 250 144 249 235 156 239 225 155 235 237 158 241 229 163 235 249 142 255 242 161 245 247 149 252 238 154 246 246 170 245 249 151 254 249 153 255 238 170 243 230 176 238 245 161 253 247 163 255 236 181 244 245 166 255 243 172 253 245 190 253 243 184 254 246 193 255 238 193 253]; yourself]
! !
+
!Image methodsFor:'inspecting'!
inspector2TabImage
@@ -869,6 +923,7 @@
"Created: / 11-10-2011 / 17:12:01 / cg"
! !
+
!Image methodsFor:'inspecting'!
inspector2Tabs
@@ -876,6 +931,7 @@
"Created: / 11-10-2011 / 17:11:21 / cg"
! !
+
!Image methodsFor:'inspecting'!
inspectorClass
@@ -889,6 +945,7 @@
"Modified: 10.6.1996 / 18:23:55 / cg"
! !
+
!Integer methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -908,6 +965,7 @@
"Created: / 18-09-2006 / 21:22:46 / cg"
"Modified: / 06-10-2006 / 13:57:28 / cg"
! !
+
!Iterator methodsFor:'inspecting'!
inspectorValueStringInListFor:anInspector
@@ -916,6 +974,7 @@
^ self classNameWithArticle
! !
+
!LimitedPrecisionReal methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -937,6 +996,7 @@
"Created: / 20-03-2012 / 22:34:46 / cg"
! !
+
!MenuView methodsFor:'accessing-behavior'!
shortKeys
@@ -944,6 +1004,7 @@
"Created: / 18-10-2008 / 19:16:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
+
!Method methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -962,6 +1023,7 @@
"Created: / 18-09-2006 / 21:34:01 / cg"
"Modified: / 06-10-2006 / 13:57:33 / cg"
! !
+
!Method methodsFor:'printing & storing'!
printStringForBrowserWithSelector:selector inClass:aClass
@@ -1087,11 +1149,13 @@
"Modified: / 05-03-2007 / 16:18:53 / cg"
"Modified: / 20-07-2010 / 15:39:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!Method methodsFor:'printing & storing'!
selectorPrintStringInBrowserFor:selector
^ selector
! !
+
!Method methodsFor:'printing & storing'!
selectorPrintStringInBrowserFor:selector class:aClass
@@ -1109,6 +1173,7 @@
"Modified: / 20-07-2010 / 10:33:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!MethodDictionary methodsFor:'inspecting'!
inspectorClass
@@ -1119,6 +1184,7 @@
"Created: 12.6.1996 / 12:29:13 / stefan"
! !
+
!NameSpace class methodsFor:'inspecting'!
inspectorClass
@@ -1131,6 +1197,7 @@
! !
+
!Object methodsFor:'debugging'!
inspect
@@ -1159,6 +1226,7 @@
(Image fromFile:'bitmaps/garfield.gif') inspect
"
! !
+
!Object methodsFor:'inspecting'!
inspector2TabCommon
@@ -1169,6 +1237,7 @@
"Created: / 24-05-2011 / 14:56:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 05-07-2011 / 14:06:28 / cg"
! !
+
!Object methodsFor:'inspecting'!
inspector2TabForBasicInspect
@@ -1182,6 +1251,7 @@
"Created: / 05-07-2011 / 13:59:59 / cg"
! !
+
!Object methodsFor:'inspecting'!
inspector2TabForInspectorClass
@@ -1195,6 +1265,7 @@
"Created: / 05-07-2011 / 14:06:16 / cg"
! !
+
!Object methodsFor:'inspecting'!
inspector2TabLabel
@@ -1204,6 +1275,7 @@
"Created: / 14-07-2011 / 11:56:23 / cg"
! !
+
!Object methodsFor:'inspecting'!
inspector2Tabs
@@ -1215,6 +1287,7 @@
"Created: / 05-07-2011 / 13:39:24 / cg"
! !
+
!Object methodsFor:'debugging'!
inspectorExtraAttributes
@@ -1235,6 +1308,7 @@
"Modified: / 02-09-2005 / 19:00:01 / janfrog"
"Modified: / 04-10-2006 / 14:33:34 / cg"
! !
+
!Object methodsFor:'inspecting'!
inspectorValueStringInListFor:anInspector
@@ -1244,6 +1318,7 @@
"Created: / 13-06-2012 / 12:50:26 / cg"
! !
+
!Object methodsFor:'testing'!
isTestCaseLike
@@ -1252,6 +1327,7 @@
"Created: / 28-02-2011 / 21:30:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!Object methodsFor:'debugging'!
newInspector2Tab
@@ -1262,6 +1338,7 @@
ifNil:[self error:'Inspector2 not available!! Something is rotten...']
ifNotNil:[(Smalltalk at: #'Tools::Inspector2Tab') new]
! !
+
!OrderedCollection methodsFor:'inspecting'!
inspectorClass
@@ -1276,6 +1353,7 @@
#(0 8 15 3 99 2) asSortedCollection inspect
"
! !
+
!PopUpMenu methodsFor:'converting'!
asMenu
@@ -1302,6 +1380,7 @@
"Created: / 18-10-2008 / 19:01:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 09-09-2012 / 13:10:25 / cg"
! !
+
!ProfileTree methodsFor:'accessing'!
method
@@ -1312,6 +1391,7 @@
"Created: / 01-12-2007 / 22:50:16 / janfrog"
"Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
+
!ProfileTree methodsFor:'accessing'!
package
@@ -1322,6 +1402,7 @@
"Created: / 01-12-2007 / 22:50:28 / janfrog"
"Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
+
!RunArray methodsFor:'user interface'!
inspectorClass
@@ -1332,16 +1413,19 @@
"Modified: / 30.10.1997 / 14:28:20 / cg"
! !
+
!SelectionInListModelView methodsFor:'accessing'!
textStartLeft
^ textStartLeft
! !
+
!SelectionInListModelView methodsFor:'accessing'!
textStartLeft:something
textStartLeft := something.
! !
+
!Set methodsFor:'inspecting'!
inspectorClass
@@ -1350,6 +1434,7 @@
^ SetInspectorView
! !
+
!SimpleView methodsFor:'testing'!
isCodeView2
@@ -1358,6 +1443,7 @@
"Created: / 20-07-2010 / 15:42:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!StringCollection methodsFor:'inspecting'!
inspector2TabText
@@ -1369,6 +1455,7 @@
"Created: / 17-02-2008 / 10:13:07 / janfrog"
! !
+
!StringCollection methodsFor:'inspecting'!
inspector2Tabs
@@ -1376,6 +1463,7 @@
"Created: / 05-07-2011 / 13:40:43 / cg"
! !
+
!Symbol methodsFor:'accessing'!
formattedCode
@@ -1386,6 +1474,7 @@
"Created: / 07-07-2009 / 20:03:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
+
!Symbol methodsFor:'inspecting'!
inspectorValueStringInListFor:anInspector
@@ -1393,6 +1482,7 @@
^ self storeString
! !
+
!Text methodsFor:'inspecting'!
inspector2TabText
@@ -1406,6 +1496,7 @@
"Modified: / 17-02-2008 / 10:28:33 / janfrog"
"Modified: / 21-08-2011 / 08:02:46 / cg"
! !
+
!Text methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -1423,6 +1514,7 @@
"Created: / 18-09-2006 / 21:25:52 / cg"
"Modified: / 06-10-2006 / 13:57:38 / cg"
! !
+
!Timestamp methodsFor:'inspecting'!
inspectorExtraAttributes
@@ -1443,6 +1535,7 @@
"Created: / 20-01-2011 / 12:19:05 / cg"
! !
+
!UndefinedObject methodsFor:'inspecting'!
inspectorValueStringInListFor:anInspector
@@ -1450,6 +1543,7 @@
^ 'nil'
! !
+
!UninterpretedBytes methodsFor:'inspecting'!
inspector2Tabs
@@ -1457,6 +1551,7 @@
"Created: / 27-02-2012 / 21:51:36 / cg"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
alwaysOpenNewTabWhenCtrlClick
@@ -1471,6 +1566,7 @@
"Created: / 19-10-2008 / 08:00:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 14-02-2010 / 19:37:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
alwaysOpenNewTabWhenCtrlClick: aBoolean
@@ -1479,6 +1575,7 @@
"Created: / 19-10-2008 / 08:01:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-pref''d tools'!
changesBrowserClassName
@@ -1489,6 +1586,7 @@
"Created: / 03-04-2012 / 11:02:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
codeView2AutoIndent
@@ -1503,6 +1601,7 @@
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 07-08-2011 / 12:46:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
codeView2AutoIndent: aBoolean
@@ -1517,6 +1616,7 @@
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 07-08-2011 / 12:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
codeView2ShowAcceptCancel
@@ -1530,6 +1630,7 @@
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 10-10-2011 / 16:41:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
codeView2ShowAcceptCancel: aBoolean
@@ -1543,6 +1644,7 @@
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 10-10-2011 / 16:40:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
confirmRefactorings
@@ -1563,6 +1665,7 @@
"Created: / 04-04-2012 / 14:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
confirmRefactorings:aBoolean
@@ -1583,6 +1686,7 @@
"Created: / 04-04-2012 / 14:02:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-pref''d tools'!
fileBrowserClass
@@ -1602,6 +1706,7 @@
"Modified: / 03-04-2012 / 10:59:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-pref''d tools'!
fileBrowserClass: aClass
@@ -1616,6 +1721,7 @@
"Created: / 03-04-2012 / 10:57:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-pref''d tools'!
fileBrowserClassName
@@ -1626,6 +1732,7 @@
"Created: / 03-04-2012 / 11:01:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
showBookmarkBar
@@ -1642,6 +1749,7 @@
"Created: / 18-05-2011 / 16:48:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 03-06-2011 / 11:01:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
showBookmarkBar: aBoolean
@@ -1657,6 +1765,7 @@
"Created: / 18-05-2011 / 17:28:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
showEmbeddedTestRunnerInBrowser
@@ -1672,6 +1781,7 @@
"Created: / 11-03-2010 / 10:11:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
showEmbeddedTestRunnerInBrowser:aBoolean
@@ -1686,6 +1796,7 @@
"Created: / 11-03-2010 / 10:11:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
showGlobalHistory
@@ -1702,6 +1813,7 @@
"Created: / 07-07-2011 / 00:03:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (comment): / 26-07-2012 / 16:35:54 / cg"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
showGlobalHistory: aBoolean
@@ -1718,6 +1830,7 @@
"Created: / 07-07-2011 / 00:02:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (comment): / 26-07-2012 / 16:35:57 / cg"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
showLocalHistory
@@ -1734,6 +1847,7 @@
"Created: / 07-07-2011 / 00:02:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (comment): / 26-07-2012 / 16:35:31 / cg"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
showLocalHistory: aBoolean
@@ -1750,6 +1864,7 @@
"Created: / 07-07-2011 / 00:02:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (comment): / 26-07-2012 / 16:35:41 / cg"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
showMethodTemplate
@@ -1765,6 +1880,7 @@
"Created: / 12-02-2010 / 12:06:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
showMethodTemplate:aBoolean
@@ -1779,6 +1895,7 @@
"Created: / 12-02-2010 / 12:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
sortAndIndentClassesByInheritance
@@ -1793,6 +1910,7 @@
"Created: / 06-07-2011 / 19:09:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
sortAndIndentClassesByInheritance: aBoolean
@@ -1807,6 +1925,7 @@
"Created: / 06-07-2011 / 19:09:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
sourceCodeManagementMenuLayout
@@ -1829,6 +1948,7 @@
"Created: / 06-10-2011 / 18:42:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
sourceCodeManagementMenuLayout: aSymbol
@@ -1852,6 +1972,7 @@
"Created: / 06-10-2011 / 18:44:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
useCodeView2In: appSymbol
@@ -1873,6 +1994,7 @@
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 26-07-2011 / 10:26:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
useCodeView2InBrowser
@@ -1890,6 +2012,7 @@
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 26-07-2011 / 10:22:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
useCodeView2InBrowser: aBoolean
@@ -1907,6 +2030,7 @@
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 26-07-2011 / 10:21:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
useCodeView2InDebugger
@@ -1924,6 +2048,7 @@
"Created: / 26-07-2011 / 10:22:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
useCodeView2InDebugger: aBoolean
@@ -1941,6 +2066,7 @@
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 26-07-2011 / 10:22:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
useCodeView2InTools
@@ -1954,6 +2080,7 @@
"Created: / 12-02-2010 / 12:13:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
useCodeView2InTools:aBoolean
@@ -1964,6 +2091,7 @@
UserPreferences current useCodeView2InBrowser:false"
"Created: / 12-02-2010 / 12:14:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
useCodeView2InWorkspace
@@ -1981,6 +2109,7 @@
"Created: / 26-07-2011 / 10:23:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-code view'!
useCodeView2InWorkspace: aBoolean
@@ -1998,6 +2127,7 @@
"Created: / 26-07-2011 / 10:22:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
useInPlaceSearchInBrowserLists
@@ -2012,6 +2142,7 @@
"Created: / 28-07-2011 / 09:34:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
useInPlaceSearchInBrowserLists: aBoolean
@@ -2026,6 +2157,7 @@
"Created: / 28-07-2011 / 09:35:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
webBrowserLikeLayout
@@ -2041,6 +2173,7 @@
"Created: / 07-06-2011 / 14:33:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!UserPreferences methodsFor:'accessing-prefs-browser'!
webBrowserLikeLayout: aBoolean
@@ -2056,19 +2189,10 @@
"Created: / 07-06-2011 / 14:31:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-!stx_libtool class methodsFor:'documentation'!
-
-extensionsVersion_CVS
- ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.94 2013-02-01 14:51:22 cg Exp $'
-! !
+
!stx_libtool class methodsFor:'documentation'!
extensionsVersion_HG
^ '$Changeset: <not expanded> $'
-! !
-!stx_libtool class methodsFor:'documentation'!
-
-extensionsVersion_SVN
- ^ '$Id:: extensions.st 8086 2013-01-15 12:03:21Z vranyj1 $'
-! !
+! !
\ No newline at end of file
--- a/libInit.cc Tue Feb 26 12:38:54 2013 +0000
+++ b/libInit.cc Wed Feb 27 12:34:59 2013 +0000
@@ -94,6 +94,7 @@
_Tools__LintAnnotation_Init(pass,__pRT__,snd);
_Tools__LintHighlighter_Init(pass,__pRT__,snd);
_Tools__LintRuleDetail_Init(pass,__pRT__,snd);
+_Tools__LintRuleEditDialog_Init(pass,__pRT__,snd);
_Tools__LintRuleSelectionDialog_Init(pass,__pRT__,snd);
_Tools__MethodCategoryCache_Init(pass,__pRT__,snd);
_Tools__MethodRewriter_Init(pass,__pRT__,snd);
@@ -148,6 +149,7 @@
_Tools__CodeView2SettingsAppl_Init(pass,__pRT__,snd);
_Tools__Diff2CodeView2_Init(pass,__pRT__,snd);
_Tools__Diff3CodeView2_Init(pass,__pRT__,snd);
+_Tools__LintRuleSettingsApplication_Init(pass,__pRT__,snd);
_Tools__LintService_Init(pass,__pRT__,snd);
_Tools__NavigatorCanvas_Init(pass,__pRT__,snd);
_Tools__NewSystemBrowser_Init(pass,__pRT__,snd);
--- a/libtool.rc Tue Feb 26 12:38:54 2013 +0000
+++ b/libtool.rc Wed Feb 27 12:34:59 2013 +0000
@@ -3,8 +3,8 @@
// automagically generated from the projectDefinition: stx_libtool.
//
VS_VERSION_INFO VERSIONINFO
- FILEVERSION 6,2,1,86
- PRODUCTVERSION 6,2,2,0
+ FILEVERSION 6,2,32767,32767
+ PRODUCTVERSION 6,2,3,0
#if (__BORLANDC__)
FILEFLAGSMASK VS_FF_DEBUG | VS_FF_PRERELEASE
FILEFLAGS VS_FF_PRERELEASE | VS_FF_SPECIALBUILD
@@ -20,12 +20,12 @@
BEGIN
VALUE "CompanyName", "eXept Software AG\0"
VALUE "FileDescription", "Smalltalk/X Tools (LIB)\0"
- VALUE "FileVersion", "6.2.1.86\0"
+ VALUE "FileVersion", "6.2.32767.32767\0"
VALUE "InternalName", "stx:libtool\0"
VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2012\nCopyright eXept Software AG 1998-2012\0"
VALUE "ProductName", "Smalltalk/X\0"
- VALUE "ProductVersion", "6.2.2.0\0"
- VALUE "ProductDate", "Fri, 01 Feb 2013 15:11:43 GMT\0"
+ VALUE "ProductVersion", "6.2.3.0\0"
+ VALUE "ProductDate", "Wed, 27 Feb 2013 12:27:46 GMT\0"
END
END
--- a/mingwmake.bat Tue Feb 26 12:38:54 2013 +0000
+++ b/mingwmake.bat Wed Feb 27 12:34:59 2013 +0000
@@ -7,8 +7,8 @@
@REM Kludge got Mercurial, cannot be implemented in Borland make
@FOR /F "tokens=*" %%i in ('hg root') do SET HGROOT=%%i
@IF "%HGROOT%" NEQ "" SET DEFINES=%DEFINES% "-DHGROOT=%HGROOT%"
+
@call ..\rules\find_mingw.bat
-make.exe -N -f bc.mak %USEMINGW_ARG %DEFINES%% %*
+make.exe -N -f bc.mak %USEMINGW_ARG% %*
-
--- a/stx_libtool.st Tue Feb 26 12:38:54 2013 +0000
+++ b/stx_libtool.st Wed Feb 27 12:34:59 2013 +0000
@@ -11,7 +11,7 @@
"
"{ Package: 'stx:libtool' }"
-LibraryDefinition subclass:#'stx_libtool'
+LibraryDefinition subclass:#stx_libtool
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -42,10 +42,13 @@
!
extensionsVersion_CVS
- ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.81 2012/09/09 20:44:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.94 2013-02-01 14:51:22 cg Exp $'
+!
+
+extensionsVersion_SVN
+ ^ '$Id:: extensions.st 8086 2013-01-15 12:03:21Z vranyj1 $'
! !
-
!stx_libtool class methodsFor:'description'!
excludedFromPreRequisites
@@ -53,40 +56,7 @@
preRequisites scan. See #preRequisites for more."
^ #(
- #'stx:libdb' "SQL::SQLError - referenced by StoreSourceCodeManagementSettingsAppl>>tryToConnectTo: "
- #'stx:goodies/simpleServices' "WindowMigrationServer - referenced by AbstractSettingsApplication::MiscCommunicationSettingsAppl>>hasWindowMigrationServer "
- #'stx:goodies/soap' "SOAP::SoapHttpModule - referenced by AbstractLauncherApplication::LauncherDialogs class>>communicationsSettings "
- #'stx:goodies/webServer' "HTTPService - referenced by Tools::NewSystemBrowser>>classMenuNewWebService "
- #'stx:goodies/webServer/ui' "HTTPServerSettingsAppl - referenced by AbstractSettingsApplication::HTTPStartServerSettingsApplication>>hasCreatedServer "
- #'stx:goodies/xml/stx' "XMLCoder - referenced by Tools::NewSystemBrowser>>selectorMenuFileOutXMLAs "
- #'stx:goodies/xml/vw' "XML::SourceScannerNodeBuilder - referenced by ChangesBrowser class>>readXMLChangesFrom:inBackground: "
- #'stx:libwidg3' "ClockView - referenced by WorkspaceApplication>>addStopWatch "
- #'stx:libjava' "JavaMethod - referenced by AbstractLauncherApplication::LauncherDialogs class>>javaSettings "
- #'stx:libjavascript' "JavaScriptCompiler - referenced by WorkspaceApplication>>compilerClassForSyntaxName: "
- #'stx:libtool2' "Tools::InternationalLanguageTranslationEditor - referenced by AbstractFileBrowser>>openResourceFileEditor "
- #'stx:goodies/refactoryBrowser/refactoring' "RenameClassVariableRefactoring - referenced by Tools::NewSystemBrowser>>codeMenuRenameClassVariable:inClass: "
- #'stx:goodies/refactoryBrowser/parser' "ParseTreeRewriter - superclass of extended ParseTreeSourceRewriter "
-
-
- #'exept:expecco' "Expecco::ExpeccoNetAPI - referenced by AbstractLauncherApplication>>bugReporterAvailable "
- #'exept:httpPortal' "WebApplicationModel - referenced by Tools::NewSystemBrowser>>classMenuNewWebApplication "
- #'exept:osi/asn1' "OSI::ASN1Browser - referenced by FileBrowser>>openASN1Browser "
- #'stx:libwebkit' "WebKitView - referenced by Tools::WebBrowserPage>>webKitView "
- #'stx:libsvn'
- #'exept:vncViewer' "VNCRenderer - referenced by FileApplicationNoteBook::XViewApplication>>setupView "
- #'exept:xml/inspector' "XML::XMLInspector - referenced by AbstractFileBrowser>>inspectXmlFile "
- #'stx:goodies/communication' "SmalltalkShareServer - referenced by AbstractLauncherApplication::LauncherDialogs class>>communicationsSettings "
- #'stx:goodies/monticello' "MCRepositoryBrowser - referenced by Tools::NewSystemBrowser>>projectMenuMonticelloBrowseRepositories "
- #'stx:goodies/refactoryBrowser/browser' "ProtocolEnvironment - referenced by Tools::NewSystemBrowser>>selectedProtocolsAsEnvironment "
- #'stx:goodies/refactoryBrowser/changes' "RemoveInstanceVariableChange - referenced by Tools::NewSystemBrowser>>codeMenuRemoveInstanceVariable:inClass: "
- #'stx:goodies/refactoryBrowser/helpers' "RBMethod - referenced by Tools::NewSystemBrowser>>handlingRefactoringErrorDo: "
- #'stx:goodies/refactoryBrowser/lint' "RBCompositeLintRule - referenced by Tools::NewSystemBrowser>>smalllintRulesAll "
-
-
)
-
- "Modified: / 06-07-2011 / 16:16:13 / jv"
- "Modified: / 26-03-2012 / 16:30:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
preRequisites
@@ -98,22 +68,23 @@
exclude individual packages in the #excludedFromPrerequisites method."
^ #(
- #'stx:goodies/sunit' "TestResult - referenced by Tools::MethodList>>listEntryForMethod:selector:class:showClass:showCategory:classFirst:suppressInheritanceInfo: "
- #'stx:libbasic' "Magnitude - superclass of SyntaxElement "
- #'stx:libbasic2' "List - superclass of BookmarkList "
+ #'stx:goodies/sunit' "TestResult - referenced by Tools::TestRunner2>>debugError: "
+ #'stx:libbasic' "IdentityDictionary - superclass of extended UserPreferences "
+ #'stx:libbasic2' "List - superclass of DirectoryTreeBrowser::DirTreeBrowserHFL "
#'stx:libbasic3' "MessageTally - superclass of Tools::Profiler "
- #'stx:libboss' "BinaryOutputManager - referenced by Tools::Profiler>>storeStatisticsOn: "
- #'stx:libcomp' "SyntaxHighlighter - superclass of SyntaxHighlighter2 "
- #'stx:libhtml' "HTMLDocumentView - referenced by Tools::NewSystemBrowser>>openDocumentation "
- #'stx:libui' "MenuComponentSpec - superclass of EditFieldWithCompletionSpec "
- #'stx:libview' "XEmbedContainerView - superclass of XTermView "
- #'stx:libview2' "Model - superclass of Tools::ChangeSetDiffTool::OpenDialog "
- #'stx:libwidg' "Button - superclass of ViewWithAcceptAndCancelBar::AcceptAndCancelBar::ButtonWithHelpText "
- #'stx:libwidg2' "SelectionInListModelView - superclass of Tools::TagsBrowser::TagView "
+ #'stx:libboss' "BinaryInputManager - referenced by Tools::Profiler class>>readStatisticsFrom: "
+ #'stx:libcomp' "Parser - superclass of SyntaxHighlighter2 "
+ #'stx:libhtml' "HTMLDocumentView - referenced by FileBrowser>>openHTMLDocument: "
+ #'stx:libui' "ViewWithSubcomponentsSpec - superclass of FileBrowserV2UISpecifications::PanelSpec "
+ #'stx:libview' "DisplaySurface - superclass of InspectorView "
+ #'stx:libview2' "Model - superclass of AbstractFileBrowser "
+ #'stx:libwidg' "Label - superclass of ViewWithAcceptAndCancelBar::AcceptAndCancelBar::ButtonWithHelpText "
+ #'stx:libwidg2' "HierarchicalItem - superclass of Tools::ChangeList::ListEntry "
)
+
+ "Modified: / 27-02-2013 / 12:18:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!stx_libtool class methodsFor:'description - compilation'!
additionalBaseAddressDefinition_bc_dot_mak
@@ -126,7 +97,6 @@
'
! !
-
!stx_libtool class methodsFor:'description - contents'!
classNamesAndAttributes
@@ -355,9 +325,9 @@
FileBrowserV3
#'Tools::ChangeSetDiffInfo'
PerforceSourceCodeManagerUtilities
+ #'Tools::LintRuleEditDialog'
+ #'Tools::LintRuleSettingsApplication'
)
-
- "Modified: / 16-01-2013 / 11:58:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
extensionMethodNames
@@ -498,10 +468,10 @@
Behavior inspectorValueStringInListFor:
Collection inspectorValueStringInListFor:
Iterator inspectorValueStringInListFor:
+ Class inspectorClass
)
! !
-
!stx_libtool class methodsFor:'description - project information'!
applicationIconFileName
@@ -537,7 +507,6 @@
^ 'Smalltalk/X'
! !
-
!stx_libtool class methodsFor:'description - svn'!
svnRepositoryUrlString
@@ -556,7 +525,6 @@
^ "$SVN-Revision:"'8088 '"$"
! !
-
!stx_libtool class methodsFor:'documentation'!
version
@@ -567,6 +535,10 @@
^ '$Header: /cvs/stx/stx/libtool/stx_libtool.st,v 1.87 2013-02-01 15:11:58 cg Exp $'
!
+version_HG
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: stx_libtool.st 8090 2013-01-17 21:52:18Z vranyj1 $'
! !