Squeak-dev March 2010

squeak-dev@lists.squeakfoundation.org

158 participants
767 discussions

The Trunk: SMBase-nice.101.mcz
by commits＠source.squeak.org 30 Mar '10

30 Mar '10

Nicolas Cellier uploaded a new version of SMBase to project The Trunk: http://source.squeak.org/trunk/SMBase-nice.101.mcz ==================== Summary ==================== Name: SMBase-nice.101 Author: nice Time: 29 March 2010, 11:41:10.037 pm UUID: 399af411-fc32-274d-a921-5b2687209411 Ancestors: SMBase-laza.100 Attempt to fix http://bugs.squeak.org/view.php?id=7485 SMSqueakMap default objects dictionary do not resurrect in a usable state from image segment. It needs to be rehashed. Do it in #copyFrom: just after #reload. =============== Diff against SMBase-laza.100 =============== Item was changed: ----- Method: SMSqueakMap>>copyFrom: (in category 'private') ----- copyFrom: aMap "Copy all relevant info from the other map." objects := aMap objects. objects do: [:o | o map: self]. + objects rehash. accounts := users := packages := categories := nil. checkpointNumber := aMap checkpointNumber!

1 0

The Inbox: Morphic-klub.405.mcz
by commits＠source.squeak.org 30 Mar '10

30 Mar '10

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-klub.405.mcz ==================== Summary ==================== Name: Morphic-klub.405 Author: klub Time: 30 March 2010, 12:30:30.382 am UUID: 8c7b7a5e-efe2-4e04-ba0f-6ef3c6beaffb Ancestors: Morphic-ar.404 - 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.404 =============== 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

World menu versus docking bar
by Casey Ransberger 29 Mar '10

29 Mar '10

Awhile ago we added a docking bar, because the world menu is often harder for newcomers to find at first than we tend to want to think. We put some key use cases there, most key of which is Help, which is probably more important to newcomers than experienced users. I noticed that the help... entry in the world menu contained some stuff that was very questionably help-related, moved it out to the docking bar. I pretty much emptied out the help... item on the world menu, so I removed but Chris pointed out that not everyone uses the docking bar and put it right back, suggesting that we find a way to generate the same menu in both contexts (which I think is a great idea, and will investigate today.) The question in my mind though, is: where do we stop with that? What do people think: should there be any separation of concerns between the world menu and the docking bar? (My thought was, some things made more sense on the docking bar than the cluttered world menu, but if not everyone uses the docking bar... yeah.) Or are the world menu and the docking bar best serving the user as two different views into the exact same functionality? >From an implementation perspective, I much prefer the canvas-ish style of what's in the docking bar presently. The data-driven style of the world menu, while very terse, makes my eyes glaze over. I'm tempted to rip into it and and refactor it to use a canvas-ish API (making the two more compatible,) but I'm liable to introduce regressions that way, and we're fairly locked down at present, no? Anyway, I was hoping to get a feel for what people think about this stuff.

4 6

The Trunk: Tools-nice.219.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.219.mcz ==================== Summary ==================== Name: Tools-nice.219 Author: nice Time: 29 March 2010, 10:14:45.919 pm UUID: f34a6d9a-9dca-6245-bfd5-9ab198a1957b Ancestors: Tools-ar.218 Attempt to fix http://bugs.squeak.org/view.php?id=7463 currentClassName instVar is decorated with annotation and cannot be used directly as a class name. =============== Diff against Tools-ar.218 =============== Item was changed: ----- Method: ChangeSorter>>setContents (in category 'code pane') ----- setContents "return the source code that shows in the bottom pane" | sel class strm changeType | self clearUserEditFlag. currentClassName ifNil: [^ contents := myChangeSet preambleString ifNil: ['']]. class := self selectedClassOrMetaClass. (sel := self selectedMessageName) == nil ifFalse: [changeType := (myChangeSet atSelector: (sel := sel asSymbol) class: class). changeType == #remove ifTrue: [^ contents := 'Method has been removed (see versions)']. changeType == #addedThenRemoved ifTrue: [^ contents := 'Added then removed (see versions)']. class ifNil: [^ contents := 'Method was added, but cannot be found!!']. (class includesSelector: sel) ifFalse: [^ contents := 'Method was added, but cannot be found!!']. contents := class sourceCodeAt: sel. (#(prettyPrint prettyDiffs) includes: contentsSymbol) ifTrue: [contents := class prettyPrinterClass format: contents in: class notifying: nil]. self showingAnyKindOfDiffs ifTrue: [contents := self diffFromPriorSourceFor: contents]. ^ contents := contents asText makeSelectorBoldIn: class] ifTrue: [strm := WriteStream on: (String new: 100). + (myChangeSet classChangeAt: (self withoutItemAnnotation: currentClassName)) do: - (myChangeSet classChangeAt: currentClassName) do: [:each | each = #remove ifTrue: [strm nextPutAll: 'Entire class was removed.'; cr]. each = #addedThenRemoved ifTrue: [strm nextPutAll: 'Class was added then removed.']. each = #rename ifTrue: [strm nextPutAll: 'Class name was changed.'; cr]. each = #add ifTrue: [strm nextPutAll: 'Class definition was added.'; cr]. each = #change ifTrue: [strm nextPutAll: 'Class definition was changed.'; cr]. each = #reorganize ifTrue: [strm nextPutAll: 'Class organization was changed.'; cr]. each = #comment ifTrue: [strm nextPutAll: 'New class comment.'; cr. ]]. ^ contents := strm contents].! Item was changed: CodeHolder subclass: #ChangeSorter instanceVariableNames: 'parent myChangeSet currentClassName currentSelector priorChangeSetList' classVariableNames: '' poolDictionaries: '' category: 'Tools-Changes'! + !ChangeSorter commentStamp: 'wiz 2/3/2010 23:38' prior: 0! + I display a ChangeSet. Two of me are in a DualChangeSorter. + + aStringOrNil + Instance Variables + currentClassName: <aStringOrNil> + currentSelector: <aStringOrNil> + myChangeSet: <aChangeSet> + parent: <aDualChangeSorterOrNil> + priorChangeSetList: <aCollection> + + + currentClassName + - string parseable into class-name [class] [class trait] + needs to be fitlered by (self withoutItemAnnotation: currentClassName) to remove pakaging note + + + currentSelector + - string parseable into selector-name + needs to be fitlered by (self withoutItemAnnotation: currentSelector) to remove pakaging note + + myChangeSet + - name of current changeset + parent + -the dual changesorter that contains this one. Used for dealing with the other half. + priorChangeSetList + - holds the current change set list. Used to detect changes in list when a newly generated list no long match the prior list. + ! - !ChangeSorter commentStamp: '<historical>' prior: 0! - I display a ChangeSet. Two of me are in a DualChangeSorter.! Item was changed: SelectionMenu subclass: #CustomMenu instanceVariableNames: 'labels dividers lastDivider title targets arguments' classVariableNames: '' poolDictionaries: '' category: 'Tools-Menus'! + !CustomMenu commentStamp: 'nice 3/24/2010 07:36' prior: 0! - !CustomMenu commentStamp: '<historical>' prior: 0! I am used to build menus on-the-fly. I maintain lists of menu items, actions (usually symbols to be sent as messages), and menu section dividing lines to which my clients may append new entries and lines by sending me the messages: add: aString action: anAction addLine After the menu is constructed, it may be invoked with one of the following messages: startUp: initialSelection startUp I am a subclass of ActionMenu, so I inherit a number of instance variables. The ones I am particularly concerned with are: + items := an OrderedCollection of strings to appear in the menu + selectors := an OrderedCollection of Symbols to be used as message selectors + lineArray := an OrderedCollection of line positions + lastLine := used to keep track of the last line to avoid making duplicate entries in lineArray! - items _ an OrderedCollection of strings to appear in the menu - selectors _ an OrderedCollection of Symbols to be used as message selectors - lineArray _ an OrderedCollection of line positions - lastLine _ used to keep track of the last line to avoid making duplicate entries in lineArray!

1 0

[Preview] Help System with new model (now also for Squeak)
by Torsten Bergmann 29 Mar '10

29 Mar '10

Michael Haupt wrote: >marvelous, thank you. :-) >I really appreciate the simplicity of the underlying model. Yes - and since the model is simple we can fill it with nearly any information. Try this: |topic day url sub| topic := HelpTopic named: 'Last week on Squeak IRC'. 0 to: 7 do: [:index | day := (Date today subtractDays: index) printFormat: #(3 2 1 $. 1 2 2). url := 'http://tunes.org/~nef/logs/squeak/' , day. sub := HelpTopic title: day contents: (HTTPLoader default retrieveContentsFor: url) contents. topic addSubtopic: sub. ]. HelpBrowser openOn: topic Have fun T. -- GMX DSL: Internet, Telefon und Entertainment für nur 19,99 EUR/mtl.! http://portal.gmx.net/de/go/dsl02

2 1

Re: [squeak-dev] The Trunk: Morphic-ar.403.mcz
by Chris Muller 29 Mar '10

29 Mar '10

This is great, thanks! The Docking Bar is now worth the real-estate for me.. Thanks also for fixing the ClockMorph (from showing milliseconds). On Sun, Mar 28, 2010 at 5:07 PM, <commits(a)source.squeak.org> wrote: > Andreas Raab uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-ar.403.mcz > > ==================== Summary ==================== > > Name: Morphic-ar.403 > Author: ar > Time: 28 March 2010, 3:06:47.714 pm > UUID: 35cb8716-1e23-404b-9c5d-bad6f7df8550 > Ancestors: Morphic-klub.402 > > Merging Morphic-klub.402: > > - added a search bar and a clock to the docking bar > - (ar) label the search entry for noobs > - (ar) first round of smart search for typing in globals or messages and fire browsers on those > > =============== Diff against Morphic-cmm.401 =============== > > Item was added: > + ----- Method: SearchBarMorph>>smartSearch (in category 'search') ----- > + smartSearch > + "Take the user input and perform an appropriate search" > + | input | > + input := self contents asString ifEmpty:[^self]. > + (Smalltalk bindingOf: input) ifNotNil:[:assoc| > + "It's a global or a class" > + ^ToolSet browse: assoc value class selector: nil. > + ]. > + (SystemNavigation new allImplementorsOf: input asSymbol) ifNotEmpty:[:list| > + ^SystemNavigation new > + browseMessageList: list > + name: 'Implementors of ' , input > + ]. > + input first isUppercase ifTrue:[ > + (Utilities classFromPattern: input withCaption: '') ifNotNil:[:aClass| > + ^ToolSet browse: aClass selector: nil. > + ]. > + ] ifFalse:[ > + "Should offer a list of selectors or so" > + ]. > + "Not found" > + Beeper beepPrimitive.! > > Item was added: > + ----- Method: SearchBarMorph>>initialize (in category 'initialize') ----- > + initialize > + > + super initialize. > + text := Text new. > + backgroundColor := TranslucentColor gray alpha: 0.3. > + self width: 200. > + self crAction: (MessageSend receiver: self selector: #smartSearch). > + self setBalloonText: 'Searches for globals and methods'.! > > Item was added: > + TextMorph subclass: #SearchBarMorph > + instanceVariableNames: '' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Morphic-Menus-DockingBar'! > > Item was added: > + ----- Method: SearchBarMorph>>fillStyle (in category 'initialize') ----- > + fillStyle > + > + ^backgroundColor! > > Item was added: > + ----- Method: TheWorldMainDockingBar>>clockOn: (in category 'right side') ----- > + clockOn: aDockingBar > + > + aDockingBar > + addMorphBack: ( > + ClockMorph new > + showSeconds: false; > + yourself); > + addDefaultSpace! > > Item was changed: > ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'construction') ----- > helpMenuOn: aDockingBar > > aDockingBar addItem: [ :it | > it contents: 'Help' translated; > addSubMenu: [ :menu | 'Todo'. > menu addItem:[:item| > item > contents: 'Online Resources' translated; > help: 'Online resources for Squeak' translated; > target: self; > + icon: MenuIcons smallHelpIcon; > selector: #showSqueakResources ]. > menu addItem:[:item| > item > contents: 'Keyboard Shortcuts' translated; > help: 'Keyboard bindings used in Squeak' translated; > target: Utilities; > selector: #openCommandKeyHelp ]. > menu addItem:[:item| > item > contents: 'Font Size Summary' translated; > help: 'Font size summary from the old Squeak 3.10.2 help menu.' translated; > target: TextStyle; > selector: #fontSizeSummary ]. > menu addItem:[:item| > item > contents: 'Useful Expressions' translated; > help: 'Useful expressions from the old Squeak 3.10.2 help menu.' translated; > target: Utilities; > selector: #openStandardWorkspace ]. > ]].! > > Item was added: > + ----- Method: TheWorldMainDockingBar>>searchBarOn: (in category 'right side') ----- > + searchBarOn: aDockingBar > + > + aDockingBar > + addMorphBack: (StringMorph new contents: 'Search: '); > + addMorphBack: SearchBarMorph new; > + addDefaultSpace! > > Item was changed: > ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') ----- > menusOn: aDockingBar > > self > squeakMenuOn: aDockingBar; > projectsMenuOn: aDockingBar; > toolsMenuOn: aDockingBar; > extrasMenuOn: aDockingBar; > windowsMenuOn: aDockingBar; > + helpMenuOn: aDockingBar. > + aDockingBar addSpacer. > + self > + searchBarOn: aDockingBar; > + clockOn: aDockingBar! > - helpMenuOn: aDockingBar! > > >

3 3

A new Smalltalk mailing-list
by Serge Stinckwich 29 Mar '10

29 Mar '10

Hi all, french Smalltalkers (Squeakers, Pharoers, VWers, GnuSTers, ...) have now a new mailing list: http://groups.google.com/group/smalltalk-fr The archive of the mailing-list is available on nabble : http://n3.nabble.com/smalltalk-fr-f471484.html This mailing-list replace the old Squeak-fr mailing list. Best regards, -- Serge Stinckwich UMI UMMISCO 209 (IRD/UPMC), Hanoi, Vietnam Smalltalkers do: [:it | All with: Class, (And love: it)] http://doesnotunderstand.org/

6 11

603 asCharacter <print it>
by hannes.hirzel 29 Mar '10

29 Mar '10

Hello I use the updated Squeak3.10.2-trunk.image as of today. 603 asCharacter gives the result as shown in the screenshot. Any suggestions? Do I need to load a Multilingual package? From where? Regards Hannes BTW Pharo 1.0beta10413 shows the result correctly in a Shout Workspace. But what is unfortunate there is that ctrl-C and ctrl-V freezes the image (on MSWindows in VirtualBox) And: The current system font in the updated Squeak3.10.2-trunk.image is really nice.

5 8

Testrun
by Alexander Lazarević 29 Mar '10

29 Mar '10

1 0

The Trunk: Collections-nice.352.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.352.mcz ==================== Summary ==================== Name: Collections-nice.352 Author: nice Time: 29 March 2010, 6:21:10.011 pm UUID: 2b2bbeff-91ba-184d-b22c-687fb9bf2717 Ancestors: Collections-ul.351 Fix http://bugs.squeak.org/view.php?id=6391 Assign correct unicode value to Euro character (old value was that of MacRoman encoding - previously the generic currency symbol) =============== Diff against Collections-ul.351 =============== Item was changed: ----- Method: Character class>>euro (in category 'accessing untypeable characters') ----- euro + "The Euro currency sign, that E with two dashes. The code point is a official unicode ISO/IEC-10646-1" - "The Euro currency sign, that E with two dashes. The key code is a wild guess" + ^ Unicode value: 16r20AC! - ^ Character value: 219!

1 0

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

Jump to page: