Packages February 2018

packages@lists.squeakfoundation.org

1 participants
62 discussions

The Trunk: MultilingualTests-tonyg.30.mcz
by commits＠source.squeak.org 04 Feb '18

04 Feb '18

David T. Lewis uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-tonyg.30.mcz ==================== Summary ==================== Name: MultilingualTests-tonyg.30 Author: tonyg Time: 31 January 2018, 11:17:41.508603 pm UUID: 7e5f0b94-8866-41e8-96bd-40d33eafbd19 Ancestors: MultilingualTests-tonyg.29 An additional few invalid-UTF8 tests. =============== Diff against MultilingualTests-tonyg.29 =============== Item was changed: ----- Method: UTF8EdgeCaseTest>>testSequencesWithLastContinuationByteMissing (in category 'as yet unclassified') ----- testSequencesWithLastContinuationByteMissing "Sequences with last continuation byte missing" self expectHexToFailDecoding: 'c0'. "U+0000" self expectHexToFailDecoding: 'e080'. "U+0000" self expectHexToFailDecoding: 'f08080'. "U+0000" self expectHexToFailDecoding: 'f8808080'. "U+0000" self expectHexToFailDecoding: 'fc80808080'. "U+0000" self expectHexToFailDecoding: 'df'. "U+07FF" self expectHexToFailDecoding: 'efbf'. "U+FFFF" self expectHexToFailDecoding: 'f7bfbf'. "U+1FFFFF" self expectHexToFailDecoding: 'fbbfbfbf'. "U+3FFFFFF" self expectHexToFailDecoding: 'fdbfbfbfbf'. "U+7FFFFFFF" + + "Additional tests not in Kuhn's document, testing for presence of off-by-two errors:" + + self expectHexToFailDecoding: 'e0'. "U+0000" + self expectHexToFailDecoding: 'f080'. "U+0000" + self expectHexToFailDecoding: 'f88080'. "U+0000" + self expectHexToFailDecoding: 'fc808080'. "U+0000" + + self expectHexToFailDecoding: 'ef'. "U+FFFF" + self expectHexToFailDecoding: 'f7bf'. "U+1FFFFF" + self expectHexToFailDecoding: 'fbbfbf'. "U+3FFFFFF" + self expectHexToFailDecoding: 'fdbfbfbf'. "U+7FFFFFFF" !

1 0

The Trunk: System-tpr.999.mcz
by commits＠source.squeak.org 02 Feb '18

02 Feb '18

tim Rowledge uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tpr.999.mcz ==================== Summary ==================== Name: System-tpr.999 Author: tpr Time: 1 February 2018, 4:13:05.258994 pm UUID: 70bdd4f7-96fe-4233-bff2-48012f607163 Ancestors: System-dtl.998 Finally, remove the Project>>dispatchTo:addPrefixAndSend:withArguments: method. See prior commits ToolBuilder-Kernel-tpr.121 ToolBuilder-MVC-tpr.53 ToolBuilder-Morphic-tpr.207 ST80-tpr.234 Tools-tpr.795 Network-tpr.217 MorphicExtras-tpr.217 Morphic-tpr.1392 CommandLine-tpr.10 =============== Diff against System-dtl.998 =============== Item was changed: ----- Method: Preferences class>>restoreDefaultFonts (in category 'prefs - fonts') ----- restoreDefaultFonts "Since this is called from menus, we can take the opportunity to prompt for missing font styles." " Preferences restoreDefaultFonts " UserInterfaceTheme allThemes detect: [:ea | UserInterfaceTheme current name ~= ea name and: [UserInterfaceTheme current name includesSubstring: ea name]] ifFound: [:ea | + (Project uiManager - (Project current uiManager confirm: ('Do you want to apply\"{1}"?' translated withCRs format: {ea name}) title: 'Apply UI Theme' translated) ifTrue: [ea apply]] ifNone: [self inform: 'Sorry, could not revert font choices.\Please apply a UI theme with smaller fonts.' translated withCRs].! Item was removed: - ----- Method: Project class>>isDispatchSelector: (in category 'dispatching') ----- - isDispatchSelector: aSelector - "In support of package modularity, some method selectors are generated based - on project type and dispatched to the appropriate implementation for that project. - For methods with these selectors, let dispatchTo:addPrefixAndSend:withArguments: - be found as a sender." - | dispatchPrefixes prefix otherSelector | - dispatchPrefixes := Project allSubclasses collect: - [:cls | cls basicNew selectorPrefixForDispatch]. - "If it doesn't start with a recognized prefix, it's not dispatchable" - prefix := dispatchPrefixes detect: [:each | aSelector beginsWith: each] - ifNone: [^false]. - "If a similar symbol exists for all other prefixes, it's likely dispatchable" - ^(dispatchPrefixes copyWithout: prefix) - allSatisfy: [:otherPrefix | - otherSelector := otherPrefix, (aSelector allButFirst: prefix size). - Symbol hasInterned: otherSelector ifTrue: [:s]] - ! Item was removed: - ----- Method: Project>>dispatchTo:addPrefixAndSend:withArguments: (in category 'dispatching') ----- - dispatchTo: requestor addPrefixAndSend: baseSelector withArguments: arguments - "Sender wants to perform a method with dependencies on the type of project. - Dispatch to an appropriate method for the current project. - - This method is a workaround for lack of proper ToolBuilder support in the sender, - and should be eliminated when possible (dtl Feb 2010)" - - <hasLiteralTest: #isDispatchSelector:> - | selector | - selector := (self selectorPrefixForDispatch, baseSelector) asSymbol. - ^ requestor perform: selector withArguments: arguments! Item was changed: ----- Method: Project>>okToChange (in category 'release') ----- okToChange "Answer whether the window in which the project is housed can be dismissed -- which is destructive. We never clobber a project without confirmation" | answer | (self confirm: ('Do you really want to delete the project\{1}\and all its content?' withCRs translated format:{self name})) ifFalse: [^ false]. self subProjects ifNotEmpty: [:sp | + answer := Project uiManager - answer := Project current uiManager chooseFrom: #( "1" 'Lift all sub-projects' "2" 'Discard all sub-projects (NO UNDO!!)' "3 or 0" 'Cancel') lines: #(2) title: ('The project {1}\contains {2} sub-project(s).' withCRs translated format:{self name. sp size}). (answer = 0 or: [answer = 3]) ifTrue: [^ false]. answer = 1 ifTrue: [self liftSubProjects. ^ true]. answer = 2 ifTrue: [^ sp allSatisfy: [:ea | ea okToChange]]]. ^ true!

1 0

The Trunk: CommandLine-tpr.10.mcz
by commits＠source.squeak.org 02 Feb '18

02 Feb '18

tim Rowledge uploaded a new version of CommandLine to project The Trunk: http://source.squeak.org/trunk/CommandLine-tpr.10.mcz ==================== Summary ==================== Name: CommandLine-tpr.10 Author: tpr Time: 1 February 2018, 4:06:45.057704 pm UUID: 303563e6-0663-4b85-a5a6-52ef7b134e68 Ancestors: CommandLine-tpr.9 Preliminary support for changes involved in removing the Project>>dispatchTo:addPrefixAndSend:withArguments: method. =============== Diff against CommandLine-tpr.9 =============== Item was added: + ----- Method: DummyUIManager>>openDebugger:on:context:label:contents:fullView: (in category 'ui requests') ----- + openDebugger: aDebugger on: process context: context label: title contents: contentsStringOrNil fullView: bool + "open a debugger - the two versions for mvc & morphic are very close and can surely be merged so that this can be removed" + ^nil! Item was added: + ----- Method: DummyUIManager>>openFancyMailComposition: (in category 'ui requests') ----- + openFancyMailComposition: fancyMail + "FancyMailComposition should probably be removed in favour of MailComposition, but at least ought to be made a ToolBuilder thing" + ^nil! Item was added: + ----- Method: DummyUIManager>>openPluggableFileList:label:in: (in category 'ui requests') ----- + openPluggableFileList: aPluggableFileList label: aString in: aWorld + "PluggableFileList is being deprecated and this can go away soon" + ^nil! Item was added: + ----- Method: DummyUIManager>>openPluggableFileListLabel:in: (in category 'ui requests') ----- + openPluggableFileListLabel: aString in: aWorld + "PluggableFileList is being deprecated and this can go away soon" + ^nil! Item was added: + ----- Method: DummyUIManager>>resumeDebugger:process: (in category 'ui requests') ----- + resumeDebugger: aDebugger process: aTopView + "resume a debugger - the two versions for mvc & morphic are very close and can surely be merged so that this can be removed" + ^nil! Item was added: + ----- Method: DummyUIManager>>startUpMenu:withCaption:icon:at:allowKeyboard: (in category 'ui requests') ----- + startUpMenu: aMenu withCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean + "A menu needs to startup and depends on the current type of ui manager for what sort of startup to do. Very ugly, and really needs replacing with a much better menu system" + + ^nil + !

1 0

The Trunk: Morphic-tpr.1392.mcz
by commits＠source.squeak.org 02 Feb '18

02 Feb '18

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.1392.mcz ==================== Summary ==================== Name: Morphic-tpr.1392 Author: tpr Time: 1 February 2018, 3:57:56.837746 pm UUID: aba8b7c8-c8f4-4293-bcda-18c504122d6b Ancestors: Morphic-mt.1391 Preliminary support for changes involved in removing the Project>>dispatchTo:addPrefixAndSend:withArguments: method. =============== Diff against Morphic-mt.1391 =============== Item was removed: - ----- Method: Debugger class>>morphicContext: (in category '*Morphic-instance creation') ----- - morphicContext: aContext - "Answer an instance of me for debugging the active process starting with the given context." - - ^ self new - process: Processor activeProcess - controller: nil - context: aContext! Item was removed: - ----- Method: Debugger class>>morphicOpenContext:label:contents: (in category '*Morphic-opening') ----- - morphicOpenContext: aContext label: aString contents: contentsStringOrNil - "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." - "Simulation guard" - <primitive: 19> - ErrorRecursionGuard critical: - [ ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: - [ Smalltalk - logSqueakError: aString - inContext: aContext ]. - ErrorRecursion ifTrue: - [ ErrorRecursion := false. - self primitiveError: aString ]. - ErrorRecursion := true. - self - informExistingDebugger: aContext - label: aString. - (Debugger morphicContext: aContext) - openNotifierContents: contentsStringOrNil - label: aString. - ErrorRecursion := false]. - Processor activeProcess suspend ! Item was removed: - ----- Method: Debugger class>>morphicOpenInterrupt:onProcess: (in category '*Morphic-opening') ----- - morphicOpenInterrupt: aString onProcess: interruptedProcess - "Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low." - | debugger | - <primitive: 19> "Simulation guard" - debugger := self new. - debugger - process: interruptedProcess - controller: nil - context: interruptedProcess suspendedContext. - debugger externalInterrupt: true. - - Preferences logDebuggerStackToFile ifTrue: - [(aString includesSubstring: 'Space') & (aString includesSubstring: 'low') - ifTrue: [Smalltalk logError: aString inContext: debugger interruptedContext to: 'LowSpaceDebug.log'] - "logging disabled for 4.3 release, see - http://lists.squeak.org/pipermail/squeak-dev/2011-December/162503.html" - "ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]"]. - - Preferences eToyFriendly ifTrue: [Project current world stopRunningAll]. - ^debugger - openNotifierContents: nil label: aString; - yourself - ! Item was added: + ----- Method: Debugger class>>openContext:label:contents: (in category '*Morphic-opening') ----- + openContext: aContext label: aString contents: contentsStringOrNil + "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." + "Simulation guard" + <primitive: 19> + ErrorRecursionGuard critical: + [ ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: + [ Smalltalk + logSqueakError: aString + inContext: aContext ]. + ErrorRecursion ifTrue: + [ ErrorRecursion := false. + self primitiveError: aString ]. + ErrorRecursion := true. + self + informExistingDebugger: aContext + label: aString. + (Debugger context: aContext) + openNotifierContents: contentsStringOrNil + label: aString. + ErrorRecursion := false]. + Processor activeProcess suspend ! Item was added: + ----- Method: Debugger class>>openInterrupt:onProcess: (in category '*Morphic-opening') ----- + openInterrupt: aString onProcess: interruptedProcess + "Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low." + | debugger | + <primitive: 19> "Simulation guard" + debugger := self new. + debugger + process: interruptedProcess + controller: (ScheduledControllers + ifNotNil: [:sc | + "this means we are in an MVC project" + sc inActiveControllerProcess == interruptedProcess + ifTrue: [ScheduledControllers activeController]]) + context: interruptedProcess suspendedContext. + debugger externalInterrupt: true. + + Preferences logDebuggerStackToFile ifTrue: + [(aString includesSubstring: 'Space') & (aString includesSubstring: 'low') + ifTrue: [Smalltalk logError: aString inContext: debugger interruptedContext to: 'LowSpaceDebug.log'] + "logging disabled for 4.3 release, see + http://lists.squeak.org/pipermail/squeak-dev/2011-December/162503.html" + "ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]"]. + + Preferences eToyFriendly ifTrue: [Project current world stopRunningAll]. + ^debugger + openNotifierContents: nil label: aString; + yourself + !

1 0

The Trunk: MorphicExtras-tpr.221.mcz
by commits＠source.squeak.org 02 Feb '18

02 Feb '18

tim Rowledge uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tpr.221.mcz ==================== Summary ==================== Name: MorphicExtras-tpr.221 Author: tpr Time: 1 February 2018, 3:56:17.920322 pm UUID: 24fea4bd-8780-4266-a4a7-af5197a2c799 Ancestors: MorphicExtras-eem.220 Preliminary support for changes involved in removing the Project>>dispatchTo:addPrefixAndSend:withArguments: method. =============== Diff against MorphicExtras-eem.220 =============== Item was changed: ----- Method: FancyMailComposition>>open (in category 'user interface') ----- open + "FancyMailComposition should probably be removed in favour of MailComposition, but at least ought to be made a ToolBuilder thing" "open an interface" + self deprecated: 'ought to be removed of ToolBuilderised'. + ^ Project uiManager openFancyMailComposition: self! - "open an interface" - - ^ Project current - dispatchTo: self - addPrefixAndSend: #Open - withArguments: {} - !

1 0

The Trunk: Network-tpr.217.mcz
by commits＠source.squeak.org 02 Feb '18

02 Feb '18

tim Rowledge uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tpr.217.mcz ==================== Summary ==================== Name: Network-tpr.217 Author: tpr Time: 1 February 2018, 3:55:21.521225 pm UUID: 8dbe7941-c2dc-443c-849b-22f4e8d6867c Ancestors: Network-tpr.216 Preliminary support for changes involved in removing the Project>>dispatchTo:addPrefixAndSend:withArguments: method. =============== Diff against Network-tpr.216 =============== Item was changed: ----- Method: MailComposition>>open (in category 'initialize-release') ----- open "open an interface" + ^ToolBuilder open: self label: self dialogTitle! - ^ Project current - dispatchTo: self - addPrefixAndSend: #Open - withArguments: {} - !

1 0

The Trunk: Tools-tpr.795.mcz
by commits＠source.squeak.org 02 Feb '18

02 Feb '18

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.795.mcz ==================== Summary ==================== Name: Tools-tpr.795 Author: tpr Time: 1 February 2018, 3:53:29.550569 pm UUID: 48432526-9fe6-4888-bfee-3b9ea75145e7 Ancestors: Tools-mt.794 Preliminary support for changes involved in removing the Project>>dispatchTo:addPrefixAndSend:withArguments: method. =============== Diff against Tools-mt.794 =============== Item was removed: - ----- Method: Debugger class>>context: (in category 'instance creation') ----- - context: aContext - "Answer an instance of me for debugging the active process starting with the given context." - - ^ Project current - dispatchTo: self - addPrefixAndSend: #Context: - withArguments: { aContext }! Item was removed: - ----- Method: Debugger class>>openContext:label:contents: (in category 'opening') ----- - openContext: aContext label: aString contents: contentsStringOrNil - "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." - - ^ Project current - dispatchTo: self - addPrefixAndSend: #OpenContext:label:contents: - withArguments: { aContext . aString . contentsStringOrNil }! Item was removed: - ----- Method: Debugger class>>openInterrupt:onProcess: (in category 'opening') ----- - openInterrupt: aString onProcess: interruptedProcess - "Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low." - - ^ Project current - dispatchTo: self - addPrefixAndSend: #OpenInterrupt:onProcess: - withArguments: { aString . interruptedProcess }! Item was changed: ----- Method: Debugger class>>openOn:context:label:contents:fullView: (in category 'opening') ----- openOn: process context: context label: title contents: contentsStringOrNil fullView: bool "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger. + Dispatch the request to a method appropriate for the active project. + The two versions for mvc & morphic are very close and can surely be merged so that this can be simplified" - Dispatch the request to a method appropriate for the active project." + ^ Project uiManager openDebugger: self on: process context: context label: title contents: contentsStringOrNil fullView: bool - ^ Project current - dispatchTo: self - addPrefixAndSend: #OpenOn:context:label:contents:fullView: - withArguments: { process . context . title . contentsStringOrNil . bool } ! Item was changed: ----- Method: Debugger>>resumeProcess: (in category 'private') ----- resumeProcess: aTopView + ^ Project uiManager resumeDebugger: self process: aTopView! - ^ Project current - dispatchTo: self - addPrefixAndSend: #ResumeProcess: - withArguments: { aTopView } - ! Item was changed: ----- Method: FileList2 class>>modalFolderSelectorForProject: (in category 'modal dialogs') ----- modalFolderSelectorForProject: aProject " FileList2 modalFolderSelectorForProject: Project current " + "Not currently being converted to FileSaverDialog etc because it implements the decidedly outre looking 'blue ui' Project dialog. " | window fileModel w | window := FileList2 morphicViewProjectSaverFor: aProject. fileModel := window valueOfProperty: #FileList. w := self currentWorld. window position: w topLeft + (w extent - window extent // 2). w addMorphInLayer: window. w startSteppingSubmorphsOf: window. UserInterfaceTheme current applyTo: window allMorphs. self modalLoopOn: window. ^fileModel getSelectedDirectory withoutListWrapper! Item was changed: ----- Method: PluggableFileList class>>getFile (in category 'standard dialog operations') ----- getFile - | result | + + self flag: #unused. result := self getFilePathName. ^result ifNotNil: [FileStream oldFileNamed: result]! Item was changed: ----- Method: PluggableFileList>>initialize (in category 'initialize-release') ----- initialize + super initialize. prompt := 'Select File'. directory := FileDirectory default. newFiles := OrderedCollection new. fileFilterBlock := PluggableFileList allFilesAndFoldersFileFilter. canAcceptBlock := PluggableFileList fileNameSelectedAcceptBlock. resultBlock := PluggableFileList pathNameResultBlock. validateBlock := PluggableFileList checkExistingFileValidateBlock. ! Item was changed: ----- Method: PluggableFileList>>open (in category 'initialize-release') ----- open + "PluggableFileList is being deprecated and this can go away soon" + self deprecated: 'PluggableFileList must die'. + ^ Project uiManager openPluggableFileList: self label: prompt in: self currentWorld! - ^ Project current - dispatchTo: self - addPrefixAndSend: #OpenLabel:in: - withArguments: { prompt . self currentWorld } - ! Item was removed: - ----- Method: PopUpMenu>>startUpLeftFlush (in category 'basic control sequence') ----- - startUpLeftFlush - "Build and invoke this menu with no initial selection. By Jerry Archibald, 4/01. - If in MVC, align menus items with the left margin. - Answer the selection associated with the menu item chosen by the user or nil if none is chosen. - The mechanism for getting left-flush appearance in mvc leaves a tiny possibility for misadventure: if the user, in mvc, puts up the jump-to-project menu, then hits cmd period while it is up, then puts up a second jump-to-project menu before dismissing or proceeding through the debugger, it's possible for mvc popup-menus thereafter to appear left-aligned rather than centered; this very unlikely condition can be cleared by evaluating 'PopUpMenu alignment: 2'" - - ^ Project current - dispatchTo: self - addPrefixAndSend: #StartUpLeftFlush - withArguments: #() - ! Item was changed: ----- Method: PopUpMenu>>startUpWithCaption:icon:at:allowKeyboard: (in category 'basic control sequence') ----- startUpWithCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean "Display the menu, with caption if supplied. Wait for the mouse button to go down, then track the selection as long as the button is pressed. When the button is released, Answer the index of the current selection, or zero if the mouse is not released over any menu item. Location specifies the desired topLeft of the menu body rectangle. The final argument indicates whether the menu should seize the keyboard focus in order to allow the user to navigate it via the keyboard." | maxHeight | (ProvideAnswerNotification signal: captionOrNil) ifNotNil: [:answer | ^ selection := answer ifTrue: [1] ifFalse: [2]]. maxHeight := Display height*3//4. self frameHeight > maxHeight ifTrue: [^ self startUpSegmented: maxHeight withCaption: captionOrNil at: location allowKeyboard: aBoolean]. + ^ Project uiManager startUpMenu: self withCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean! - ^ Project current - dispatchTo: self - addPrefixAndSend: #StartUpWithCaption:icon:at:allowKeyboard: - withArguments: {captionOrNil. aForm. location. aBoolean}! Item was changed: ----- Method: SyntaxError class>>open: (in category 'instance creation') ----- open: aSyntaxError "Answer a standard system view whose model is an instance of me." <primitive: 19> "Simulation guard" + ^ Project uiManager openSyntaxError: aSyntaxError - ^ Project current - dispatchTo: self - addPrefixAndSend: #Open: - withArguments: {aSyntaxError} !

1 0

The Trunk: ST80-tpr.234.mcz
by commits＠source.squeak.org 02 Feb '18

02 Feb '18

tim Rowledge uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-tpr.234.mcz ==================== Summary ==================== Name: ST80-tpr.234 Author: tpr Time: 1 February 2018, 3:49:35.804146 pm UUID: 80d6d4fa-2f9d-4618-bde4-6fbc08b08851 Ancestors: ST80-tpr.233 Preliminary support for changes involved in removing the Project>>dispatchTo:addPrefixAndSend:withArguments: method. =============== Diff against ST80-tpr.233 =============== Item was added: + ----- Method: Debugger class>>context: (in category '*ST80-instance creation') ----- + context: aContext + "Answer an instance of me for debugging the active process starting with the given context." + ^ self new + process: Processor activeProcess + controller: (ScheduledControllers + ifNotNil: [:sc | + "this means we are in an MVC project" + sc inActiveControllerProcess + ifTrue: [ScheduledControllers activeController]]) + context: aContext! Item was removed: - ----- Method: Debugger class>>mvcContext: (in category '*ST80-instance creation') ----- - mvcContext: aContext - "Answer an instance of me for debugging the active process starting with the given context." - - ^ self new - process: Processor activeProcess - controller: (ScheduledControllers inActiveControllerProcess - ifTrue: [ScheduledControllers activeController] - ifFalse: [nil]) - context: aContext! Item was removed: - ----- Method: Debugger class>>mvcOpenContext:label:contents: (in category '*ST80-opening') ----- - mvcOpenContext: aContext label: aString contents: contentsStringOrNil - "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." - "Simulation guard" - <primitive: 19> - ErrorRecursionGuard critical: - [ ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: - [ Smalltalk - logSqueakError: aString - inContext: aContext ]. - ErrorRecursion ifTrue: - [ ErrorRecursion := false. - self primitiveError: aString ]. - ErrorRecursion := true. - self - informExistingDebugger: aContext - label: aString. - (Debugger mvcContext: aContext) - openNotifierContents: contentsStringOrNil - label: aString. - ErrorRecursion := false ]. - Processor activeProcess suspend! Item was removed: - ----- Method: Debugger class>>mvcOpenInterrupt:onProcess: (in category '*ST80-opening') ----- - mvcOpenInterrupt: aString onProcess: interruptedProcess - "Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low." - | debugger | - <primitive: 19> "Simulation guard" - debugger := self new. - debugger - process: interruptedProcess - controller: (ScheduledControllers activeControllerProcess == interruptedProcess - ifTrue: [ScheduledControllers activeController] - ifFalse: [nil]) - context: interruptedProcess suspendedContext. - debugger externalInterrupt: true. - - Preferences logDebuggerStackToFile ifTrue: - [(aString includesSubstring: 'Space') & (aString includesSubstring: 'low') - ifTrue: [Smalltalk logError: aString inContext: debugger interruptedContext to: 'LowSpaceDebug.log'] - "logging disabled for 4.3 release, see - http://lists.squeak.org/pipermail/squeak-dev/2011-December/162503.html" - "ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]"]. - - ^debugger - openNotifierContents: nil label: aString; - yourself - ! Item was changed: ----- Method: MVCProject>>jumpToProject (in category 'utilities') ----- jumpToProject + "Present a list of potential projects and enter the one selected. + We use mvcStartUpLeftFlush for possibly no longer valid historical reasons" - "Present a list of potential projects and enter the one selected." "Project current jumpToProject" + self jumpToSelection: (self buildJumpToMenu: CustomMenu new) mvcStartUpLeftFlush! - self jumpToSelection: (self buildJumpToMenu: CustomMenu new) startUpLeftFlush!

1 0

The Trunk: ToolBuilder-Morphic-tpr.207.mcz
by commits＠source.squeak.org 02 Feb '18

02 Feb '18

tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.207.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-tpr.207 Author: tpr Time: 1 February 2018, 3:47:46.390567 pm UUID: e04efbf4-8938-4eb6-8397-87ae178fb187 Ancestors: ToolBuilder-Morphic-mt.206 Preliminary support for changes involved in removing the Project>>dispatchTo:addPrefixAndSend:withArguments: method. =============== Diff against ToolBuilder-Morphic-mt.206 =============== Item was added: + ----- Method: MorphicUIManager>>openDebugger:on:context:label:contents:fullView: (in category 'ui project indirecting') ----- + openDebugger: aDebugger on: process context: context label: title contents: contentsStringOrNil fullView: bool + "open a debugger - the two versions for mvc & morphic are very close and can surely be merged so that this can be removed" + ^aDebugger morphicOpenOn: process context: context label: title contents: contentsStringOrNil fullView: bool! Item was added: + ----- Method: MorphicUIManager>>openFancyMailComposition: (in category 'ui project indirecting') ----- + openFancyMailComposition: fancyMail + "FancyMailComposition should probably be removed in favour of MailComposition, but at least ought to be made a ToolBuilder thing" + ^fancyMail morphicOpen! Item was added: + ----- Method: MorphicUIManager>>openPluggableFileList:label:in: (in category 'ui project indirecting') ----- + openPluggableFileList: aPluggableFileList label: aString in: aWorld + "PluggableFileList is being deprecated and this can go away soon" + ^aPluggableFileList morphicOpenLabel: aString in: aWorld! Item was added: + ----- Method: MorphicUIManager>>openSyntaxError: (in category 'ui project indirecting') ----- + openSyntaxError: aSyntaxError + "Syntax error opening probably ought to be handled with a ToolBuilder dance instead of this" + ^SyntaxError morphicOpen: aSyntaxError! Item was added: + ----- Method: MorphicUIManager>>resumeDebugger:process: (in category 'ui project indirecting') ----- + resumeDebugger: aDebugger process: aTopView + "resume a debugger - the two versions for mvc & morphic are very close and can surely be merged so that this can be removed" + ^aDebugger morphicResumeProcess: aTopView! Item was added: + ----- Method: MorphicUIManager>>startUpMenu:withCaption:icon:at:allowKeyboard: (in category 'ui project indirecting') ----- + startUpMenu: aMenu withCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean + "A menu needs to startup and depends on the current type of ui manager for what sort of startup to do. Very ugly, and really needs replacing with a much better menu system" + + ^aMenu morphicStartUpWithCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean + !

1 0

The Trunk: ToolBuilder-MVC-tpr.53.mcz
by commits＠source.squeak.org 02 Feb '18

02 Feb '18

tim Rowledge uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-tpr.53.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-tpr.53 Author: tpr Time: 1 February 2018, 3:47:08.838874 pm UUID: d2e088ac-0eab-4037-a454-9df0563e8f29 Ancestors: ToolBuilder-MVC-tpr.52 Preliminary support for changes involved in removing the Project>>dispatchTo:addPrefixAndSend:withArguments: method. =============== Diff against ToolBuilder-MVC-tpr.52 =============== Item was added: + ----- Method: MVCUIManager>>openDebugger:on:context:label:contents:fullView: (in category 'ui project indirecting') ----- + openDebugger: aDebugger on: process context: context label: title contents: contentsStringOrNil fullView: bool + "open a debugger - the two versions for mvc & morphic are very close and can surely be merged so that this can be removed" + ^aDebugger mvcOpenOn: process context: context label: title contents: contentsStringOrNil fullView: bool! Item was added: + ----- Method: MVCUIManager>>openFancyMailComposition: (in category 'ui project indirecting') ----- + openFancyMailComposition: fancyMail + "FancyMailComposition should probably be removed in favour of MailComposition, but at least ought to be made a ToolBuilder thing" + ^fancyMail mvcOpen! Item was added: + ----- Method: MVCUIManager>>openPluggableFileList:label:in: (in category 'ui project indirecting') ----- + openPluggableFileList: aPluggableFileList label: aString in: aWorld + "PluggableFileList is being deprecated and this can go away soon" + ^aPluggableFileList mvcOpenLabel: aString in: aWorld! Item was added: + ----- Method: MVCUIManager>>openSyntaxError: (in category 'ui project indirecting') ----- + openSyntaxError: aSyntaxError + "Syntax error opening probably ought to be handled with a ToolBuilder dance instead of this" + ^SyntaxError mvcOpen: aSyntaxError! Item was added: + ----- Method: MVCUIManager>>resumeDebugger:process: (in category 'ui project indirecting') ----- + resumeDebugger: aDebugger process: aTopView + "resume a debugger - the two versions for mvc & morphic are very close and can surely be merged so that this can be removed" + ^aDebugger mvcResumeProcess: aTopView! Item was added: + ----- Method: MVCUIManager>>startUpMenu:withCaption:icon:at:allowKeyboard: (in category 'ui project indirecting') ----- + startUpMenu: aMenu withCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean + "A menu needs to startup and depends on the current type of ui manager for what sort of startup to do. Very ugly, and really needs replacing with a much better menu system" + + ^aMenu mvcStartUpWithCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean + !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2018