[squeak-dev] How to hide tools collection from objects catalog in novice mode?

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

[squeak-dev] How to hide tools collection from objects catalog in novice mode?

L'Valente
Hi,
Is there a way to avoid novice users from using the tools collection from objects catalog?
It is possible to hide the tools collection without loosing their features?
Thanks.

Luis

Reply | Threaded
Open this post in threaded view
|

Re: [squeak-dev] How to hide tools collection from objects catalog in novice mode?

Yoshiki Ohshima-2
At Tue, 7 Apr 2009 23:03:20 +0100,
Luis Valente wrote:
>
> Hi,
> Is there a way to avoid novice users from using the tools collection from objects catalog?
> It is possible to hide the tools collection without loosing their features?
> Thanks.

  Not sure what version of Squeak and how much customization is done,
but please try the following:

  - Instanciate a Text from Supplies.

  - Type (or copy and paste) the following three lines:

    (Flaps classPool at: #FlapsQuads) at: 'Tools' put: OrderedCollection new.
    ArchiveViewer class removeSelector: #descriptionForPartsBin.
    EventRecorderMorph class removeSelector: #descriptionForPartsBin.

  - Select all by pressing Cmd-a and then "do-it" by Cmd-d.
  - Open the object catalog and then see if "Tools" is gone.

-- Yoshiki

Reply | Threaded
Open this post in threaded view
|

Re: [squeak-dev] How to hide tools collection from objects catalog in novice mode?

L'Valente
Thanks again, Yoshiki!
It's perfect. I had other things in the tools category and your script workeb fine with them too.
Thank you.

Luis
2009/4/13 Yoshiki Ohshima <[hidden email]>
At Tue, 7 Apr 2009 23:03:20 +0100,
Luis Valente wrote:
>
> Hi,
> Is there a way to avoid novice users from using the tools collection from objects catalog?
> It is possible to hide the tools collection without loosing their features?
> Thanks.

 Not sure what version of Squeak and how much customization is done,
but please try the following:

 - Instanciate a Text from Supplies.

 - Type (or copy and paste) the following three lines:

   (Flaps classPool at: #FlapsQuads) at: 'Tools' put: OrderedCollection new.
   ArchiveViewer class removeSelector: #descriptionForPartsBin.
   EventRecorderMorph class removeSelector: #descriptionForPartsBin.

 - Select all by pressing Cmd-a and then "do-it" by Cmd-d.
 - Open the object catalog and then see if "Tools" is gone.

-- Yoshiki




--
All the best,
Luís Valente