Squeak-dev August 2013

squeak-dev@lists.squeakfoundation.org

45 participants
157 discussions

Delays getting mangled across save
by Bob Arning 08 Aug '13

08 Aug '13

If I evaluate this: [ n _ 111. d _ Delay forSeconds: n. starting _ Time now. d wait. ending _ Time now. {starting. ending. ending asSeconds - starting asSeconds. n} inspect ] fork Then save and quit. Then restart Squeak. After a short wait, I get an inspector with: {2:46:15.116 pm . 2:46:40.616 pm . 25 . 111} I'm seeing other odd changes to Delays, but this is easy to reproduce. Cheers, Bob

6 16

Unloading Traits
by Frank Shearar 08 Aug '13

08 Aug '13

In my exploration of the interface between Traits and Monticello, I found that Trait class >> #unloadTraits depends on Monticello. This is unfortunate, because Traits should be a much lower level package than Monticello. After all, Traits implements something that in other languages would be a language feature, while Monticello is "merely" a source control tool. I appreciate the desire to make Traits responsible for unloading itself, and for Traits to be unloadable at all. Is there another way - without Smalltalk >> #at: - to remove the dependency? (I can kind've see a case for Trait unloading to live in ReleaseBuilder. Kind've. But let's not make System >> #unloadAllKnownPackages any more of a problem than it already is.) frank

2 3

Daily Commit Log
by commits＠source.squeak.org 08 Aug '13

08 Aug '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-August/006286.html Name: Kernel-bf.721 Ancestors: Kernel-nice.720 Bob Arning's fix for Delay snapshotting. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006287.html Name: Kernel-bf.801 Ancestors: Kernel-fbs.800, Kernel-bf.721 Merge Bob Arning's fix for Delay snapshotting. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006288.html Name: Monticello-fbs.550 Ancestors: Monticello-cmm.549 #asClassDefinition, #classDefinitions implementors belong in Monticello. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006289.html Name: Traits-fbs.297 Ancestors: Traits-fbs.296 #asClassDefinition, #classDefinitions implementors belong in Monticello. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006290.html Name: Morphic-cmm.676 Ancestors: Morphic-fbs.675 - Don't blow up in rendering code is asked to draw a polygon with no vertices. - Ensure flash provides sufficient contrast to be easily visible in all cases. - FINALLY! The problem where code was truncated by the right-edge of the code editor is fixed. THANKS Bob Arning! - Make Shift+Command+a (arg-advance) work for selectors that have no spaces, such as when having pasted the selector from the methods list. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006291.html Name: System-cmm.582 Ancestors: System-fbs.581 - Fix #thoroughSenders preference. - SpaceTally items print your spaceForIntances tersely to be more easily readable. =============================================

1 0

The Trunk: System-cmm.582.mcz
by commits＠source.squeak.org 08 Aug '13

08 Aug '13

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.582.mcz ==================== Summary ==================== Name: System-cmm.582 Author: cmm Time: 7 August 2013, 5:00:42.385 pm UUID: 57938f0c-ead3-4dba-9155-0812c9c1b7d7 Ancestors: System-fbs.581 - Fix #thoroughSenders preference. - SpaceTally items print your spaceForIntances tersely to be more easily readable. =============== Diff against System-fbs.581 =============== Item was changed: ----- Method: Behavior>>allCallsOn (in category '*System-Support') ----- allCallsOn "Answer a SortedCollection of all the methods that refer to me by name or as part of an association in a global dict." - | theClass | theClass := self theNonMetaClass. + ^ (self systemNavigation allCallsOn: (self environment bindingOf: theClass name)) , + (Preferences thoroughSenders + ifTrue: [ self systemNavigation allCallsOn: theClass name ] + ifFalse: [ OrderedCollection new ]) , + (self systemNavigation allClasses + select: + [ : c | c sharedPools includes: theClass ] + thenCollect: + [ : c | ClassReference new + setClassSymbol: c name + classIsMeta: false + stringVersion: c name ])! - ^(self systemNavigation allCallsOn: (self environment bindingOf: theClass name)), - (Preferences thoroughSenders - ifTrue: [OrderedCollection new] - ifFalse: [self systemNavigation allCallsOn: theClass name]), - (self systemNavigation allClasses - select: [:c| c sharedPools includes: theClass] - thenCollect: - [:c| - ClassReference new - setClassSymbol: c name - classIsMeta: false - stringVersion: c name])! Item was changed: ----- Method: Preferences class>>caseSensitiveFinds (in category 'standard queries') ----- caseSensitiveFinds ^ self valueOfFlag: #caseSensitiveFinds + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>cautionBeforeClosing (in category 'standard queries') ----- cautionBeforeClosing ^ self valueOfFlag: #cautionBeforeClosing + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>changeSetVersionNumbers (in category 'standard queries') ----- changeSetVersionNumbers ^ self valueOfFlag: #changeSetVersionNumbers + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>checkForSlips (in category 'standard queries') ----- checkForSlips ^ self valueOfFlag: #checkForSlips + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>checkForUnsavedProjects (in category 'standard queries') ----- checkForUnsavedProjects ^ self valueOfFlag: #checkForUnsavedProjects + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>classicNavigatorEnabled (in category 'standard queries') ----- classicNavigatorEnabled ^ self valueOfFlag: #classicNavigatorEnabled + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>cmdDotEnabled (in category 'standard queries') ----- cmdDotEnabled ^ self valueOfFlag: #cmdDotEnabled + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>collapseWindowsInPlace (in category 'standard queries') ----- collapseWindowsInPlace ^ self valueOfFlag: #collapseWindowsInPlace + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>compactViewerFlaps (in category 'standard queries') ----- compactViewerFlaps ^ self valueOfFlag: #compactViewerFlaps + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>compressFlashImages (in category 'standard queries') ----- compressFlashImages ^ self valueOfFlag: #compressFlashImages + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>confirmFirstUseOfStyle (in category 'standard queries') ----- confirmFirstUseOfStyle ^ self valueOfFlag: #confirmFirstUseOfStyle + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>conversionMethodsAtFileOut (in category 'standard queries') ----- conversionMethodsAtFileOut ^ self valueOfFlag: #conversionMethodsAtFileOut + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>cpuWatcherEnabled (in category 'standard queries') ----- cpuWatcherEnabled ^ self valueOfFlag: #cpuWatcherEnabled + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>debugHaloHandle (in category 'standard queries') ----- debugHaloHandle ^ self valueOfFlag: #debugHaloHandle + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>debugPrintSpaceLog (in category 'standard queries') ----- debugPrintSpaceLog ^ self valueOfFlag: #debugPrintSpaceLog + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>debugShowDamage (in category 'standard queries') ----- debugShowDamage ^ self valueOfFlag: #debugShowDamage + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>decorateBrowserButtons (in category 'standard queries') ----- decorateBrowserButtons ^ self valueOfFlag: #decorateBrowserButtons + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>defaultFileOutFormatMacRoman (in category 'standard queries') ----- defaultFileOutFormatMacRoman ^ self valueOfFlag: #defaultFileOutFormatMacRoman + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>diffsInChangeList (in category 'standard queries') ----- diffsInChangeList ^ self valueOfFlag: #diffsInChangeList + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>diffsWithPrettyPrint (in category 'standard queries') ----- diffsWithPrettyPrint ^ self valueOfFlag: #diffsWithPrettyPrint + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>dismissAllOnOptionClose (in category 'standard queries') ----- dismissAllOnOptionClose ^ self valueOfFlag: #dismissAllOnOptionClose + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>dragNDropWithAnimation (in category 'standard queries') ----- dragNDropWithAnimation ^ self valueOfFlag: #dragNDropWithAnimation + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>dropProducesWatcher (in category 'standard queries') ----- dropProducesWatcher ^ self valueOfFlag: #dropProducesWatcher + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>duplicateAllControlAndAltKeys (in category 'standard queries') ----- duplicateAllControlAndAltKeys ^ self valueOfFlag: #duplicateAllControlAndAltKeys + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>duplicateControlAndAltKeys (in category 'standard queries') ----- duplicateControlAndAltKeys ^ self valueOfFlag: #duplicateControlAndAltKeys + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>eToyFriendly (in category 'standard queries') ----- eToyFriendly ^ self valueOfFlag: #eToyFriendly + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>eToyLoginEnabled (in category 'standard queries') ----- eToyLoginEnabled ^ self valueOfFlag: #eToyLoginEnabled + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>easySelection (in category 'standard queries') ----- easySelection ^ self valueOfFlag: #easySelection + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>enableLocalSave (in category 'standard queries') ----- enableLocalSave ^ self valueOfFlag: #enableLocalSave + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>expandedPublishing (in category 'standard queries') ----- expandedPublishing ^ self valueOfFlag: #expandedPublishing + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>extraDebuggerButtons (in category 'standard queries') ----- extraDebuggerButtons ^ self valueOfFlag: #extraDebuggerButtons + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>extractFlashInHighQuality (in category 'standard queries') ----- extractFlashInHighQuality ^ self valueOfFlag: #extractFlashInHighQuality + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>extractFlashInHighestQuality (in category 'standard queries') ----- extractFlashInHighestQuality ^ self valueOfFlag: #extractFlashInHighestQuality + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>fastDragWindowForMorphic (in category 'standard queries') ----- fastDragWindowForMorphic ^ self valueOfFlag: #fastDragWindowForMorphic + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>fenceEnabled (in category 'standard queries') ----- fenceEnabled ^ self valueOfFlag: #fenceEnabled + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>fenceSoundEnabled (in category 'standard queries') ----- fenceSoundEnabled ^ self valueOfFlag: #fenceSoundEnabled + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>fullScreenLeavesDeskMargins (in category 'standard queries') ----- fullScreenLeavesDeskMargins ^ self valueOfFlag: #fullScreenLeavesDeskMargins + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>generalizedYellowButtonMenu (in category 'standard queries') ----- generalizedYellowButtonMenu ^ self valueOfFlag: #generalizedYellowButtonMenu + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>gradientMenu (in category 'standard queries') ----- gradientMenu ^ self valueOfFlag: #gradientMenu + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>gradientScrollBars (in category 'standard queries') ----- gradientScrollBars ^ self valueOfFlag: #gradientScrollBars + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>haloEnclosesFullBounds (in category 'standard queries') ----- haloEnclosesFullBounds ^ self valueOfFlag: #haloEnclosesFullBounds + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>haloTheme (in category 'halos') ----- haloTheme ^ self valueOfFlag: #haloTheme + ifAbsent: [ #iconicHaloSpecifications ]! - ifAbsent: [#iconicHaloSpecifications]! Item was changed: ----- Method: Preferences class>>haloTransitions (in category 'standard queries') ----- haloTransitions ^ self valueOfFlag: #haloTransitions + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>higherPerformance (in category 'standard queries') ----- higherPerformance ^ self valueOfFlag: #higherPerformance + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>honorDesktopCmdKeys (in category 'standard queries') ----- honorDesktopCmdKeys ^ self valueOfFlag: #honorDesktopCmdKeys + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>ignoreStyleIfOnlyBold (in category 'standard queries') ----- ignoreStyleIfOnlyBold ^ self valueOfFlag: #ignoreStyleIfOnlyBold + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>includeSoundControlInNavigator (in category 'standard queries') ----- includeSoundControlInNavigator ^ self valueOfFlag: #includeSoundControlInNavigator + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>infiniteUndo (in category 'standard queries') ----- infiniteUndo ^ self valueOfFlag: #infiniteUndo + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>inlineServicesInMenu (in category 'standard queries') ----- inlineServicesInMenu ^ self valueOfFlag: #inlineServicesInMenu + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>keepTickingWhilePainting (in category 'standard queries') ----- keepTickingWhilePainting ^ self valueOfFlag: #keepTickingWhilePainting + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>logDebuggerStackToFile (in category 'standard queries') ----- logDebuggerStackToFile ^ self valueOfFlag: #logDebuggerStackToFile + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>magicHalos (in category 'standard queries') ----- magicHalos ^ self valueOfFlag: #magicHalos + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>maintainHalos (in category 'standard queries') ----- maintainHalos ^ self valueOfFlag: #maintainHalos + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>menuAppearance3d (in category 'standard queries') ----- menuAppearance3d ^ self valueOfFlag: #menuAppearance3d + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>menuButtonInToolPane (in category 'standard queries') ----- menuButtonInToolPane ^ self valueOfFlag: #menuButtonInToolPane + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>menuKeyboardControl (in category 'standard queries') ----- menuKeyboardControl ^ self valueOfFlag: #menuKeyboardControl + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>menuWithIcons (in category 'standard queries') ----- menuWithIcons ^ self valueOfFlag: #menuWithIcons + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>modalColorPickers (in category 'standard queries') ----- modalColorPickers ^ self valueOfFlag: #modalColorPickers + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>mouseOverForKeyboardFocus (in category 'standard queries') ----- mouseOverForKeyboardFocus ^ self valueOfFlag: #mouseOverForKeyboardFocus + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>mouseOverHalos (in category 'standard queries') ----- mouseOverHalos ^ self valueOfFlag: #mouseOverHalos + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>multipleTextUndo (in category 'standard queries') ----- multipleTextUndo ^ self valueOfFlag: #multipleTextUndo + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>mvcProjectsAllowed (in category 'standard queries') ----- mvcProjectsAllowed ^ self valueOfFlag: #mvcProjectsAllowed + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>navigatorOnLeftEdge (in category 'standard queries') ----- navigatorOnLeftEdge ^ self valueOfFlag: #navigatorOnLeftEdge + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>noviceMode (in category 'standard queries') ----- noviceMode ^ self valueOfFlag: #noviceMode + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>okToReinitializeFlaps (in category 'standard queries') ----- okToReinitializeFlaps ^ self valueOfFlag: #okToReinitializeFlaps + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>oliveHandleForScriptedObjects (in category 'standard queries') ----- oliveHandleForScriptedObjects ^ self valueOfFlag: #oliveHandleForScriptedObjects + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>optionalButtons (in category 'standard queries') ----- optionalButtons ^ self valueOfFlag: #optionalButtons + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>passwordsOnPublish (in category 'standard queries') ----- passwordsOnPublish ^ self valueOfFlag: #passwordsOnPublish + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>personalizedWorldMenu (in category 'standard queries') ----- personalizedWorldMenu ^ self valueOfFlag: #personalizedWorldMenu + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>postscriptStoredAsEPS (in category 'standard queries') ----- postscriptStoredAsEPS ^ self valueOfFlag: #postscriptStoredAsEPS + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>preferencesPanelWindowColor (in category 'standard queries') ----- preferencesPanelWindowColor ^ self valueOfFlag: #preferencesPanelWindowColor + ifAbsent: + [ Color - ifAbsent: [Color r: 0.645 g: 1.0 + b: 1.0 ]! - b: 1.0]! Item was changed: ----- Method: Preferences class>>preserveTrash (in category 'standard queries') ----- preserveTrash ^ self valueOfFlag: #preserveTrash + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>projectViewsInWindows (in category 'standard queries') ----- projectViewsInWindows ^ self valueOfFlag: #projectViewsInWindows + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>projectZoom (in category 'standard queries') ----- projectZoom ^ self valueOfFlag: #projectZoom + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>projectsSentToDisk (in category 'standard queries') ----- projectsSentToDisk ^ self valueOfFlag: #projectsSentToDisk + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>promptForUpdateServer (in category 'standard queries') ----- promptForUpdateServer ^ self valueOfFlag: #promptForUpdateServer + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>propertySheetFromHalo (in category 'standard queries') ----- propertySheetFromHalo ^ self valueOfFlag: #propertySheetFromHalo + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>purgeUndoOnQuit (in category 'standard queries') ----- purgeUndoOnQuit ^ self valueOfFlag: #purgeUndoOnQuit + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>readDocumentAtStartup (in category 'standard queries') ----- readDocumentAtStartup ^ self valueOfFlag: #readDocumentAtStartup + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>readOnlyMode (in category 'standard queries') ----- readOnlyMode ^ self valueOfFlag: #readOnlyMode + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>restartAlsoProceeds (in category 'standard queries') ----- restartAlsoProceeds ^ self valueOfFlag: #restartAlsoProceeds + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>reverseWindowStagger (in category 'standard queries') ----- reverseWindowStagger ^ self valueOfFlag: #reverseWindowStagger + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>roundedMenuCorners (in category 'standard queries') ----- roundedMenuCorners ^ self valueOfFlag: #roundedMenuCorners + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>roundedWindowCorners (in category 'standard queries') ----- roundedWindowCorners ^ self valueOfFlag: #roundedWindowCorners + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>scrollBarsNarrow (in category 'standard queries') ----- scrollBarsNarrow ^ self valueOfFlag: #scrollBarsNarrow + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>scrollBarsOnRight (in category 'standard queries') ----- scrollBarsOnRight ^ self valueOfFlag: #scrollBarsOnRight + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>scrollBarsWithoutMenuButton (in category 'standard queries') ----- scrollBarsWithoutMenuButton ^ self valueOfFlag: #scrollBarsWithoutMenuButton + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>securityChecksEnabled (in category 'standard queries') ----- securityChecksEnabled ^ self valueOfFlag: #securityChecksEnabled + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>selectiveHalos (in category 'standard queries') ----- selectiveHalos ^ self valueOfFlag: #selectiveHalos + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>showAdvancedNavigatorButtons (in category 'standard queries') ----- showAdvancedNavigatorButtons ^ self valueOfFlag: #showAdvancedNavigatorButtons + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>showDeprecationWarnings (in category 'standard queries') ----- showDeprecationWarnings ^ self valueOfFlag: #showDeprecationWarnings + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>showDirectionForSketches (in category 'standard queries') ----- showDirectionForSketches ^ self valueOfFlag: #showDirectionForSketches + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>showDirectionHandles (in category 'standard queries') ----- showDirectionHandles ^ self valueOfFlag: #showDirectionHandles + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>showFlapsWhenPublishing (in category 'standard queries') ----- showFlapsWhenPublishing ^ self valueOfFlag: #showFlapsWhenPublishing + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>showProjectNavigator (in category 'standard queries') ----- showProjectNavigator ^ self valueOfFlag: #showProjectNavigator + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>showSecurityStatus (in category 'standard queries') ----- showSecurityStatus ^ self valueOfFlag: #showSecurityStatus + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>showSharedFlaps (in category 'standard queries') ----- showSharedFlaps ^ self valueOfFlag: #showSharedFlaps + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>signProjectFiles (in category 'standard queries') ----- signProjectFiles ^ self valueOfFlag: #signProjectFiles + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>simpleMenus (in category 'standard queries') ----- simpleMenus ^ self valueOfFlag: #simpleMenus + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>slideDismissalsToTrash (in category 'standard queries') ----- slideDismissalsToTrash ^ self valueOfFlag: #slideDismissalsToTrash + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>smartUpdating (in category 'standard queries') ----- smartUpdating ^ self valueOfFlag: #smartUpdating + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>startInUntrustedDirectory (in category 'standard queries') ----- startInUntrustedDirectory ^ self valueOfFlag: #startInUntrustedDirectory + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>swapControlAndAltKeys (in category 'standard queries') ----- swapControlAndAltKeys ^ self valueOfFlag: #swapControlAndAltKeys + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>swapMouseButtons (in category 'standard queries') ----- swapMouseButtons ^ self valueOfFlag: #swapMouseButtons + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>syntaxHighlightingAsYouType (in category 'standard queries') ----- syntaxHighlightingAsYouType ^ self valueOfFlag: #syntaxHighlightingAsYouType + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>syntaxHighlightingAsYouTypeAnsiAssignment (in category 'standard queries') ----- syntaxHighlightingAsYouTypeAnsiAssignment ^ self valueOfFlag: #syntaxHighlightingAsYouTypeAnsiAssignment + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>syntaxHighlightingAsYouTypeLeftArrowAssignment (in category 'standard queries') ----- syntaxHighlightingAsYouTypeLeftArrowAssignment ^ self valueOfFlag: #syntaxHighlightingAsYouTypeLeftArrowAssignment + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>systemWindowEmbedOK (in category 'standard queries') ----- systemWindowEmbedOK ^ self valueOfFlag: #systemWindowEmbedOK + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>tabAmongFields (in category 'standard queries') ----- tabAmongFields ^ self valueOfFlag: #tabAmongFields + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>thoroughSenders (in category 'standard queries') ----- thoroughSenders ^ self valueOfFlag: #thoroughSenders + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>tileTranslucentDrag (in category 'standard queries') ----- tileTranslucentDrag ^ self valueOfFlag: #tileTranslucentDrag + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>timeStampsInMenuTitles (in category 'standard queries') ----- timeStampsInMenuTitles ^ self valueOfFlag: #timeStampsInMenuTitles + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>tinyDisplay (in category 'standard queries') ----- tinyDisplay ^ self valueOfFlag: #tinyDisplay + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>turnOffPowerManager (in category 'standard queries') ----- turnOffPowerManager ^ self valueOfFlag: #turnOffPowerManager + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>twentyFourHourFileStamps (in category 'standard queries') ----- twentyFourHourFileStamps ^ self valueOfFlag: #twentyFourHourFileStamps + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>typeCheckingInTileScripting (in category 'standard queries') ----- typeCheckingInTileScripting ^ self valueOfFlag: #typeCheckingInTileScripting + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>uniTilesClassic (in category 'standard queries') ----- uniTilesClassic ^ self valueOfFlag: #uniTilesClassic + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>uniqueNamesInHalos (in category 'standard queries') ----- uniqueNamesInHalos ^ self valueOfFlag: #uniqueNamesInHalos + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>unlimitedPaintArea (in category 'standard queries') ----- unlimitedPaintArea ^ self valueOfFlag: #unlimitedPaintArea + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>updateFromServerAtStartup (in category 'standard queries') ----- updateFromServerAtStartup ^ self valueOfFlag: #updateFromServerAtStartup + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>updateSavesFile (in category 'standard queries') ----- updateSavesFile ^ self valueOfFlag: #updateSavesFile + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>upgradeIsMerge (in category 'standard queries') ----- upgradeIsMerge ^ self valueOfFlag: #upgradeIsMerge + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>useButtonProprtiesToFire (in category 'standard queries') ----- useButtonProprtiesToFire ^ self valueOfFlag: #useButtonProprtiesToFire + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>useOnlyServicesInMenu (in category 'standard queries') ----- useOnlyServicesInMenu ^ self valueOfFlag: #useOnlyServicesInMenu + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>useServicesInBrowserButtonBar (in category 'standard queries') ----- useServicesInBrowserButtonBar ^ self valueOfFlag: #useServicesInBrowserButtonBar + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>useUndo (in category 'standard queries') ----- useUndo ^ self valueOfFlag: #useUndo + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>useVectorVocabulary (in category 'standard queries') ----- useVectorVocabulary ^ self valueOfFlag: #useVectorVocabulary + ifAbsent: [ false ]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>viewersInFlaps (in category 'standard queries') ----- viewersInFlaps ^ self valueOfFlag: #viewersInFlaps + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>visualExplorer (in category 'standard queries') ----- visualExplorer ^ self valueOfFlag: #visualExplorer + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>warnAboutInsecureContent (in category 'standard queries') ----- warnAboutInsecureContent ^ self valueOfFlag: #warnAboutInsecureContent + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>warnIfNoChangesFile (in category 'standard queries') ----- warnIfNoChangesFile ^ self valueOfFlag: #warnIfNoChangesFile + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>warnIfNoSourcesFile (in category 'standard queries') ----- warnIfNoSourcesFile ^ self valueOfFlag: #warnIfNoSourcesFile + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: Preferences class>>wordStyleCursorMovement (in category 'standard queries') ----- wordStyleCursorMovement ^ self valueOfFlag: #wordStyleCursorMovement + ifAbsent: [ true ]! - ifAbsent: [true]! Item was changed: ----- Method: SpaceTallyItem>>printOn: (in category 'printing') ----- printOn: aStream analyzedClassName ifNotNil: [ aStream nextPutAll: analyzedClassName asString]. aStream nextPutAll: ' ('. codeSize ifNotNil: [ aStream nextPutAll: 'code size: ' ; nextPutAll: codeSize asString]. instanceCount ifNotNil: [ aStream nextPutAll: ' instance count: ' ; nextPutAll: instanceCount asString]. spaceForInstances + ifNotNil: [ aStream nextPutAll: ' space for instances: ' ; nextPutAll: spaceForInstances asBytesDescription]. - ifNotNil: [ aStream nextPutAll: ' space for instances: ' ; nextPutAll: spaceForInstances asString]. aStream nextPut: $). !

1 0

The Trunk: Morphic-cmm.676.mcz
by commits＠source.squeak.org 07 Aug '13

07 Aug '13

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.676.mcz ==================== Summary ==================== Name: Morphic-cmm.676 Author: cmm Time: 7 August 2013, 4:55:40.374 pm UUID: 0515d02e-790f-446a-a7fd-4925b0a58ada Ancestors: Morphic-fbs.675 - Don't blow up in rendering code is asked to draw a polygon with no vertices. - Ensure flash provides sufficient contrast to be easily visible in all cases. - FINALLY! The problem where code was truncated by the right-edge of the code editor is fixed. THANKS Bob Arning! - Make Shift+Command+a (arg-advance) work for selectors that have no spaces, such as when having pasted the selector from the methods list. =============== Diff against Morphic-fbs.675 =============== Item was changed: ----- Method: BalloonCanvas>>drawPolygon:fillStyle:borderWidth:borderColor: (in category 'drawing-polygons') ----- drawPolygon: vertices fillStyle: aFillStyle borderWidth: borderWidth borderColor: borderColor "Draw a simple polygon defined by the list of vertices." | fillC borderC | + vertices ifEmpty: [ ^ self ]. fillC := self shadowColor ifNil:[aFillStyle]. borderC := self shadowColor ifNil:[borderColor]. self ensuredEngine drawPolygon: (vertices copyWith: vertices first) fill: fillC borderWidth: borderWidth borderColor: borderC transform: transform.! Item was changed: ----- Method: Morph>>flash (in category 'macpal') ----- flash | originalColor | originalColor := self color. [ self color: (originalColor ifNil: [ Color black ] + ifNotNil: [ (originalColor alpha: 1) negated adjustSaturation: 0.8 brightness: 0 ]) ] - ifNotNil: [ (originalColor alpha: 1) negated ]) ] ensure: [ self world ifNotNil: [ : w | w displayWorldSafely ]. self color: originalColor ]! Item was changed: ----- Method: PluggableTextMorphPlus>>stylerStyled: (in category 'styling') ----- stylerStyled: styledCopyOfText "Sent after the styler completed styling the underlying text" textMorph contents runs: styledCopyOfText runs . "textMorph paragraph recomposeFrom: 1 to: textMorph contents size delta: 0." "caused chars to appear in wrong order esp. in demo mode. remove this line when sure it is fixed" + textMorph paragraph composeAll. textMorph updateFromParagraph. selectionInterval ifNotNil:[ textMorph editor selectInvisiblyFrom: selectionInterval first to: selectionInterval last; storeSelectionInParagraph; setEmphasisHere]. textMorph editor blinkParen. self scrollSelectionIntoView! Item was changed: ----- Method: TextEditor>>argAdvance: (in category 'typing/selecting keys') ----- + argAdvance: aKeyboardEvent + "Invoked by Ctrl-a or Shift+Command+A. Useful after Ctrl-q. + Search forward from the end of the selection for a colon followed by a space. Place the caret after the space. If none are found, place the caret at the end of the text. Does not affect the undoability of the previous command." - argAdvance: aKeyboardEvent - "Invoked by Ctrl-a. Useful after Ctrl-q. - Search forward from the end of the selection for a colon followed by - a space. Place the caret after the space. If none are found, place the - caret at the end of the text. Does not affect the undoability of the - previous command." - | start | self insertAndCloseTypeIn. + start := paragraph text + findString: ': ' + startingAt: self stopIndex. + start isZero + ifTrue: + [ (start := paragraph text + findString: ':' + startingAt: self stopIndex) isZero ifTrue: [ start := paragraph text size + 1 ] ] + ifFalse: [ start := start + 1 ]. + self selectAt: start + 1. + ^ true! - start := paragraph text findString: ': ' startingAt: self stopIndex. - start = 0 ifTrue: [start := paragraph text size + 1]. - self selectAt: start + 2. - ^true!

1 0

Re: [squeak-dev] The Trunk: Traits-fbs.297.mcz
by Tobias Pape 07 Aug '13

07 Aug '13

This one is dangerous. It makes monticello directly depend on traits, and unloading traits wont work no longer, no? Best -Tobias Am 07.08.2013 um 21:56 schrieb commits(a)source.squeak.org: > Frank Shearar uploaded a new version of Traits to project The Trunk: > http://source.squeak.org/trunk/Traits-fbs.297.mcz > > ==================== Summary ==================== > > Name: Traits-fbs.297 > Author: fbs > Time: 7 August 2013, 6:52:54.132 pm > UUID: 00f10a78-c0a1-a243-a90d-d0a642804ab8 > Ancestors: Traits-fbs.296 > > #asClassDefinition, #classDefinitions implementors belong in Monticello. > > =============== Diff against Traits-fbs.296 =============== > > Item was removed: > - ----- Method: Trait>>asClassDefinition (in category 'monticello') ----- > - asClassDefinition > - ^Smalltalk at: #MCTraitDefinition ifPresent:[:aClass| > - aClass > - name: self name > - traitComposition: self traitCompositionString > - category: self category > - comment: self organization classComment asString > - commentStamp: self organization commentStamp].! > > Item was removed: > - ----- Method: Trait>>classDefinitions (in category 'monticello') ----- > - classDefinitions > - | definitions | > - definitions := OrderedCollection with: self asClassDefinition. > - (self hasClassTrait > - and: [self classTrait hasTraitComposition > - and: [self classTrait traitComposition isEmpty not]]) > - ifTrue: [definitions add: self classTrait asMCDefinition]. > - ^definitions asArray! > >

2 2

Re: [Newbies] Re: Modify block (closure) parameters
by Levente Uzonyi 07 Aug '13

07 Aug '13

On Wed, 7 Aug 2013, psea wrote: > Ok, i've got it. So in ST it's just not allowed assign to a block argument > for some reason. Let's consider it a language feature. And it's ok, It's a compiler bug. The compiler doesn't handle this case. - TempVariableNode >> #analyseClosure: returns if the receiver is a block argument without checking the preference. - BlockNode >> #postNumberingProcessTempsWithin:rootNode: only checks the temporaries, but not the arguments of the receiver. - Even if the above two are fixed, the temp index is still out of bounds, because removing arguments is not supported (see #removeTempNode:ifAbsent: and its sender), so the original temp for the argument will be kept. > different language - different rules. Thanks for pointing me on that! > Now, I've turn off allowBlockArgumentAssignment property. > > What's worried me is that in other languages I'm familiar with it's a normal > thing to assign to a function argument (Scheme, C, Python, JavaScript). Storing into a block or method argument is considered bad practice. Support for it is/was planned to be removed. Even though it can yield somewhat better performance, it's something you'll rarely see in Smalltalk code. > > answer to your questions: > Smalltalk vmVersion 'Squeak3.10.2 of 11 February 2010 [latest update: > #9314]' > SmalltalkImage current systemInformationString "ditto" 'Squeak4.3 > latest update: #11860 > Current Change Set: Unnamed1' > Windows XP. > > PS But you should agree with me that > > makeAcc := [ :acc | > [:n | acc:=acc+n. acc]] > > looks a little bit better and concise than > > makeAcc := [ :acc | > | total | > total:=acc. > [:n | total:=total+n. total]] There's no need to explicitly return 'total' from the inner block, because the assignment yields the same value: makeAcc := [ :acc | | total | total := acc. [ :n | total := total + n ] ] Levente > > :-) > > And thanks for the links. > > > > -- > View this message in context: http://forum.world.st/Modify-block-closure-parameters-tp4702118p4702410.html > Sent from the Squeak - Beginners mailing list archive at Nabble.com. > _______________________________________________ > Beginners mailing list > Beginners(a)lists.squeakfoundation.org > http://lists.squeakfoundation.org/mailman/listinfo/beginners >

