Squeak-dev November 2010

squeak-dev@lists.squeakfoundation.org

77 participants
254 discussions

New macintosh vm builder & maintainer: Esteban Lorenzano
by John M McIntosh 24 Nov '10

24 Nov '10

Ten years back I took over the role of maintaining the Macintosh VM from John Maloney. Dan Ingalls wrote a letter of responsibility for me, which I accepted and have strived to carry forward. But it's time to assume a different role and I have asked Esteban Lorenzano to take over the build responsibility. Some of you know him already from his role in building Mars for Squeak, his presentations at ESUG conferences, and the awards he has won for his technical innovations. It's been a fun decade & three month, lots of versions were created, Apple unlike other other OS providers has driven lots of change and excitement, now they look forward to an OS-X app store, so it's time for someone new and eager to figure out how to address that. Over that decade we've moved from 68040 based machines, thru PowerPC to MacIntel, and from OS-9 thru 7 generations of OS-X. On Jan 1st 2011 (or earlier) I will no longer do builds or officially support the macintosh VM, I will of course help Esteban thru any difficulties in the migration of responsibilities, and I'll forward that letter from Dan, it's steeped with responsibility, a bit of honour, expectations of hours (decades?) of work, and I assure Esteban a great journey. Today for Esteban I consolidated folders of Squeak VM build memories which came to nearly 6GB of stuff, fortunately most of it is obsolete because of the Cocoa os-x V5 rewrite. I thank the community for bearing with me for the good times and the rough times as I fought the daemons of operating system change, no doubt I'll watch how things progress, yet the responsibility for what happens will lie elsewhere. Some close friends have asked am I giving up Squeak & Smalltalk? No it's just a change of pace, I'll be around to poke at interesting issues, and at this time I welcome any paid consulting (Smalltalk or iOS), email me if you have leads... Over the years, Viewpoints Research Institute, ESUG and others have provide some funding for this work, I thank them for their contributions. Any message of thanks should be send to my wife of 27 years cordelia(a)mac.com who has diligently support my contributions to the Smalltalk community and as a non computer person always wondered why? For Sophie we had a saying: "For the betterment of mankind" . For the folks who worked on Smalltalk, Sophie, and the OLPC they know why we do this. To the other VM maintainers I thank them for them for the trust that I would do the right thing, so for Squeak onward we go.... - =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================

14 15

The Trunk: System-ul.396.mcz
by commits＠source.squeak.org 24 Nov '10

24 Nov '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.396.mcz ==================== Summary ==================== Name: System-ul.396 Author: ul Time: 24 November 2010, 8:06:37.276 am UUID: 34376be0-635e-0d4d-9509-a1c661430cdb Ancestors: System-ul.395 - set the balloon font (if possible) in Preferences >> #restoreDefaultFonts. - modified the postscript, so the default fonts will be restored to change the ballon font to Bitmap DejaVu Sans 7pt. =============== Diff against System-ul.395 =============== Item was changed: ----- Method: Preferences class>>restoreDefaultFonts (in category 'fonts') ----- restoreDefaultFonts "Since this is called from menus, we can take the opportunity to prompt for missing font styles." " Preferences restoreDefaultFonts " self setDefaultFonts: #( (setSystemFontTo: 'Bitmap DejaVu Sans' 9) (setListFontTo: 'Bitmap DejaVu Sans' 9) (setFlapsFontTo: Accushi 12) (setEToysFontTo: BitstreamVeraSansBold 9) (setPaintBoxButtonFontTo: BitstreamVeraSansBold 9) (setMenuFontTo: 'Bitmap DejaVu Sans' 9) (setWindowTitleFontTo: 'Bitmap DejaVu Sans Bold' 9) (setBalloonHelpFontTo: Accujen 9) (setCodeFontTo: 'Bitmap DejaVu Sans' 9) (setButtonFontTo: 'Bitmap DejaVu Sans' 7) + (setBalloonFontTo: 'Bitmap DejaVu Sans' 7) + )! - ) - ! Item was added: + ----- Method: Preferences class>>setBalloonFontTo: (in category 'fonts') ----- + setBalloonFontTo: aFont + + Smalltalk at: #BalloonMorph ifPresent: [ :balloonMorph | + balloonMorph setBalloonFontTo: aFont ]! Item was changed: + (PackageInfo named: 'System') postscript: 'Preferences restoreDefaultFonts.'! - (PackageInfo named: 'System') postscript: 'Preferences restoreDefaultFonts'!

1 0

Daily Commit Log
by commits＠source.squeak.org 24 Nov '10

24 Nov '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-November/003946.h… Name: Network-ar.98 Ancestors: Network-ul.97 Fixes for SocketStream: 1) SocketStream>>receiveData: and SocketStream>>upToEnd: had incorrect conditions used to determine when to stop (#isConnected is wrong since there can be data pending on an unconnected socket which is why using #atEnd is the correct test). 2) The former was done to deal with non-signaling SocketStreams in cases where ConnectionClose was used to deal with end conditions (#upToEnd, #next:into:startingAt:, #readInto:startingAt:count:). This was fixed by making these places (temporarily) signaling so that the exception can be caught and handled properly. 3) SocketStream>>isDataAvailable should not attempt to shortcut prematurely; using 'socket dataAvailable' is bad for subclasses such as SecureSocketStream and unnecessary to boot (and has no performance impact). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003947.h… Name: Collections-ul.409 Ancestors: Collections-ul.408 - introduced String >> #withLineEndings: - simplified and unified String's line-ending changing methods: #withInternetLineEndings, #withSqueakLineEndings and #withUnixLineEndings ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003948.h… Name: Collections-ul.410 Ancestors: Collections-ul.409 - added a translation table to String for exchanging cr and lf characters - simplified and enhanced String's #withSqueakLineEndings and #withUnixLineEndings ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003949.h… Name: Tools-ul.280 Ancestors: Tools-ul.279 - fix: FileList2 open should work now - fix: the service used for project loading from FileList is also used by the drop handler, this should be probably changed in the future. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003950.h… Name: Graphics-ul.159 Ancestors: Graphics-tbn.157, Graphics-mt.158 - a forgotten merge ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003951.h… Name: Compiler-ul.182 Ancestors: Compiler-nice.181 - removed #isLiteral from the ParseNode hierarchy, because it means something else. Added #isLiteralNode instead. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003952.h… Name: Tools-ul.281 Ancestors: Tools-ul.280 - replaced the PointerFinder >> #isLiteral hack by a direct class check, also reordered the checks in #follow:from:, so cheaper and common ones are performed first. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003953.h… Name: System-ul.395 Ancestors: System-ul.394 - updated the contents of the keyboard shortcuts ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003954.h… Name: Tools-ul.282 Ancestors: Tools-ul.281, Tools-ul.278 merged ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003955.h… Name: Tools-ul.278 Ancestors: Tools-ul.277 Thread-safe DebuggerMethodMap =============================================

1 0

erased image file
by Ralph Boland 23 Nov '10

23 Nov '10

I accidentally erased a Squeak 3.10.2 image file on my Linux (Ubuntu 10.04) system but still have the changes for it and also 2 day older image/changes files for the same project. It there a way to use the 2 day older image file and load the changes from the up to date changes file? And please don't lecture me on filing out my code. I do file out my code. I last did so, well, two days ago. Regards, Ralph Boland

3 2

Re: The Trunk: Morphic-laza.477.mcz
by Andreas Raab 23 Nov '10

23 Nov '10

On 11/22/2010 9:50 PM, commits(a)source.squeak.org wrote: > ==================== Summary ==================== > > Name: Morphic-laza.477 > Author: laza > Time: 22 November 2010, 10:49:45.037 pm > UUID: 5761bce9-0807-094c-81d9-605b9a072ad9 > Ancestors: Morphic-cmm.476 > > In the "Extending the system" workspace: > Change the snippet to load Omnibrowser work as a simple doIt > > =============== Diff against Morphic-cmm.476 =============== > > "Omnibrowser, including Refactoring engine" > (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfOmniBrowser''. > + ((Smalltalk at: #ConfigurationOfOmniBrowser) project perform: #lastVersion) load: #( Dev ). > - (Smalltalk at: #ConfigurationOfOmniBrowser) project lastVersion load: #( Dev ). Am I missing something? Why would one use foo perform: #lastVersion. instead of the obviously equivalent foo lastVersion. Seems like code obfuscation to me. Cheers, - Andreas

5 5

The Trunk: Tools-ul.278.mcz
by commits＠source.squeak.org 23 Nov '10

23 Nov '10

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.278.mcz ==================== Summary ==================== Name: Tools-ul.278 Author: ul Time: 15 November 2010, 8:46:10.672 am UUID: d03d7286-1db1-f943-9e1c-6e86626b5f89 Ancestors: Tools-ul.277 Thread-safe DebuggerMethodMap =============== Diff against Tools-ul.277 =============== Item was changed: Object subclass: #DebuggerMethodMap instanceVariableNames: 'timestamp methodReference methodNode abstractSourceRanges sortedSourceMap' + classVariableNames: 'AccessLock MapCache MapCacheEntries' - classVariableNames: 'MapCache MapCacheEntries' poolDictionaries: '' category: 'Tools-Debugger'! !DebuggerMethodMap commentStamp: '<historical>' prior: 0! I am a place-holder for information needed by the Debugger to inspect method activations. I insulate the debugger from details of code generation such as exact bytecode offsets and temporary variable locations. I have two concreate subclasses, one for methods compiled using BlueBook blocks and one for methods compiled using Closures. These classes deal with temporary variable access. My function is to abstract the source map away from actual bytecode pcs to abstract bytecode pcs. To reduce compilation time I try and defer as much computation to access time as possible as instances of me will be created after each compilation. I maintain a WeakIdentityDictionary of method to DebuggerMethodMap to cache maps. I refer to my method through a WeakArray to keep the map cache functional. If the reference from a DebuggerMethodMap to its method were strong then the method would never be dropped from the cache because the reference from its map would keep it alive.! Item was changed: ----- Method: DebuggerMethodMap class>>cacheDebugMap:forMethod: (in category 'debugger support') ----- cacheDebugMap: aDebuggerMethodMap forMethod: aCompiledMethod + + ^self protected: [ + MapCache size >= MapCacheEntries ifTrue: [ + MapCache slowSize >= MapCacheEntries + ifFalse: [ MapCache rehash ] + ifTrue: [ + | mapsByAge | + mapsByAge := MapCache keys sort: [ :m1 :m2 | + "We are holding strongly on the keys, so #at: is suitable." + (MapCache at: m1) timestamp < (MapCache at: m2) timestamp]. + mapsByAge from: 1 to: mapsByAge size - MapCacheEntries do: [ :each | + MapCache removeKey: each ] ] ]. + MapCache + at: aCompiledMethod + put: aDebuggerMethodMap ]! - MapCache finalizeValues. - [MapCache size >= MapCacheEntries] whileTrue: - [| mapsByAge | - mapsByAge := MapCache keys asArray sort: - [:m1 :m2| - (MapCache at: m1) timestamp - < (MapCache at: m2) timestamp]. - mapsByAge notEmpty ifTrue: "There be race conditions and reentrancy issues here" - [MapCache removeKey: mapsByAge last]]. - - ^MapCache - at: aCompiledMethod - put: aDebuggerMethodMap! Item was changed: ----- Method: DebuggerMethodMap class>>forMethod: (in category 'instance creation') ----- forMethod: aMethod "<CompiledMethod>" "Answer a DebuggerMethodMap suitable for debugging activations of aMethod. Answer an existing instance from the cache if it exists, cacheing a new one if required." + + ^self protected: [ + MapCache + at: aMethod + ifAbsent: [self + cacheDebugMap: + (self + forMethod: aMethod + methodNode: aMethod methodNode) + forMethod: aMethod] ]! - ^MapCache - at: aMethod - ifAbsent: [self - cacheDebugMap: - (self - forMethod: aMethod - methodNode: aMethod methodNode) - forMethod: aMethod]! Item was added: + ----- Method: DebuggerMethodMap class>>protected: (in category 'synchronization') ----- + protected: aBlock + + ^(AccessLock ifNil: [ AccessLock := Mutex new ]) critical: aBlock! Item was changed: ----- Method: DebuggerMethodMap class>>voidMapCache (in category 'class initialization') ----- voidMapCache + + self protected: [ + MapCache := WeakIdentityKeyDictionary new. + MapCacheEntries := 16 ]! - MapCache := WeakIdentityKeyDictionary new. - MapCacheEntries := 16!

1 0

The Trunk: Tools-ul.282.mcz
by commits＠source.squeak.org 23 Nov '10

23 Nov '10

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.282.mcz ==================== Summary ==================== Name: Tools-ul.282 Author: ul Time: 23 November 2010, 3:42:59.885 pm UUID: 96d0a312-4360-6f49-8987-40be24aeff17 Ancestors: Tools-ul.281, Tools-ul.278 merged =============== Diff against Tools-ul.281 =============== Item was changed: Object subclass: #DebuggerMethodMap instanceVariableNames: 'timestamp methodReference methodNode abstractSourceRanges sortedSourceMap' + classVariableNames: 'AccessLock MapCache MapCacheEntries' - classVariableNames: 'MapCache MapCacheEntries' poolDictionaries: '' category: 'Tools-Debugger'! !DebuggerMethodMap commentStamp: '<historical>' prior: 0! I am a place-holder for information needed by the Debugger to inspect method activations. I insulate the debugger from details of code generation such as exact bytecode offsets and temporary variable locations. I have two concreate subclasses, one for methods compiled using BlueBook blocks and one for methods compiled using Closures. These classes deal with temporary variable access. My function is to abstract the source map away from actual bytecode pcs to abstract bytecode pcs. To reduce compilation time I try and defer as much computation to access time as possible as instances of me will be created after each compilation. I maintain a WeakIdentityDictionary of method to DebuggerMethodMap to cache maps. I refer to my method through a WeakArray to keep the map cache functional. If the reference from a DebuggerMethodMap to its method were strong then the method would never be dropped from the cache because the reference from its map would keep it alive.! Item was changed: ----- Method: DebuggerMethodMap class>>cacheDebugMap:forMethod: (in category 'debugger support') ----- cacheDebugMap: aDebuggerMethodMap forMethod: aCompiledMethod + + ^self protected: [ + MapCache size >= MapCacheEntries ifTrue: [ + MapCache slowSize >= MapCacheEntries + ifFalse: [ MapCache rehash ] + ifTrue: [ + | mapsByAge | + mapsByAge := MapCache keys sort: [ :m1 :m2 | + "We are holding strongly on the keys, so #at: is suitable." + (MapCache at: m1) timestamp < (MapCache at: m2) timestamp]. + mapsByAge from: 1 to: mapsByAge size - MapCacheEntries do: [ :each | + MapCache removeKey: each ] ] ]. + MapCache + at: aCompiledMethod + put: aDebuggerMethodMap ]! - MapCache finalizeValues. - [MapCache size >= MapCacheEntries] whileTrue: - [| mapsByAge | - mapsByAge := MapCache keys asArray sort: - [:m1 :m2| - (MapCache at: m1) timestamp - < (MapCache at: m2) timestamp]. - mapsByAge notEmpty ifTrue: "There be race conditions and reentrancy issues here" - [MapCache removeKey: mapsByAge last]]. - - ^MapCache - at: aCompiledMethod - put: aDebuggerMethodMap! Item was changed: ----- Method: DebuggerMethodMap class>>forMethod: (in category 'instance creation') ----- forMethod: aMethod "<CompiledMethod>" "Answer a DebuggerMethodMap suitable for debugging activations of aMethod. Answer an existing instance from the cache if it exists, cacheing a new one if required." + + ^self protected: [ + MapCache + at: aMethod + ifAbsent: [self + cacheDebugMap: + (self + forMethod: aMethod + methodNode: aMethod methodNode) + forMethod: aMethod] ]! - ^MapCache - at: aMethod - ifAbsent: [self - cacheDebugMap: - (self - forMethod: aMethod - methodNode: aMethod methodNode) - forMethod: aMethod]! Item was added: + ----- Method: DebuggerMethodMap class>>protected: (in category 'synchronization') ----- + protected: aBlock + + ^(AccessLock ifNil: [ AccessLock := Mutex new ]) critical: aBlock! Item was changed: ----- Method: DebuggerMethodMap class>>voidMapCache (in category 'class initialization') ----- voidMapCache + + self protected: [ + MapCache := WeakIdentityKeyDictionary new. + MapCacheEntries := 16 ]! - MapCache := WeakIdentityKeyDictionary new. - MapCacheEntries := 16!

1 0

The Trunk: System-ul.395.mcz
by commits＠source.squeak.org 23 Nov '10

23 Nov '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.395.mcz ==================== Summary ==================== Name: System-ul.395 Author: ul Time: 23 November 2010, 3:29:08.371 pm UUID: edf05ab8-4137-db41-b757-0b90a30855f2 Ancestors: System-ul.394 - updated the contents of the keyboard shortcuts =============== Diff against System-ul.394 =============== Item was changed: ----- Method: Utilities class>>commandKeyMappings (in category 'support windows') ----- commandKeyMappings ^ (self class firstCommentAt: #commandKeyMappings) translated "Lower-case command keys (use with Cmd key on Mac and Alt key on other platforms) a Select all b Browse it (selection is a class name or cursor is over a class-list or message-list) c Copy selection d Do it (selection is a valid expression) e Exchange selection with prior selection f Find g Find again h Set selection as search string for find again i Inspect it (selection is a valid expression, or selection is over an inspect-ilst) j Again once (do the last text-related operation again) k Set font l Cancel m Implementors of it (selection is a message selector or cursor is over a class-list or message-list) n Senders of it (selection is a message selector or cursor is over a class-list or message-list) o Spawn current method p Print it (selection is a valid expression) q Query symbol (toggle all possible completion for a given prefix) r Recognizer s Save (i.e. accept) t Finds a Transcript (when cursor is over the desktop) u Toggle alignment v Paste w Delete preceding word (over text); Close-window (over morphic desktop) x Cut selection y Swap characters z Undo Note: for Do it, Senders of it, etc., a null selection will be expanded to a word or to the current line in an attempt to do what you want. Also note that Senders/Implementors of it will find the outermost keyword selector in a large selection, as when you have selected a bracketed expression or an entire line. Finally note that the same cmd-m and cmd-n (and cmd-v for versions) work in the message pane of most browsers. Upper-case command keys (use with Shift-Cmd, or Ctrl on Mac or Shift-Alt on other platforms; sometimes Ctrl works too) A Advance argument B Browse it in this same browser (in System browsers only) C Compare argument to clipboard D Duplicate E Method strings containing it F Insert 'ifFalse:' G fileIn from it (a file name) H cursor TopHome: I Inspect via Object Explorer J Again many (apply the previous text command repeatedly until the end of the text) K Set style L Outdent (move selection one tab-stop left) M Select current type-in N References to it (selection is a class name, or cursor is over a class-list or message-list) O Open single-message browser (in message lists) P Make project link R Indent (move selection one tab-stap right) S Search T Insert 'ifTrue:' U Convert linefeeds to carriage returns in selection V Paste author's initials W Selectors containing it (in text); show-world-menu (when issued with cursor over desktop) X Force selection to lowercase Y Force selection to uppercase Z Capitalize all words in selection Other special keys Backspace Backward delete character Del Forward delete character Shift-Bksp Backward delete word Shift-Del Forward delete word Esc Pop up the Desktop Menu \ Send top window to back Cursor keys left, right, up, down Move cursor left, right, up or down Ctrl-left Move cursor left one word Ctrl-right Move cursor right one word Home Move cursor to begin of line or begin of text End Move cursor to end of line or end of text PgUp, Ctrl-up Move cursor up one page PgDown, Ctrl-Dn Move cursor down one page Note all these keys can be used together with Shift to define or enlarge the selection. You cannot however shrink that selection again, as in some other systems. Other Cmd-key combinations (not available on all platforms) Return Insert return followed by as many tabs as the previous line (with a further adjustment for additional brackets in that line) Space Select the current word as with double clicking Enclose the selection in a kind of bracket. Each is a toggle. (not available on all platforms) Ctrl-( Enclose within ( and ), or remove enclosing ( and ) Ctrl-[ Enclose within [ and ], or remove enclosing [ and ] Crtl-{ Enclose within { and }, or remove enclosing { and } Ctrl-< Enclose within < and >, or remove enclosing < and > Ctrl-' Enclose within ' and ', or remove enclosing ' and ' Ctrl-"" Enclose within "" and "", or remove enclosing "" and "" Note also that you can double-click just inside any of the above delimiters, or at the beginning or end of a line, to select the text enclosed. Text Emphasis (not available on all platforms) Cmd-1 type the first method argument Cmd-2 type the second method argument Cmd-3 type the third method argument Cmd-4 type the fourth method argument Cmd-5 for future use Cmd-6 color, action-on-click, link to class comment, link to method, url Brings up a menu. To remove these properties, select more than the active part and then use command-0. Cmd-7 bold Cmd-8 italic Cmd-9 narrow (same as negative kern) Cmd-0 plain text (resets all emphasis) Cmd-- underlined (toggles it) Cmd-= struck out (toggles it) Shift-Cmd-- (aka :=) negative kern (letters 1 pixel closer) Shift-Cmd-+ positive kern (letters 1 pixel larger spread) Docking Bar Ctrl-<n> opens the n-th (where n is between 0 and 7) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means: + Ctrl-0 Activates Search Bar Ctrl-1 Squeak menu Ctrl-2 Projects menu Ctrl-3 Tools menu + Ctrl-4 Apps menu + Ctrl-5 Extras menu + Ctrl-6 Windows menu + Ctrl-7 Help menu - Ctrl-4 Extras menu - Ctrl-5 Windows menu - Ctrl-6 Help menu - Ctrl-7 Activates Search Bar "!

1 0

A possible fix for character printing
by Levente Uzonyi 23 Nov '10

23 Nov '10

Hi, I uploaded two packages to the Inbox which are intended to fix the problems with array printing and storing. Currently [#($ ) storeString] evalates to '#(Character space )', which is not valid smalltalk code. The cause of the problem is (as discussed here earlier) that Characters return true for #isLiteral, but not all characters are printed/stored as literals. This solution defines a new method #shouldBePrintedAsLiteral which returns true only for those Characters which are printed/stored as literals. Evaluate the following to test it in your updated Trunk image: Installer squeak project: 'inbox'; install: 'Kernel-ul.518'; install: 'Collections-ul.411'. This solution doesn't fix all compiler issues, since some objects have more than one representation: #($ ), { Character space }, { $ }, etc. Another possible solution would be to print/store all characters in literal format (as it was done earlier), but some of the printed objects are not readable (by humans) in that case. Cheers, Levente

1 0

The Inbox: Kernel-ul.518.mcz
by commits＠source.squeak.org 23 Nov '10

23 Nov '10

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ul.518.mcz ==================== Summary ==================== Name: Kernel-ul.518 Author: ul Time: 23 November 2010, 1:54:49.317 pm UUID: b098496d-94bb-f943-9cf9-bd07ab3b0b71 Ancestors: Kernel-dtl.517 - introduced Object >> #shouldBePrintedAsLiteral as a replacement for #isLiteral during printing and storing =============== Diff against Kernel-dtl.517 =============== Item was added: + ----- Method: Object>>shouldBePrintedAsLiteral (in category 'testing') ----- + shouldBePrintedAsLiteral + + ^self isLiteral! Item was changed: ----- Method: ScaledDecimal>>storeOn: (in category 'printing') ----- storeOn: aStream "SxaledDecimal sometimes have more digits than they print (potentially an infinity). In this case, do not use printOn: because it would loose some extra digits" + self shouldBePrintedAsLiteral - self isLiteral ifTrue: [self printOn: aStream] ifFalse: [aStream nextPut: $(; store: fraction numerator; nextPut: $/; store: fraction denominator; nextPut: $s; store: scale; nextPut: $)]!

1 0

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

Jump to page: