Packages June 2018

packages@lists.squeakfoundation.org

1 participants
79 discussions

The Trunk: HelpSystem-Core-tpr.106.mcz
by commits＠source.squeak.org 25 Jun '18

25 Jun '18

tim Rowledge uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-tpr.106.mcz ==================== Summary ==================== Name: HelpSystem-Core-tpr.106 Author: tpr Time: 24 June 2018, 6:48:57.953018 pm UUID: 885548ab-d5f5-46cd-8dd7-3e73095ac536 Ancestors: HelpSystem-Core-tpr.105 Start process of moving responsibilty for deciding on Help content code styling or not from TheWorldMainDock to the actual content. The overall effect of these groups of changes is to make no visual difference. Yet. =============== Diff against HelpSystem-Core-tpr.105 =============== Item was added: + ----- Method: AbstractHelpTopic>>usesCodeStyling (in category 'testing') ----- + usesCodeStyling + "do I need a styled (ie with Shout) browser page?" + ^false! Item was added: + ----- Method: ClassBasedHelpTopic>>usesCodeStyling (in category 'testing') ----- + usesCodeStyling + "ask my helpClass if it wants pages styled for code; at some point it should be made possible for individual topics to make this choice and the help browser will do The Right Thing for each one" + ^helpClass ifNil:[false] ifNotNil:[:hC| hC usesCodeStyling]! Item was added: + HelpTopic subclass: #CodeStyledHelpTopic + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'HelpSystem-Core-Model'! + + !CodeStyledHelpTopic commentStamp: 'tpr 6/19/2018 19:27' prior: 0! + A CodeStyledHelpTopic is a simple way to make sure a help topic gets styled for code in a help browser. Once the help browser is able to code-style individual chunks instead of having to brute-force entire pages we can remove this class and simplify thngs! Item was added: + ----- Method: CodeStyledHelpTopic>>usesCodeStyling (in category 'testing') ----- + usesCodeStyling + "do I need a styled (ie with Shout) browser page?" + ^true! Item was added: + ----- Method: CustomHelp class>>usesCodeStyling (in category 'testing') ----- + usesCodeStyling + "do I want pages styled for code; at some point it should be made possible for individual topics to make this choice and the help browser will do The Right Thing for each one" + ^false! Item was changed: ----- Method: HelpBrowser>>buildWith: (in category 'toolbuilder') ----- buildWith: builder | windowSpec | windowSpec := self buildWindowWith: builder. windowSpec children add: (self buildSearchWith: builder); add: (self buildTreeWith: builder); + add: ( (rootTopic notNil and:[ + rootTopic usesCodeStyling]) + ifTrue:[self buildCodeContentsWith: builder] + ifFalse:[self buildContentsWith: builder]). - add: (self buildContentsWith: builder). ^ builder build: windowSpec! Item was changed: ----- Method: HelpBrowser>>rootTopic: (in category 'accessing') ----- rootTopic: aHelpTopic + "set the root topic and work out the top level sub-topics that it implies. Add the search topic at the end of the list" - rootTopic := aHelpTopic asHelpTopic. + self toplevelTopics: ((rootTopic ifNil: [#()] ifNotNil: [rootTopic subtopics]) sorted, {self searchTopic}). - self toplevelTopics: ((self rootTopic ifNil: [#()] ifNotNil: #subtopics) sorted, {self searchTopic}). self changed: #windowTitle.!

1 0

The Trunk: Help-Squeak-TerseGuide-tpr.11.mcz
by commits＠source.squeak.org 25 Jun '18

25 Jun '18

tim Rowledge uploaded a new version of Help-Squeak-TerseGuide to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-TerseGuide-tpr.11.mcz ==================== Summary ==================== Name: Help-Squeak-TerseGuide-tpr.11 Author: tpr Time: 24 June 2018, 6:46:23.408958 pm UUID: 30561c22-03c0-43c0-97b5-2b38cd726334 Ancestors: Help-Squeak-TerseGuide-tpr.10 Start process of moving responsibilty for deciding on Help content code styling or not from TheWorldMainDock to the actual content. The overall effect of these groups of changes is to make no visual difference. Yet. =============== Diff against Help-Squeak-TerseGuide-tpr.10 =============== Item was added: + ----- Method: TerseGuideHelp class>>usesCodeStyling (in category 'testing') ----- + usesCodeStyling + "I want the help browser to use code based styling on my content" + ^true!

1 0

The Trunk: Help-Squeak-Project-tpr.54.mcz
by commits＠source.squeak.org 25 Jun '18

25 Jun '18

tim Rowledge uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-tpr.54.mcz ==================== Summary ==================== Name: Help-Squeak-Project-tpr.54 Author: tpr Time: 24 June 2018, 6:45:17.430564 pm UUID: ba33b657-b321-43ae-8485-f38afd39a3b5 Ancestors: Help-Squeak-Project-cmm.53 Start process of moving responsibilty for deciding on Help content code styling or not from TheWorldMainDock to the actual content. The overall effect of these groups of changes is to make no visual difference. Yet. =============== Diff against Help-Squeak-Project-cmm.53 =============== Item was changed: ----- Method: SqueakTutorials class>>usefulExpressions (in category 'pages') ----- usefulExpressions + ^ CodeStyledHelpTopic - ^ HelpTopic title: 'Useful Expressions' readOnlyContents: Utilities standardWorkspaceContents! Item was added: + ----- Method: SqueakTutorials class>>usesCodeStyling (in category 'testing') ----- + usesCodeStyling + "I want the help browser to use code based styling on my content" + ^true! Item was added: + ----- Method: SqueakTutorialsCommandKey class>>usesCodeStyling (in category 'testing') ----- + usesCodeStyling + "I don't want the help browser to use code based styling on my content - I show a simep llist of key mappings which really don't need it" + ^false! Item was changed: ----- Method: SqueakTutorialsOnImage class>>theImage (in category 'as yet unclassified') ----- theImage "This method was automatically generated. Edit it using:" "SqueakTutorialsOnImage edit: #theImage" + ^(HelpTopic - ^HelpTopic title: 'Working with the Squeak Image' + contents: + 'Working with the ecosystem of objects in a Smalltalk image. - contents: 'Working with the ecosystem of objects in a Smalltalk image. The basic tool for this is called an Inspector. Whenever you have an expression, like "3 + 4", you press cmd-i to "inspect it", which opens an inspector on the result. This works in any text area. Try for example inspecting "self" in a class browser, and you will inspect the underlying class object (which the browser shows a high-level view of). In the Inspector you see the objects referenced by this object (via instance variables or indexed fields) in the left panel. Select any of them and choose "inspect" from the context menu (or press cmd-i again). This way you can inspect all the objects in the system. A more modern tool than the Inspector (which was around 40 years ago already) is the Object Explorer. It presents you a tree view of an object and its "children", which again are the instance variables and indexed fields of the object. Open it with cmd-shift-i (or "explore" in the context menu). You can also do the reverse. If you choose "objects pointing to this value" you get an inspector showing all the objects that directly point to this object. Similarly there is a "reverse explorer", which you can open by selecting "explore pointers". There are two roots to all the objects in the system: Smalltalk specialObjectsArray which basically holds everything the Virtual Machine needs to know about, and in turn almost every object in the whole image, and thisContext which is the current execution context, holding onto temporary objects. When a garbage collection is performed, any object not reachable form either of these two roots is removed from memory. An "interesting" global object to explore is Project current which holds your current workspace, in particular Project current world , the root of all morphs in the world. And of course Smalltalk itself is the dictionary that holds all global objects, including all classes (unless they are defined in a non-global environment). There is also a low-level way to enumerate all objects in memory. "self someObject" will return the very first object in memory (which happens to be the nil object), and "anObject nextObject" will return the next one: | object count | count := 0. object := self someObject. [0 == object] whileFalse: [count := count + 1. object := object nextObject]. count Interestingly, this also finds objects that are due to be garbage-collected. For example, if you accidentally closed a text window, there is a good chance its contents will still be in memory, and can be retrieved using an expression like ByteString allInstances last: 10 This makes use of the someInstance/nextInstance methods, which are similar to someObject/nextObject, but restricted to instances of one class only. + !! + ]style[(59 2838)bi,!!' readStream nextChunkText) + key: #theImage! - '!

1 0

The Trunk: Protocols-cmm.61.mcz
by commits＠source.squeak.org 24 Jun '18

24 Jun '18

Chris Muller uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-cmm.61.mcz ==================== Summary ==================== Name: Protocols-cmm.61 Author: cmm Time: 23 June 2018, 6:08:39.824925 pm UUID: 5fa22d46-016a-47b0-b872-e546943b444b Ancestors: Protocols-cmm.60 Further improvement to the toggling between showing all methods or the category of the selected method in the Protocols browser. =============== Diff against Protocols-cmm.60 =============== Item was changed: ----- Method: Lexicon>>showHomeCategory (in category 'menu commands') ----- showHomeCategory "Toggle the selection of the category of the currently-selected method or category." self selectedMessageName + ifNil: [ self selectCategoryAll ] - ifNil: - [ self selectedCategoryName ifNotNil: [ self selectCategoryAll ] ] ifNotNil: [ : selector | self selectedCategoryName = self class allCategoryName ifTrue: [ self preserveSelectorIfPossibleSurrounding: [ self setToShowSelector: selector selectCategory: true ] ] ifFalse: [ self setToShowSelector: selector selectCategory: false ] ]!

1 0

The Trunk: Tools-cmm.823.mcz
by commits＠source.squeak.org 24 Jun '18

24 Jun '18

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.823.mcz ==================== Summary ==================== Name: Tools-cmm.823 Author: cmm Time: 23 June 2018, 6:05:38.664539 pm UUID: 8f7a7bf2-a8e3-497c-a90f-fb2522c558dc Ancestors: Tools-eem.822 Added Debugger class>>#rememberExtent: to allow toggling the debuggers initial extent between either classic RealEstateManager preferences or the extent of the most-recently-closed Debugger. =============== Diff against Tools-eem.822 =============== Item was added: + ----- Method: Debugger class>>rememberExtent: (in category 'opening') ----- + rememberExtent: aBoolean + "Set whether to try to remember the last size of the debugger." + SavedExtent := aBoolean ifTrue: + [ SavedExtent ifNil: + [ "Start at a 33% width, 95% height of the desktop. Use division for its built-in truncation." + Project current world extent // (3(a)1.05) ] ]! Item was changed: ----- Method: Debugger>>buildFullWith: (in category 'toolbuilder') ----- buildFullWith: builder | windowSpec listSpec textSpec | windowSpec := builder pluggableWindowSpec new model: self; label: 'Debugger'; children: OrderedCollection new. - SavedExtent ifNotNil: - [windowSpec extent: SavedExtent]. listSpec := builder pluggableListSpec new. listSpec model: self; list: #contextStackList; getIndex: #contextStackIndex; setIndex: #toggleContextStackIndex:; menu: #contextStackMenu:shifted:; icon: #messageIconAt:; helpItem: #messageHelpAt:; keyPress: #contextStackKey:from:; frame: (0@0 corner: 1(a)0.22). windowSpec children add: listSpec. textSpec := self buildCodePaneWith: builder. textSpec frame: (0(a)0.22corner: 1(a)0.8). windowSpec children add: textSpec. listSpec := builder pluggableListSpec new. listSpec model: self receiverInspector; list: #fieldList; getIndex: #selectionIndex; setIndex: #toggleIndex:; menu: #fieldListMenu:; keyPress: #inspectorKey:from:; frame: (0(a)0.8 corner: 0.2@1); help: 'Receiver''s\Instance\Variables' withCRs. windowSpec children add: listSpec. textSpec := builder pluggableTextSpec new. textSpec model: self receiverInspector; getText: #contents; setText: #accept:; help: '<- Select receiver''s field' translated; selection: #contentsSelection; menu: #codePaneMenu:shifted:; frame: (0.2(a)0.8 corner: 0.5@1). windowSpec children add: textSpec. listSpec := builder pluggableListSpec new. listSpec model: self contextVariablesInspector; list: #fieldList; getIndex: #selectionIndex; setIndex: #toggleIndex:; menu: #fieldListMenu:; keyPress: #inspectorKey:from:; frame: (0.5(a)0.8 corner: 0.7@1); help: 'Other\Context\Bindings' withCRs. windowSpec children add: listSpec. textSpec := builder pluggableTextSpec new. textSpec model: self contextVariablesInspector; getText: #contents; setText: #accept:; help: '<- Select context''s field' translated; selection: #contentsSelection; menu: #codePaneMenu:shifted:; frame: (0.7(a)0.8 corner: 1@1). windowSpec children add: textSpec. ^builder build: windowSpec! Item was changed: ----- Method: Debugger>>initialExtent (in category 'initialize') ----- initialExtent "Initial extent for the full debugger. For the notifier's extent see #initialExtentForNotifier." + ^ SavedExtent ifNil: [ 600@700]! - ^ 600@700! Item was changed: ----- Method: Debugger>>windowIsClosing (in category 'initialize') ----- windowIsClosing + "My window is being closed; if debugging save its extent. Clean up. Restart the low space watcher." + interruptedProcess ifNil: [ ^ self ]. + SavedExtent ifNotNil: + [ self dependents + detect: + [ : each | each isWindowForModel: self ] + ifFound: + [ : topWindow | | isDebuggerNotNotifier | + isDebuggerNotNotifier := self dependents anySatisfy: + [ : each | each isTextView ]. + isDebuggerNotNotifier ifTrue: [ SavedExtent := topWindow extent ] ] + ifNone: [ "do nothing" ] ]. - "My window is being closed; if debugging save its extent. - Clean up. Restart the low space watcher." - - interruptedProcess ifNil: [^self]. - (self dependents detect: [:m| m isWindowForModel: self] ifNone: []) ifNotNil: - [:topWindow| | isDebuggerNotNotifier | - isDebuggerNotNotifier := self dependents anySatisfy: [:m| m isTextView]. - isDebuggerNotNotifier ifTrue: - [SavedExtent := topWindow extent]]. interruptedProcess terminate. + interruptedProcess := interruptedController := contextStack := receiverInspector := contextVariablesInspector := nil. + "Restart low space watcher." + Smalltalk installLowSpaceWatcher! - interruptedProcess := nil. - interruptedController := nil. - contextStack := nil. - receiverInspector := nil. - contextVariablesInspector := nil. - Smalltalk installLowSpaceWatcher "restart low space handler" - !

1 0

The Trunk: System-kfr.1036.mcz
by commits＠source.squeak.org 23 Jun '18

23 Jun '18

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-kfr.1036.mcz ==================== Summary ==================== Name: System-kfr.1036 Author: kfr Time: 21 June 2018, 8:49:18.217801 pm UUID: 4150334e-4f5f-744c-b5b7-814cef973cc0 Ancestors: System-kfr.1035 Remove classes from SmartRefStream instanceVariable renamed that not are in structures so we avoid false positives =============== Diff against System-ul.1034 =============== Item was changed: ----- Method: SmartRefStream>>reshapedClassesIn: (in category 'import image segment') ----- reshapedClassesIn: outPointers "Look for classes in the outPointer array that have changed shape. Make a fake class for the old shape. Return a dictionary mapping Fake classes to Real classes. Substitute fake classes for real ones in outPointers." | mapFakeClassesToReal | self flag: #bobconv. + "make sure we don't try to convert classes not in structures to renamed classes" + renamed keysDo:[ :renamedClass | structures at: renamedClass ifAbsent:[ renamed removeKey: renamedClass]]. - mapFakeClassesToReal := IdentityDictionary new. outPointers withIndexDo: [:outp :ind | | originalName fakeCls | outp isBehavior ifTrue: [ originalName := renamed keyAtValue: outp name ifAbsent: [renamedConv at: ind ifAbsent: [outp name]]. + "in DiskProxy>>comeFullyUpOnReload: we saved the name at the index" - "in DiskProxy>>comeFullyUpOnReload: we saved the name at the index" fakeCls := self mapClass: outp origName: originalName. fakeCls == outp ifFalse: [ mapFakeClassesToReal at: fakeCls put: outp. outPointers at: ind put: fakeCls]]]. ^ mapFakeClassesToReal!

1 0

The Trunk: Morphic-cmm.1454.mcz
by commits＠source.squeak.org 23 Jun '18

23 Jun '18

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1454.mcz ==================== Summary ==================== Name: Morphic-cmm.1454 Author: cmm Time: 23 June 2018, 4:23:51.324266 pm UUID: 7bd5a7a9-4493-4cf4-849f-be6d8f8bb991 Ancestors: Morphic-hjh.1453 - Fix ability of border styles of veryDeepCopied Morphs to be independently set. - Fix dispatch regression for Morphs that leave world based on mouseLeave. - Fix three UI-gesture inconsistencies related to invoking halos, depending on the position of existing halos: 1) halo activation was sometimes on mouseUp instead of mouseDown, 2) blue move/resize gestures sometimes operated on the background window instead of the foreground, and, 3) even with the (Shift) modifier key, it was sometimes selecting the outermost instead of the innermost. All three are fixed while reverting the increased dependence on #transferHalo:, putting us closer to considerations like multiple, independent, and custom halos. - Restore splitter bar thicknesses from 2 back to 4 pixels. - Restore blue-click functionality of splitters when Smart Splitters is off. - Let SystemWindows dismiss halos with any button, mouse or keyboard. =============== Diff against Morphic-hjh.1453 =============== Item was added: + ----- Method: ComplexBorder>>veryDeepInner: (in category 'copying') ----- + veryDeepInner: aDeepCopier + super veryDeepInner: aDeepCopier. + style := style veryDeepCopyWith: aDeepCopier. + colors := colors veryDeepCopyWith: aDeepCopier. + lineStyles := lineStyles veryDeepCopyWith: aDeepCopier.! Item was changed: ----- Method: Editor class>>dumbbellCursor (in category 'preferences') ----- dumbbellCursor + <preference: 'Dumbbell Text Cursor' - <preference: 'Dumbbell-shaped Text Cursor' category: 'Morphic' + description: 'When enabled, the text cursor assumes the shape of a dumbbell, otherwise a vertical bar.' - description: 'When true, the text cursor assumes the shape of a dumbbell, otherwise a vertical bar..' type: #Boolean> ^ DumbbellCursor ifNil: [ false ]! Item was changed: ----- Method: MorphicEventDispatcher>>dispatchFocusEventAllOver:with: (in category 'focus events') ----- dispatchFocusEventAllOver: evt with: focusMorph "Like a full event dispatch BUT adds regular dispatch if the focus morph did nothing with the event. This is useful for letting the focusMorph's siblings handle the events instead. Take halo invocation as an example. See senders of me." | result hand mouseFocus | result := self dispatchFocusEventFully: evt with: focusMorph. result == #rejected ifTrue: [^ result]. result wasIgnored ifTrue: [^ result]. result wasHandled ifTrue: [^ result]. + focusMorph world ifNil: [ ^ result ]. hand := evt hand. mouseFocus := hand mouseFocus. [ "Avoid re-dispatching the event to the focus morph. See Morph >> #rejectsEvent:." focusMorph lock. "Handle side effect for mouse-enter and mouse-leave events." self flag: #hacky. "mt: Maybe we find a better way to synthesize enter/leave events in the future." hand newMouseFocus: nil. hand mouseOverHandler processMouseOver: hand lastEvent. "Give the morph's world a chance to normally dispatch the event." + ^ focusMorph world ifNotNil: [ : world | world processEvent: evt using: self] - ^ focusMorph world processEvent: evt using: self ] ensure: [ focusMorph unlock. evt hand newMouseFocus: mouseFocus].! Item was changed: ----- Method: PasteUpMorph>>tryInvokeHalo: (in category 'events-processing') ----- + tryInvokeHalo: aUserInputEvent + "Invoke halos around the top-most world container at aUserInputEvent's #position. If it was already halo'd, zero-in on its next inward component morph at that position. Holding Shift during the click reverses this traversal order." + | stack innermost haloTarget | + Preferences noviceMode ifTrue: [ ^ self ]. + Morph haloForAll ifFalse: [ ^ self ]. + "the stack is the top-most morph to bottom-most." + stack := (self morphsAt: aUserInputEvent position unlocked: true) select: + [ : each | each wantsHaloFromClick or: [ each handlesMouseDown: aUserInputEvent ] ]. + innermost := aUserInputEvent hand halo + ifNil: [ stack first ] + ifNotNil: + [ : existingHalo | stack allButFirst "existingHalo is first on the stack, not a target" + detect: [ : each | each owner == self ] + ifFound: + [ : worldContainer | "Is existingHalo's target part of the same worldContainer as the morph clicked?" + (existingHalo target withAllOwners includes: worldContainer) + ifTrue: [ "same hierarchy, let #transferHalo: continue to handle it for now." ^ self ] + ifFalse: + [ "different hierarchy, remove + add." + aUserInputEvent hand removeHalo. + aUserInputEvent shiftPressed + ifTrue: [ stack second "first is still the just removed halo" ] + ifFalse: [ worldContainer ] ] ] + ifNone: [ "Shouldn't get here, but defensive code." self ] ]. + "If modifier key is pressed, start at innermost (the target), otherwise the outermost (direct child of the world (self))." + haloTarget := aUserInputEvent shiftPressed + ifTrue: [ innermost ] + ifFalse: [ innermost == self ifTrue: [innermost] ifFalse: [(innermost withAllOwners copyWithout: self) last] ]. + haloTarget wantsHaloFromClick ifFalse: [ "haloTarget has its own event handler." ^ self ]. + "Now that we have the haloTarget, show the halo." + aUserInputEvent hand + newMouseFocus: haloTarget + event: aUserInputEvent. + haloTarget invokeHaloOrMove: aUserInputEvent. + "aUserInputEvent has been consumed, don't let it cause any further side-effects." + aUserInputEvent ignore! - tryInvokeHalo: anEvent - - | innerMost target | - anEvent hand halo ifNotNil: [^ self "No invocation needed. Halo will handle transfer itself."]. - Preferences noviceMode ifTrue: [^ self "No halo in novice mode."]. - Morph haloForAll ifFalse: [^ self]. - - innerMost := (self morphsAt: anEvent position unlocked: true) first. - - "1) Try to use innermost morph but skip all the ones that do not want to show a halo along the owner chain." - target := innerMost. - [target isNil or: [target wantsHaloFromClick]] - whileFalse: [target := target owner]. - target ifNil: [^ self]. - - "2) Without a modifier, which is normal, find the outermost container for that inner morph." - (innerMost == self or: [anEvent shiftPressed]) ifFalse: [ - | previousTargets | - previousTargets := OrderedCollection new. - [target notNil and: [target owner ~~ self]] whileTrue: [ - previousTargets add: target. - target := target owner]. - target ifNil: [^ self]. - [previousTargets isEmpty or: [target wantsHaloFromClick]] whileFalse: [ - target := previousTargets removeLast]. - target wantsHaloFromClick ifFalse: [^ self]]. - - "3) Now that we have the target, show the halo. Abort event dispatching, too, to avoid confusion." - anEvent hand newMouseFocus: target event: anEvent. - target invokeHaloOrMove: anEvent. - anEvent ignore.! Item was changed: ----- Method: ProportionalSplitterMorph>>balanceOffsets (in category 'layout') ----- balanceOffsets + | fdx fdy | + (self hasProperty: #fullDelta) ifFalse: [^ self]. + fdx := (self valueOfProperty: #fullDelta) x. + fdy := (self valueOfProperty: #fullDelta) y. + self layoutFrame hasFixedHeight ifTrue: [ | otop obot ctop cbot topf | otop := (owner submorphs detect: [:m | m layoutFrame topFraction isZero] ifNone: [^ self]) in: [:tm | tm top - (tm layoutFrame topOffset ifNil: [0])]. obot := (owner submorphs detect: [:m | m layoutFrame bottomFraction = 1] ifNone: [^ self]) in: [:tm | tm bottom - (tm layoutFrame bottomOffset ifNil: [0])]. ctop := (self layoutFrame topFraction * (obot - otop)) rounded + otop + (self layoutFrame topOffset ifNil: [0]). cbot := (self layoutFrame bottomFraction * (obot - otop)) rounded + otop + (self layoutFrame bottomOffset ifNil: [0]). topf := self layoutFrame topFraction. self layoutFrame topFraction: ((ctop + cbot) * 0.5 - otop) / (obot - otop) asFloat. self layoutFrame bottomFraction: self layoutFrame topFraction. + self layoutFrame topOffset: self layoutFrame topOffset - fdy. + self layoutFrame bottomOffset: self layoutFrame bottomOffset - fdy. - self layoutFrame topOffset: ctop - - (self layoutFrame topFraction * (obot - otop) + otop) truncated. - self layoutFrame bottomOffset: cbot - - (self layoutFrame bottomFraction * (obot - otop) + otop) rounded. (leftOrTop copy union: rightOrBottom) do: [:m | (m layoutFrame topFraction closeTo: topf) ifTrue: [ m layoutFrame topFraction: self layoutFrame topFraction. + m layoutFrame topOffset: m layoutFrame topOffset - fdy]. - m layoutFrame topOffset: - m layoutFrame topOffset - (self valueOfProperty: #fullDelta) y]. (m layoutFrame bottomFraction closeTo: topf) ifTrue: [ m layoutFrame bottomFraction: self layoutFrame topFraction. + m layoutFrame bottomOffset: m layoutFrame bottomOffset - fdy]]] . - m layoutFrame bottomOffset: - m layoutFrame bottomOffset - (self valueOfProperty: #fullDelta) y.]]] . self layoutFrame hasFixedWidth ifTrue: [ | oleft oright cleft cright leftf | oleft := (owner submorphs detect: [:m | m layoutFrame leftFraction isZero] ifNone: [^ self]) in: [:tm | tm left - (tm layoutFrame leftOffset ifNil: [0])]. oright := (owner submorphs detect: [:m | m layoutFrame rightFraction = 1] ifNone: [^ self]) in: [:tm | tm right - (tm layoutFrame rightOffset ifNil: [0])]. cleft := (self layoutFrame leftFraction * (oright - oleft)) rounded + oleft + (self layoutFrame leftOffset ifNil: [0]). cright := (self layoutFrame rightFraction * (oright - oleft)) rounded + oleft + (self layoutFrame rightOffset ifNil: [0]). leftf := self layoutFrame leftFraction. self layoutFrame leftFraction: ((cleft + cright) * 0.5 - oleft) / (oright - oleft) asFloat. self layoutFrame rightFraction: self layoutFrame leftFraction. - self layoutFrame leftOffset: cleft - - (self layoutFrame leftFraction * (oright - oleft) + oleft) truncated. - self layoutFrame rightOffset: cright - - (self layoutFrame rightFraction * (oright - oleft) + oleft) rounded. + self layoutFrame leftOffset: self layoutFrame leftOffset - fdx. + self layoutFrame rightOffset: self layoutFrame rightOffset - fdx. + (leftOrTop copy union: rightOrBottom) do: [:m | (m layoutFrame leftFraction closeTo: leftf) ifTrue: [ m layoutFrame leftFraction: self layoutFrame leftFraction. + m layoutFrame leftOffset: m layoutFrame leftOffset - fdx]. - m layoutFrame leftOffset: - m layoutFrame leftOffset - (self valueOfProperty: #fullDelta) x]. (m layoutFrame rightFraction closeTo: leftf) ifTrue: [ m layoutFrame rightFraction: self layoutFrame leftFraction. + m layoutFrame rightOffset: m layoutFrame rightOffset - fdx.]]] . + - m layoutFrame rightOffset: - m layoutFrame rightOffset - (self valueOfProperty: #fullDelta) x.]]] . - self removeProperty: #fullDelta. owner layoutChanged ! Item was added: + ----- Method: ProportionalSplitterMorph>>stopStepping (in category 'events') ----- + stopStepping + super stopStepping. + (self class smartVerticalSplitters or: [ self class smartHorizontalSplitters ]) ifFalse: [ self balanceOffsets ]! Item was changed: ----- Method: SimpleHaloMorph>>transferHalo: (in category 'pop up') ----- transferHalo: event + "Transfer the halo to the next likely recipient" - "Transfer the halo to the next likely recipient. Switch between siblings if overlapping." - (self target world morphsAt: event position) allButFirst "... the halo itself" - detect: [:morph | - "Sibling found?" - (morph owner == self target owner - and: [morph ~~ self target]) - ifTrue: [ - ^ morph invokeHaloOrMove: event]. - "No sibling possible anymore?" - morph == self target]. - self target transferHalo: (event transformedBy: (self target transformedFrom: self)) from: self target.! Item was changed: ----- Method: SystemWindow>>filterEvent:for: (in category 'events') ----- filterEvent: aKeyboardEvent for: anObject "Provide keyboard shortcuts." + - aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent]. + + aKeyboardEvent hand halo ifNotNil: [ : halo | halo target isSystemWindow ifTrue: [ aKeyboardEvent hand removeHalo ] ]. aKeyboardEvent commandKeyPressed ifTrue: [ + aKeyboardEvent keyCharacter caseOf: { - aKeyboardEvent keyCharacter caseOf: { [$\] -> [self class sendTopWindowToBack]. [Character escape] -> [self class deleteTopWindow]. [$/] -> [self class bringWindowUnderHandToFront]. } otherwise: [^ aKeyboardEvent "no hit"]. ^ aKeyboardEvent ignore "hit!!"]. aKeyboardEvent controlKeyPressed ifTrue: [ aKeyboardEvent keyCharacter caseOf: { [Character escape] -> [self world findWindow: aKeyboardEvent]. } otherwise: [^ aKeyboardEvent "no hit"]. ^ aKeyboardEvent ignore "hit!!"]. ^ aKeyboardEvent "no hit"!

1 0

The Trunk: Morphic-hjh.1453.mcz
by commits＠source.squeak.org 22 Jun '18

22 Jun '18

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-hjh.1453.mcz ==================== Summary ==================== Name: Morphic-hjh.1453 Author: hjh Time: 14 June 2018, 8:47:23.595445 am UUID: 709cc547-ea46-426f-86a7-e014af1a5f6b Ancestors: Morphic-cbc.1452 Moved Morph>>beTransparent to 'accessing' Added guard in MorphicProject>>updateLocaleDependents to check for the presence of Etoys Fix comment in Morph>>saveOnFile (SmartRefStream) This change makes 'New MorphicProject' work after unloading Etoys (Preference okToReinitializeFlaps not enabled ) =============== Diff against Morphic-cbc.1452 =============== Item was added: + ----- Method: Morph>>beTransparent (in category 'accessing') ----- + beTransparent + self color: Color transparent! Item was changed: ----- Method: Morph>>saveOnFile (in category 'fileIn/out') ----- saveOnFile + "Ask the user for a filename and save myself on a SmartRefStream file. Writes out the version and class structure. The file is fileIn-able. UniClasses will be filed out." - "Ask the user for a filename and save myself on a SmartReferenceStream file. Writes out the version and class structure. The file is fileIn-able. UniClasses will be filed out." | aFileName | aFileName := ('my {1}.morph' translated format: {self class name}) asFileName. "do better?" aFileName := UIManager default saveFilenameRequest: 'File name?' translated initialAnswer: aFileName. aFileName ifNil: [^ Beeper beep]. self allMorphsDo: [:m | m prepareToBeSaved]. self saveOnFileNamed: aFileName! Item was changed: ----- Method: MorphicProject>>updateLocaleDependents (in category 'language') ----- updateLocaleDependents "Set the project's natural language as indicated" + (self world respondsTo: #isTileScriptingElement) ifTrue: "Etoys present" [ ActiveWorld allTileScriptingElements do: [:viewerOrScriptor | + viewerOrScriptor localeChanged]]. - viewerOrScriptor localeChanged]. Flaps disableGlobalFlaps: false. (Preferences eToyFriendly or: [ (Smalltalk classNamed: 'SugarNavigatorBar') ifNotNil: [:c | c showSugarNavigator] ifNil: [false]]) ifTrue: [ Flaps addAndEnableEToyFlaps. ActiveWorld addGlobalFlaps] ifFalse: [Flaps enableGlobalFlaps]. (Project current isFlapIDEnabled: 'Navigator' translated) ifFalse: [Flaps enableDisableGlobalFlapWithID: 'Navigator' translated]. ScrapBook default emptyScrapBook. MenuIcons initializeTranslations. super updateLocaleDependents. "self setFlaps. self setPaletteFor: aLanguageSymbol." !

1 0

The Trunk: EToys-hjh.336.mcz
by commits＠source.squeak.org 22 Jun '18

22 Jun '18

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-hjh.336.mcz ==================== Summary ==================== Name: EToys-hjh.336 Author: hjh Time: 14 June 2018, 8:41:47.833795 am UUID: 6d2d8e79-98ae-4b95-9f0f-be30225c988d Ancestors: EToys-cbc.335 Move Morph>>beTransparent from '*Etoys-geometry' to 'accessing' category. =============== Diff against EToys-cbc.335 =============== Item was removed: - ----- Method: Morph>>beTransparent (in category '*Etoys-geometry') ----- - beTransparent - self color: Color transparent!

1 0

The Trunk: Installer-Core-ul.422.mcz
by commits＠source.squeak.org 20 Jun '18

20 Jun '18

Levente Uzonyi uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-ul.422.mcz ==================== Summary ==================== Name: Installer-Core-ul.422 Author: ul Time: 18 June 2018, 10:43:46.226618 pm UUID: 418fafe0-8243-4179-b2b3-ca7691208a9b Ancestors: Installer-Core-ul.421 Do not load MetacelloPreview in Installer class >> #ensureRecentMetacello, because it'll render SqueakSSL unusable by loading an older version of WebClient and SqueakSSL. The method still loads Metacello. =============== Diff against Installer-Core-ul.421 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" | metacello | ((Smalltalk classNamed: #WebClient) ifNil: [ false ] ifNotNil: [ :webClient | [ (webClient httpHead: 'https://github.com') isSuccess ] on: Error do: [ false ] ]) ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. metacello := (Smalltalk classNamed: #Metacello) ifNil: [ "Get the Metacello configuration (for Squeak users)" Installer gemsource project: 'metacello'; addPackage: 'ConfigurationOfMetacello'; install. "Bootstrap Metacello Preview, using mcz files (#'previewBootstrap' symbolic version" ((Smalltalk classNamed: #ConfigurationOfMetacello) project version: #'previewBootstrap') load. - - "Load the Preview version of Metacello from GitHub" - (Smalltalk classNamed: #Metacello) new - configuration: 'MetacelloPreview'; - version: #stable; - repository: 'github://Metacello/metacello:configuration'; - load. Smalltalk classNamed: #Metacello ]. "Now load latest version of Metacello" metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; get. metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; load.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2018