183 "Modified: / 04-12-2011 / 15:35:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
183 "Modified: / 04-12-2011 / 15:35:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
184 ! ! |
184 ! ! |
185 |
185 |
186 !BrowserList methodsFor:'accessing'! |
186 !BrowserList methodsFor:'accessing'! |
187 |
187 |
188 environment:env |
|
189 | prevenv | |
|
190 |
|
191 self assert:(env isNil or:[env isNameSpace or:[env == Smalltalk]]). |
|
192 |
|
193 prevenv := environment. |
|
194 environment := env. |
|
195 environment ~~ prevenv ifTrue:[ |
|
196 self enqueueMessage: #updateList for: self arguments: #() |
|
197 ] |
|
198 |
|
199 "Created: / 03-09-2013 / 18:32:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
200 ! |
|
201 |
|
202 nameFilter:something |
188 nameFilter:something |
203 nameFilter := something. |
189 nameFilter := something. |
204 ! ! |
190 ! ! |
205 |
191 |
206 !BrowserList methodsFor:'aspects'! |
192 !BrowserList methodsFor:'aspects'! |
620 |
606 |
621 delayedUpdate:something with:aParameter from:changedObject |
607 delayedUpdate:something with:aParameter from:changedObject |
622 |
608 |
623 "/ if any of my subclasses want those, they should look for them. |
609 "/ if any of my subclasses want those, they should look for them. |
624 changedObject == environment ifTrue:[ |
610 changedObject == environment ifTrue:[ |
625 (something == #Language or:[something == #LanguageTerritory]) ifTrue:[ |
611 (something == #Language or:[something == #LanguageTerritory]) ifTrue:[ |
626 ^ self |
612 ^ self |
627 ]. |
613 ]. |
628 something == #organization ifTrue:[ |
614 something == #organization ifTrue:[ |
629 ^ self |
615 ^ self |
630 ]. |
616 ]. |
631 something == #classDefinition ifTrue:[ |
617 something == #classDefinition ifTrue:[ |
632 ^ self |
618 ^ self |
633 ]. |
619 ]. |
634 something == #classVariables ifTrue:[ |
620 something == #classVariables ifTrue:[ |
635 ^ self |
621 ^ self |
636 ]. |
622 ]. |
637 something == #methodTrap ifTrue:[ |
623 something == #methodTrap ifTrue:[ |
638 ^ self |
624 ^ self |
639 ]. |
625 ]. |
640 something == #methodInClassRemoved ifTrue:[ |
626 something == #methodInClassRemoved ifTrue:[ |
641 ^ self. |
627 ^ self. |
642 ]. |
628 ]. |
643 something == #methodDictionary ifTrue:[ |
629 something == #methodDictionary ifTrue:[ |
644 ^ self |
630 ^ self |
645 ]. |
631 ]. |
646 something == #newClass ifTrue:[ |
632 something == #newClass ifTrue:[ |
647 ^ self |
633 ^ self |
648 ]. |
634 ]. |
649 ]. |
635 ]. |
650 |
636 |
651 changedObject == slaveMode ifTrue:[ |
637 changedObject == slaveMode ifTrue:[ |
652 slaveMode value ~~ true ifTrue:[ |
638 slaveMode value ~~ true ifTrue:[ |
653 listValid ~~ true ifTrue:[ |
639 listValid ~~ true ifTrue:[ |
654 self updateList. |
640 self updateList. |
655 ]. |
641 ]. |
656 self updateOutputGenerator. |
642 self updateOutputGenerator. |
657 ]. |
643 ]. |
658 ^ self. |
644 ^ self. |
659 ]. |
645 ]. |
660 |
646 |
661 changedObject == selectionHolder ifTrue:[ |
647 changedObject == selectionHolder ifTrue:[ |
662 listValid ifFalse:[ |
648 listValid ifFalse:[ |
663 self updateList. |
649 self updateList. |
664 ]. |
650 ]. |
665 ^ self selectionChanged |
651 ^ self selectionChanged |
666 ]. |
652 ]. |
667 |
653 |
668 changedObject == forceGeneratorTrigger ifTrue:[ |
654 changedObject == forceGeneratorTrigger ifTrue:[ |
669 self updateOutputGenerator. |
655 self updateOutputGenerator. |
670 ^ self. |
656 ^ self. |
671 ]. |
657 ]. |
672 |
658 |
673 changedObject == hideUnloadedClasses ifTrue:[ |
659 changedObject == hideUnloadedClasses ifTrue:[ |
674 self invalidateList. |
660 self invalidateList. |
675 slaveMode value ~~ true ifTrue:[ |
661 slaveMode value ~~ true ifTrue:[ |
676 self updateOutputGenerator. |
662 self updateOutputGenerator. |
677 ]. |
663 ]. |
678 ^ self. |
664 ^ self. |
679 ]. |
665 ]. |
680 |
666 |
681 changedObject == updateTrigger ifTrue:[ |
667 changedObject == updateTrigger ifTrue:[ |
682 self enqueueDelayedUpdateList. |
668 self enqueueDelayedUpdateList. |
683 ^ self |
669 ^ self |
684 ]. |
670 ]. |
685 |
671 |
686 changedObject == inGeneratorHolder ifTrue:[ |
672 changedObject == inGeneratorHolder ifTrue:[ |
687 self invalidateList. |
673 self invalidateList. |
688 ^ self |
674 ^ self |
689 ]. |
675 ]. |
690 |
676 |
691 "/ changedObject == outGeneratorHolder ifTrue:[ |
677 "/ changedObject == outGeneratorHolder ifTrue:[ |
692 "/ self enqueueDelayedUpdateList. |
678 "/ self enqueueDelayedUpdateList. |
693 "/ ^ self |
679 "/ ^ self |
694 "/ ]. |
680 "/ ]. |
695 |
681 |
696 changedObject == packageFilter ifTrue:[ |
682 changedObject == packageFilter ifTrue:[ |
697 self invalidateList. |
683 self invalidateList. |
698 ^ self |
684 ^ self |
699 ]. |
685 ]. |
700 changedObject == nameSpaceFilter ifTrue:[ |
686 changedObject == nameSpaceFilter ifTrue:[ |
701 self invalidateList. |
687 self invalidateList. |
702 ^ self |
688 ^ self |
703 ]. |
689 ]. |
704 |
690 |
705 changedObject == organizerMode ifTrue:[ |
691 changedObject == organizerMode ifTrue:[ |
706 ^ self |
692 ^ self |
707 ]. |
693 ]. |
708 |
694 |
709 self invalidateList. |
695 self invalidateList. |
710 ^ self |
696 ^ self |
711 |
697 |
712 "Created: / 5.2.2000 / 13:42:06 / cg" |
698 "Created: / 05-02-2000 / 13:42:06 / cg" |
713 "Modified: / 18.8.2000 / 14:19:24 / cg" |
699 "Modified: / 18-08-2000 / 14:19:24 / cg" |
|
700 "Modified (format): / 25-02-2014 / 10:02:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
714 ! |
701 ! |
715 |
702 |
716 enqueueDelayedUpdateList |
703 enqueueDelayedUpdateList |
717 listValid := false. |
704 listValid := false. |
718 |
705 |