Packages April 2018

packages@lists.squeakfoundation.org

1 participants
86 discussions

The Trunk: MorphicExtras-kfr.227.mcz
by commits＠source.squeak.org 15 Apr '18

15 Apr '18

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.227.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.227 Author: kfr Time: 15 April 2018, 12:47:19.317391 pm UUID: 9dd2eaf1-6002-4f42-99c4-65f00426c358 Ancestors: MorphicExtras-kfr.226 BouncingAtomsMorph was not updating drawing bounds once it stopped stepping and got moved =============== Diff against MorphicExtras-kfr.226 =============== Item was removed: - ----- Method: BouncingAtomsMorph>>intoWorld: (in category 'initialization') ----- - intoWorld: aWorld - "Make sure report damage at least once" - damageReported := false. - super intoWorld: aWorld.! Item was added: + ----- Method: BouncingAtomsMorph>>justDroppedInto:event: (in category 'initialization') ----- + justDroppedInto: newOwner event: evt + self startStepping + !

1 0

The Trunk: MorphicExtras-kfr.226.mcz
by commits＠source.squeak.org 14 Apr '18

14 Apr '18

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.226.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.226 Author: kfr Time: 14 April 2018, 3:54:05.537419 pm UUID: 013296dd-551b-154d-8583-5fa40bf21e36 Ancestors: MorphicExtras-kfr.225 Paint was missing from the Graphics category in Object tool =============== Diff against MorphicExtras-kfr.225 =============== Item was changed: ----- Method: PaintInvokingMorph class>>descriptionForPartsBin (in category 'parts bin') ----- descriptionForPartsBin ^ self partName: 'Paint' translatedNoop + categories: #('Graphics' translatedNoop) - categories: #() documentation: 'Drop this icon to start painting a new object.' translatedNoop!

1 0

The Trunk: MorphicExtras-kfr.226.mcz
by commits＠source.squeak.org 14 Apr '18

14 Apr '18

1 0

The Trunk: Tools-tpr.806.mcz
by commits＠source.squeak.org 12 Apr '18

12 Apr '18

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.806.mcz ==================== Summary ==================== Name: Tools-tpr.806 Author: tpr Time: 11 April 2018, 5:05:08.791195 pm UUID: 84e1d562-18b3-454b-8826-3f4b15e12aac Ancestors: Tools-mt.805 Start deprecation of some egregious FileList2 code on the path to freedom from FileList2. This matches up with EToys-tpr.325 =============== Diff against Tools-mt.805 =============== Item was changed: ----- Method: FileList2 class>>morphicViewProjectLoader2InWorld:reallyLoad:dirFilterType: (in category 'blue ui') ----- morphicViewProjectLoader2InWorld: aWorld reallyLoad: aBoolean dirFilterType: aSymbol | window aFileList buttons treePane textColor1 fileListPane pane2a pane2b treeExtent filesExtent | window := AlignmentMorphBob1 newColumn. window hResizing: #shrinkWrap; vResizing: #shrinkWrap. textColor1 := Color r: 0.742 g: 0.839 b: 1.0. aFileList := self new. aFileList optionalButtonSpecs: aFileList servicesForProjectLoader; fileSelectionBlock: ( aSymbol == #limitedSuperSwikiDirectoryList ifTrue: [ + MessageSend receiver: Project selector: #latestProjectVersionsFromFileEntries: - MessageSend receiver: self selector: #projectOnlySelectionMethod: ] ifFalse: [ self projectOnlySelectionBlock ] ); "dirSelectionBlock: self hideSqueakletDirectoryBlock;" modalView: window. aFileList directory: FileDirectory default. window setProperty: #FileList toValue: aFileList; wrapCentering: #center; cellPositioning: #topCenter; borderWidth: 1; borderColor: (Color r: 0.9 g: 0.801 b: 0.2); useRoundedCorners. buttons := {{'OK'. Color lightGreen}. {'Cancel'. Color lightRed}} collect: [ :each | self blueButtonText: each first textColor: textColor1 color: each second inWindow: window ]. aWorld width < 800 ifTrue: [ treeExtent := 150@300. filesExtent := 350@300. ] ifFalse: [ treeExtent := 350@500. filesExtent := 550@500. ]. (treePane := aFileList morphicDirectoryTreePaneFiltered: aSymbol) extent: treeExtent; retractable: false; borderWidth: 0. fileListPane := aFileList morphicFileListPane extent: filesExtent; retractable: false; borderWidth: 0. window addARow: { window fancyText: 'Load A Project' translated font: Preferences standardEToysTitleFont color: textColor1 }; addARowCentered: { buttons first. (Morph new extent: 30@5) color: Color transparent. buttons second }; addARow: { window fancyText: 'Please select a project' translated font: Preferences standardEToysFont color: textColor1 }; addARow: { (window inAColumn: {(pane2a := window inARow: {window inAColumn: {treePane}}) useRoundedCorners; layoutInset: 0; borderWidth: 1; borderColor: (Color r: 0.6 g: 0.7 b: 1) }) layoutInset: 10. (window inAColumn: {(pane2b := window inARow: {window inAColumn: {fileListPane}}) useRoundedCorners; layoutInset: 0; borderWidth: 1; borderColor: (Color r: 0.6 g: 0.7 b: 1) }) layoutInset: 10. }. window fullBounds. window fillWithRamp: (Color r: 1 g: 0.85 b: 0.975) oriented: 0.65. pane2a fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35). pane2b fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35). " buttons do: [ :each | each fillWithRamp: ColorTheme current dialogButtonsRampOrColor oriented: (0.75 @ 0). ]. " buttons first on: #mouseUp send: (aBoolean ifTrue: [#okHitForProjectLoader] ifFalse: [#okHit]) to: aFileList. buttons second on: #mouseUp send: #cancelHit to: aFileList. aFileList postOpen. window position: aWorld topLeft + (aWorld extent - window extent // 2). window adoptPaneColor: (Color r: 0.548 g: 0.677 b: 1.0). ^ window openInWorld: aWorld.! Item was changed: ----- Method: FileList2 class>>projectOnlySelectionMethod: (in category 'as yet unclassified') ----- projectOnlySelectionMethod: incomingEntries + self deprecated: 'use Project class>latestProjectVersionsFromFileEntries: instead'. + + ^Project latestProjectVersionsFromFileEntries: incomingEntries! - | versionsAccepted | - - "this shows only the latest version of each project" - versionsAccepted := Dictionary new. - incomingEntries do: [ :entry | | basicInfoTuple basicVersion basicName | - entry isDirectory ifFalse: [ - (#('*.pr' '*.pr.gz' '*.project') anySatisfy: [ :each | each match: entry name]) ifTrue: [ - basicInfoTuple := Project parseProjectFileName: entry name. - basicName := basicInfoTuple first. - basicVersion := basicInfoTuple second. - ((versionsAccepted includesKey: basicName) and: - [(versionsAccepted at: basicName) first > basicVersion]) ifFalse: [ - versionsAccepted at: basicName put: {basicVersion. entry} - ]. - ] - ] - ]. - ^versionsAccepted asArray collect: [ :each | each second]!

1 0

The Trunk: EToys-tpr.325.mcz
by commits＠source.squeak.org 12 Apr '18

12 Apr '18

tim Rowledge uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tpr.325.mcz ==================== Summary ==================== Name: EToys-tpr.325 Author: tpr Time: 11 April 2018, 4:59:23.49563 pm UUID: 2b399671-cf5e-4973-a599-caa3ecfb3c4d Ancestors: EToys-tcj.324 Move FileList2 class projectOnlySelectionMethod: to Project class, where it at least makes a bit of sense and helps toward deprecating fileLsit2 =============== Diff against EToys-tcj.324 =============== Item was changed: ----- Method: EToysLauncher>>projectFiles (in category 'utilities') ----- projectFiles "Answer a collection of file entry. Only recent version is picked up." "self basicNew projectFiles" | entries | entries := self directories inject: OrderedCollection new into: [:collection :each | collection addAll: (FileDirectory on: each) entries. collection]. + ^ Project latestProjectVersionsFromFileEntries: entries! - ^ FileList2 projectOnlySelectionMethod: entries! Item was changed: ----- Method: FileList2 class>>buildFileListDirFilterType: (in category '*Etoys-Squeakland-blue ui') ----- buildFileListDirFilterType: aSymbol | aFileList | aFileList := self new directory: FileDirectory default. aFileList fileSelectionBlock: (aSymbol == #limitedSuperSwikiDirectoryList + ifTrue: [MessageSend receiver: Project selector: #latestProjectVersionsFromFileEntries: ] - ifTrue: [MessageSend receiver: self selector: #projectOnlySelectionMethod:] ifFalse: [self projectOnlySelectionBlock]). ^ aFileList! Item was added: + ----- Method: Project>>latestProjectVersionsFromFileEntries: (in category '*Etoys-Squeakland-file in/out') ----- + latestProjectVersionsFromFileEntries: incomingEntries + + | versionsAccepted | + + "this shows only the latest version of each project" + versionsAccepted := Dictionary new. + incomingEntries do: [ :entry | | basicInfoTuple basicVersion basicName | + entry isDirectory ifFalse: [ + (#('*.pr' '*.pr.gz' '*.project') anySatisfy: [ :each | each match: entry name]) ifTrue: [ + basicInfoTuple := Project parseProjectFileName: entry name. + basicName := basicInfoTuple first. + basicVersion := basicInfoTuple second. + ((versionsAccepted includesKey: basicName) and: + [(versionsAccepted at: basicName) first > basicVersion]) ifFalse: [ + versionsAccepted at: basicName put: {basicVersion. entry} + ]. + ] + ] + ]. + ^versionsAccepted asArray collect: [ :each | each second]! Item was changed: ----- Method: ProjectLoading class>>loadFromImagePath: (in category '*etoys') ----- loadFromImagePath: projectName "Open the project in image path. This is used with projects in OLPC distribution. - The image's directory is used. - Squeaklets directory is ignored. - If there is a project named projectName, it is opened. " "self openFromImagePath: 'Welcome'" | directory aStream entries fileName | (Project named: projectName) ifNotNil: [:project | ^ project]. directory := FileDirectory on: Smalltalk imagePath. + entries := Project latestProjectVersionsFromFileEntries: directory entries. - entries := FileList2 projectOnlySelectionMethod: directory entries. fileName := (entries detect: [:each | (Project parseProjectFileName: each name) first = projectName] ifNone: [^ nil]) name. 'Loading a Project...' displaySequentialProgress: [ProgressNotification signal: '0'. directory := FileDirectory on: Smalltalk imagePath. aStream := directory readOnlyFileNamed: fileName. ^ self loadName: fileName stream: aStream fromDirectory: directory withProjectView: nil]! Item was changed: ----- Method: ReleaseBuilderSqueakland class>>prepareEnvironment (in category 'preparing') ----- prepareEnvironment | directory entries projectNames | super prepareEnvironment. projectNames := #('Gallery' 'Tutorials' 'Home'). directory := FileDirectory on: Smalltalk imagePath. + entries :=Project latestProjectVersionsFromFileEntries: directory entries. - entries := FileList2 projectOnlySelectionMethod: directory entries. projectNames do: [:projectName | (entries anySatisfy: [:each | (Project parseProjectFileName: each name) first = projectName]) ifFalse: [self inform: projectName , ' is not found']]. self installExtraPackages. DeferredTask := [ProjectLoading openFromImagePath: 'Home'].!

1 0

The Trunk: ReleaseBuilder-mt.180.mcz
by commits＠source.squeak.org 11 Apr '18

11 Apr '18

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.180.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.180 Author: mt Time: 11 April 2018, 9:18:05.125927 am UUID: 618552cc-a165-f14a-92e7-b3595a82f884 Ancestors: ReleaseBuilder-mt.179 Adds preference for message labels in senders/implementors browser. =============== Diff against ReleaseBuilder-mt.179 =============== Item was changed: ----- Method: ReleaseBuilder class>>setPreferences (in category 'scripts') ----- setPreferences "Preferences class defaultValueTableForCurrentRelease" " Preferences outOfTheBox." "<-- uncomment after #defaultValueTableForCurrentRelease is fixed up." "General User interaction" Preferences enable: #generalizedYellowButtonMenu ; enable: #swapMouseButtons; disable: #mouseOverForKeyboardFocus. Morph indicateKeyboardFocus: true. Project uiManager openToolsAttachedToMouseCursor: false. SearchBar useScratchPad: false. HandMorph sendMouseWheelToKeyboardFocus: false. HandMorph synthesizeMouseWheelEvents: true. "Text input." TextEditor autoEnclose: true ; autoIndent: true ; encloseSelection: false ; destructiveBackWord: false ; blinkingCursor: true ; dumbbellCursor: false. PluggableTextMorph simpleFrameAdornments: false. TextMorphForEditView draggableTextSelection: true. "Windows" SystemWindow reuseWindows: false. SystemWindow windowsRaiseOnClick: true. SystemWindow windowTitleActiveOnFirstClick: true. Model windowActiveOnFirstClick: false. "Not good for little screen real estate." Model useColorfulWindows: false. Preferences disable: #showSplitterHandles; disable: #fastDragWindowForMorphic. CornerGripMorph drawCornerResizeHandles: false; passiveColor: (Color gray: 0.85); activeColor: (Color r: 1 g: 0.599 b: 0.0). ProportionalSplitterMorph smartHorizontalSplitters: false ; smartVerticalSplitters: false. "Scroll bars." Preferences enable: #scrollBarsNarrow; enable: #scrollBarsOnRight; enable: #alwaysHideHScrollbar; disable: #alwaysShowHScrollbar; disable: #alwaysShowVScrollbar. ScrollBar scrollBarsWithoutArrowButtons: true; scrollBarsWithoutMenuButton: true. ScrollPane useRetractableScrollBars: false. "Rounded corners." Morph preferredCornerRadius: 8. SystemWindow roundedWindowCorners: false. DialogWindow roundedDialogCorners: false. MenuMorph roundedMenuCorners: false. PluggableButtonMorph roundedButtonCorners: false. ScrollBar roundedScrollBarLook: false. "Gradients." SystemWindow gradientWindow: false. DialogWindow gradientDialog: false. MenuMorph gradientMenu: false. PluggableButtonMorph gradientButton: false. ScrollBar gradientScrollBar: false. "Shadows" Preferences enable: #menuAppearance3d. Morph useSoftDropShadow: true. "Lists and Trees" PluggableListMorph filterableLists: true; clearFilterAutomatically: false; highlightHoveredRow: true; menuRequestUpdatesSelection: true. PluggableTreeMorph filterByLabelsOnly: false; maximumSearchDepth: 1. "Standard Tools" TheWorldMainDockingBar showWorldMainDockingBar: true; showSecondsInClock: true; twentyFourHourClock: true. SearchBar useSmartSearch: true. Workspace shouldStyle: false. TranscriptStream forceUpdate: true; redirectToStdOut: false; characterLimit: 20000. Browser listClassesHierarchically: true; showClassIcons: true; showMessageIcons: true; sortMessageCategoriesAlphabetically: true. + MessageSet useUnifiedMessageLabels: true. Preferences enable: #annotationPanes; enable: #optionalButtons; disable: #diffsWithPrettyPrint; enable: #traceMessages; enable: #alternativeBrowseIt; enable: #menuWithIcons; enable: #visualExplorer. SystemNavigation thoroughSenders: true. Preferences disable: #debugLogTimestamp. "Halo" Preferences enable: #showBoundsInHalo ; disable: #alternateHandlesLook; disable: #showDirectionHandles. "System" NetNameResolver enableIPv6: false. Scanner allowUnderscoreAsAssignment: true; prefAllowUnderscoreSelectors: true. Deprecation showDeprecationWarnings: true "that's all, folks"!

1 0

The Trunk: Tools-mt.805.mcz
by commits＠source.squeak.org 11 Apr '18

11 Apr '18

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.805.mcz ==================== Summary ==================== Name: Tools-mt.805 Author: mt Time: 11 April 2018, 9:16:12.591927 am UUID: 8d0a4073-2ee8-6941-bb8c-7926dd445e6e Ancestors: Tools-mt.804 Fixes regression in the labels for senders/implementors browsers. =============== Diff against Tools-mt.804 =============== Item was changed: CodeHolder subclass: #MessageSet instanceVariableNames: 'growable messageList autoSelectString messageListIndex editSelection' + classVariableNames: 'UseUnifiedMessageLabels' - classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! !MessageSet commentStamp: '<historical>' prior: 0! I represent a query path of the retrieval result of making a query about methods in the system. The result is a set of methods, denoted by a message selector and the class in which the method was found. As a StringHolder, the string I represent is the source code of the currently selected method. I am typically viewed in a Message Set Browser consisting of a MessageListView and a BrowserCodeView.! Item was added: + ----- Method: MessageSet class>>useUnifiedMessageLabels (in category 'preferences') ----- + useUnifiedMessageLabels + <preference: 'Use unified message labels' + categoryList: #(Tools tools) + description: 'In all message set browsers such as senders and implementors, show a unified, textual representation of all method references (or messages).' + type: #Boolean> + ^ UseUnifiedMessageLabels ifNil: [true]! Item was added: + ----- Method: MessageSet class>>useUnifiedMessageLabels: (in category 'preferences') ----- + useUnifiedMessageLabels: aBoolean + + UseUnifiedMessageLabels := aBoolean.! Item was changed: ----- Method: MessageSet>>initializeMessageList: (in category 'private') ----- initializeMessageList: anArray "Initialize my messageList from the given list of MethodReference or string objects. NB: special handling for uniclasses. Do /not/ replace the elements of anArray if they are already MethodReferences, so as to allow users to construct richer systems, such as differencers between existing and edited versions of code." messageList := OrderedCollection new. + anArray do: [:each | - anArray do: - [:each | each isMethodReference ifTrue: [messageList addLast: each] + ifFalse: [MessageSet parse: each toClassAndSelector: [ :class :sel | + class ifNotNil: [ + messageList addLast: ( + MethodReference new + class: class + selector: sel)] ]]]. + + "Unify labels if wanted." + self class useUnifiedMessageLabels ifTrue: [ + messageList do: [:each | | cls | + cls := each actualClass. + each stringVersion: (cls isUniClass + ifTrue: [cls typicalInstanceName, ' ', each selector] + ifFalse: [cls name , ' ' , each selector , ' {' , + ((cls organization categoryOfElement: each selector) ifNil: ['']) , '}' , + ' {', cls category, '}'])]]. + - ifFalse: - [MessageSet - parse: each - toClassAndSelector: [ :class :sel | | s | - class ifNotNil: - [class isUniClass - ifTrue: - [s := class typicalInstanceName, ' ', sel] - ifFalse: - [s := class name , ' ' , sel , ' {' , - ((class organization categoryOfElement: sel) ifNil: ['']) , '}' , - ' {', class category, '}']. - messageList addLast: ( - MethodReference new - setClass: class - methodSymbol: sel - stringVersion: s)]]]]. messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1]. contents := ''!

1 0

The Trunk: EToys-tcj.324.mcz
by commits＠source.squeak.org 10 Apr '18

10 Apr '18

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tcj.324.mcz ==================== Summary ==================== Name: EToys-tcj.324 Author: tcj Time: 9 April 2018, 12:33:26.80885 pm UUID: 4cdd717b-002f-4dc1-96e4-b32bb0452038 Ancestors: EToys-nice.323 Replace deprecated (and removed) 3.8-era message sends with contemporary equivalents. Note: now that this works again, it exposes two sends of #isThisEverCalled. =============== Diff against EToys-nice.323 =============== Item was changed: ----- Method: PDA>>openMonthView (in category 'initialization') ----- openMonthView | row month col paneExtent window paneColor nRows | month := date notNil ifTrue: [date month] ifFalse: ["But... it's here somewhere..." ((self dependents detect: [:m | m isKindOf: PDAMorph]) findA: MonthMorph) month]. window := SystemWindow labelled: month printString. paneColor := Color transparent. window color: (Color r: 0.968 g: 1.0 b: 0.355). + nRows := 0. month weeksDo: [:w | nRows := nRows + 1]. - nRows := 0. month eachWeekDo: [:w | nRows := nRows + 1]. paneExtent := ((1.0/7) @ (1.0/nRows)). row := 0. + month weeksDo: - month eachWeekDo: [:week | col := 0. + week datesDo: - week do: [:day | day month = month ifTrue: [window addMorph: ((PluggableListMorph on: self list: nil selected: nil changeSelected: nil menu: nil keystroke: nil) list: {(day dayOfMonth printString , ' ' , day weekday) asText allBold} , (self scheduleListForDay: day)) frame: (paneExtent * (col@row) extent: paneExtent)]. col := col + 1]. row := row + 1]. window firstSubmorph color: paneColor. window updatePaneColors. window openInWorld!

1 0

The Trunk: Morphic-cmm.1413.mcz
by commits＠source.squeak.org 10 Apr '18

10 Apr '18

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1413.mcz ==================== Summary ==================== Name: Morphic-cmm.1413 Author: cmm Time: 10 April 2018, 12:50:12.968668 am UUID: 4e3f392f-220a-408a-b9eb-f20a9af4f668 Ancestors: Morphic-nice.1412 Integrate fix from Stéphane Rollandin that keeps ProportionalSplitter bars in their proportionally-assigned place after resizing windows. =============== Diff against Morphic-nice.1412 =============== Item was added: + ----- Method: ProportionalSplitterMorph>>balanceOffsets (in category 'layout') ----- + balanceOffsets + + 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: ctop - + (self layoutFrame topFraction * (obot - otop) + otop) rounded. + 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 - (self valueOfProperty: #fullDelta) y]. + (m layoutFrame bottomFraction closeTo: topf) ifTrue: [ + m layoutFrame bottomFraction: self layoutFrame topFraction. + 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) rounded. + self layoutFrame rightOffset: cright - + (self layoutFrame rightFraction * (oright - oleft) + oleft) rounded. + + (leftOrTop copy union: rightOrBottom) do: [:m | + (m layoutFrame leftFraction closeTo: leftf) ifTrue: [ + m layoutFrame leftFraction: self layoutFrame leftFraction. + 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 - (self valueOfProperty: #fullDelta) x.]]] . + + self removeProperty: #fullDelta. + owner layoutChanged + ! Item was changed: ----- Method: ProportionalSplitterMorph>>mouseDown: (in category 'events') ----- mouseDown: anEvent "If the user manually drags me, don't override him with auto positioning." + self setProperty: #fullDelta toValue: 0@0. + anEvent redButtonChanged ifTrue: [ self withSiblingSplittersDo: [ : each | each stopStepping ] ] ifFalse: [ anEvent shiftPressed ifTrue: [ self startStepping ] ifFalse: [ self startStepping. self withSiblingSplittersDo: [ : each | each startStepping ] ] ]. (self class showSplitterHandles not and: [ self bounds containsPoint: anEvent cursorPoint ]) ifTrue: [ oldColor := self color. self color: Color black ]. ^ super mouseDown: anEvent! Item was changed: ----- Method: ProportionalSplitterMorph>>mouseUp: (in category 'events') ----- mouseUp: anEvent (self bounds containsPoint: anEvent cursorPoint) ifFalse: [anEvent hand showTemporaryCursor: nil]. self class fastSplitterResize ifTrue: [self updateFromEvent: anEvent]. traceMorph ifNotNil: [traceMorph delete. traceMorph := nil]. + self color: self getOldColor. + + self balanceOffsets! - self color: self getOldColor! Item was changed: ----- Method: ProportionalSplitterMorph>>reduceLeftRightImbalance (in category 'layout') ----- reduceLeftRightImbalance | correction | correction := self leftRightImbalance. correction abs > 1 ifTrue: [ (self proposedCorrectionWouldCauseFocusChange: correction) ifFalse: [ self repositionBy: (correction abs > 4 ifTrue: [ correction sign * 2 @ 0 ] ifFalse: [ correction sign @ 0 ]) ] ] ifFalse: + [ self class smartVerticalSplitters ifFalse: + [ self + stopStepping ; + balanceOffsets ] ]. - [ self class smartVerticalSplitters ifFalse: [ self stopStepping ] ]. ^ correction! Item was changed: ----- Method: ProportionalSplitterMorph>>reduceTopBottomImbalance (in category 'layout') ----- reduceTopBottomImbalance | correction | (correction := self topBottomCorrection) isZero ifTrue: + [ self class smartHorizontalSplitters ifFalse: + [ self + stopStepping ; + balanceOffsets ] ] - [ self class smartHorizontalSplitters ifFalse: [ self stopStepping ] ] ifFalse: [ (self proposedCorrectionWouldCauseFocusChange: correction) ifFalse: [ self repositionBy: 0 @ correction ] ]. ^ correction! Item was changed: ----- Method: ProportionalSplitterMorph>>repositionBy: (in category 'layout') ----- repositionBy: delta | selfTop selfBottom selfLeft selfRight | + + self setProperty: #fullDelta toValue: ((self valueOfProperty: #fullDelta) ifNil: [0@0]) + delta. + leftOrTop do: [ : each | | firstRight firstBottom firstLeft firstTop | firstRight := each layoutFrame rightOffset ifNil: [ 0 ]. firstBottom := each layoutFrame bottomOffset ifNil: [ 0 ]. each layoutFrame rightOffset: firstRight + delta x. each layoutFrame bottomOffset: firstBottom + delta y. each layoutFrame hasFixedHeight ifTrue: [ firstTop := each layoutFrame topOffset ifNil: [ 0 ]. each layoutFrame topOffset: firstTop + delta y ]. each layoutFrame hasFixedWidth ifTrue: [ firstLeft := each layoutFrame leftOffset ifNil: [ 0 ]. each layoutFrame leftOffset: firstLeft + delta x. ] ]. rightOrBottom do: [ : each | | secondLeft secondTop secondRight secondBottom | secondLeft := each layoutFrame leftOffset ifNil: [ 0 ]. secondTop := each layoutFrame topOffset ifNil: [ 0 ]. each layoutFrame leftOffset: secondLeft + delta x. each layoutFrame topOffset: secondTop + delta y. each layoutFrame hasFixedHeight ifTrue: [ secondBottom := each layoutFrame bottomOffset ifNil: [ 0 ]. each layoutFrame bottomOffset: secondBottom + delta y. ]. each layoutFrame hasFixedWidth ifTrue: [ secondRight := each layoutFrame rightOffset ifNil: [ 0 ]. each layoutFrame rightOffset: secondRight + delta x. ] ]. selfTop := self layoutFrame topOffset ifNil: [ 0 ]. selfBottom := self layoutFrame bottomOffset ifNil: [ 0 ]. selfLeft := self layoutFrame leftOffset ifNil: [ 0 ]. selfRight := self layoutFrame rightOffset ifNil: [ 0 ]. self layoutFrame topOffset: selfTop + delta y ; bottomOffset: selfBottom + delta y ; leftOffset: selfLeft + delta x ; rightOffset: selfRight + delta x. self owner layoutChanged. self movements removeFirst; add: (splitsTopAndBottom ifTrue: [ delta y sign ] ifFalse: [ delta x sign ])!

1 0

The Trunk: ToolBuilder-Morphic-cmm.213.mcz
by commits＠source.squeak.org 10 Apr '18

10 Apr '18

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.213.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-cmm.213 Author: cmm Time: 9 April 2018, 7:24:08.252469 pm UUID: e26c8ea8-2621-4752-86be-c67aeb44c4fb Ancestors: ToolBuilder-Morphic-cmm.212 Fix. =============== Diff against ToolBuilder-Morphic-cmm.212 =============== Item was changed: ----- Method: FileSaverDialog>>selectFilename: (in category 'filename') ----- selectFilename: aText "The user has entered a potential filename in the text field. Check it against the current pattern; if it is ok we can accept it and then if it is a file in the current list, highlight it. If it would not match the pattern, alert the user." fileName := aText asString. ^ self selectExistingFilename ifTrue: [ self changed: #fileListIndex. true ] ifFalse: [ suffixList size = 1 ifTrue: [ | suffix | ((suffix := '.' , suffixList anyOne) + compare: (fileName last: (suffix size min: fileName size)) - compare: (fileName last: suffix size) caseSensitive: FileDirectory default isCaseSensitive) = 2 ifFalse: [ fileName := fileName , suffix ]. true ] ifFalse: [ suffixList at: (UIManager default chooseFrom: suffixList title: 'Please choose the type of file to save.') ifPresent: [ : choice | fileName := fileName , '.' , choice. true ] ifAbsent: [ suffixList isEmpty or: [ UIManager default inform: 'WARNING: File not saved!! A filename matching one of ' , patternList asArray asString , ' patterns is required.'. false ] ] ] ]!

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2018