1 0

The Trunk: Traits-fbs.297.mcz
by commits＠source.squeak.org 07 Aug '13

07 Aug '13

Frank Shearar uploaded a new version of Traits to project The Trunk: http://source.squeak.org/trunk/Traits-fbs.297.mcz ==================== Summary ==================== Name: Traits-fbs.297 Author: fbs Time: 7 August 2013, 6:52:54.132 pm UUID: 00f10a78-c0a1-a243-a90d-d0a642804ab8 Ancestors: Traits-fbs.296 #asClassDefinition, #classDefinitions implementors belong in Monticello. =============== Diff against Traits-fbs.296 =============== Item was removed: - ----- Method: Trait>>asClassDefinition (in category 'monticello') ----- - asClassDefinition - ^Smalltalk at: #MCTraitDefinition ifPresent:[:aClass| - aClass - name: self name - traitComposition: self traitCompositionString - category: self category - comment: self organization classComment asString - commentStamp: self organization commentStamp].! Item was removed: - ----- Method: Trait>>classDefinitions (in category 'monticello') ----- - classDefinitions - | definitions | - definitions := OrderedCollection with: self asClassDefinition. - (self hasClassTrait - and: [self classTrait hasTraitComposition - and: [self classTrait traitComposition isEmpty not]]) - ifTrue: [definitions add: self classTrait asMCDefinition]. - ^definitions asArray!

1 0

The Trunk: Monticello-fbs.550.mcz
by commits＠source.squeak.org 07 Aug '13

07 Aug '13

Frank Shearar uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-fbs.550.mcz ==================== Summary ==================== Name: Monticello-fbs.550 Author: fbs Time: 7 August 2013, 6:52:11.495 pm UUID: fecae8ba-9dc4-244f-b17a-ad59c1487bdf Ancestors: Monticello-cmm.549 #asClassDefinition, #classDefinitions implementors belong in Monticello. =============== Diff against Monticello-cmm.549 =============== Item was added: + ----- Method: Trait>>asClassDefinition (in category '*monticello') ----- + asClassDefinition + ^Smalltalk at: #MCTraitDefinition ifPresent:[:aClass| + aClass + name: self name + traitComposition: self traitCompositionString + category: self category + comment: self organization classComment asString + commentStamp: self organization commentStamp].! Item was added: + ----- Method: Trait>>classDefinitions (in category '*monticello') ----- + classDefinitions + | definitions | + definitions := OrderedCollection with: self asClassDefinition. + (self hasClassTrait + and: [self classTrait hasTraitComposition + and: [self classTrait traitComposition isEmpty not]]) + ifTrue: [definitions add: self classTrait asMCDefinition]. + ^definitions asArray!

1 0

The Trunk: Kernel-bf.801.mcz
by commits＠source.squeak.org 07 Aug '13

07 Aug '13

Bert Freudenberg uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-bf.801.mcz ==================== Summary ==================== Name: Kernel-bf.801 Author: bf Time: 7 August 2013, 6:04:44.128 pm UUID: 255906c6-0505-423f-bb08-40920cf35575 Ancestors: Kernel-fbs.800, Kernel-bf.721 Merge Bob Arning's fix for Delay snapshotting. =============== Diff against Kernel-fbs.800 =============== Item was changed: ----- Method: Delay class>>restoreResumptionTimes (in category 'snapshotting') ----- restoreResumptionTimes "Private!! Restore the resumption times of all scheduled Delays after a snapshot or clock roll-over. This method should be called only while the AccessProtect semaphore is held." | newBaseTime | newBaseTime := Time millisecondClockValue. SuspendedDelays do: [:d | d adjustResumptionTimeOldBase: 0 newBase: newBaseTime]. ActiveDelay == nil ifFalse: [ ActiveDelay adjustResumptionTimeOldBase: 0 newBase: newBaseTime. ]. + ActiveDelayStartTime := newBaseTime. !

1 0

Jump to page: