equal
deleted
inserted
replaced
815 self updateList. |
815 self updateList. |
816 ^ self. |
816 ^ self. |
817 ]. |
817 ]. |
818 |
818 |
819 (self applicationIsActive) ifTrue:[ |
819 (self applicationIsActive) ifTrue:[ |
820 self enqueueMessage:#updateList for:self arguments:nil |
820 self enqueueMessage:#updateList |
821 ] ifFalse:[ |
821 ] ifFalse:[ |
822 self enqueueMessage:#updateListInBackground for:self arguments:nil |
822 self enqueueMessage:#updateListInBackground |
823 ]. |
823 ]. |
824 |
824 |
825 "Modified: / 05-06-2012 / 23:38:18 / cg" |
825 "Modified: / 05-06-2012 / 23:38:18 / cg" |
|
826 "Modified: / 16-03-2019 / 14:19:14 / Claus Gittinger" |
826 ! |
827 ! |
827 |
828 |
828 enqueueDelayedUpdateOutputGenerator |
829 enqueueDelayedUpdateOutputGenerator |
829 (NewSystemBrowser synchronousUpdate == true |
830 (NewSystemBrowser synchronousUpdate == true |
830 or:[ immediateUpdate value == true ]) |
831 or:[ immediateUpdate value == true ]) |
831 ifTrue:[ |
832 ifTrue:[ |
832 self updateOutputGenerator. |
833 self updateOutputGenerator. |
833 ^ self. |
834 ^ self. |
834 ]. |
835 ]. |
835 "/ listValid := false. |
836 "/ listValid := false. |
836 self enqueueMessage:#updateOutputGenerator for:self arguments:#() |
837 self enqueueMessage:#updateOutputGenerator |
|
838 |
|
839 "Modified: / 16-03-2019 / 14:10:37 / Claus Gittinger" |
837 ! |
840 ! |
838 |
841 |
839 environmentChanged |
842 environmentChanged |
840 super environmentChanged. |
843 super environmentChanged. |
841 self updateList. |
844 self updateList. |
979 ]. |
982 ]. |
980 window sensor userEventCount > 100 ifTrue:[ |
983 window sensor userEventCount > 100 ifTrue:[ |
981 listValid ifTrue:[ |
984 listValid ifTrue:[ |
982 "/ enqueue a full update. |
985 "/ enqueue a full update. |
983 self setListValid:false. |
986 self setListValid:false. |
984 self enqueueMessage:#updateList for:self arguments:nil. |
987 self enqueueMessage:#updateList. |
985 ]. |
988 ]. |
986 ^ self |
989 ^ self |
987 ]. |
990 ]. |
988 |
991 |
989 self enqueueDelayedUpdate:something with:aParameter from:changedObject. |
992 self enqueueDelayedUpdate:something with:aParameter from:changedObject. |
990 |
993 |
991 "Created: / 05-02-2000 / 13:42:07 / cg" |
994 "Created: / 05-02-2000 / 13:42:07 / cg" |
992 "Modified: / 13-11-2001 / 11:30:19 / cg" |
995 "Modified: / 13-11-2001 / 11:30:19 / cg" |
993 "Modified: / 25-02-2014 / 09:05:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
996 "Modified: / 25-02-2014 / 09:05:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
997 "Modified: / 16-03-2019 / 14:19:18 / Claus Gittinger" |
994 ! |
998 ! |
995 |
999 |
996 updateListInBackground |
1000 updateListInBackground |
997 self executeInBackground:[self updateList] |
1001 self executeInBackground:[self updateList] |
998 ! ! |
1002 ! ! |