[Cuis] [ANN] JSON for Cuis

[Juan Vuletich]

Hi Hannes,

H. Hirzel wrote:
> Juan,
> thank you for the 10 updates to Cuis (1550 to 1561, no 1556 and 1557)
>
>   

Just added them. Thanks.

> ...
>
>
> I realize that one of them (1554?) changed the way the load script for
> Cuis-JSON I used last Monday to no longer works.
>
> When looking for the new solution (classes CodeFileBrowser, FileStream
> and method names browser looking for methods which include 'install')
> I could not spot it. An attempt using
>       CodePackageFile new install: aStream
> was not successful.
>
>
> So my question is -- how do I need to rewrite the following script (I
> keep it in a Workspace saved with my working image, KenD style)?
>
>
>     | slash |
>
>     slash _ FileDirectory slash.
>
>     {
>          '..', slash, 'Cuis-CompatibilityWithOtherSmalltalks', slash,
>       'Cuis-CompatibilityWithOtherSmalltalks.pck.st' .
>
>          '..', slash, 'Cuis-JSON', slash,
>       'Cuis-JSON.pck.st'.
>
>     }
>
>     do:
>
>     [ :fileName | CodeFileBrowser installPackage:
>
>                  (FileStream concreteStream readOnlyFileNamed: fileName)
>     ]
>
>
> --Hannes
>   

Open 'Message Names' from the World menu. Search 'installPackage:'. Mhh. 
No luck. Remove the colon (maybe the name changed?). Bingo!

Alternative: Open a file list. Click on a .pck.st file. There we have 
our (install package) button. Open the halo and an explorer. Ivar 
'actionSelector' is just #performService, sent presumably to the model. 
The model is a SimpleServiceEntry (I didn't name that class!). It has a 
'selector' ivar. Bingo again!

I guess you can follow from there. Senders and implementors are your 
friends, etc. Good luck.

Cheers,
Juan Vuletich