Squeak-dev March 2010

squeak-dev@lists.squeakfoundation.org

158 participants
767 discussions

The Inbox: Morphic-djr.406.mcz
by commits＠source.squeak.org 31 Mar '10

31 Mar '10

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-djr.406.mcz ==================== Summary ==================== Name: Morphic-djr.406 Author: djr Time: 30 March 2010, 12:40:48.86 pm UUID: bc2c9ad3-868e-4f33-b64a-e224fdac211f Ancestors: Morphic-ar.405 Implement some methods to make Lukas' OmniBrowser tests pass. =============== Diff against Morphic-ar.405 =============== Item was added: + ----- Method: KeyboardEvent>>scanCode: (in category 'private') ----- + scanCode: ignore + " OB-Tests expects this "! Item was added: + ----- Method: KeyboardEvent>>setType:buttons:position:keyValue:charCode:hand:stamp: (in category 'private') ----- + setType: aSymbol buttons: anInteger position: pos keyValue: aValue charCode: ignoredUsedInOBTesting hand: aHand stamp: stamp + self setType: aSymbol buttons: anInteger position: pos keyValue: aValue hand: aHand stamp: stamp!

1 0

Crypto?
by Casey Ransberger 31 Mar '10

31 Mar '10

What's the usual best practice around crypto in Squeak? Usually rolling one's own crypto is a ridonculously bad idea so... do folks usually pipe things to and from the cryptography of the underlying OS using OSProcess?

4 7

Re: plain text file
by Baveco, Hans 31 Mar '10

31 Mar '10

Don't know... I just want the simple plain kind of file that Squeak used to produce.... I can't check it, but if I remember correctly I used something like: FileDirectory default forceNewFileNamed: aStringWithCompletePath to create the file stream, and filled it with the contents of a WriteStream The resulting file can be opened with notepad etc, and looks OK, but MSWord asks for the encoding, and R (when run from the command line) refuses to open the file. Hans On Tue, 30 Mar 2010, Baveco, Hans wrote: > How do I produce a plain text file that can be read by other programs, > e.g. R and MSWord? Do I have to define a specific encoding? How? Files Do you need a specific encoding? What about line endings? > created from VisualWorks are ok; files produces with default settings > from current Squeak (trunk) are not.... How are you creating your file? Levente

3 3

Re: [squeak-dev] The Trunk: System-ul.306.mcz
by karl ramberg 31 Mar '10

31 Mar '10

And Cmd is alt on Windowds ? Karl On Wed, Mar 31, 2010 at 2:58 AM, <commits(a)source.squeak.org> wrote: > Levente Uzonyi uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-ul.306.mcz > > ==================== Summary ==================== > > Name: System-ul.306 > Author: ul > Time: 31 March 2010, 2:57:27.202 am > UUID: c62ee64a-3d46-6149-8076-0a244b0a1b02 > Ancestors: System-nice.305, System-klub.304 > > Merged klub.304: > > - added Docking Bar shortcuts to Keyboard Shortcuts help > > =============== Diff against System-nice.305 =============== > > 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 10 point font > Cmd-2 12 point font > Cmd-3 18 point font > Cmd-4 24 point font > Cmd-5 36 point font > 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 9) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means: > + Ctrl-1 Squeak menu > + Ctrl-2 Projects menu > + Ctrl-3 Tools menu > + Ctrl-4 Extras menu > + Ctrl-5 Windows menu > + Ctrl-6 Help menu > + Ctrl-0 Activates Search Bar > + > "! > > >

2 1

Re: Packaging of 4.1 for Windows
by Chris Cunnington 31 Mar '10

31 Mar '10

IT: "Reminds me, does anyone has a vectorized version of the logo? It would be much easier to work with." http://www.sushistoreobject.com/squeak-logo.svg.zip

7 8

Mac Carbon VM 4.2.3b1 sound recording busted
by John M McIntosh 31 Mar '10

31 Mar '10

>Mac Carbon VM 4.2.3b1 sound recording busted Must always remember to test (lot more) things after applying VMMaker changes. I'll have a 4.2.4b1 VM in a few days after some dust settles. But for now if you hit the SoundRecorder record button in your squeak.image it will crash. -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================

2 2

The Inbox: Multilingual-ul.118.mcz
by commits＠source.squeak.org 31 Mar '10

31 Mar '10

A new version of Multilingual was added to project The Inbox: http://source.squeak.org/inbox/Multilingual-ul.118.mcz ==================== Summary ==================== Name: Multilingual-ul.118 Author: ul Time: 31 March 2010, 4:31:25.163 am UUID: a18fc0c8-7bb3-cd4c-b801-49bf04b83cc2 Ancestors: Multilingual-nice.117 - restored the original version of MultiByteFileStream >> #basicUpTo:, because StandardFileStream >> #upTo: doesn't send any method (that's true recursively, so the sent methods don't send such methods either, etc) that's overridden by MultiByteFileStream. =============== Diff against Multilingual-nice.117 =============== Item was changed: ----- Method: MultiByteFileStream>>basicUpTo: (in category 'private basic') ----- + basicUpTo: delim + + ^ super upTo: delim. + ! - basicUpTo: delim - "Fast version to speed up nextChunk" - | pos buffer count | - collection ifNotNil: [ - (position < readLimit and: [ - (pos := collection indexOf: delim startingAt: position + 1) <= readLimit and: [ - pos > 0 ] ]) ifTrue: [ - ^collection copyFrom: position + 1 to: (position := pos) - 1 ] ]. - pos := self position. - buffer := self basicNext: 2000. - (count := buffer indexOf: delim) > 0 ifTrue: - ["Found the delimiter part way into buffer" - self position: pos + count. - ^ buffer copyFrom: 1 to: count - 1]. - self atEnd ifTrue: - ["Never found it, and hit end of file" - ^ buffer]. - "Never found it, but there's more..." - ^ buffer , (self basicUpTo: delim)!

1 0

The Inbox: Files-ul.80.mcz
by commits＠source.squeak.org 31 Mar '10

31 Mar '10

A new version of Files was added to project The Inbox: http://source.squeak.org/inbox/Files-ul.80.mcz ==================== Summary ==================== Name: Files-ul.80 Author: ul Time: 31 March 2010, 4:17:28.904 am UUID: 30200227-9fc6-f145-b440-16541e7b855b Ancestors: Files-nice.79 - fixed StandardFileStream's #upTo: and #upToAnyOf:do:. They don't use recursion anymore. They also use the return value of #readInto:startingAt:count: to detect the end of the file instead of #atEnd. =============== Diff against Files-nice.79 =============== Item was changed: ----- Method: StandardFileStream>>upTo: (in category 'read, write, position') ----- + upTo: delimiter + + | pos | - upTo: delim - "Fast version to speed up nextChunk" - | pos buffer count | collection ifNotNil: [ (position < readLimit and: [ + (pos := collection indexOf: delimiter startingAt: position + 1) <= readLimit and: [ - (pos := collection indexOf: delim startingAt: position + 1) <= readLimit and: [ pos > 0 ] ]) ifTrue: [ ^collection copyFrom: position + 1 to: (position := pos) - 1 ] ]. + ^self collectionSpecies streamContents: [ :stream | + | buffer bytesRead | + buffer := collection + ifNil: [ self collectionSpecies new: 2000 ] + ifNotNil: [ + position < readLimit ifTrue: [ + stream next: readLimit - position putAll: collection startingAt: position + 1. + position := readLimit ]. + collection ]. + [ + bytesRead := self readInto: buffer startingAt: 1 count: buffer size. + ((pos := buffer indexOf: delimiter startingAt: 1) = 0 or: [ pos > bytesRead ]) + ifTrue: [ + stream next: bytesRead putAll: buffer startingAt: 1. + bytesRead > 0 "Try again if we could read something last time." ] + ifFalse: [ + stream next: pos - 1 putAll: buffer startingAt: 1. + self skip: pos - bytesRead. + false "Found the delimiter." ] ] whileTrue ]! - pos := self position. - buffer := self next: 2000. - (count := buffer indexOf: delim) > 0 ifTrue: - ["Found the delimiter part way into buffer" - self position: pos + count. - ^ buffer copyFrom: 1 to: count - 1]. - self atEnd ifTrue: - ["Never found it, and hit end of file" - ^ buffer]. - "Never found it, but there's more..." - ^ buffer , (self upTo: delim)! Item was changed: ----- Method: StandardFileStream>>upToAnyOf:do: (in category 'read, write, position') ----- upToAnyOf: delimiters do: aBlock + + | pos | - "Fast version to speed up nextChunk" - | pos buffer count result | collection ifNotNil: [ (position < readLimit and: [ + (pos := collection indexOfAnyOf: delimiters startingAt: position + 1) <= readLimit and: [ + pos > 0 ] ]) ifTrue: [ + | result | + result := collection copyFrom: position + 1 to: (position := pos) - 1 . + aBlock value: (collection at: position). - (count := collection indexOfAnyOf: delimiters startingAt: position + 1) <= readLimit and: [ - count > 0 ] ]) ifTrue: [ - result := collection copyFrom: position + 1 to: (position := count) - 1. - aBlock value: (collection at: count). ^result ] ]. + ^self collectionSpecies streamContents: [ :stream | + | buffer bytesRead | + buffer := collection + ifNil: [ self collectionSpecies new: 2000 ] + ifNotNil: [ + position < readLimit ifTrue: [ + stream next: readLimit - position putAll: collection startingAt: position + 1. + position := readLimit ]. + collection ]. + [ + bytesRead := self readInto: buffer startingAt: 1 count: buffer size. + ((pos := buffer indexOfAnyOf: delimiters startingAt: 1) = 0 or: [ pos > bytesRead ]) + ifTrue: [ + stream next: bytesRead putAll: buffer startingAt: 1. + bytesRead > 0 "Try again if we could read something last time." ] + ifFalse: [ + stream next: pos - 1 putAll: buffer startingAt: 1. + self skip: pos - bytesRead. + false "Found the delimiter." ] ] whileTrue. + bytesRead = 0 ifFalse: [ + aBlock value: (buffer at: pos) ] ]! - pos := self position. - buffer := self next: 2000. - (count := buffer indexOfAnyOf: delimiters) > 0 ifTrue: - ["Found one of the delimiters part way into buffer" - self position: pos + count. - aBlock value: (buffer at: count). - ^ buffer copyFrom: 1 to: count - 1]. - self atEnd ifTrue: - ["Never found it, and hit end of file" - ^ buffer]. - "Never found it, but there's more..." - ^ buffer , (self upToAnyOf: delimiters do: aBlock)!

1 0

The Trunk: System-ul.306.mcz
by commits＠source.squeak.org 31 Mar '10

31 Mar '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.306.mcz ==================== Summary ==================== Name: System-ul.306 Author: ul Time: 31 March 2010, 2:57:27.202 am UUID: c62ee64a-3d46-6149-8076-0a244b0a1b02 Ancestors: System-nice.305, System-klub.304 Merged klub.304: - added Docking Bar shortcuts to Keyboard Shortcuts help =============== Diff against System-nice.305 =============== 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 10 point font Cmd-2 12 point font Cmd-3 18 point font Cmd-4 24 point font Cmd-5 36 point font 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 9) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means: + Ctrl-1 Squeak menu + Ctrl-2 Projects menu + Ctrl-3 Tools menu + Ctrl-4 Extras menu + Ctrl-5 Windows menu + Ctrl-6 Help menu + Ctrl-0 Activates Search Bar + "!

1 0

The Trunk: Morphic-ul.406.mcz
by commits＠source.squeak.org 31 Mar '10

31 Mar '10

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.406.mcz ==================== Summary ==================== Name: Morphic-ul.406 Author: ul Time: 31 March 2010, 2:52:31.159 am UUID: c723a9f7-df5f-3446-9729-e21a08cfa7d1 Ancestors: Morphic-ar.405, Morphic-klub.405 Merged klub.405: - fix the missing keyboard shortcut for the search bar. Ctrl+<n> activates the search bar where n is an integer between 0 and 9 if there is no menu assigned to that number. The intended usage is Ctrl-0, but some keyboard layouts don't have a key for 0 without modifier keys. =============== Diff against Morphic-ar.405 =============== Item was changed: ----- Method: DockingBarMorph>>handleListenEvent: (in category 'events-processing') ----- handleListenEvent: anEvent " I am registered as a keyboardListener of the ActiveHand, watching for ctrl-<n> keystrokes, and upon them if I have an nth menu item, I'll activate myself and select it. " (anEvent controlKeyPressed and: [ anEvent keyValue + between: 48 " $0 asciiValue " - between: 49 " $1 asciiValue " and: 57 " $9 asciiValue " ]) ifTrue: [ | index itemToSelect | index := anEvent keyValue - 48. itemToSelect := (submorphs select: [ :each | + each isKindOf: DockingBarItemMorph ]) + at: index + ifAbsent: [ + ^self searchBarMorph ifNotNil: [ :searchBar | + searchBar activate: anEvent ] ]. - each isKindOf: DockingBarItemMorph ]) at: index ifAbsent: [ ^self ]. self activate: anEvent. self selectItem: itemToSelect event: anEvent ]! Item was added: + ----- Method: DockingBarMorph>>searchBarMorph (in category 'events-processing') ----- + searchBarMorph + + ^self submorphs detect: [ :each | each class = SearchBarMorph ] ifNone: [ nil ]! Item was added: + ----- Method: SearchBarMorph>>activate: (in category 'search') ----- + activate: event + + event hand newKeyboardFocus: self. + self selectAll!

1 0

← Newer
1
2
3
4
5
6
7
...
77
Older →

Jump to page: