# HG changeset patch # User Jan Vrany # Date 1369956944 -3600 # Node ID ba8c5416aa2891ea22f7f95f66528569cfcc7003 # Parent d550d7de8e2d7fef9fce573aaad375e23e330917# Parent 99a40df6afb8a0192bad997195b96c21e4237a94 Merged d550d7de8e2d and 99a40df6afb8 (branch default - CVS HEAD) diff -r d550d7de8e2d -r ba8c5416aa28 AbstractFileBrowser.st --- a/AbstractFileBrowser.st Tue May 28 22:46:27 2013 +0100 +++ b/AbstractFileBrowser.st Fri May 31 00:35:44 2013 +0100 @@ -98,7 +98,6 @@ " ! ! - !AbstractFileBrowser class methodsFor:'accessing'! currentSelection @@ -147,7 +146,6 @@ RootHolder := aRoot ! ! - !AbstractFileBrowser class methodsFor:'accessing-bookmarks'! addBookmark:aDirectoryPath @@ -306,7 +304,6 @@ self saveBookmarksIn:(self defaultBookMarksFileDirectory construct:self defaultBookMarksFilename) ! ! - !AbstractFileBrowser class methodsFor:'accessing-classes'! directoryHistoryClass @@ -315,7 +312,6 @@ "Modified: / 21-11-2012 / 08:46:34 / cg" ! ! - !AbstractFileBrowser class methodsFor:'defaults'! commandHistory @@ -340,15 +336,17 @@ DefaultFilters isNil ifTrue:[ DefaultFilters := #( '*' '*.st' - '*.htm*' - '*.txt' - '*.gif' - '*.xpm' - '*.jpg' '*.[h,c]*' + '*.txt; *.htm*' + '*.gif; *.xpm; *.jpg; *.png' + '~*o; ~*.obj; ~*.dll;' ) ]. ^ DefaultFilters. + + " + DefaultFilters := nil + " ! initialCommandFor:fileName in:aDirectory intoBox:aBox @@ -565,7 +563,6 @@ "Modified: / 11-05-2012 / 09:22:04 / cg" ! ! - !AbstractFileBrowser class methodsFor:'help specs'! basicFlyByHelpSpec @@ -720,7 +717,6 @@ "Modified: / 03-11-2007 / 12:05:01 / cg" ! ! - !AbstractFileBrowser class methodsFor:'image specs'! clearHistoryIcon @@ -932,7 +928,6 @@ ^ ToolbarIconLibrary shell20x20Icon ! ! - !AbstractFileBrowser class methodsFor:'interface specs'! encodingDialogSpec @@ -1282,7 +1277,6 @@ "Modified: / 28-02-2012 / 11:12:38 / cg" ! ! - !AbstractFileBrowser class methodsFor:'menu specs'! baseBookmarksMenuSpec @@ -2594,7 +2588,6 @@ ) ! ! - !AbstractFileBrowser class methodsFor:'menu specs-scm'! cvsMenu @@ -2772,21 +2765,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 @@ -2955,7 +2945,6 @@ "Modified: / 13-02-2012 / 15:01:19 / cg" ! ! - !AbstractFileBrowser methodsFor:'actions'! askForCommandFor:fileName thenDo:aBlock @@ -3307,7 +3296,6 @@ ] ! ! - !AbstractFileBrowser methodsFor:'actions bookmarks'! addBookmark @@ -3353,7 +3341,6 @@ self class saveBookmarks ! ! - !AbstractFileBrowser methodsFor:'actions history'! addToCommandHistory:aCommandString for:aFilename @@ -3406,7 +3393,6 @@ ]. ! ! - !AbstractFileBrowser methodsFor:'applications'! applicationNamed:anApplicationName ifPresentDo:aBlock @@ -3423,7 +3409,6 @@ ^ self applications at:#DirectoryContentsBrowser ifAbsent:nil. ! ! - !AbstractFileBrowser methodsFor:'aspects'! applications @@ -3780,7 +3765,6 @@ self aspectFor:#rootHolder put:aHolder ! ! - !AbstractFileBrowser methodsFor:'aspects handling'! aspectFor:something ifAbsent:aBlock @@ -3890,7 +3874,6 @@ "Modified: / 14-10-2010 / 19:16:38 / cg" ! ! - !AbstractFileBrowser methodsFor:'aspects-filter'! filter:aString @@ -3932,39 +3915,62 @@ "return a two-arg filterblock on the files path- and base-name. This block should return true for files to be shown" - | filterString filterStrings filters showHidden yesOrNo filterBlock ignoreCase| + | filterString filterStrings filters notFilters showHidden filterBlock ignoreCase| filterString := self filterModel value. filterString = '' ifTrue:[filterString := '*']. ignoreCase := "ignoreCaseInPattern ? "(Filename isCaseSensitive not). filterStrings := filterString asCollectionOfSubstringsSeparatedBy:$;. + filterStrings := filterStrings + select:[:eachFilter | eachFilter withoutSeparators notEmpty]. + filters := filterStrings - collect:[:eachPattern | + reject:[:eachFilter | eachFilter withoutSeparators startsWith:'~'] + thenCollect: + [:eachPattern | |pattern| pattern := eachPattern withoutSeparators. - yesOrNo := true. - (pattern startsWith:'~') ifTrue:[ - yesOrNo := false. - pattern := pattern copyFrom:2. - ]. "JV@2012-03-05: Add implict star at the beggining and at the end of pattern, that's how most of the other applications behave - do what most users expect" pattern first == $* ifFalse:[pattern := '*' , pattern]. pattern last == $* ifFalse:[pattern := pattern , '*']. - yesOrNo ifTrue:[ - [:name :baseName | pattern match:baseName ignoreCase:ignoreCase] - ] ifFalse:[ - [:name :baseName | (pattern match:baseName ignoreCase:ignoreCase) not] - ]. + [:name :baseName | pattern match:baseName ignoreCase:ignoreCase] ]. - filters size == 1 ifTrue:[ + notFilters := filterStrings + select:[:eachFilter | eachFilter withoutSeparators startsWith:'~'] + thenCollect: + [:eachPattern | + |pattern| + + pattern := eachPattern withoutSeparators. + pattern := (pattern copyFrom:2) withoutSeparators. + [:name :baseName | pattern match:baseName ignoreCase:ignoreCase] + ]. + + + (filters size == 1 and:[notFilters isEmpty]) ifTrue:[ filterBlock := filters first ] ifFalse:[ - filterBlock := [:name :baseName | filters contains:[:aFilter | aFilter value:name value:baseName ]]. + filters isEmpty ifTrue:[ + filterBlock := [:name :baseName | + (notFilters contains:[:aFilter | aFilter value:name value:baseName ]) not + ]. + ] ifFalse:[ + notFilters isEmpty ifTrue:[ + filterBlock := [:name :baseName | + (filters contains:[:aFilter | aFilter value:name value:baseName ]) + ]. + ] ifFalse:[ + filterBlock := [:name :baseName | + (filters contains:[:aFilter | aFilter value:name value:baseName ]) + and:[ (notFilters contains:[:aFilter | aFilter value:name value:baseName ]) not ] + ]. + ] + ] ]. showHidden := self showHiddenFiles value. @@ -3982,7 +3988,6 @@ ^ self aspectFor:#shownFiles ifAbsent:['-/-' asValue] ! ! - !AbstractFileBrowser methodsFor:'aspects-history'! dirHistory @@ -4013,7 +4018,6 @@ ^ self aspectFor:#fileHistory ifAbsent:[OrderedSet new] ! ! - !AbstractFileBrowser methodsFor:'aspects-visibility'! activityVisibilityChannel @@ -4243,7 +4247,6 @@ ^ self directoryContentsBrowser viewType ! ! - !AbstractFileBrowser methodsFor:'background processing'! executeCommand:cmd @@ -4326,7 +4329,6 @@ process resume. ! ! - !AbstractFileBrowser methodsFor:'change & update'! currentFileNameHolderChanged @@ -4454,7 +4456,6 @@ self updateCurrentDirectory ! ! - !AbstractFileBrowser methodsFor:'clipboard'! canPaste @@ -4506,7 +4507,6 @@ self canPaste value:true. ! ! - !AbstractFileBrowser methodsFor:'drag & drop'! canDropFiles:dropedObjects for:filename @@ -4638,7 +4638,6 @@ "Created: / 13-10-2006 / 18:26:41 / cg" ! ! - !AbstractFileBrowser methodsFor:'file operations'! copyFile:aSourceFile to:aDestFile @@ -5152,7 +5151,6 @@ "Modified: / 04-12-2006 / 13:15:24 / cg" ! ! - !AbstractFileBrowser methodsFor:'menu accessing'! bookmarksMenu @@ -5387,7 +5385,6 @@ "Modified: / 09-09-2012 / 13:07:45 / cg" ! ! - !AbstractFileBrowser methodsFor:'menu actions'! doCompareTwoFiles @@ -5478,7 +5475,6 @@ "Created: / 29-12-2010 / 11:03:00 / cg" ! ! - !AbstractFileBrowser methodsFor:'menu actions-file'! copyFiles @@ -5525,7 +5521,6 @@ ]. ! ! - !AbstractFileBrowser methodsFor:'menu actions-help'! openAboutThisApplication @@ -5538,9 +5533,18 @@ HTMLDocumentView openFullOnDocumentationFile:relativeDocPath ! ! - !AbstractFileBrowser methodsFor:'menu actions-scm-cvs'! +commitFilesToCVS:files + |numFiles| + + (numFiles := files size) > 0 ifTrue:[ + self withActivityIndicationDo:[ + self cvsCommitFiles:files + ] + ] +! + cvsAddAndCommit self cvsAddAndCommitAsBinary:false ! @@ -5606,16 +5610,23 @@ ! cvsCommit - |nSel log logArg msg cmd selectedFiles sel executionBlock nameString| + |selectedFiles| selectedFiles:= self currentSelectedFiles. - nSel := selectedFiles size. - - nSel == 1 ifTrue:[ - msg := resources string:'Enter log message for checkIn of "%1"' with:(selectedFiles first baseName) + self cvsCommitFiles:selectedFiles +! + +cvsCommitFiles:files + |nFiles log logTmp s logArg msg executionBlock nameString | + + nFiles := files size. + nFiles == 0 ifTrue:[^ self]. + + nFiles == 1 ifTrue:[ + msg := resources string:'Enter log message for checkIn of "%1"' with:(files first baseName) ] ifFalse:[ - nSel > 1 ifTrue:[ - msg := resources string:'Enter log message for %1 files to checkIn' with:nSel printString + nFiles > 1 ifTrue:[ + msg := resources string:'Enter log message for %1 files to checkIn' with:nFiles printString ] ifFalse:[ msg := resources string:'Enter log message for checkIn' ] @@ -5628,34 +5639,37 @@ initialAnswer:nil. log isNil ifTrue:[^ self]. + log := log replChar:$" withString:'\"'. OperatingSystem isMSWINDOWSlike ifTrue:[ - logArg := '-m "' , log , '"'. + "/ save the log message into another tempFile ... + logTmp := Filename newTemporary. + s := logTmp writeStream. + s nextPutAll:log. + s close. + + logArg := '-F "', logTmp pathName, '"'. ] ifFalse:[ logArg := '-m ''' , log , ''''. ]. - sel := self currentSelectedObjects. - sel isEmpty ifTrue:[ ^ self ]. - executionBlock := [:stream | - log notNil ifTrue:[ - sel size > 0 ifTrue:[ - sel do:[:fn | - | dir nameArg | - - nameArg := '"',fn baseName,'"'. - dir := fn directory. - cmd := 'cvs commit ',logArg,' ' , nameArg. - (self getExecutionBlockForCommand:cmd inDirectory:dir) value:stream. - ] + [ + files do:[:fn | + | dir nameArg cmd | + + nameArg := '"',fn baseName,'"'. + dir := fn directory. + cmd := 'cvs commit ',logArg,' ' , nameArg. +stream showCR:fn pathName. + (self getExecutionBlockForCommand:cmd inDirectory:dir) value:stream. ] - ] + ] ensure:[ + logTmp notNil ifTrue:[ logTmp remove ]. + ]. ]. nameString := 'Command> cvs commit'. self makeExecutionResultProcessFor:executionBlock withName:nameString. - - "Modified: / 04-12-2006 / 13:16:39 / cg" ! cvsCompareWithNewest @@ -5866,7 +5880,6 @@ ] ! ! - !AbstractFileBrowser methodsFor:'menu actions-scm-mercurial'! mercurialAdd @@ -6016,7 +6029,6 @@ "Created: / 15-01-2012 / 19:43:08 / cg" ! ! - !AbstractFileBrowser methodsFor:'menu actions-tools'! allFilesInSelectedDirectoriesForWhich:aBlock @@ -6553,12 +6565,12 @@ path := dir baseName , '/' , path. dir := dir directory. dir isNil ifTrue:[ - Dialog warning:'Could not find a path from "stx" to the current directory.'. + Dialog warn:'Could not find a path from "stx" to the current directory.'. "/ should ask the user for a packageID and proceed... ^ self. ]. ]. - packageID := path copyWithoutLast:1. + packageID := path copyButLast:1. Smalltalk loadPackage:packageID fromDirectory:packageDir asAutoloaded:true ! @@ -7982,7 +7994,7 @@ |sig msg label labels values action proceedValue isRedef redefKind| isRedef := false. - sig := ex signal. + sig := ex creator. (dontAskSignals notNil and:[dontAskSignals includesKey:sig]) ifTrue:[ action := #continue ] ifFalse:[ @@ -8176,7 +8188,6 @@ "Modified: / 04-12-2006 / 13:15:28 / cg" ! ! - !AbstractFileBrowser methodsFor:'menu queries-cvs'! canCvsAddAndCommit @@ -8198,7 +8209,6 @@ ]. ! ! - !AbstractFileBrowser methodsFor:'menu queries-tools'! anySTFilesOrDirectoriesPresent @@ -8388,7 +8398,6 @@ ^ false ! ! - !AbstractFileBrowser methodsFor:'presentation'! getModeString:modeBits @@ -8428,7 +8437,6 @@ ^ modeString ! ! - !AbstractFileBrowser methodsFor:'private'! theSingleSelectedDirectoryOrHomeDir @@ -8447,7 +8455,6 @@ ^ dirs anElement. ! ! - !AbstractFileBrowser methodsFor:'queries'! cBrowserLoaded @@ -8600,7 +8607,6 @@ ^ OperatingSystem isUNIXlike ! ! - !AbstractFileBrowser methodsFor:'queries-file'! allItemsOfCurrentDirectory @@ -8801,7 +8807,6 @@ ^ self recursiveAnyFilesPresentWithSuffix:'st' ! ! - !AbstractFileBrowser methodsFor:'selection'! currentSelectedDirectories @@ -8855,7 +8860,6 @@ "Modified: / 04-12-2006 / 13:15:04 / cg" ! ! - !AbstractFileBrowser methodsFor:'sorting'! currentSortOrder @@ -8938,7 +8942,6 @@ "Modified: / 18-09-2007 / 09:42:47 / cg" ! ! - !AbstractFileBrowser methodsFor:'startup & release'! makeDependent @@ -8980,7 +8983,6 @@ "Modified: / 25-07-2006 / 09:12:45 / cg" ! ! - !AbstractFileBrowser::Clipboard methodsFor:'accessing'! files @@ -9007,7 +9009,6 @@ method := something. ! ! - !AbstractFileBrowser::CodeExecutionLock methodsFor:'accessing'! locked @@ -9019,7 +9020,6 @@ ^ locked ! ! - !AbstractFileBrowser::CodeExecutionLock methodsFor:'actions'! doIfUnLocked:aBlock @@ -9037,21 +9037,18 @@ ] ! ! - !AbstractFileBrowser::DirectoryHistory class methodsFor:'defaults'! defaultHistorySize ^ 50 ! ! - !AbstractFileBrowser::DirectoryHistory class methodsFor:'instance creation'! new ^ (super new) initializeHistory. ! ! - !AbstractFileBrowser::DirectoryHistory methodsFor:'accessing'! historySize @@ -9063,7 +9060,6 @@ historySize := aNumber ! ! - !AbstractFileBrowser::DirectoryHistory methodsFor:'actions'! addToHistory:aPath @@ -9072,7 +9068,7 @@ pathToAdd := aPath. (pathToAdd endsWith:(Filename separator)) ifTrue:[ pathToAdd asFilename isRootDirectory ifFalse:[ - pathToAdd := pathToAdd copyWithoutLast:(Filename separator asString size). + pathToAdd := pathToAdd copyButLast:(Filename separator asString size). ] ]. @@ -9157,7 +9153,6 @@ ]. ! ! - !AbstractFileBrowser::DirectoryHistory methodsFor:'initialization'! initializeHistory @@ -9169,7 +9164,6 @@ backForwardIndex := backForwardList size. ! ! - !AbstractFileBrowser::DirectoryHistory methodsFor:'queries'! canBackward @@ -9255,7 +9249,6 @@ ^ retPath. ! ! - !AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem class methodsFor:'instance creation'! path:aPath @@ -9263,7 +9256,6 @@ ^ self new path:aPath ! ! - !AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem methodsFor:'accessing'! asFilename @@ -9299,7 +9291,6 @@ ^ self path asString ! ! - !AbstractFileBrowser::SaveAspectItem class methodsFor:'instance creation'! withValue:aValue isHolder:aBoolean @@ -9312,7 +9303,6 @@ ^ instance ! ! - !AbstractFileBrowser::SaveAspectItem methodsFor:'accessing'! isHolder @@ -9339,15 +9329,14 @@ value := something. ! ! - !AbstractFileBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.517 2013-03-31 20:12:44 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.521 2013-05-28 10:34:21 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.517 2013-03-31 20:12:44 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.521 2013-05-28 10:34:21 cg Exp $' ! version_HG diff -r d550d7de8e2d -r ba8c5416aa28 AbstractFileFinderApplicationComponent.st --- a/AbstractFileFinderApplicationComponent.st Tue May 28 22:46:27 2013 +0100 +++ b/AbstractFileFinderApplicationComponent.st Fri May 31 00:35:44 2013 +0100 @@ -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 @@ -187,7 +185,7 @@ (task := searchTask) notNil ifTrue:[ searchTask := nil. - Object errorSignal handle:[:ex| + Error handle:[:ex| Dialog warn:ex description. ]do:[ task isDead ifFalse:[ @@ -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 @@ -439,7 +433,6 @@ ^ false ! ! - !AbstractFileFinderApplicationComponent methodsFor:'initialization'! initialize @@ -452,7 +445,6 @@ "Modified: / 12-01-2012 / 01:39:27 / cg" ! ! - !AbstractFileFinderApplicationComponent methodsFor:'queries'! hasOneFileSelected @@ -468,7 +460,6 @@ ^ sel notEmptyOrNil ! ! - !AbstractFileFinderApplicationComponent methodsFor:'tasks'! stopSearchTaskOrAbort @@ -484,15 +475,14 @@ "Created: / 12-01-2012 / 01:48:42 / cg" ! ! - !AbstractFileFinderApplicationComponent class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.9 2013-03-28 16:48:59 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.10 2013-04-27 12:27:47 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.9 2013-03-28 16:48:59 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.10 2013-04-27 12:27:47 cg Exp $' ! version_HG diff -r d550d7de8e2d -r ba8c5416aa28 AbstractLauncherApplication.st --- a/AbstractLauncherApplication.st Tue May 28 22:46:27 2013 +0100 +++ b/AbstractLauncherApplication.st Fri May 31 00:35:44 2013 +0100 @@ -19,6 +19,18 @@ category:'Interface-Smalltalk' ! +AbstractLauncherApplication class instanceVariableNames:'SettingsList UserSettingsList' + +" + 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:'' @@ -725,13 +737,11 @@ ^ nil ] ]. - "/self halt. + "/ self halt. ]. ]. ]. ^ cls - - "Modified: / 24-04-2013 / 12:08:07 / Jan Vrany " ! findWindow:title @@ -7012,11 +7022,11 @@ !AbstractLauncherApplication class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.426 2013-03-28 18:18:56 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.429 2013-05-14 10:27:57 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.426 2013-03-28 18:18:56 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.429 2013-05-14 10:27:57 cg Exp $' ! version_HG @@ -7025,6 +7035,6 @@ ! version_SVN - ^ '§Id: AbstractLauncherApplication.st 7796 2011-06-23 16:01:32Z vranyj1 §' + ^ '$Id: AbstractLauncherApplication.st,v 1.429 2013-05-14 10:27:57 cg Exp $' ! ! diff -r d550d7de8e2d -r ba8c5416aa28 AbstractSettingsApplication.st --- a/AbstractSettingsApplication.st Tue May 28 22:46:27 2013 +0100 +++ b/AbstractSettingsApplication.st Fri May 31 00:35:44 2013 +0100 @@ -28,22 +28,22 @@ AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes - warnUnderscore warnCompatibility warnUnusedVars - warnAboutWrongVariableNames warnAboutBadComments - warnInconsistentReturnValues - warnAboutNonLowercaseLocalVariableNames allowQualifiedNames - allowDollar allowReservedWordsAsSelectors allowOldStyleAssignment - allowUnderscore allowDolphinExtensions allowSqueakExtensions - allowVisualAgeESSymbolLiterals allowVisualAgePrimitives - allowFixedPointLiterals justInTimeCompilation canLoadBinaries - constantFoldingSelection keepSource constantFolding - constantFoldingOptions fullDebugSupport immutableArrays - enableUnderscore enableDollar allowEmptyStatements - warnAboutPossibleSTCCompilationProblems - warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames - warnAboutPossiblyUnimplementedSelectors - allowExtendedBinarySelectors warnAboutMissingMethodComment - allowAssignmentToPoolVariable warnPlausibilityChecks' + warnUnderscore warnCompatibility warnUnusedVars + warnAboutWrongVariableNames warnAboutBadComments + warnInconsistentReturnValues + warnAboutNonLowercaseLocalVariableNames allowQualifiedNames + allowDollar allowReservedWordsAsSelectors allowOldStyleAssignment + allowUnderscore allowDolphinExtensions allowSqueakExtensions + allowVisualAgeESSymbolLiterals allowVisualAgePrimitives + allowFixedPointLiterals justInTimeCompilation canLoadBinaries + constantFoldingSelection keepSource constantFolding + constantFoldingOptions fullDebugSupport immutableArrays + immutableStrings enableUnderscore enableDollar + allowEmptyStatements warnAboutPossibleSTCCompilationProblems + warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames + warnAboutPossiblyUnimplementedSelectors + allowExtendedBinarySelectors warnAboutMissingMethodComment + allowAssignmentToPoolVariable warnPlausibilityChecks' classVariableNames:'' poolDictionaries:'' privateIn:AbstractSettingsApplication @@ -194,7 +194,8 @@ selectOnRightClick popUpMenuOnRelease showRightButtonMenuOnRelease formatHostNameWindowLabel1 formatHostNameWindowLabel2 allowMouseWheelZoom - forceWindowsIntoMonitorBounds button2WithAltKey' + forceWindowsIntoMonitorBounds button2WithAltKey + autoRaiseOnFocusIn' classVariableNames:'' poolDictionaries:'' privateIn:AbstractSettingsApplication @@ -255,7 +256,7 @@ instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath stcCompilationSelection stcCompilationList makeCommand - stcKeepCIntermediate supportedCCompilerSelection' + stcKeepCIntermediate supportedCCompilerSelection verbose' classVariableNames:'' poolDictionaries:'' privateIn:AbstractSettingsApplication @@ -411,7 +412,6 @@ " ! ! - !AbstractSettingsApplication class methodsFor:'defaults'! classResources @@ -434,14 +434,12 @@ "Created: / 25-10-2010 / 09:37:21 / cg" ! ! - !AbstractSettingsApplication class methodsFor:'interface specs'! windowSpec self subclassResponsibility ! ! - !AbstractSettingsApplication class methodsFor:'queries'! isVisualStartable @@ -452,7 +450,6 @@ ^ super isVisualStartable ! ! - !AbstractSettingsApplication methodsFor:'accessing'! requestor:anotherApplication @@ -471,7 +468,6 @@ "Modified: / 12-05-2010 / 18:44:09 / cg" ! ! - !AbstractSettingsApplication methodsFor:'actions'! evaluateModified @@ -547,7 +543,6 @@ self modifiedChannel value:self hasUnsavedChanges ! ! - !AbstractSettingsApplication methodsFor:'aspects'! modifiedChannel @@ -558,7 +553,6 @@ ^ modifiedChannel ! ! - !AbstractSettingsApplication methodsFor:'helpers'! hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider @@ -630,7 +624,6 @@ "Modified: / 24-08-2010 / 16:52:42 / sr" ! ! - !AbstractSettingsApplication methodsFor:'initialization'! initialize @@ -647,14 +640,12 @@ currentUserPrefs := UserPreferences current. ! ! - !AbstractSettingsApplication methodsFor:'menu'! settingsDialogPopUpMenu ^ nil ! ! - !AbstractSettingsApplication methodsFor:'protocol'! askForChangeOnRelease @@ -694,7 +685,6 @@ ^ nil. ! ! - !AbstractSettingsApplication methodsFor:'queries'! hasUnsavedChanges @@ -712,7 +702,6 @@ ^ settingsDialog getNameOfApplication:self. ! ! - !AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -723,7 +712,6 @@ "Modified: / 17-09-2007 / 11:35:02 / cg" ! ! - !AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'! windowSpec @@ -882,7 +870,6 @@ "Modified: / 22-01-2012 / 10:59:44 / cg" ! ! - !AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'! basicReadSettings @@ -945,7 +932,6 @@ ]. ! ! - !AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'! buildDirectory @@ -984,14 +970,12 @@ "Created: / 22-01-2012 / 10:59:30 / cg" ! ! - !AbstractSettingsApplication::BuildSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/buildSetup.html' ! ! - !AbstractSettingsApplication::BuildSettingsAppl methodsFor:'initialization'! postBuildDirectoryField:aField @@ -1000,7 +984,6 @@ with:(Filename currentDirectory construct:'stx_build') pathName) ! ! - !AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -1018,7 +1001,6 @@ "Modified: / 22-01-2012 / 10:50:15 / cg" ! ! - !AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'! constantFoldingOptions @@ -1031,6 +1013,80 @@ ^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full') ! ! +!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'help specs'! + +flyByHelpSpec + "This resource specification was automatically generated + by the UIHelpTool of ST/X." + + "Do not manually edit this!! If it is corrupted, + the UIHelpTool may not be able to read the specification." + + " + UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl + " + + + + ^ super flyByHelpSpec addPairsFrom: self helpPairs +! + +helpPairs + "This resource specification was automatically generated + by the UIHelpTool of ST/X." + + "Do not manually edit this!! If it is corrupted, + the UIHelpTool may not be able to read the specification." + + " + UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl + " + + + + ^ #( + +#arraysAreImmutable +'Array literals are readonly objects, which cannot be modified. +Prevents constant arrays as returned from a method to be modified elsewhere by accident.' + +#fullDebugInfo +'Include more debug support in the generated code. +Especially restartability and returnability of methods in the debugger are improved.' + +#stringsAreImmutable +'String literals are readonly objects, which cannot be modified. +Prevents constant strings as returned from a method to be modified elsewehere by accident.' + +) +! + +helpSpec + "This resource specification was automatically generated + by the UIHelpTool of ST/X." + + "Do not manually edit this!! If it is corrupted, + the UIHelpTool may not be able to read the specification." + + " + UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl + " + + + + ^ super helpSpec addPairsFrom:#( + +#arraysAreImmutable +'' + +#fullDebugInfo +'' + +#stringsAreImmutable +'' + +) +! ! !AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'! @@ -1118,7 +1174,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+ - ^ + ^ #(FullSpec - name: windowSpec - window: + name: windowSpec + window: (WindowSpec - label: 'Byte Code Compiler Settings' - name: 'Byte Code Compiler Settings' - min: (Point 10 10) - bounds: (Rectangle 0 0 665 706) - ) - component: + label: 'Byte Code Compiler Settings' + name: 'Byte Code Compiler Settings' + min: (Point 10 10) + bounds: (Rectangle 0 0 665 706) + ) + component: (SpecCollection - collection: ( - (VerticalPanelViewSpec - name: 'VerticalPanel1' - layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) - horizontalLayout: fit - verticalLayout: top - horizontalSpace: 3 - verticalSpace: 3 - component: - (SpecCollection - collection: ( - (CheckBoxSpec - label: 'Just in Time Compilation to Machine Code' - name: 'JustInTimeCompilation' - model: justInTimeCompilation - translateLabel: true - extent: (Point 665 25) - ) - (DividerSpec - name: 'Separator3' - extent: (Point 665 3) - ) - (ViewSpec - name: 'Box1' - component: - (SpecCollection - collection: ( - (VerticalPanelViewSpec - name: 'VerticalPanel1_1' - layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1) - horizontalLayout: fit - verticalLayout: top - horizontalSpace: 3 - verticalSpace: 0 - component: - (SpecCollection - collection: ( - (CheckBoxSpec - label: 'Allow Underscore in Identifiers' - name: 'AllowUnderscoreInIdentifiers' - model: allowUnderscoreInIdentifier - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Allow Dollar in Identifiers' - name: 'AllowDollarInIdentifiers' - model: allowDollarInIdentifier - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Allow VW3 QualifiedNames' - name: 'AllowVW3QualifiedNames' - model: allowQualifiedNames - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Allow OldStyle Assignment (_)' - name: 'AllowOldStyleAssignment' - model: allowOldStyleAssignment - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Allow Reserved Words as Selector (self)' - name: 'AllowReservedWordsAsSelector' - model: allowReservedWordsAsSelectors - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Allow Extended Binary Selectors' - name: 'CheckBox4' - model: allowExtendedBinarySelectors - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Allow Assignment to Pool Variable' - name: 'CheckBox6' - model: allowAssignmentToPoolVariable - translateLabel: true - extent: (Point 313 22) - ) - ) - - ) - ) - (VerticalPanelViewSpec - name: 'VerticalPanel1_2' - layout: (LayoutFrame 0 0.5 0 0 0 1 0 1) - horizontalLayout: left - verticalLayout: top - horizontalSpace: 3 - verticalSpace: 0 - component: - (SpecCollection - collection: ( - (CheckBoxSpec - label: 'Allow Squeak Extensions' - name: 'AllowSqueakExtensions' - model: allowSqueakExtensions - translateLabel: true - extent: (Point 665 22) - ) - (CheckBoxSpec - label: 'Allow Dolphin Extensions' - name: 'AllowDolphinExtensions' - model: allowDolphinExtensions - translateLabel: true - extent: (Point 665 22) - ) - (CheckBoxSpec - label: 'Allow VisualAge ES-Symbols' - name: 'AllowVisualAgeESSymbolLiterals' - model: allowVisualAgeESSymbolLiterals - translateLabel: true - extent: (Point 665 22) - ) - (CheckBoxSpec - label: 'Allow VisualAge Primitives' - name: 'CheckBox8' - model: allowVisualAgePrimitives - translateLabel: true - extent: (Point 665 22) - ) - (CheckBoxSpec - label: 'Allow FixedPoint-Number Literals' - name: 'AllowFixedPointLiterals' - model: allowFixedPointLiterals - translateLabel: true - extent: (Point 665 22) - ) - (CheckBoxSpec - label: 'Allow Empty Statements' - name: 'AllowEmptyStatements' - model: allowEmptyStatements - translateLabel: true - extent: (Point 665 22) - ) - ) - - ) - ) - ) - - ) - extent: (Point 665 157) - ) - (DividerSpec - name: 'Separator4' - extent: (Point 665 1) - ) - (CheckBoxSpec - label: 'Warnings' - name: 'Warnings' - model: warnings - translateLabel: true - extent: (Point 665 22) - ) - (ViewSpec - name: 'Box2' - component: - (SpecCollection - collection: ( - (VerticalPanelViewSpec - name: 'VerticalPanel2_1' - layout: (LayoutFrame 20 0 0 0 0 0.5 0 1) - horizontalLayout: fit - verticalLayout: top - horizontalSpace: 3 - verticalSpace: 0 - component: - (SpecCollection - collection: ( - (CheckBoxSpec - label: 'ST/X Extensions' - name: 'STXExtensions' - enableChannel: warnings - model: warnSTXSpecials - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Reference to Private Class' - name: 'CheckBox1' - enableChannel: warnings - model: warnAboutReferenceToPrivateClass - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Underscores in Identifiers' - name: 'UnderscoresInIdentifiers' - enableChannel: enableUnderscore - model: warnUnderscoreInIdentifier - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Dollars in Identifiers' - name: 'DollarsInIdentifiers' - enableChannel: enableDollar - model: warnDollarInIdentifier - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'OldStyle Assignment' - name: 'OldStyleAssignment' - enableChannel: warnings - model: warnOldStyleAssignment - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Possible Incompatibilities' - name: 'PossibleIncompatibilities' - enableChannel: warnings - model: warnPossibleIncompatibilities - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Possible STC Compilation Problems' - name: 'PossibleSTCCompilationProblems' - enableChannel: warnings - model: warnAboutPossibleSTCCompilationProblems - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Possibly Unimplemented Selectors' - name: 'CheckBox3' - enableChannel: warnings - model: warnAboutPossiblyUnimplementedSelectors - translateLabel: true - extent: (Point 313 22) - ) - (CheckBoxSpec - label: 'Plausibility Checks' - name: 'CheckBox7' - enableChannel: warnings - model: warnPlausibilityChecks - translateLabel: true - extent: (Point 313 22) - ) - ) - - ) - ) - (VerticalPanelViewSpec - name: 'VerticalPanel2_2' - layout: (LayoutFrame -1 0.5 0 0 0 1 0 1) - horizontalLayout: left - verticalLayout: top - horizontalSpace: 3 - verticalSpace: 0 - component: - (SpecCollection - collection: ( - (CheckBoxSpec - label: 'Unused Method Variables' - name: 'UnusedMethodVariables' - enableChannel: warnings - model: warnUnusedVars - translateLabel: true - extent: (Point 600 22) - ) - (CheckBoxSpec - label: 'Bad (non-English) Variable Names' - name: 'BadVariableNames' - enableChannel: warnings - model: warnAboutWrongVariableNames - translateLabel: true - extent: (Point 600 22) - ) - (CheckBoxSpec - label: 'Bad (Non-Lowercase) Local Variable Names' - name: 'BadLocalVariableNames' - enableChannel: warnings - model: warnAboutNonLowercaseLocalVariableNames - translateLabel: true - extent: (Point 600 22) - ) - (CheckBoxSpec - label: 'Bad (Short) Local Variable Names' - name: 'CheckBox2' - enableChannel: warnings - model: warnAboutShortLocalVariableNames - translateLabel: true - extent: (Point 600 22) - ) - (CheckBoxSpec - label: 'Bad (empty) Comments' - name: 'BadComments' - enableChannel: warnings - model: warnAboutBadComments - translateLabel: true - extent: (Point 600 22) - ) - (CheckBoxSpec - label: 'Method-Comment Missing ' - name: 'CheckBox5' - enableChannel: warnings - model: warnAboutMissingMethodComment - translateLabel: true - extent: (Point 600 22) - ) - (CheckBoxSpec - label: 'Inconsistent Return Values' - name: 'InconsistentReturnValues' - enableChannel: warnings - model: warnInconsistentReturnValues - translateLabel: true - extent: (Point 600 22) - ) - (CheckBoxSpec - label: 'Common Mistakes' - name: 'CommonMistakes' - enableChannel: warnings - model: warnCommonMistakes - translateLabel: true - extent: (Point 600 22) - ) - ) - - ) - ) - ) - - ) - extent: (Point 665 206) - ) - (ViewSpec - name: 'Box4' - component: - (SpecCollection - collection: ( - (ActionButtonSpec - label: 'Reenable Suppressed Warnings Now' - name: 'Button1' - layout: (LayoutOrigin 0 0.5 0 0) - translateLabel: true - model: reenableSuppressedWarnings - ) - ) - - ) - extent: (Point 665 30) - ) - (DividerSpec - name: 'Separator5' - extent: (Point 665 2) - ) - (CheckBoxSpec - label: 'Literal Arrays are Immutable' - name: 'LiteralArraysAreImmutable' - model: arraysAreImmutable - translateLabel: true - extent: (Point 665 22) - ) - (CheckBoxSpec - label: 'Full Debug Info' - name: 'FullDebugInfo' - model: fullDebugSupport - translateLabel: true - extent: (Point 665 22) - ) - (DividerSpec - name: 'Separator6' - extent: (Point 665 2) - ) - (ViewSpec - name: 'Box3' - component: - (SpecCollection - collection: ( - (LabelSpec - label: 'Constant Folding:' - name: 'ConstantFoldingLabel' - layout: (LayoutFrame 0 0 0 0 306 0 22 0) - translateLabel: true - adjust: right - ) - (PopUpListSpec - label: 'PopUp List' - name: 'ConstantFolding' - layout: (LayoutFrame 313 0 0 0 -5 1 22 0) - tabable: true - model: constantFoldingSelection - menu: constantFolding - useIndex: true - ) - ) - - ) - extent: (Point 665 22) - ) - ) - - ) - ) - ) - - ) + collection: ( + (VerticalPanelViewSpec + name: 'VerticalPanel1' + layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) + horizontalLayout: fit + verticalLayout: top + horizontalSpace: 3 + verticalSpace: 3 + component: + (SpecCollection + collection: ( + (CheckBoxSpec + label: 'Just in Time Compilation to Machine Code' + name: 'JustInTimeCompilation' + model: justInTimeCompilation + translateLabel: true + extent: (Point 665 25) + ) + (DividerSpec + name: 'Separator3' + extent: (Point 665 3) + ) + (ViewSpec + name: 'Box1' + component: + (SpecCollection + collection: ( + (VerticalPanelViewSpec + name: 'VerticalPanel1_1' + layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1) + horizontalLayout: fit + verticalLayout: top + horizontalSpace: 3 + verticalSpace: 0 + component: + (SpecCollection + collection: ( + (CheckBoxSpec + label: 'Allow Underscore in Identifiers' + name: 'AllowUnderscoreInIdentifiers' + model: allowUnderscoreInIdentifier + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Allow Dollar in Identifiers' + name: 'AllowDollarInIdentifiers' + model: allowDollarInIdentifier + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Allow VW3 QualifiedNames' + name: 'AllowVW3QualifiedNames' + model: allowQualifiedNames + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Allow OldStyle Assignment (_)' + name: 'AllowOldStyleAssignment' + model: allowOldStyleAssignment + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Allow Reserved Words as Selector (self)' + name: 'AllowReservedWordsAsSelector' + model: allowReservedWordsAsSelectors + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Allow Extended Binary Selectors' + name: 'CheckBox4' + model: allowExtendedBinarySelectors + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Allow Assignment to Pool Variable' + name: 'CheckBox6' + model: allowAssignmentToPoolVariable + translateLabel: true + extent: (Point 313 22) + ) + ) + + ) + ) + (VerticalPanelViewSpec + name: 'VerticalPanel1_2' + layout: (LayoutFrame 0 0.5 0 0 0 1 0 1) + horizontalLayout: left + verticalLayout: top + horizontalSpace: 3 + verticalSpace: 0 + component: + (SpecCollection + collection: ( + (CheckBoxSpec + label: 'Allow Squeak Extensions' + name: 'AllowSqueakExtensions' + model: allowSqueakExtensions + translateLabel: true + extent: (Point 665 22) + ) + (CheckBoxSpec + label: 'Allow Dolphin Extensions' + name: 'AllowDolphinExtensions' + model: allowDolphinExtensions + translateLabel: true + extent: (Point 665 22) + ) + (CheckBoxSpec + label: 'Allow VisualAge ES-Symbols' + name: 'AllowVisualAgeESSymbolLiterals' + model: allowVisualAgeESSymbolLiterals + translateLabel: true + extent: (Point 665 22) + ) + (CheckBoxSpec + label: 'Allow VisualAge Primitives' + name: 'CheckBox8' + model: allowVisualAgePrimitives + translateLabel: true + extent: (Point 665 22) + ) + (CheckBoxSpec + label: 'Allow FixedPoint-Number Literals' + name: 'AllowFixedPointLiterals' + model: allowFixedPointLiterals + translateLabel: true + extent: (Point 665 22) + ) + (CheckBoxSpec + label: 'Allow Empty Statements' + name: 'AllowEmptyStatements' + model: allowEmptyStatements + translateLabel: true + extent: (Point 665 22) + ) + ) + + ) + ) + ) + + ) + extent: (Point 665 157) + ) + (DividerSpec + name: 'Separator4' + extent: (Point 665 1) + ) + (CheckBoxSpec + label: 'Warnings' + name: 'Warnings' + model: warnings + translateLabel: true + extent: (Point 665 22) + ) + (ViewSpec + name: 'Box2' + component: + (SpecCollection + collection: ( + (VerticalPanelViewSpec + name: 'VerticalPanel2_1' + layout: (LayoutFrame 20 0 0 0 0 0.5 0 1) + horizontalLayout: fit + verticalLayout: top + horizontalSpace: 3 + verticalSpace: 0 + component: + (SpecCollection + collection: ( + (CheckBoxSpec + label: 'ST/X Extensions' + name: 'STXExtensions' + enableChannel: warnings + model: warnSTXSpecials + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Reference to Private Class' + name: 'CheckBox1' + enableChannel: warnings + model: warnAboutReferenceToPrivateClass + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Underscores in Identifiers' + name: 'UnderscoresInIdentifiers' + enableChannel: enableUnderscore + model: warnUnderscoreInIdentifier + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Dollars in Identifiers' + name: 'DollarsInIdentifiers' + enableChannel: enableDollar + model: warnDollarInIdentifier + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'OldStyle Assignment' + name: 'OldStyleAssignment' + enableChannel: warnings + model: warnOldStyleAssignment + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Possible Incompatibilities' + name: 'PossibleIncompatibilities' + enableChannel: warnings + model: warnPossibleIncompatibilities + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Possible STC Compilation Problems' + name: 'PossibleSTCCompilationProblems' + enableChannel: warnings + model: warnAboutPossibleSTCCompilationProblems + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Possibly Unimplemented Selectors' + name: 'CheckBox3' + enableChannel: warnings + model: warnAboutPossiblyUnimplementedSelectors + translateLabel: true + extent: (Point 313 22) + ) + (CheckBoxSpec + label: 'Plausibility Checks' + name: 'CheckBox7' + enableChannel: warnings + model: warnPlausibilityChecks + translateLabel: true + extent: (Point 313 22) + ) + ) + + ) + ) + (VerticalPanelViewSpec + name: 'VerticalPanel2_2' + layout: (LayoutFrame -1 0.5 0 0 0 1 0 1) + horizontalLayout: left + verticalLayout: top + horizontalSpace: 3 + verticalSpace: 0 + component: + (SpecCollection + collection: ( + (CheckBoxSpec + label: 'Unused Method Variables' + name: 'UnusedMethodVariables' + enableChannel: warnings + model: warnUnusedVars + translateLabel: true + extent: (Point 600 22) + ) + (CheckBoxSpec + label: 'Bad (non-English) Variable Names' + name: 'BadVariableNames' + enableChannel: warnings + model: warnAboutWrongVariableNames + translateLabel: true + extent: (Point 600 22) + ) + (CheckBoxSpec + label: 'Bad (Non-Lowercase) Local Variable Names' + name: 'BadLocalVariableNames' + enableChannel: warnings + model: warnAboutNonLowercaseLocalVariableNames + translateLabel: true + extent: (Point 600 22) + ) + (CheckBoxSpec + label: 'Bad (Short) Local Variable Names' + name: 'CheckBox2' + enableChannel: warnings + model: warnAboutShortLocalVariableNames + translateLabel: true + extent: (Point 600 22) + ) + (CheckBoxSpec + label: 'Bad (empty) Comments' + name: 'BadComments' + enableChannel: warnings + model: warnAboutBadComments + translateLabel: true + extent: (Point 600 22) + ) + (CheckBoxSpec + label: 'Method-Comment Missing ' + name: 'CheckBox5' + enableChannel: warnings + model: warnAboutMissingMethodComment + translateLabel: true + extent: (Point 600 22) + ) + (CheckBoxSpec + label: 'Inconsistent Return Values' + name: 'InconsistentReturnValues' + enableChannel: warnings + model: warnInconsistentReturnValues + translateLabel: true + extent: (Point 600 22) + ) + (CheckBoxSpec + label: 'Common Mistakes' + name: 'CommonMistakes' + enableChannel: warnings + model: warnCommonMistakes + translateLabel: true + extent: (Point 600 22) + ) + ) + + ) + ) + ) + + ) + extent: (Point 665 206) + ) + (ViewSpec + name: 'Box4' + component: + (SpecCollection + collection: ( + (ActionButtonSpec + label: 'Reenable Suppressed Warnings Now' + name: 'Button1' + layout: (LayoutOrigin 0 0.5 0 0) + translateLabel: true + model: reenableSuppressedWarnings + ) + ) + + ) + extent: (Point 665 30) + ) + (DividerSpec + name: 'Separator5' + extent: (Point 665 2) + ) + (CheckBoxSpec + label: 'Literal Strings are Immutable' + name: 'LiteralStringsAreImmutable' + activeHelpKey: stringsAreImmutable + model: stringsAreImmutable + translateLabel: true + extent: (Point 665 22) + ) + (CheckBoxSpec + label: 'Literal Arrays are Immutable' + name: 'CheckBox9' + activeHelpKey: arraysAreImmutable + model: arraysAreImmutable + translateLabel: true + extent: (Point 665 22) + ) + (CheckBoxSpec + label: 'Full Debug Info' + name: 'FullDebugInfo' + activeHelpKey: fullDebugInfo + model: fullDebugSupport + translateLabel: true + extent: (Point 665 22) + ) + (DividerSpec + name: 'Separator6' + extent: (Point 665 2) + ) + (ViewSpec + name: 'Box3' + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Constant Folding:' + name: 'ConstantFoldingLabel' + layout: (LayoutFrame 0 0 0 0 306 0 22 0) + translateLabel: true + adjust: right + ) + (PopUpListSpec + label: 'PopUp List' + name: 'ConstantFolding' + layout: (LayoutFrame 313 0 0 0 -5 1 22 0) + tabable: true + model: constantFoldingSelection + menu: constantFolding + useIndex: true + ) + ) + + ) + extent: (Point 665 22) + ) + ) + + ) + ) + ) + + ) ) - - "Modified: / 08-03-2012 / 10:26:26 / cg" -! ! - +! ! !AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'! @@ -1620,42 +1682,43 @@ ! simpleAspects - ^ - #( - warnings - warnCommonMistakes - warnPossibleIncompatibilities - warnDollarInIdentifier - warnOldStyleAssignment - warnSTXSpecials - warnUnderscoreInIdentifier - warnUnusedVars - warnAboutWrongVariableNames - warnAboutBadComments - warnInconsistentReturnValues - warnAboutNonLowercaseLocalVariableNames - warnAboutShortLocalVariableNames - warnAboutPossibleSTCCompilationProblems - warnAboutReferenceToPrivateClass - warnAboutPossiblyUnimplementedSelectors - warnPlausibilityChecks - - allowDollarInIdentifier - allowDolphinExtensions - allowOldStyleAssignment - allowQualifiedNames - allowReservedWordsAsSelectors - allowSqueakExtensions - allowUnderscoreInIdentifier - allowVisualAgeESSymbolLiterals - allowVisualAgePrimitives - allowFixedPointLiterals - allowEmptyStatements - allowExtendedBinarySelectors - - arraysAreImmutable - allowAssignmentToPoolVariable - ) + ^ + #( + warnings + warnCommonMistakes + warnPossibleIncompatibilities + warnDollarInIdentifier + warnOldStyleAssignment + warnSTXSpecials + warnUnderscoreInIdentifier + warnUnusedVars + warnAboutWrongVariableNames + warnAboutBadComments + warnInconsistentReturnValues + warnAboutNonLowercaseLocalVariableNames + warnAboutShortLocalVariableNames + warnAboutPossibleSTCCompilationProblems + warnAboutReferenceToPrivateClass + warnAboutPossiblyUnimplementedSelectors + warnPlausibilityChecks + + allowDollarInIdentifier + allowDolphinExtensions + allowOldStyleAssignment + allowQualifiedNames + allowReservedWordsAsSelectors + allowSqueakExtensions + allowUnderscoreInIdentifier + allowVisualAgeESSymbolLiterals + allowVisualAgePrimitives + allowFixedPointLiterals + allowEmptyStatements + allowExtendedBinarySelectors + + arraysAreImmutable + stringsAreImmutable + allowAssignmentToPoolVariable + ) "Created: / 20-11-2006 / 22:37:17 / cg" ! @@ -1665,7 +1728,6 @@ AbstractLauncherApplication::LauncherDialogs stcCompilerSettings ! ! - !AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'! allowAssignmentToPoolVariable @@ -1874,6 +1936,15 @@ ^ justInTimeCompilation. ! +stringsAreImmutable + + immutableStrings isNil ifTrue:[ + immutableStrings := ParserFlags arraysAreImmutable asValue. + immutableStrings onChangeSend:#updateModifiedChannel to:self. + ]. + ^ immutableStrings. +! + warnAboutBadComments warnAboutBadComments isNil ifTrue:[ warnAboutBadComments := ParserFlags warnAboutBadComments asValue. @@ -2044,7 +2115,6 @@ ^ warnings. ! ! - !AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'! update:something with:aParameter from:changedObject @@ -2066,14 +2136,12 @@ super update:something with:aParameter from:changedObject ! ! - !AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/compilerSettings.html' ! ! - !AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -2097,7 +2165,6 @@ ^ ObjectMemory supportsJustInTimeCompilation ! ! - !AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -2126,7 +2193,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 @@ -2221,7 +2287,6 @@ ) ! ! - !AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'actions'! basicReadSettings @@ -2241,7 +2306,6 @@ "Modified: / 09-02-2011 / 20:32:47 / cg" ! ! - !AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'aspects'! changeFileName @@ -2274,14 +2338,12 @@ "Modified (format): / 25-11-2011 / 15:43:45 / cg" ! ! - !AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/messageSettings.html' ! ! - !AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -2293,7 +2355,6 @@ "Modified: / 27-10-2010 / 10:17:21 / cg" ! ! - !AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -2322,7 +2383,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 @@ -2401,7 +2461,6 @@ "Modified: / 04-07-2011 / 16:58:44 / cg" ! ! - !AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'actions'! basicReadSettings @@ -2416,7 +2475,6 @@ to:currentUserPrefs. ! ! - !AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'aspects'! aspectSelectors @@ -2451,14 +2509,12 @@ ^ generateCommentsForSetters. ! ! - !AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/codeGeneratorSettings.html' ! ! - !AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -2469,7 +2525,6 @@ "Modified: / 25-11-2011 / 15:22:51 / cg" ! ! - !AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -2529,7 +2584,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 @@ -2594,7 +2648,6 @@ ) ! ! - !AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'actions'! aspectsFromUserPreferences @@ -2616,7 +2669,6 @@ to:currentUserPrefs. ! ! - !AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'aspects'! logHTTPRequests @@ -2635,14 +2687,12 @@ ^ logSOAPRequests. ! ! - !AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/comLoggingSettings.html' ! ! - !AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -2651,7 +2701,6 @@ asComparedTo:currentUserPrefs ! ! - !AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -2660,7 +2709,6 @@ ^ ToolbarIconLibrary bugReporter24x24Icon ! ! - !AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'! windowSpec @@ -2796,7 +2844,6 @@ ) ! ! - !AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'! basicReadSettings @@ -2824,7 +2871,6 @@ "Modified: / 10-06-2012 / 21:23:32 / cg" ! ! - !AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'! allowSendMailFromDebugger @@ -2874,14 +2920,12 @@ ^ verboseBacktraceInDebugger. ! ! - !AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/debuggerSettings.html' ! ! - !AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -2895,7 +2939,6 @@ "Modified: / 10-06-2012 / 21:23:54 / cg" ! ! - !AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'! clipEncodingStrings @@ -2928,7 +2971,6 @@ ^ #(ordered floydSteinberg) ! ! - !AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'! defaultIcon @@ -2937,7 +2979,6 @@ ^ ToolbarIconLibrary displayScreenIcon ! ! - !AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'! windowSpec @@ -3145,7 +3186,6 @@ ) ! ! - !AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'! basicReadSettings @@ -3205,7 +3245,6 @@ screen clipboardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value). ! ! - !AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'! clipEncodingList @@ -3381,7 +3420,6 @@ ^ visualIsPseudoColor. ! ! - !AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'! monitorSelectionChanged @@ -3423,14 +3461,12 @@ super update:something with:aParameter from:changedObject ! ! - !AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/screenSettings.html' ! ! - !AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'! initialize @@ -3466,7 +3502,6 @@ ! ! - !AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -3484,7 +3519,6 @@ ^ false ! ! - !AbstractSettingsApplication::EditSettingsAppl class methodsFor:'help specs'! flyByHelpSpec @@ -3527,7 +3561,6 @@ "Created: / 17-03-2012 / 11:37:51 / cg" ! ! - !AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -3536,7 +3569,6 @@ ^ ToolbarIconLibrary editorIcon ! ! - !AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'! windowSpec @@ -3662,7 +3694,6 @@ ) ! ! - !AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'! basicReadSettings @@ -3714,7 +3745,6 @@ "Modified: / 07-03-2012 / 14:33:40 / cg" ! ! - !AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'! enforceContentsDropForFiles @@ -3810,14 +3840,12 @@ ^ whitespaceWordSelectMode. ! ! - !AbstractSettingsApplication::EditSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/editSettings.html' ! ! - !AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -3836,7 +3864,6 @@ "Modified: / 25-11-2011 / 15:23:02 / cg" ! ! - !AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'! widgetList @@ -3851,7 +3878,6 @@ ) ! ! - !AbstractSettingsApplication::FontSettingsAppl class methodsFor:'help specs'! flyByHelpSpec @@ -3894,7 +3920,6 @@ "Created: / 17-03-2012 / 11:37:51 / cg" ! ! - !AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -3926,7 +3951,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=>@C?>@G<>@C<\@@8D@@H@@@@@@@@@@@@@@') ; yourself); yourself] ! ! - !AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'! fontForEncoding:encodingMatch @@ -3939,7 +3963,6 @@ self open. ! ! - !AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'! windowSpec @@ -4361,7 +4384,6 @@ "Modified: / 17-03-2012 / 11:44:29 / cg" ! ! - !AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'! encodingMatch:aEncodingMatch @@ -4372,7 +4394,6 @@ ]. ! ! - !AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'! basicReadFontSettings @@ -4608,7 +4629,6 @@ "Created: / 17-03-2012 / 11:22:18 / cg" ! ! - !AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'! allFontLabelHolder @@ -4768,7 +4788,6 @@ ^ textFontLabelHolder. ! ! - !AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'! update:something with:aParameter from:changedObject @@ -4829,14 +4848,12 @@ self updateModifiedChannel ! ! - !AbstractSettingsApplication::FontSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/fontSettings.html' ! ! - !AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'! postBuildAllFontLabel:aWidget @@ -4880,7 +4897,6 @@ super postBuildWith:aBuilder ! ! - !AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -4898,7 +4914,6 @@ "Modified: / 10-10-2011 / 12:14:10 / Jan Vrany " ! ! - !AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'! keepSourceOptions @@ -4911,7 +4926,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 @@ -4971,7 +4985,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 @@ -5131,7 +5144,6 @@ ) ! ! - !AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'! basicReadSettings @@ -5180,7 +5192,6 @@ "Modified: / 08-07-2011 / 10:26:30 / Jan Vrany " ! ! - !AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'! canLoadBinaries @@ -5279,14 +5290,12 @@ "Modified: / 04-08-2010 / 18:37:53 / cg" ! ! - !AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/compilerSettings.html' ! ! - !AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -5303,7 +5312,6 @@ "Modified: / 08-07-2011 / 10:25:30 / Jan Vrany " ! ! - !AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'! defaultIcon @@ -5332,7 +5340,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 @@ -5499,7 +5506,6 @@ ) ! ! - !AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'! addCreatedServer:aServer @@ -5521,7 +5527,6 @@ self createdServers remove:aServer ifAbsent:nil. ! ! - !AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'! basicReadSettings @@ -5739,7 +5744,6 @@ "Modified: / 26-08-2012 / 10:26:20 / cg" ! ! - !AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'! hasCreatedServerChannel @@ -5779,7 +5783,6 @@ ^ portNumberChannel. ! ! - !AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'! createdServerChanged @@ -5806,14 +5809,12 @@ "Modified: / 25-01-2007 / 16:38:52 / cg" ! ! - !AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'help'! helpFilename ^ 'HTTPServer/index.html' ! ! - !AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'! release @@ -5827,7 +5828,6 @@ "Modified: / 25-01-2007 / 16:39:23 / cg" ! ! - !AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'! hasCreatedServer @@ -5875,7 +5875,6 @@ "Created: / 25-01-2007 / 17:16:46 / cg" ! ! - !AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -5884,7 +5883,6 @@ ^ ToolbarIconLibrary keyboardMappingIcon ! ! - !AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'! windowSpec @@ -5991,7 +5989,6 @@ ) ! ! - !AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'! basicReadSettings @@ -6002,7 +5999,6 @@ "nothing done here" ! ! - !AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'! functionKeyList @@ -6052,7 +6048,6 @@ ^ selectedRawKey. ! ! - !AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'! changeFunctionKeySelection @@ -6129,14 +6124,12 @@ super update:something with:aParameter from:changedObject ! ! - !AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/keyboardSetting.html' ! ! - !AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'! initialize @@ -6151,7 +6144,6 @@ self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs. ! ! - !AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -6159,7 +6151,6 @@ ^ false ! ! - !AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -6168,7 +6159,6 @@ ^ ToolbarIconLibrary languagesIcon ! ! - !AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'! windowSpec @@ -6277,7 +6267,6 @@ ) ! ! - !AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'! languageList @@ -6286,7 +6275,6 @@ ^ languageList ! ! - !AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'! basicReadSettings @@ -6448,7 +6436,6 @@ self setNoticeLabel. ! ! - !AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'! currentFlagAndLanguageChannel @@ -6514,14 +6501,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 @@ -6668,7 +6653,6 @@ aWidget scrolledView backgroundColor:self window viewBackground. ! ! - !AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'! currentLanguage @@ -6708,7 +6692,6 @@ "Modified: / 24-08-2010 / 18:50:11 / sr" ! ! - !AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'help specs'! flyByHelpSpec @@ -6765,7 +6748,6 @@ ) ! ! - !AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'! defaultIcon @@ -6774,7 +6756,6 @@ ^ ToolbarIconLibrary memoryIcon ! ! - !AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'! windowSpec @@ -7340,7 +7321,6 @@ ) ! ! - !AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'! basicReadSettings @@ -7391,7 +7371,6 @@ "Modified: / 12-08-2010 / 15:34:47 / cg" ! ! - !AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'! codeLimit @@ -7517,14 +7496,12 @@ ^ warningLabelHolder. ! ! - !AbstractSettingsApplication::MemorySettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/memorySettings.html' ! ! - !AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'! initialize @@ -7536,7 +7513,6 @@ ). ! ! - !AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -7564,7 +7540,6 @@ "Modified: / 12-08-2010 / 15:33:12 / cg" ! ! - !AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -7590,7 +7565,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_@@K @@D@@') ; yourself); yourself] ! ! - !AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'! windowSpec @@ -7972,7 +7946,6 @@ ) ! ! - !AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'! basicReadSettings @@ -8086,7 +8059,6 @@ "Modified: / 20-09-2007 / 16:05:01 / cg" ! ! - !AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'! acceptChannel @@ -8241,7 +8213,6 @@ ^ windowMigrationPassword. ! ! - !AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'! selectedSmallTeamHostChanged @@ -8262,14 +8233,12 @@ "Created: / 12-11-2006 / 19:09:40 / cg" ! ! - !AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/communicationsSettings.html' ! ! - !AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'! initialize @@ -8277,7 +8246,6 @@ self readSettings. ! ! - !AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'! addHostEnabled @@ -8329,7 +8297,6 @@ ^ WindowMigrationServer notNil ! ! - !AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'user actions'! addSmallTeamHost @@ -8368,7 +8335,6 @@ "Modified: / 12-11-2006 / 19:15:05 / cg" ! ! - !AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'! defaultIcon @@ -8397,7 +8363,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_?8??<8??<8??=@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself] ! ! - !AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'! windowSpec @@ -8846,6 +8851,7 @@ label: 'Show Accelerator Keys in Menus' name: 'showAccelerators' model: showAccelerators + activeHelpKey: showAccelerators translateLabel: true extent: (Point 435 22) ) @@ -8865,6 +8871,7 @@ label: 'Keyboard Focus Follows Mouse' name: 'focusFollowsMouse' model: focusFollowsMouse + activeHelpKey: focusFollowsMouse translateLabel: true extent: (Point 435 22) ) @@ -8872,6 +8879,7 @@ label: 'Views Catch Focus when Mapped' name: 'takeFocus' model: takeFocus + activeHelpKey: takeFocus translateLabel: true extent: (Point 435 22) ) @@ -8879,6 +8887,7 @@ label: 'Boxes Return Focus to Previously Active View' name: 'returnFocus' model: returnFocus + activeHelpKey: returnFocus translateLabel: true extent: (Point 435 22) ) @@ -8888,6 +8897,15 @@ model: activateOnClick translateLabel: true extent: (Point 435 22) + activeHelpKey: activateOnClick + ) + (CheckBoxSpec + label: 'Autoraise Windows on FocusIn' + name: 'CheckBox4' + model: autoRaiseOnFocusIn + activeHelpKey: autoRaiseOnFocusIn + translateLabel: true + extent: (Point 435 22) ) (CheckBoxSpec label: 'Force Windows into Monitor''s Bounds' @@ -8914,6 +8932,7 @@ name: 'mouseWheelFocusFollowsMouse' enableChannel: mouseWheelFocusFollowsMouseEnabled model: mouseWheelFocusFollowsMouse + activeHelpKey: mouseWheelFocusFollowsMouse translateLabel: true extent: (Point 435 22) ) @@ -8921,6 +8940,7 @@ label: 'CTRL-MouseWheel is Zoom' name: 'CheckBox1' model: allowMouseWheelZoom + activeHelpKey: allowMouseWheelZoom translateLabel: true extent: (Point 435 22) ) @@ -8950,6 +8970,7 @@ model: selectOnRightClick translateLabel: true extent: (Point 435 21) + activeHelpKey: selectOnRightClick ) (CheckBoxSpec label: 'Menu on Right-Button-Release' @@ -8957,6 +8978,7 @@ model: showRightButtonMenuOnRelease translateLabel: true extent: (Point 435 21) + activeHelpKey: showRightButtonMenuOnRelease ) (ViewSpec name: 'SeparatingSpace7' @@ -8978,11 +9000,12 @@ (LabelSpec label: 'Label' name: 'Label1' - layout: (LayoutFrame 0 0 0 0 170 0 17 0) + layout: (LayoutFrame 0 0 0 0 193 0 18 0) translateLabel: true labelChannel: formatHostNameWindowLabel adjust: right useDefaultExtent: true + activeHelpKey: hostNameInLabel ) (LabelSpec label: 'Label' @@ -8991,6 +9014,7 @@ translateLabel: true labelChannel: formatHostNameWindowLabel1 adjust: left + activeHelpKey: hostNameInLabel ) (LabelSpec label: 'Label' @@ -8999,6 +9023,7 @@ translateLabel: true labelChannel: formatHostNameWindowLabel2 adjust: left + activeHelpKey: hostNameInLabel ) ) @@ -9015,6 +9040,7 @@ name: 'hostNameInLabelHolder' layout: (LayoutFrame 0 0 -22 1 216 0 0 1) model: hostNameInLabelHolder + activeHelpKey: hostNameInLabel translateLabel: true ) (InputFieldSpec @@ -9027,6 +9053,7 @@ acceptOnTab: true acceptOnLostFocus: true acceptOnPointerLeave: true + activeHelpKey: hostNameInLabel ) ) @@ -9043,7 +9070,6 @@ ) ! ! - !AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'! aspectsFromUserPreferences @@ -9072,6 +9098,8 @@ self takeFocus value:StandardSystemView takeFocusWhenMapped. self activateOnClick value:(Display activateOnClick:nil). self showAccelerators value:MenuView showAcceleratorKeys. + + self autoRaiseOnFocusIn value: (currentUserPrefs autoRaiseOnFocusInDelay notNil). ! basicSaveSettings @@ -9110,6 +9138,11 @@ MenuView showAcceleratorKeys:self showAccelerators value. + self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[ + currentUserPrefs autoRaiseOnFocusInDelay:( + self autoRaiseOnFocusIn value ifTrue:[ 750 ] ifFalse:[nil]). + ]. + "Modified: / 16.12.2002 / 18:06:31 / penk" ! @@ -9126,7 +9159,6 @@ ] ! ! - !AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'! activateOnClick @@ -9145,6 +9177,14 @@ ^ allowMouseWheelZoom. ! +autoRaiseOnFocusIn + autoRaiseOnFocusIn isNil ifTrue:[ + autoRaiseOnFocusIn := true asValue. + autoRaiseOnFocusIn onChangeSend:#updateModifiedChannel to:self + ]. + ^ autoRaiseOnFocusIn. +! + beepEnabled beepEnabled isNil ifTrue:[ beepEnabled := true asValue. @@ -9297,14 +9337,12 @@ ^ takeFocus. ! ! - !AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/miscSettings.html' ! ! - !AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -9318,10 +9356,10 @@ self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true]. self activateOnClick value ~= (Display activateOnClick:nil) ifTrue:[^ true]. self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true]. + self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[^ true]. ^ false ! ! - !AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -9330,7 +9368,6 @@ ^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon. ! ! - !AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'! windowSpec @@ -9551,7 +9588,6 @@ ) ! ! - !AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'! basicReadSettings @@ -9592,7 +9628,6 @@ ]. ! ! - !AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'! osiACSEConnectionLogging @@ -9675,14 +9710,12 @@ ^ osiROSEResponseLogging. ! ! - !AbstractSettingsApplication::OsiSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/communicationsSettings.html' ! ! - !AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -9701,7 +9734,6 @@ self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]]) ! ! - !AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -9710,7 +9742,6 @@ ^ ToolbarIconLibrary printerIcon ! ! - !AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'! windowSpec @@ -10034,7 +10065,6 @@ ) ! ! - !AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'! basicReadSettings @@ -10089,7 +10119,6 @@ ]. ! ! - !AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'! bottomMargin @@ -10364,7 +10393,6 @@ ^ unitList. ! ! - !AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'! printerTypeSelectionChanged @@ -10448,14 +10476,12 @@ super update:something with:aParameter from:changedObject ! ! - !AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/printerSettings.html' ! ! - !AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'! commandList @@ -10516,7 +10542,6 @@ ^ possiblePrinters ! ! - !AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -10542,7 +10567,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 @@ -10618,7 +10642,6 @@ ) ! ! - !AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'! basicReadSettings @@ -10640,7 +10663,6 @@ ]. ! ! - !AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'! dynamicPrios @@ -10659,14 +10681,12 @@ ^ preemptive. ! ! - !AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/miscSettings.html' ! ! - !AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -10675,7 +10695,6 @@ ^ false ! ! - !AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -10701,7 +10720,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 @@ -11042,7 +11060,6 @@ ) ! ! - !AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'! basicReadSettings @@ -11159,7 +11176,6 @@ ^ portOrPath ! ! - !AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'! rDoitEnabledOnlyViaLocalConnection @@ -11283,7 +11299,6 @@ ^ scriptingServerPortOrPath. ! ! - !AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'! rDoitsEnabledChanged @@ -11296,14 +11311,12 @@ ] ! ! - !AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/communicationsSettings.html' ! ! - !AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'! hasRDoitServer @@ -11347,7 +11360,6 @@ "Modified: / 20-05-2010 / 14:48:52 / cg" ! ! - !AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'! dbIcon1 @@ -11411,7 +11423,6 @@ ^ self dbIcon2. ! ! - !AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'! windowSpec @@ -11626,7 +11637,6 @@ ) ! ! - !AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'! basicReadSettings @@ -11692,7 +11702,6 @@ "Modified: / 25-01-2007 / 17:41:20 / cg" ! ! - !AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'! sqlDataLogging @@ -11759,7 +11768,6 @@ ^ sqlStatementLogging. ! ! - !AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'! sqlServerEnabledChanged @@ -11784,14 +11792,12 @@ "Modified: / 25-01-2007 / 17:40:03 / cg" ! ! - !AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/communicationsSettings.html' ! ! - !AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'! hasSQLServerClass @@ -11827,7 +11833,6 @@ "Created: / 25-01-2007 / 17:29:59 / cg" ! ! - !AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'! stcCompilationOptions @@ -11839,7 +11844,6 @@ ^ #('primitive code only' 'never') ! ! - !AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -11953,7 +11957,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 @@ -12023,14 +12026,14 @@ (LabelSpec label: 'STC Compilation to Machine Code:' name: 'Label11' - layout: (LayoutFrame 0 0 0 0 200 0 22 0) + layout: (LayoutFrame 0 0 0 0 240 0 22 0) translateLabel: true adjust: right ) (PopUpListSpec label: 'PopUp List' name: 'StcCompilation' - layout: (LayoutFrame 201 0 0 0 -5 1 22 0) + layout: (LayoutFrame 241 0 0 0 -5 1 22 0) tabable: true model: stcCompilationSelection enableChannel: canLoadBinaries @@ -12432,6 +12435,31 @@ ) extent: (Point 600 29) ) + (ViewSpec + name: 'Box1' + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Verbose (Trace Commands):' + name: 'Label17' + layout: (LayoutFrame 0 0 0 0 200 0 22 0) + translateLabel: true + adjust: right + ) + (CheckToggleSpec + name: 'CheckToggle2' + layout: (LayoutOrigin 203 0 4 0) + model: verbose + isTriggerOnDown: true + showLamp: false + lampColor: (Color 100.0 100.0 0.0) + ) + ) + + ) + extent: (Point 600 30) + ) ) ) @@ -12442,7 +12470,6 @@ ) ! ! - !AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'! basicReadSettings @@ -12451,6 +12478,8 @@ self canLoadBinaries value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]). + self verbose value:(STCCompilerInterface verbose ? false). + self stcIncludes value:ParserFlags stcCompilationIncludes. self stcDefines value:ParserFlags stcCompilationDefines. self stcOptions value:ParserFlags stcCompilationOptions. @@ -12481,6 +12510,8 @@ basicSaveSettings + STCCompilerInterface verbose:self verbose value. + ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value). ParserFlags stcCompilationIncludes:self stcIncludes value. ParserFlags stcCompilationDefines:self stcDefines value. @@ -12599,7 +12630,6 @@ ]. ! ! - !AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'! canLoadBinaries @@ -12775,8 +12805,16 @@ supportedCCompilerSelection := ValueHolder new. ]. ^ supportedCCompilerSelection. -! ! - +! + +verbose + + verbose isNil ifTrue:[ + verbose := false asValue. + verbose onChangeSend:#updateModifiedChannel to:self. + ]. + ^ verbose. +! ! !AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'! @@ -12793,7 +12831,6 @@ "Created: / 16-09-2011 / 18:18:32 / cg" ! ! - !AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -12801,6 +12838,8 @@ ((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true]. + ((STCCompilerInterface verbose) ~= (self verbose value)) ifTrue:[^ true]. + ((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true]. ((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true]. ((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true]. @@ -12825,7 +12864,6 @@ "Modified: / 16-09-2011 / 18:42:00 / cg" ! ! - !AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'! exampleText @@ -12872,7 +12910,6 @@ '. ! ! - !AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -12898,7 +12935,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 @@ -13184,7 +13220,6 @@ ) ! ! - !AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'! basicReadSettings @@ -13331,7 +13366,6 @@ self reformat. ! ! - !AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'! autoFormat @@ -13441,7 +13475,6 @@ ^ tabIndent. ! ! - !AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'! update:something with:aParameter from:changedObject @@ -13466,14 +13499,12 @@ from:changedObject ! ! - !AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/sourceFormatSettings.html' ! ! - !AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'! initialize @@ -13493,7 +13524,6 @@ scrollWhenUpdating:nil. ! ! - !AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -13518,7 +13548,6 @@ ^ false ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'documentation'! documentation @@ -13530,7 +13559,6 @@ " ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'help specs'! helpSpec @@ -13604,7 +13632,6 @@ "Modified: / 09-08-2012 / 09:41:28 / cg" ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -13633,7 +13660,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 @@ -14025,7 +14051,6 @@ ) ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'! managerPerMatchingModuleColumns @@ -14064,7 +14089,6 @@ ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'! manager @@ -14072,7 +14096,6 @@ ^ Smalltalk at:#SourceCodeManager ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'! actionAdd @@ -14344,7 +14367,6 @@ "Modified: / 16-08-2006 / 11:07:51 / cg" ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'! acceptChannel @@ -14631,7 +14653,6 @@ ^ verboseSourceCodeAccess. ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'! selectedPerModuleRootChanged @@ -14755,7 +14776,6 @@ self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex. ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'help'! helpFilename @@ -14764,7 +14784,6 @@ "Modified: / 04-07-2011 / 17:22:39 / cg" ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'! initialize @@ -14796,7 +14815,6 @@ "Modified: / 18-04-2011 / 19:37:38 / cg" ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'! cvsRootFromCVSRootFileOrNil @@ -14859,7 +14877,6 @@ "Modified: / 27-07-2012 / 12:35:40 / cg" ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'help specs'! flyByHelpSpec @@ -14888,7 +14905,6 @@ "Created: / 01-12-2011 / 19:52:19 / cg" ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'interface specs'! windowSpec @@ -14998,7 +15014,6 @@ ) ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'accessing'! manager @@ -15032,7 +15047,6 @@ "Created: / 09-07-2011 / 13:02:43 / Jan Vrany " ! ! - !AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'aspects'! availableManagerTypeNames @@ -15127,27 +15141,28 @@ "Modified: / 13-03-2012 / 13:12:53 / Jan Vrany " ! ! - !AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'! standardStyles ^ #( - 'decWindows' - 'iris' - 'motif' - 'mswindows95' - 'mswindowsXP' - 'mswindowsVista' - "/ 'next' - "/ 'normal' - "/ 'os2' - 'sgmotif' - "/ 'st80' + 'decWindows' + 'iris' + 'motif' + 'mswindows8' + 'mswindows95' + 'mswindowsXP' + 'mswindowsxp' + 'mswindowsVista' + 'mswindowsvista' + "/ 'next' + "/ 'normal' + "/ 'os2' + 'sgmotif' + "/ 'st80' ) ! ! - !AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'! closePreviewButtonImage @@ -15180,7 +15195,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 @@ -15342,7 +15356,6 @@ ) ! ! - !AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'! basicReadSettings @@ -15370,7 +15383,6 @@ self saveSettings. ! ! - !AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'! infoLabelHolder @@ -15425,7 +15437,6 @@ ^ styleList. ! ! - !AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'! changeInfoLabel @@ -15502,14 +15513,12 @@ "Modified: / 07-11-2006 / 13:58:09 / cg" ! ! - !AbstractSettingsApplication::StyleSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/styleSettings.html' ! ! - !AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'! commonPostBuild @@ -15564,7 +15573,6 @@ aWidget scrolledView backgroundColor:self window viewBackground. ! ! - !AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -15572,7 +15580,6 @@ ^ (self selectedStyle value ~= View defaultStyle) ! ! - !AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'! emphasisList @@ -15643,7 +15650,6 @@ ) ! ! - !AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'help specs'! flyByHelpSpec @@ -15692,7 +15698,6 @@ "Created: / 14-02-2012 / 10:44:21 / cg" ! ! - !AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -15718,7 +15723,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:'???" ! ! - !AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/browserSettings.html' ! ! - !AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -16761,7 +16752,6 @@ "Modified: / 25-11-2011 / 15:23:47 / cg" ! ! - !AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'! helpSpec @@ -16788,7 +16778,6 @@ ) ! ! - !AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -16817,7 +16806,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 @@ -17007,7 +16995,6 @@ ) ! ! - !AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'! aspects @@ -17047,7 +17034,6 @@ "Modified: / 10-11-2010 / 12:08:14 / cg" ! ! - !AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'! beepEnabled @@ -17171,14 +17157,12 @@ ^ vmInfo. ! ! - !AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/messageSettings.html' ! ! - !AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -17193,7 +17177,6 @@ "Modified: / 10-11-2010 / 12:08:25 / cg" ! ! - !AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -17223,7 +17206,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??" ! ! - !AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'aspects'! aspects @@ -17446,7 +17426,6 @@ ^ list ! ! - !AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'hooks'! developmentToolSettingsInto:panel @@ -17479,7 +17458,6 @@ "Created: / 03-04-2012 / 10:54:13 / Jan Vrany " ! ! - !AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'private'! addClassToolSettingTo: panel @@ -17498,7 +17476,6 @@ "Created: / 14-02-2012 / 18:56:49 / Jan Vrany " ! ! - !AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'protocol'! basicReadSettings @@ -17525,7 +17502,6 @@ ^ self shouldImplement ! ! - !AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -17536,7 +17512,6 @@ "Modified: / 14-02-2012 / 18:38:56 / Jan Vrany " ! ! - !AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting class methodsFor:'interface specs'! windowSpec @@ -17601,7 +17576,6 @@ ) ! ! - !AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'accessing'! classes: aCollection @@ -17635,7 +17609,6 @@ "Created: / 14-02-2012 / 18:22:47 / Jan Vrany " ! ! - !AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'aspects'! optionCustomValueBackgroundHolder @@ -17818,7 +17791,6 @@ ]. ! ! - !AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'change & update'! update:something with:aParameter from:changedObject @@ -17860,7 +17832,6 @@ "Modified: / 14-02-2012 / 19:01:00 / Jan Vrany " ! ! - !AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'! flyByHelpSpec @@ -17909,7 +17880,6 @@ "Modified: / 09-08-2012 / 09:34:41 / cg" ! ! - !AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -17935,7 +17905,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 @@ -18076,7 +18045,7 @@ translateLabel: true resizeForLabel: true adjust: left - extent: (Point 99 18) + useDefaultExtent: true ) (InputFieldSpec name: 'EntryField1' @@ -18088,7 +18057,7 @@ acceptOnTab: true acceptOnLostFocus: true acceptOnPointerLeave: true - extent: (Point 490 22) + extent: (Point 473 22) ) ) @@ -18194,7 +18163,6 @@ ) ! ! - !AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'! aspects @@ -18299,7 +18267,6 @@ "Modified: / 27-07-2012 / 20:51:46 / cg" ! ! - !AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'! autoRaiseTranscript @@ -18478,14 +18445,12 @@ "Created: / 06-07-2011 / 13:52:33 / cg" ! ! - !AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'help'! helpFilename ^ 'Launcher/toolSettings.html' ! ! - !AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'! hasUnsavedChanges @@ -18502,15 +18467,14 @@ "Modified: / 27-07-2012 / 20:51:56 / cg" ! ! - !AbstractSettingsApplication class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.462 2013-03-28 23:29:00 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.466 2013-05-21 20:31:29 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.462 2013-03-28 23:29:00 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.466 2013-05-21 20:31:29 cg Exp $' ! version_HG diff -r d550d7de8e2d -r ba8c5416aa28 BrowserView.st --- a/BrowserView.st Tue May 28 22:46:27 2013 +0100 +++ b/BrowserView.st Fri May 31 00:35:44 2013 +0100 @@ -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 @@ -2924,7 +2915,7 @@ (oldClass := currentClass) notNil ifTrue:[ oldClassName := currentClass name. (oldClassName endsWith:'-old') ifTrue:[ - oldClassName := oldClassName copyWithoutLast:4 "copyTo:(oldClassName size - 4)" + oldClassName := oldClassName copyButLast:4 "copyTo:(oldClassName size - 4)" ] ]. oldMethodCategory := currentMethodCategory. @@ -2960,7 +2951,6 @@ "Modified: / 10.4.1998 / 12:25:38 / cg" ! ! - !BrowserView methodsFor:'class category source administration'! classCategoryCheckinEach @@ -3417,7 +3407,6 @@ "Modified (format): / 29-09-2011 / 16:09:52 / cg" ! ! - !BrowserView methodsFor:'class category stuff'! checkClassCategorySelected @@ -3702,7 +3691,6 @@ "Modified: / 27.7.1998 / 10:56:50 / cg" ! ! - !BrowserView methodsFor:'class history'! changeHistoryMenu @@ -3900,7 +3888,6 @@ self class classHistory:savedHistory. ! ! - !BrowserView methodsFor:'class list menu'! classClassInstVars @@ -5153,7 +5140,7 @@ clsName := words first. (clsName endsWith:' class') ifTrue:[ isMeta := true. - clsName := clsName copyWithoutLast:6 "copyTo:(clsName size - 5)" + clsName := clsName copyButLast:6 "copyTo:(clsName size - 5)" ] ifFalse:[ isMeta := false ]. @@ -5211,7 +5198,6 @@ "Modified: 17.6.1997 / 13:32:40 / cg" ! ! - !BrowserView methodsFor:'class list source administration'! classCheckin @@ -5473,7 +5459,7 @@ fileName := fileNameHolder value withoutSpaces. (fileName endsWith:',v') ifTrue:[ - fileName := fileName copyWithoutLast:2 + fileName := fileName copyButLast:2 ]. (fileName endsWith:'.st') ifFalse:[ fileName := fileName , '.st' @@ -5761,7 +5747,6 @@ "Modified: / 10.2.2000 / 14:14:09 / cg" ! ! - !BrowserView methodsFor:'class stuff'! allClasses @@ -6795,7 +6780,7 @@ str := aString. (aString endsWith:' class') ifTrue:[ - str := aString copyWithoutLast:6. + str := aString copyButLast:6. meta := true ]. @@ -6937,7 +6922,6 @@ "Modified: 10.1.1997 / 14:01:20 / cg" ! ! - !BrowserView methodsFor:'class-method list menu'! classMethodBrowse @@ -7151,7 +7135,6 @@ "Modified: / 7.8.1998 / 17:13:47 / cg" ! ! - !BrowserView methodsFor:'class-method stuff'! classFromClassMethodString:aString @@ -7263,7 +7246,7 @@ ]. ((classString ~= 'Metaclass') and:[classString endsWith:' class']) ifTrue:[ - classString := classString copyWithoutLast:6 "copyTo:(classString size - 5)". + classString := classString copyButLast:6 "copyTo:(classString size - 5)". meta := true. ] ifFalse:[ meta := false. @@ -7358,7 +7341,7 @@ s := aString string withoutSpaces. (s endsWith:'???') ifTrue:[ - s := s copyWithoutLast:3. "/ kludge + s := s copyButLast:3. "/ kludge s := s withoutSpaces. ]. (s includes:${ ) ifTrue:[ @@ -7371,14 +7354,14 @@ ]. (s endsWith:' !!') ifTrue:[ - s := s copyWithoutLast:2 + s := s copyButLast:2 ]. (s endsWith:')') ifTrue:[ s := aString copyTo:(aString lastIndexOf:$()-1. s := s withoutSpaces. ]. (s endsWith:' !!') ifTrue:[ - s := s copyWithoutLast:2 + s := s copyButLast:2 ]. pos := s lastIndexOf:(Character space). s := s copyFrom:(pos + 1). @@ -7440,7 +7423,6 @@ "Modified: / 17.10.1998 / 11:30:35 / cg" ! ! - !BrowserView methodsFor:'event handling'! handlesKeyPress:key inView:view @@ -7543,7 +7525,6 @@ "Modified: / 18.4.1998 / 15:56:36 / cg" ! ! - !BrowserView methodsFor:'help'! helpTextFor:aComponent @@ -7565,7 +7546,6 @@ "Modified: 28.6.1997 / 15:00:18 / cg" ! ! - !BrowserView methodsFor:'initialization & release'! autoSearch:aString @@ -7752,7 +7732,6 @@ "Modified: 18.8.1997 / 15:19:50 / cg" ! ! - !BrowserView methodsFor:'initialize subviews'! createClassListViewIn:frame @@ -8323,7 +8302,6 @@ "Modified: / 25.10.1997 / 19:27:40 / cg" ! ! - !BrowserView methodsFor:'method category list menu'! createAccessMethodsFor:aCollectionOfInstVarNames withChange:withChange @@ -8865,7 +8843,6 @@ ] ! ! - !BrowserView methodsFor:'method category stuff'! asBrowserList:aList @@ -9112,7 +9089,6 @@ "Modified: 18.8.1997 / 15:44:38 / cg" ! ! - !BrowserView methodsFor:'method list menu'! commonTraceHelperWith:aSelector @@ -10538,7 +10514,6 @@ "Modified: / 12.1.1998 / 19:16:22 / cg" ! ! - !BrowserView methodsFor:'method stuff'! checkMethodSelected @@ -10563,7 +10538,7 @@ "/ aMethod isWrapped ifTrue:[ (s endsWith:' !!') ifTrue:[ - s := s copyWithoutLast:2 + s := s copyButLast:2 ]. aMethod isBreakpointed ifTrue:[ icn := self stopIcon @@ -10826,7 +10801,7 @@ (index == 0 and:[cls isMeta and:[cls name endsWith:' class']]) ifTrue:[ - index := classListView list indexOf:(cls name copyWithoutLast:6). + index := classListView list indexOf:(cls name copyButLast:6). ]. index ~~ 0 ifTrue:[ classListView attributeAt:index add:#bold. @@ -11082,7 +11057,6 @@ "Modified: 30.7.1997 / 15:55:06 / cg" ! ! - !BrowserView methodsFor:'misc'! beep @@ -11379,7 +11353,6 @@ "Modified: / 10.2.2000 / 14:15:03 / cg" ! ! - !BrowserView methodsFor:'namespace menu'! nameSpaceCheckInEach @@ -11532,7 +11505,6 @@ "Modified: / 3.2.1999 / 20:18:13 / cg" ! ! - !BrowserView methodsFor:'namespace stuff'! changeNameSpaceTo:nsName @@ -11718,7 +11690,6 @@ "Created: 8.1.1997 / 10:54:03 / cg" ! ! - !BrowserView methodsFor:'private'! askAndBrowseMethodCategory:title action:aBlock @@ -12531,30 +12502,30 @@ sel := codeView selection. sel notNil ifTrue:[ - sel := sel asString withoutSeparators. - ('*>>*' match:sel) ifTrue:[ - sep := $> - ] ifFalse:[ - ('* *' match:sel) ifTrue:[ - sep := Character space - ] - ]. - sep notNil ifTrue:[ - " - extract class/sel from selection - " - s := ReadStream on:sel. - clsName := s upTo:sep. - [s peek == sep] whileTrue:[s next]. - sel := s upToEnd. - - (clsName endsWith:' class') ifTrue:[ - isMeta := true. - clsName := clsName copyWithoutLast:6 "copyTo:(clsName size - 5)" - ] ifFalse:[ - isMeta := false - ]. - ] + sel := sel asString withoutSeparators. + ('*>>*' match:sel) ifTrue:[ + sep := $> + ] ifFalse:[ + ('* *' match:sel) ifTrue:[ + sep := Character space + ] + ]. + sep notNil ifTrue:[ + " + extract class/sel from selection + " + s := ReadStream on:sel. + clsName := s upTo:sep. + [s peek == sep] whileTrue:[s next]. + sel := s upToEnd. + + (clsName endsWith:' class') ifTrue:[ + isMeta := true. + clsName := clsName copyButLast:6 "copyTo:(clsName size - 5)" + ] ifFalse:[ + isMeta := false + ]. + ] ]. aBlock value:clsName value:sel value:isMeta @@ -12570,7 +12541,7 @@ nm := aClassName. (nm endsWith:' class') ifTrue:[ meta := true. - nm := nm copyWithoutLast:6. + nm := nm copyButLast:6. ]. nameSym := nm asSymbol. @@ -12594,7 +12565,7 @@ ]. (nm startsWith:'Smalltalk::') ifTrue:[ - cls := environment classNamed:(nm copyFrom:'Smalltalk::' size + 1). + cls := environment classNamed:(nm withoutPrefix:'Smalltalk::'). cls notNil ifTrue:[ meta ifTrue:[^ cls theMetaclass]. ^ cls @@ -13016,7 +12987,7 @@ |cls| Error handle:[:ex | - ex signal == HaltInterrupt ifTrue:[ + ex creator == HaltInterrupt ifTrue:[ ex reject ]. codeView error:ex description position:1 to:nil from:nil. @@ -13273,7 +13244,6 @@ "Created: 18.8.1997 / 15:41:52 / cg" ! ! - !BrowserView methodsFor:'private-defaults'! breakPointedIcon @@ -13398,7 +13368,6 @@ ^ self fetchIcon:#trace selector:#traceIcon ! ! - !BrowserView methodsFor:'private-queries'! hasClassCategorySelected @@ -13522,7 +13491,6 @@ and:[ variableListView selectionValue notNil ]] ! ! - !BrowserView methodsFor:'syntax coloring'! startSyntaxHighlightProcess @@ -13710,7 +13678,6 @@ "Modified: / 20.11.2001 / 00:38:09 / cg" ! ! - !BrowserView methodsFor:'unused'! listOfAllMethodCategoriesInHierarchy:aClass @@ -13757,7 +13724,6 @@ "Modified: 5.6.1996 / 11:42:12 / stefan" ! ! - !BrowserView methodsFor:'variable list menu'! allClassInstVarMods @@ -14270,7 +14236,6 @@ "Modified: 25.5.1996 / 12:26:07 / cg" ! ! - !BrowserView methodsFor:'variable stuff'! hilightEntryFor:entry @@ -14582,11 +14547,10 @@ "Modified: / 17.9.1998 / 13:45:02 / cg" ! ! - !BrowserView class methodsFor:'documentation'! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.842 2013-04-04 09:41:22 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.845 2013-05-07 15:29:00 cg Exp $' ! version_HG diff -r d550d7de8e2d -r ba8c5416aa28 CVSSourceCodeManagementSettingsAppl.st --- a/CVSSourceCodeManagementSettingsAppl.st Tue May 28 22:46:27 2013 +0100 +++ b/CVSSourceCodeManagementSettingsAppl.st Fri May 31 00:35:44 2013 +0100 @@ -16,7 +16,8 @@ addPerModuleRoot perModuleRootModule removePerModuleRoot perModuleRoot cvsRootHolder selectedPerModuleRoot cvsBinDirectoryHolder cvsExecutableHolder cvsCommandTimeoutHolder - rootsPerModule cvsLoginInModuleEnabled cvsLoginEnabled' + rootsPerModule cvsLoginInModuleEnabled cvsLoginEnabled + cvsInitInModuleEnabled' classVariableNames:'RecentlyUsedCVSRoots' poolDictionaries:'' category:'System-SourceCodeManagement' @@ -47,7 +48,6 @@ " ! ! - !CVSSourceCodeManagementSettingsAppl class methodsFor:'defaults'! defaultRepositoryName @@ -57,7 +57,6 @@ "Created: / 19-04-2011 / 11:00:11 / cg" ! ! - !CVSSourceCodeManagementSettingsAppl class methodsFor:'help specs'! helpSpec @@ -76,14 +75,14 @@ ^ super helpSpec addPairsFrom:#( #addPerModuleRoot -'Add this per-module entry' +'Add this module-CVSRoot combination or update the corresponding per-module entry' + +#addPerPackageManager +'Add a new per-package manager definition' #addPublicExeptRepository 'Add an entry to access stx''s sources from the public exept repository' -#addPerPackageManager -'Add a new per-package manager definition' - #browseSourceCache 'Open a file browser on the source cache directory' @@ -126,11 +125,14 @@ #flushSourceCache 'Remove all files from the source cache.\Access to source code will temporarily be slowed down,\until sources have been refetched from the repository' +#initPerModuleRoot +'Execute a "cvs init" operation for this CVSROOT (enabled if a new local repository is selected)' + #keepMethodSourceInImage 'After first file access, keep the method sources in the image itself.\All following text search operations will be much faster.\Grows the image over time (but who cares, these days)' #loginPerModuleRoot -'Execute a "cvs login" operation for this CVSROOT' +'Execute a "cvs login" operation for this CVSROOT (enabled when a remote repository is selected)' #moveManagerDown 'Move the selected entry down in the list.\(The first matching definition is used to determine which repository type is used.)' @@ -160,11 +162,8 @@ 'Output debugging messages on the Transcript\(mostly traces of the underlying scm mechanism, such as cvs commands)' ) - - "Modified: / 09-08-2012 / 09:41:23 / cg" ! ! - !CVSSourceCodeManagementSettingsAppl class methodsFor:'image specs'! defaultIcon @@ -227,7 +226,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??OO0>F_18@??