Packages November 2017

packages@lists.squeakfoundation.org

1 participants
117 discussions

The Trunk: GraphicsTests-dtl.45.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-dtl.45.mcz ==================== Summary ==================== Name: GraphicsTests-dtl.45 Author: dtl Time: 14 November 2017, 10:44:29.014493 pm UUID: 9ccfae93-4e04-47d7-a565-9ad5eda7009c Ancestors: GraphicsTests-dtl.44 Remove unnecessary references to global World. =============== Diff against GraphicsTests-dtl.44 =============== Item was changed: ----- Method: PNGReadWriterTest>>encodeAndDecodeDisplay: (in category 'helpers') ----- encodeAndDecodeDisplay: depth | form | fileName := 'testDisplay', depth printString,'.png'. form := Form extent: (Display extent min: 560@560) depth: depth. Smalltalk isMorphic + ifTrue:[Project current world fullDrawOn: form getCanvas] - ifTrue:[World fullDrawOn: form getCanvas] ifFalse:[Display displayOn: form]. self encodeAndDecode: form.! Item was changed: ----- Method: PNGReadWriterTest>>tearDown (in category 'helpers') ----- tearDown + Project current world changed. - World changed. fileName notNil ifTrue: [FileDirectory default deleteFileNamed: fileName]!

1 0

The Trunk: HelpSystem-Tests-dtl.20.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of HelpSystem-Tests to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Tests-dtl.20.mcz ==================== Summary ==================== Name: HelpSystem-Tests-dtl.20 Author: dtl Time: 14 November 2017, 10:43:34.406403 pm UUID: 284f0515-234f-4376-af5e-6f73b521384d Ancestors: HelpSystem-Tests-ul.19 Remove unnecessary reference to global World. =============== Diff against HelpSystem-Tests-ul.19 =============== Item was changed: ----- Method: HelpBrowserTest>>testOpen (in category 'testing') ----- testOpen | browser | [ "This should not throw an exception." browser := self defaultTestClass open. + Project current world doOneCycleNow ] - World doOneCycleNow ] ensure: [ browser ifNotNil: [ browser delete ] ]!

1 0

The Trunk: ToolBuilder-Morphic-dtl.199.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-dtl.199.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-dtl.199 Author: dtl Time: 14 November 2017, 10:41:32.579671 pm UUID: f6bdf59b-ef5d-4052-aec1-4482afc32e5f Ancestors: ToolBuilder-Morphic-tpr.198 Remove unnecessary reference to global World. =============== Diff against ToolBuilder-Morphic-tpr.198 =============== Item was changed: ----- Method: MenuMorph>>openAsTool (in category '*ToolBuilder-Morphic-opening') ----- openAsTool + self popUpInWorld: self world.! - self popUpInWorld: World.!

1 0

