Thanks Ned.

The rewrite tool was always one of my favorite tools when I did Smalltalk for a living. I've been Squeaking for a long time (1.18), but I haven't kept current on the development tools since 3.x.

This was the impetus that I needed to try things out.

I am passing on the (small) hurdles I had to cross to get this working, in case there are other newbish folks out who want to see some cool refactoring stuff.

a 3.8 gamma image (I got 3.8g 6548). Load code updates (I moved to 6590). Open SqueakMap to get Monticello (I got 219 because 223 gave me a debugger on load). Took me a minute to figure out that the SqueakMap version of Refactory was called the Refactoring Browser for 3.8. Learned how to load a Monticello file distribution.

But then everything worked.

very cool!

--David Mitchell

P.S. -- It was nice to good doc for MC (on wiresong.ca) that answered my questions. Chris Muller had shown me MC a few months ago, but I didn't get how to use it (as I was blinded by some other cool things he was showing me).

Ned Konz wrote:

Assuming that you've loaded:

• Monticello
• the SqueakMap version of Refactory (Refactory-md.3.8.12)
• my latest RB improvements

(http://bike-nomad.com/squeak/Refactory-nk.3830.mcd)

you can try out some interesting tricks with the FinderTool and the new RewriteTool:

For instance:

• to find sends to globals that they don't understand (I have a Lint rule for

this, but...) (this could also be done in the search pattern, as in the second example):

search for: `{:node :context | node isVariable and: [ Smalltalk includesKey: node name asSymbol ] } `@message: `@args

and use this condition: | what | what := Smalltalk at: aNode receiver name asSymbol. what notNil and: [ what ~~ Preferences and: [ (what respondsTo: aNode selector) not ]]

• to find references to all globals that aren't classes, search for:

`{:node :context | | what | node isVariable and: [ (what := Smalltalk at: node name ifAbsent: []) notNil and: [ what isBehavior not ] ] }

• to replace all menu constructors that use #labels:lines:selections: to use

#addTranslatedList: instead (changing three parameters into one):

search for: `@Expression labels: `#labels lines: `#lines selections: `#selections

replace with: `@Expression addTranslatedList: `{:a | | labels lines selections list | labels := (a valueForPatternVariableNode: '`#labels') value findTokens: Character cr. lines := (a valueForPatternVariableNode: '`#lines') value. selections := (a valueForPatternVariableNode: '`#selections') value. list := labels with: selections collect: [ :l :s | { l. s. } ]. list := Array streamContents: [ :strm | list withIndexDo: [ :l :i | strm nextPut: l. (lines includes: i) ifTrue: [ strm nextPut: '-' ]]]. RBParser parseExpression: list storeString }

Enjoy,