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