In

showPackages: aBoolean

    self okToChange
        ifTrue: [
            listElements := nil.
            list2Elements := nil.
            list detachAllKeymapCategories.
            list2 detachAllKeymapCategories.
            aBoolean
                ifTrue: [
                    self setPackageShorcutsTo: list.
                    self setClassShorcutsTo: list2.]
                ifFalse: [| class |
                    class := self selectedClass.
                    classesSelection at: class put: true.
                    self hierarchyClass: class .
                    listElements := nil.
                    list2Elements := nil.
                    self showGroups
                        ifTrue: [self showGroupsSilently: false].
                    self setPackageShorcutsTo: list2.   
                    self setClassShorcutsTo: list ].
            listElements := nil.
            list2Elements := nil.
            self model showPackages: aBoolean.
            self changed: #groupsButtonLabel.
            self updateBothView.
            self changed: #toogleButtonState.
            self changedLabels ]


ideas?

--
Mariano
http://marianopeck.wordpress.com