The Trunk: Tools-dtl.774.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-dtl.774.mcz ==================== Summary ==================== Name: Tools-dtl.774 Author: dtl Time: 14 November 2017, 10:39:54.257729 pm UUID: c28e78a5-a2d2-40de-9eae-09e56276a1b1 Ancestors: Tools-tpr.773 Remove unnecessary references to global World. =============== Diff against Tools-tpr.773 =============== Item was changed: ----- Method: FileList2 class>>morphicViewProjectSaverFor: (in category 'blue ui') ----- morphicViewProjectSaverFor: aProject " (FileList2 morphicViewProjectSaverFor: Project current) openInWorld " | window aFileList buttons treePane pane2 textColor1 option treeExtent buttonData buttonRow | textColor1 := Color r: 0.742 g: 0.839 b: 1.0. aFileList := self new directory: ServerDirectory projectDefaultDirectory. aFileList dirSelectionBlock: self hideSqueakletDirectoryBlock. window := AlignmentMorphBob1 newColumn. window hResizing: #shrinkWrap; vResizing: #shrinkWrap. aFileList modalView: window. window setProperty: #FileList toValue: aFileList; wrapCentering: #center; cellPositioning: #topCenter; borderWidth: 1; borderColor: (Color r: 0.9 g: 0.801 b: 0.2); useRoundedCorners. buttonData := Preferences enableLocalSave ifTrue: [{ {'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}. {'Save on local disk only'. #saveLocalOnlyHit. 'saves in the Squeaklets folder'. Color lightGreen}. {'Cancel'. #cancelHit. 'return without saving'. Color lightRed} }] ifFalse: [{ {'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}. {'Cancel'. #cancelHit. 'return without saving'. Color lightRed} }]. buttons := buttonData collect: [ :each | (self blueButtonText: each first textColor: textColor1 color: each fourth inWindow: window) setBalloonText: each third translated; hResizing: #shrinkWrap; on: #mouseUp send: each second to: aFileList ]. option := aProject world valueOfProperty: #SuperSwikiPublishOptions ifAbsent: [#initialDirectoryList]. aProject world removeProperty: #SuperSwikiPublishOptions. + treeExtent := Project current world height < 500 - treeExtent := World height < 500 ifTrue: [ 350@150 ] ifFalse: [ 350@300 ]. (treePane := aFileList morphicDirectoryTreePaneFiltered: option) extent: treeExtent; retractable: false; borderWidth: 0. window addARowCentered: { window fancyText: 'Publish This Project' translated font: Preferences standardEToysTitleFont color: textColor1 }. buttonRow := OrderedCollection new. buttons do: [:button | buttonRow add: button] separatedBy: [buttonRow add: ((Morph new extent: 30@5) color: Color transparent)]. " addARowCentered: { buttons first. (Morph new extent: 30@5) color: Color transparent. buttons second. (Morph new extent: 30@5) color: Color transparent. buttons third };" window addARowCentered: buttonRow; addARowCentered: { (window inAColumn: {(ProjectViewMorph on: aProject) lock}) layoutInset: 4}; addARowCentered: { window fancyText: 'Please select a folder' translated font: Preferences standardEToysFont color: textColor1 }; addARow: { ( window inAColumn: { (pane2 := window inARow: {window inAColumn: {treePane}}) 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. pane2 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). ]. " window setProperty: #morphicLayerNumber toValue: 11. aFileList postOpen. window adoptPaneColor: (Color r: 0.548 g: 0.677 b: 1.0). ^ window ! Item was changed: ----- Method: TheWorldMenu>>startThenBrowseMessageTally (in category '*Tools') ----- startThenBrowseMessageTally (self confirm: 'MessageTally will start now, and stop when the cursor goes to the top of the screen') + ifTrue: [ | world | + world := Project current world. + TimeProfileBrowser - ifTrue: [TimeProfileBrowser onBlock: [[Sensor peekPosition y > 10] + whileTrue: [world doOneCycle]]]! - whileTrue: [World doOneCycle]]]!

1 0

The Trunk: Morphic-dtl.1363.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.1363.mcz ==================== Summary ==================== Name: Morphic-dtl.1363 Author: dtl Time: 14 November 2017, 10:37:09.320992 pm UUID: 7f7d0c07-f3aa-4caf-b01a-84dd44f4d893 Ancestors: Morphic-dtl.1362 Remove unnecessary references to global World. =============== Diff against Morphic-dtl.1362 =============== Item was changed: ----- Method: Morph>>delete (in category 'submorphs-add/remove') ----- delete "Remove the receiver as a submorph of its owner and make its new owner be nil." | aWorld | self removeHalo. self isInWorld ifTrue: [ self disableSubmorphFocusForHand: self activeHand. self activeHand releaseKeyboardFocus: self; releaseMouseFocus: self]. "Preserve world reference for player notificaiton. See below." + aWorld := self world ifNil: [self world]. - aWorld := self world ifNil: [World]. owner ifNotNil:[ self privateDelete. self player ifNotNil: [:player | player noteDeletionOf: self fromWorld: aWorld]].! Item was changed: ----- Method: Morph>>openNear: (in category 'initialization') ----- openNear: aRectangle self openNear: aRectangle + in: self world! - in: World! Item was changed: ----- Method: Morph>>openNearMorph: (in category 'initialization') ----- openNearMorph: aMorph self openNear: aMorph boundsInWorld + in: (aMorph world ifNil: [ self world ])! - in: (aMorph world ifNil: [ World ])! Item was changed: ----- Method: Morph>>outermostWorldMorph (in category 'structure') ----- outermostWorldMorph | outer | + self world ifNotNil: [ :world |^world]. - World ifNotNil:[^World]. self flag: #arNote. "stuff below is really only for MVC" outer := self outermostMorphThat: [ :x | x isWorldMorph]. outer ifNotNil: [^outer]. self isWorldMorph ifTrue: [^self]. ^nil! Item was changed: ----- Method: Morph>>preferredKeyboardBounds (in category 'event handling') ----- preferredKeyboardBounds + ^ self bounds: self bounds in: self world. - ^ self bounds: self bounds in: World. ! Item was changed: ----- Method: Morph>>preferredKeyboardPosition (in category 'event handling') ----- preferredKeyboardPosition + ^ (self bounds: self bounds in: self world) topLeft. - ^ (self bounds: self bounds in: World) topLeft. ! Item was changed: ----- Method: PluggableButtonMorph class>>roundedButtonCorners: (in category 'preferences') ----- roundedButtonCorners: aBoolean RoundedButtonCorners := aBoolean. + World invalidRect: self world bounds from: self world.! - World invalidRect: World bounds from: World.! Item was changed: ----- Method: PluggableListMorph>>canBeEncroached (in category 'testing') ----- canBeEncroached "Answer whether my bottom edge can be encroached by horizontal smart-splitter. If my list is larger than my outermost containing window, go ahead and report true since moving a splitter will never allow my entire list to be displayed. In that case go ahead and be encroachable to allow lower truncated text-panes to be exposed, but leave a reasonable height (70) to ensure at least few items are displayed." ^ self height > 24 and: [ | outermostContainer | outermostContainer := self outermostMorphThat: + [ : e | e owner = self world ]. - [ : e | e owner = World ]. listMorph height + 8 < self height or: [ outermostContainer notNil and: [ listMorph height > (outermostContainer height / 1.2) and: [ self height > 70 ] ] ] ]! Item was changed: ----- Method: SearchBar>>layoutScratchPad (in category 'private') ----- layoutScratchPad + | world pos width | + world := Project current world. + world mainDockingBars do: - | pos width | - World mainDockingBars do: [ : each | each searchBarMorph ifNotNil: [ : searchBar | pos := searchBar bottomLeft. width := searchBar width ] ]. + width ifNil: [ width := 250. pos := world topRight - (width @ 5) ]. - width ifNil: [ width := 250. pos := World topRight - (width @ 5) ]. scratchPad width: width ; position: pos ; startStepping: #deleteUnlessHasFocus at: Time millisecondClockValue arguments: nil stepTime: 3000! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>submorphsExample (in category 'examples') ----- submorphsExample + "display a hierarchical list of the current world plus its submorphs plus its submorphs' submorphs etc." + "SimpleHierarchicalListMorph submorphsExample" - "display a hierarchical list of the World plus its submorphs plus its submorphs' submorphs etc." - "[SimpleHierarchicalListMorph submorphsExample]" | morph | morph := SimpleHierarchicalListMorph + on: [ Array with: (MorphWithSubmorphsWrapper with: Project current world) ] - on: [ Array with: (MorphWithSubmorphsWrapper with: World) ] list: #value selected: nil changeSelected: nil menu: nil keystroke: nil. morph openInWindow! Item was changed: ----- Method: SystemWindow class>>bringWindowUnderHandToFront (in category 'top window') ----- bringWindowUnderHandToFront "This only works when All Windows Active is enabled." + (self windowsIn: Project current world) do: [ : each | each isLookingFocused ifTrue: [ ^ each beKeyWindow ]]! - (self windowsIn: World) do: [ : each | each isLookingFocused ifTrue: [ ^ each beKeyWindow ]]! Item was changed: ----- Method: SystemWindow>>anyOpenWindowLikeMe (in category 'open/close') ----- anyOpenWindowLikeMe self class reuseWindows ifFalse: [ ^Array empty ]. ^ SystemWindow + windowsIn: self world - windowsIn: World satisfying: [ : each | each model class = self model class and: [ (each model respondsTo: #representsSameBrowseeAs:) and: [ each model representsSameBrowseeAs: self model ] ] ] ! Item was changed: ----- Method: TextMorph>>preferredKeyboardPosition (in category 'editing') ----- preferredKeyboardPosition | default rects | + default := (self bounds: self bounds in: self world) topLeft. - default := (self bounds: self bounds in: World) topLeft. paragraph ifNil: [^ default]. rects := paragraph selectionRects. rects size = 0 ifTrue: [^ default]. ^ rects first bottomLeft! Item was changed: ----- Method: TheWorldMainDockingBar>>allVisibleWindows (in category 'submenu - windows') ----- allVisibleWindows + ^SystemWindow windowsIn: Project current world satisfying: [ :w | w visible ]! - ^SystemWindow windowsIn: World satisfying: [ :w | w visible ]! Item was changed: ----- Method: TheWorldMainDockingBar>>loadProject (in category 'menu actions') ----- loadProject + Project current world worldMenu loadProject! - World worldMenu loadProject! Item was changed: ----- Method: TheWorldMainDockingBar>>previousProjectMenuItemOn: (in category 'submenu - projects') ----- previousProjectMenuItemOn: menu menu addItem: [ :item | item contents: 'Previous Project' translated; help: 'Return to the most-recently-visited project' translated; + target: Project current world; - target: World; selector: #goBack ]! Item was changed: ----- Method: TheWorldMainDockingBar>>quitSqueak (in category 'menu actions') ----- quitSqueak ^Smalltalk snapshot: ( UserDialogBoxMorph confirm: 'Save changes before quitting?' translated orCancel: [ ^self ] + at: Project current world center) - at: World center) andQuit: true ! Item was changed: ----- Method: TheWorldMainDockingBar>>saveProjectMenuItemOn: (in category 'submenu - projects') ----- saveProjectMenuItemOn: menu menu addItem: [ :item | item contents: 'Save Project' translated; help: 'Save this project on a file' translated; + target: Project current world; - target: World; selector: #saveOnFile ]! Item was changed: ----- Method: TheWorldMenu>>quitSession (in category 'commands') ----- quitSession Smalltalk snapshot: (UserDialogBoxMorph confirm: 'Save changes before quitting?' translated orCancel: [^ self] + at: Project current world center) - at: World center) andQuit: true! Item was changed: ----- Method: ThumbnailImageMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt imagePopupMorph center: (self localPointToGlobal: evt position). + imagePopupMorph bounds: (imagePopupMorph bounds translatedAndSquishedToBeWithin: self world bounds). - imagePopupMorph bounds: (imagePopupMorph bounds translatedAndSquishedToBeWithin: World bounds). imagePopupMorph openInWorld !

1 0

The Trunk: Kernel-dtl.1123.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.1123.mcz ==================== Summary ==================== Name: Kernel-dtl.1123 Author: dtl Time: 14 November 2017, 9:49:38.176543 pm UUID: 5b3f0e1b-0cf5-481f-8d80-31041122d3a7 Ancestors: Kernel-nice.1122 Move Object>>currentEvent, Object>>currentHand, and Object>>currentWord from catagory macpal to *Morphic-Kernel. =============== Diff against Kernel-nice.1122 =============== Item was removed: - ----- Method: Object>>currentEvent (in category 'macpal') ----- - currentEvent - "Answer the current Morphic event. This method never returns nil." - ^ActiveEvent ifNil:[self currentHand lastEvent]! Item was removed: - ----- Method: Object>>currentHand (in category 'macpal') ----- - currentHand - "Return a usable HandMorph -- the one associated with the object's current environment. This method will always return a hand, even if it has to conjure one up as a last resort. If a particular hand is actually handling events at the moment (such as a remote hand or a ghost hand), it will be returned." - - ^ActiveHand ifNil: [ self currentWorld primaryHand ]! Item was removed: - ----- Method: Object>>currentWorld (in category 'macpal') ----- - currentWorld - "Answer a morphic world that is the current UI focus." - ^ActiveWorld ifNil:[World]!

1 0

The Trunk: Morphic-dtl.1362.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.1362.mcz ==================== Summary ==================== Name: Morphic-dtl.1362 Author: dtl Time: 14 November 2017, 9:48:26.563471 pm UUID: 2cd4f6d7-e8d9-48ed-9c73-79c28627b226 Ancestors: Morphic-dtl.1361 Remove unnecessary reference to global World. Move Object>>currentEvent, Object>>currentHand, and Object>>currentWord from catagory macpal to *Morphic-Kernel. Fix error in previous update, MailComposition>>addAttachment has been moved to package Network. =============== Diff against Morphic-dtl.1361 =============== Item was removed: - ----- Method: MailComposition>>addAttachment (in category '*Morphic-Support') ----- - addAttachment - | file fileResult fileName | - textEditor - ifNotNil: [self hasUnacceptedEdits ifTrue: [textEditor accept]]. - - (fileResult := StandardFileMenu oldFile) - ifNotNil: - [fileName := fileResult directory fullNameFor: fileResult name. - file := FileStream readOnlyFileNamed: fileName. - file ifNotNil: - [file binary. - self messageText: - ((MailMessage from: self messageText asString) - addAttachmentFrom: file withName: fileResult name; text). - file close]] ! Item was added: + ----- Method: Object>>currentEvent (in category '*Morphic-Kernel') ----- + currentEvent + "Answer the current Morphic event. This method never returns nil." + ^ActiveEvent ifNil:[self currentHand lastEvent]! Item was added: + ----- Method: Object>>currentHand (in category '*Morphic-Kernel') ----- + currentHand + "Return a usable HandMorph -- the one associated with the object's current environment. This method will always return a hand, even if it has to conjure one up as a last resort. If a particular hand is actually handling events at the moment (such as a remote hand or a ghost hand), it will be returned." + + ^ActiveHand ifNil: [ self currentWorld primaryHand ]! Item was added: + ----- Method: Object>>currentWorld (in category '*Morphic-Kernel') ----- + currentWorld + "Answer a morphic world that is the current UI focus." + ^ActiveWorld ifNil:[Project current world]!

1 0

The Trunk: Network-dtl.210.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-dtl.210.mcz ==================== Summary ==================== Name: Network-dtl.210 Author: dtl Time: 14 November 2017, 9:37:54.635956 pm UUID: 261ad919-abb4-40e5-8f5d-c43cefd44d55 Ancestors: Network-dtl.209 Remove unnecessary World global reference =============== Diff against Network-dtl.209 =============== Item was changed: ----- Method: MailMessage>>viewImageInBody (in category 'printing/formatting') ----- viewImageInBody | stream image | stream := self body contentStream. image := Form fromBinaryStream: stream. + (Project current world drawingClass withForm: image) openInWorld! - (World drawingClass withForm: image) openInWorld!

1 0

The Trunk: Network-dtl.209.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-dtl.209.mcz ==================== Summary ==================== Name: Network-dtl.209 Author: dtl Time: 14 November 2017, 9:29:47.62246 pm UUID: e8111790-1d67-4514-9021-4a8bb30f0720 Ancestors: Network-dtl.208 MailComposition>>addAttachment had been moved from *Morphic-Support to Network, but was mistakenly removed from this package in Network-dtl.208. Restore it here. =============== Diff against Network-dtl.208 =============== Item was changed: ----- Method: MailMessage>>viewImageInBody (in category 'printing/formatting') ----- viewImageInBody | stream image | stream := self body contentStream. image := Form fromBinaryStream: stream. + (World drawingClass withForm: image) openInWorld! - (Project current world drawingClass withForm: image) openInWorld!

1 0

The Trunk: Kernel-nice.1122.mcz
by commits＠source.squeak.org 14 Nov '17

14 Nov '17

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1122.mcz ==================== Summary ==================== Name: Kernel-nice.1122 Author: nice Time: 14 November 2017, 8:40:24.173283 pm UUID: fa7a025a-ef0d-431c-80af-32d0a9f170b5 Ancestors: Kernel-eem.1121, Kernel-nice.1120 Merge Kernel-nice.1120 and correct Fraction comment typo =============== Diff against Kernel-eem.1121 =============== Item was changed: Number subclass: #Fraction instanceVariableNames: 'numerator denominator' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Numbers'! + !Fraction commentStamp: 'nice 11/14/2017 20:39' prior: 0! + Fraction provides methods for dealing with fractions like 1/3 as a ratio of two integers (as apposed to a decimal representation 0.33333...). - !Fraction commentStamp: '<historical>' prior: 0! - Fraction provides methods for dealing with fractions like 1/3 as fractions (not as 0.33333...). All public arithmetic operations answer reduced fractions (see examples). + instance variables: + numerator <Integer> the number appearing before the fraction bar (above) + denominator <Integer> the number appearing after the fraction bar (below) + + A Fraction is generally created by sending the message / to an Integer, like in - instance variables: 'numerator denominator ' + 1 / 3 - Examples: (note the parentheses required to get the right answers in Smalltalk and Squeak): + Alternatively, it is possible to create a new instance of Fraction by sending #numerator:denominator: to the class. + In this later case, it is then user responsibility to ensure that it conforms to the following invariants: + + - the denominator shall allways be positive. + A negative Fraction shall have a negative numerator, never a negative denominator. + Example: 1 / -3 will return -1/3 + - the denominator shall allways be greater than 1. + A Fraction with denominator 1 shall be reduced to its numerator (an Integer). + Example 3 / 1 will answer 3 (the Integer) not 3/1 + - the numerator and denominator shall never have common multiples. + Common multiples shall allways be simplified until (numerator gcd: denominator) = 1. + Example 8 / 6 will answer 4 / 3, because both 8=2*4 and 6=2*3 are both divisible by 2. + + A Fraction non conforming to above invariants could be the cause of undefined behavior and unexpected results. + If unsure, it is advised to send the message #reduced to the freshly created instance so as to obtain a conforming Fraction, or an Integer. + + Note that Fraction and Integer represent together the set of Rational numbers: + - Integer is a subset of rational (those which are whole numbers) + - Fraction is used for representing the complementary subset of rational (those which are not whole numbers) + + There could have been a Rational superclass to both Integer and Fraction, and a message #isRational for testing if a Number is a Rational, as well as a message #asRational for converting a Number to a Rational. + But this level of indirection is not strictly necessary: instead, the notion of Rational and Fraction are collapsed in Squeak, and Integer are considered as a sort of special Fraction with unitary denominator. + Thus #isFraction is the testing message, to which every Integer will also answer true, since considered as a sort of Fraction. + And #asFraction is the conversion message, that may answer an instance of Fraction or Integer, depending if the corresponding rational number is whole or not. + + All public arithmetic operations will answer reduced fractions. + Examples: + (2/3) + (2/3) + (2/3) + (1/2) "case showing reduction to common denominator" + (2/3) + (4/3) "case where result is reduced to an Integer" + (2/3) raisedToInteger: 5 "fractions also can be exponentiated" - (2/3) + (1/2) "answers shows the reduced fraction" - (2/3) raisedToInteger: 5 "fractions also can have exponents" ! Item was changed: ----- Method: Fraction>>gcd: (in category 'arithmetic') ----- gcd: aFraction | d | d := denominator gcd: aFraction denominator. + ^(numerator *(aFraction denominator//d) gcd: aFraction numerator*(denominator//d)) / (denominator//d*aFraction denominator)! - ^(numerator *(aFraction denominator/d) gcd: aFraction numerator*(denominator/d)) / (denominator/d*aFraction denominator)!

1 0

← Newer
1
...
4
5
6
7
8
9
10
11
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2017