Squeak-dev September 2020

squeak-dev@lists.squeakfoundation.org

37 participants
269 discussions

[ANN] DoItFirst command line goodie on SqueakSource
by David T. Lewis 12 Dec '20

12 Dec '20

A few cups of coffee this morning led to some enhancements to my DoItFirst utility, so I decided to put in on SqueakSource. http://www.squeaksource.com/DoItFirst It works more or less like this: $ squeak squeak.image -- -help DoItFirst image arguments: -doit argumentlist "evaluate each argument as a doIt expression" -evaluate arg "evaluate arg, print result then exit" -filein filelist "file in each file named in fileList" -cwd path "set FileDirectory defaultDirectory to path prior to evaluating other options" -help "print this message" Dave

4 14

I'd like to contribute to the JSON project
by Thiede, Christoph 23 Nov '20

23 Nov '20

Hi all, I'd like to contribute to the JSON project, but apparently I lack the required access rights. Would it be possible to review this patch, which adds UTF-16 support for JSON strings, with the final goal to introduce it into the repository? :-) Best, Christoph

10 36

Inspector Custom Value Panes & Related
by Eric Gade 22 Nov '20

22 Nov '20

Hi all, What is the proper way to make a "custom value pane" for my objects whenever they appear inside an Inspector? For my RISCV work, I'm looking to show a morphic representation of the bitfields when a given instruction's `self` property is highlighted in the Inspector window. As a related question, what's the best way to make a composed Morph that has StringMorphs of different fonts, sizes, and alignments? It seems like not all Fonts are available to StringMorph (TrueType ones, for example) -- is that correct? Thanks! -- Eric

7 22

The Inbox: Kernel-ct.1339.mcz
by commits＠source.squeak.org 20 Nov '20

20 Nov '20

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ct.1339.mcz ==================== Summary ==================== Name: Kernel-ct.1339 Author: ct Time: 4 September 2020, 9:09:14.713421 pm UUID: edc35a82-ce03-014c-85de-13d68c7fc46f Ancestors: Kernel-ct.1338 Implement missing simulation of objects as methods. In the past, it was not possible to debug/simulate code that used objects as methods properly. (Thanks to Marcel for the hint!) This very simple commit adds support of the OaM protocol [1] to the simulation machinery. Now you can debug all tests in TestObjectsAsMethods as you would expect, instead of crashing your image! Update: Uploaded again, this time with additional documentation comment, reformatted code, and multilingual support/fix of typös. Replaces Kernel-ct.1306, which can be moved to the treated inbox. [1] "The [Objects as Methods] contract is that, when the VM encounters an ordinary object (rather than a compiled method) in the method dictionary during lookup, it sends it the special selector #run:with:in: providing the original selector, arguments, and receiver.". DOI: 10.1145/2991041.2991062. =============== Diff against Kernel-ct.1338 =============== Item was changed: ----- Method: Context>>send:to:with:lookupIn: (in category 'controlling') ----- send: selector to: rcvr with: arguments lookupIn: lookupClass + "Simulate the action of sending a message with selector and arguments to rcvr. The argument, lookupClass, is the class in which to lookup the message. This is the receiver's class for normal messages, but for super messages it will be some specific class related to the source method." - "Simulate the action of sending a message with selector and arguments - to rcvr. The argument, lookupClass, is the class in which to lookup the - message. This is the receiver's class for normal messages, but for super - messages it will be some specific class related to the source method." | meth primIndex val ctxt | + (meth := lookupClass lookupSelector: selector) ifNil: [ + ^ self + send: #doesNotUnderstand: + to: rcvr + with: {(Message selector: selector arguments: arguments) lookupClass: lookupClass} + lookupIn: lookupClass]. + + meth isCompiledMethod ifFalse: [ + "Object as Methods (OaM) protocol: 'The contract is that, when the VM encounters an ordinary object (rather than a compiled method) in the method dictionary during lookup, it sends it the special selector #run:with:in: providing the original selector, arguments, and receiver.'. DOI: 10.1145/2991041.2991062." + ^ self send: #run:with:in: + to: meth + with: {selector. arguments. rcvr}]. + + meth numArgs ~= arguments size ifTrue: [ + ^ self error: ('Wrong number of arguments in simulated message {1}' translated format: {selector})]. + (primIndex := meth primitive) > 0 ifTrue: [ + val := self doPrimitive: primIndex method: meth receiver: rcvr args: arguments. + (self isPrimFailToken: val) ifFalse: [^ val]]. + + (selector == #doesNotUnderstand: and: [lookupClass == ProtoObject]) ifTrue: [ + ^ self error: ('Simulated message {1} not understood' translated format: {arguments first selector})]. + - (meth := lookupClass lookupSelector: selector) ifNil: - [^self send: #doesNotUnderstand: - to: rcvr - with: {(Message selector: selector arguments: arguments) lookupClass: lookupClass} - lookupIn: lookupClass]. - meth numArgs ~= arguments size ifTrue: - [^self error: 'Wrong number of arguments in simulated message ', selector printString]. - (primIndex := meth primitive) > 0 ifTrue: - [val := self doPrimitive: primIndex method: meth receiver: rcvr args: arguments. - (self isPrimFailToken: val) ifFalse: - [^val]]. - (selector == #doesNotUnderstand: and: [lookupClass == ProtoObject]) ifTrue: - [^self error: 'Simulated message ', arguments first selector, ' not understood']. ctxt := Context sender: self receiver: rcvr method: meth arguments: arguments. + (primIndex notNil and: [primIndex > 0]) ifTrue: [ + ctxt failPrimitiveWith: val]. + + ^ ctxt! - primIndex > 0 ifTrue: - [ctxt failPrimitiveWith: val]. - ^ctxt!

6 10

Drop shadows during grabbing
by Thiede, Christoph 17 Nov '20

17 Nov '20

Hi all, I wonder whether we should turn off drop shadows during grabbing a morph? [cid:2b0e9a8e-fc25-455b-9db5-3187ed1fe59f] And it looks even more strange when grabbing menu items (citing from Squeak by Example): [cid:258a12de-bd97-46fe-ac1d-7471c6e04160] This is related to the #menuAppearance3d preference, but I never met a physics system were shadows can throw their own shadows 🤔 Best, Christoph

4 9

The Inbox: Morphic-ct.1588.mcz
by commits＠source.squeak.org 16 Nov '20

16 Nov '20

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1588.mcz ==================== Summary ==================== Name: Morphic-ct.1588 Author: ct Time: 15 November 2019, 2:18:46.719005 pm UUID: cd229fb4-796e-a349-9c09-811159cf9e6e Ancestors: Morphic-mt.1587 TextEditor: Add support for different keyboard layouts, fix the 9-enclosing bug and clean up #enclose: You now can do [Editor defaultKeyboardLayout: #qwertz] to adapt the editing behavior of Squeak to the qwertz layout. Squeakers from all the world, feel free to add further keyboard layouts to #specialShiftKeyMaps! We also had an interesting dicussion concerning the 9-enclosing bug (see http://forum.world.st/When-did-it-become-a-good-idea-for-selected-text-to-b…) and wondered whether there would be really anyone willing to press 9 only, without any modifier key, to enclose the selection with brackets. He or she might press 9 and shift together in future (on a qwertz layout), it would be just incon{sist,veni}ent that 8 and 9 had such different behaviors. Depends on Collections-ct.860. =============== Diff against Morphic-mt.1587 =============== Item was changed: Object subclass: #Editor instanceVariableNames: 'morph selectionShowing' + classVariableNames: 'BlinkingCursor DefaultKeyboardLayout DestructiveBackWord DumbbellCursor EnclosingCharacterMap KeystrokeActions SelectionsMayShrink SpecialShiftKeyMaps' - classVariableNames: 'BlinkingCursor DestructiveBackWord DumbbellCursor KeystrokeActions SelectionsMayShrink' poolDictionaries: '' category: 'Morphic-Text Support'! !Editor commentStamp: 'hjh 9/28/2017 11:37' prior: 0! New text editors. TextEditor provides most of the functionality that used to be in TextMorphEditor. SmalltalkEditor is has Smalltalk code specific features. ! Item was added: + ----- Method: Editor class>>defaultKeyboardLayout (in category 'keyboard shortcut tables') ----- + defaultKeyboardLayout + + ^ DefaultKeyboardLayout ifNil: [#qwerty]! Item was added: + ----- Method: Editor class>>defaultKeyboardLayout: (in category 'keyboard shortcut tables') ----- + defaultKeyboardLayout: aSymbol + + DefaultKeyboardLayout := aSymbol! Item was added: + ----- Method: Editor class>>enclosingCharacterMap (in category 'keyboard shortcut tables') ----- + enclosingCharacterMap + + ^ EnclosingCharacterMap ifNil: [EnclosingCharacterMap := + Dictionary fromKeys: '([<{|"''' values: ')]>}|"''']! Item was changed: ----- Method: Editor class>>initialize (in category 'class initialization') ----- initialize " Editor initialize " self initializeKeystrokeActions. + EnclosingCharacterMap := nil. + SpecialShiftKeyMaps := nil. self allSubclassesDo: [ :c | c initialize ]! Item was added: + ----- Method: Editor class>>specialShiftKeyMaps (in category 'keyboard shortcut tables') ----- + specialShiftKeyMaps + + SpecialShiftKeyMaps ifNotNil: [^ SpecialShiftKeyMaps]. + SpecialShiftKeyMaps := Dictionary new + at: #qwerty put: (Dictionary fromKeys: '[]\'',.90' values: '{}|"<>()'); + at: #qwertz put: (Dictionary fromKeys: '89' values: '()'); + yourself. + ^ SpecialShiftKeyMaps! Item was added: + ----- Method: Editor>>enclosingCharacterFor:ifNone: (in category 'as yet unclassified') ----- + enclosingCharacterFor: openingCharacter ifNone: aBlock + + ^ self enclosingCharacterMap + at: openingCharacter + ifAbsent: aBlock! Item was added: + ----- Method: Editor>>enclosingCharacterMap (in category 'as yet unclassified') ----- + enclosingCharacterMap + + ^ self class enclosingCharacterMap! Item was added: + ----- Method: Editor>>keyboardLayout (in category 'accessing') ----- + keyboardLayout + + ^ self class defaultKeyboardLayout! Item was added: + ----- Method: Editor>>mapSpecialKeyToShift: (in category 'private') ----- + mapSpecialKeyToShift: aCharacter + "Maps special characters such as $[ on a qwerty keyboard to their uppercase equivalent, that would be ${ in this example. Probably required by some VM implementations." + + ^ self specialShiftKeys + at: aCharacter + ifAbsent: [aCharacter]! Item was added: + ----- Method: Editor>>specialShiftKeys (in category 'accessing') ----- + specialShiftKeys + + ^ self class specialShiftKeyMaps at: self keyboardLayout! Item was changed: ----- Method: TextEditor>>enclose: (in category 'editing keys') ----- enclose: aKeyboardEvent "Insert or remove bracket characters around the current selection." + | character left right startIndex stopIndex oldSelection text | - | character left right startIndex stopIndex oldSelection which t | - character := aKeyboardEvent shiftPressed - ifTrue: ['{}|"<>' at: ('[]\'',.' indexOf: aKeyboardEvent keyCharacter) ifAbsent: [aKeyboardEvent keyCharacter]] - ifFalse: [aKeyboardEvent keyCharacter]. self closeTypeIn. + + character := aKeyboardEvent keyCharacter. + (aKeyboardEvent shiftPressed + or: ["Allow Control key in lieu of Alt+Shift for certain special keys." + Preferences cmdKeysInText and: [aKeyboardEvent controlKeyPressed]]) + ifTrue: [character := self mapSpecialKeyToShift: aKeyboardEvent keyCharacter]. startIndex := self startIndex. stopIndex := self stopIndex. oldSelection := self selection. + left := character. + right := self enclosingCharacterFor: left ifNone: [^ false]. + + text := self text. + ((startIndex > 1 and: [stopIndex <= text size]) + and: [ (text at: startIndex - 1) = left and: [(text at: stopIndex) = right]]) - which := '([<{|"''9' indexOf: character ifAbsent: [ ^ false ]. - "Allow Control key in lieu of Alt+Shift for (, {, and double-quote." - left := ((Preferences cmdKeysInText and: [ aKeyboardEvent controlKeyPressed ]) - ifTrue: [ '({<{|""(' ] - ifFalse: ['([<{|"''(']) at: which. - right := ((Preferences cmdKeysInText and: [ aKeyboardEvent controlKeyPressed ]) - ifTrue: [ ')}>}|"")' ] - ifFalse: [')]>}|"'')']) at: which. - t := self text. - ((startIndex > 1 and: [stopIndex <= t size]) - and: [ (t at: startIndex-1) = left and: [(t at: stopIndex) = right]]) ifTrue: ["already enclosed; strip off brackets" + self selectFrom: startIndex - 1 to: stopIndex. - self selectFrom: startIndex-1 to: stopIndex. self replaceSelectionWith: oldSelection] ifFalse: ["not enclosed; enclose by matching brackets" + self replaceSelectionWith: (Text + string: (String with: left), oldSelection string, (String with: right) + attributes: emphasisHere). + self selectFrom: startIndex + 1 to: stopIndex]. + ^ true! - self replaceSelectionWith: - (Text string: (String with: left), oldSelection string, (String with: right) attributes: emphasisHere). - self selectFrom: startIndex+1 to: stopIndex]. - ^true!

2 1

I broke the debugger?
by tim Rowledge 15 Nov '20

15 Nov '20

Weird thing her. I was trying out my old Plumbing example, mostly just as a way to improve the swiki page. Using a 19292 update 5.3 image on Mac. Found a recursion related bug in the behaviour when there are two faucets. Toggled the break on entry, triggered the recursion. Went to step over the #break and.... whoosh, boom. Some very weird behaviour that is not at all what I'd expect. I also tried stepping into the #break to see if that might show me sometihng but that wasn't any better at all. Tested in a 198229 image and no problem. Someone done borked it. The best I could capture any log is - ---------------------------------- Error: subscript is out of bounds: 0 26 January 2020 8:59:18.032815 pm VM: Mac OS - Smalltalk Image: Squeak5.3beta [latest update: #19292] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /Users/tim/Documents/Squeak Trusted Dir /Users/tim/Documents/Squeak/secure Untrusted Dir /Users/tim/Documents/Squeak/My Squeak Context(Object)>>error: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: aString: 'subscript is out of bounds: 0' Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context(Object)>>errorSubscriptBounds: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) Context>>at: Receiver: FaucetPlumbinTileMorph(Object)>>break Arguments and temporary variables: index: 0 Receiver's instance variables: sender: BlockClosure>>on:do: pc: 44 stackp: 0 method: (Object>>#break "a CompiledMethod(2334054)") closureOrNil: nil receiver: a FaucetPlumbinTileMorph(1038220) --- The full stack --- Context(Object)>>error: Context(Object)>>errorSubscriptBounds: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: Context>>at: tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim You never really learn to swear until you learn to drive in Silicon Valley

6 17

Can we make computing the local variables in the debugger lazy?
by Eliot Miranda 09 Nov '20

09 Nov '20

Hi Marcel, can we try and reduce the frequency at which we compute the variables in the context inspector in the debugger? It is a noticeable performance hit. I really like the user interface, but the performance hit is making debugging difficult. As an example use this: | samples sineTable sound | "1 second of A below middle C (220Hz). 16000 / 220 is 72.72 recurring" sineTable := SoundPlayer sineTable: 73. sineTable doWithIndex: "And let's not deafen anyone..." [:sample :index| sineTable at: index put: sample // 4]. samples := SoundBuffer new: 16000. 1 to: samples size by: sineTable size do: [:i| samples replaceFrom: i to: (i + sineTable size - 1 min: 16000) with: sineTable startingAt: 1]. 1 to: 146 do: [:i| samples at: i put: ((samples at: i) * i / 146) asInteger. samples at: 16001 - i put: ((samples at: 16001 - i) * i / 146) asInteger]. sound := SampledSound samples: samples samplingRate: 16000. sound := MixedSound new add: sound pan: 0.25; add: sound pan: 0.75; yourself. sound computeSamplesForSeconds: sound duration Open a workspace in e.g. a 64-bit image prior to Tools-mt.965 (I used an image containing Tools-mt.942). Debug the above in the workspace. Position the cursor at "sound computeSamplesForSeconds: sound duration" and do "run to here". It is essentially instantaneous. Now do the same in a contemporary trunk image. It takes almost 6 seconds. I used to be able to click step as fast as I could and the system would keep up with me. Now I find that if I click too fast I can accumulate excess clicks and when I stp clicking the system will continue stepping and go too far. I don't want to lose the feedback the new variables list gives us. But I do find the performance hit tedious. I wonder could we cache the list and only update it - when Morphic updates, and - when the context changes? _,,,^..^,,,_ best, Eliot

4 13

ReadWriteStream inspect self contents ctl-p is immediately available for cut-n-paste and that is a great convenience, thanks to however did it.
by gettimothy 09 Nov '20

09 Nov '20

Its a small thing, but I have about 100 SUnit tests that I have to edit and the workflow is very easy due to that feature.

2 1

The Inbox: System-kfr.1161.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-kfr.1161.mcz ==================== Summary ==================== Name: System-kfr.1161 Author: kfr Time: 4 June 2020, 11:05:51.49313 pm UUID: 38776d4a-508a-7044-ab72-4cb34ceaceea Ancestors: System-mt.1160 Return nil instead of opening pre debugger =============== Diff against System-mt.1160 =============== Item was changed: ----- Method: StandardFileStream class>>fileExistsUserHandling:ifDebug: (in category '*System-Files-error handling') ----- fileExistsUserHandling: fullFileName ifDebug: debugBlock | dir localName choice newName newFullFileName | dir := FileDirectory forFileName: fullFileName. localName := FileDirectory localNameFor: fullFileName. choice := (UIManager default chooseFrom: #('overwrite that file' 'append (risky!!!!)' 'choose another name' 'debug' 'cancel') title: localName, ' already exists.'). choice = 1 ifTrue: [ dir deleteFileNamed: localName ifAbsent: [self error: 'Could not delete the old version of that file']. ^ self new open: fullFileName forWrite: true]. choice = 2 ifTrue: [ ^ (self new open: fullFileName forWrite: true) setToEnd]. choice = 3 ifTrue: [ newName := UIManager default request: 'Enter a new file name' initialAnswer: fullFileName. newFullFileName := self fullName: newName. ^ self newFileNamed: newFullFileName]. choice = 4 ifTrue: [^ debugBlock value]. + choice = 5 ifTrue: [^ nil].! - self error: 'Please close this to abort file opening'!

2 1

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

Jump to page: