equal
deleted
inserted
replaced
4775 knownIds := Array new:50. |
4775 knownIds := Array new:50. |
4776 freeIdx := 1. |
4776 freeIdx := 1. |
4777 ] ifFalse:[ |
4777 ] ifFalse:[ |
4778 freeIdx := knownViews identityIndexOf:nil. |
4778 freeIdx := knownViews identityIndexOf:nil. |
4779 freeIdx == 0 ifTrue:[ |
4779 freeIdx == 0 ifTrue:[ |
4780 freeIdx := knownViews identityIndexOf:0 |
4780 freeIdx := knownViews identityIndexOf:0. |
|
4781 [freeIdx ~~ 0 |
|
4782 and:[(knownIds at:freeIdx) notNil]] whileTrue:[ |
|
4783 'XXX ' print. (knownIds at:freeIdx) displayString printCR. |
|
4784 freeIdx := knownViews identityIndexOf:0 startingAt:(freeIdx + 1). |
|
4785 ]. |
4781 ]. |
4786 ]. |
4782 ]. |
4787 ]. |
4783 |
4788 |
4784 freeIdx == 0 ifTrue:[ |
4789 freeIdx == 0 ifTrue:[ |
4785 sz := knownViews size. |
4790 sz := knownViews size. |
4803 |
4808 |
4804 "/ dispatching ifFalse:[ |
4809 "/ dispatching ifFalse:[ |
4805 "/ self startDispatch |
4810 "/ self startDispatch |
4806 "/ ]. |
4811 "/ ]. |
4807 |
4812 |
4808 "Modified: 1.3.1997 / 20:00:08 / cg" |
4813 "Modified: 2.4.1997 / 19:15:46 / cg" |
|
4814 ! |
|
4815 |
|
4816 checkKnownViewId:drawableId |
|
4817 |idx| |
|
4818 |
|
4819 idx := idToTableIndexMapping at:drawableId ifAbsent:0. |
|
4820 idx == 0 ifTrue:[ |
|
4821 idx := knownIds indexOf:drawableId |
|
4822 ]. |
|
4823 idx ~~ 0 ifTrue:[ |
|
4824 (knownViews at:idx) ~~ 0 ifTrue:[ |
|
4825 'drawable ' print. drawableId displayString print. |
|
4826 ' still known as ' print. |
|
4827 (knownViews at:idx) printCR |
|
4828 ] |
|
4829 ]. |
|
4830 |
|
4831 "Created: 2.4.1997 / 19:04:27 / cg" |
|
4832 "Modified: 2.4.1997 / 19:49:15 / cg" |
4809 ! |
4833 ! |
4810 |
4834 |
4811 removeKnownView:aView withId:aViewId |
4835 removeKnownView:aView withId:aViewId |
4812 "remove aView from the list of known views/id's." |
4836 "remove aView from the list of known views/id's." |
4813 |
4837 |
4892 |
4916 |
4893 "Created: 22.3.1997 / 14:56:20 / cg" |
4917 "Created: 22.3.1997 / 14:56:20 / cg" |
4894 "Modified: 27.3.1997 / 17:13:28 / cg" |
4918 "Modified: 27.3.1997 / 17:13:28 / cg" |
4895 ! |
4919 ! |
4896 |
4920 |
4897 update:something with:aParameter from:changedObject |
|
4898 "this is obsolete - it will be removed" |
|
4899 |
|
4900 |id| |
|
4901 |
|
4902 "/ no longer called for ... |
|
4903 "/ |
|
4904 something == knownViews ifTrue:[ |
|
4905 " |
|
4906 some view was garbage-collected; |
|
4907 destroy it ... |
|
4908 " |
|
4909 1 to:knownViews size do:[:idx | |
|
4910 |v| |
|
4911 |
|
4912 ((v := knownViews at:idx) isNil |
|
4913 or:[v == 0]) ifTrue:[ |
|
4914 id := knownIds at:idx. |
|
4915 id notNil ifTrue:[ |
|
4916 idToTableIndexMapping notNil ifTrue:[ |
|
4917 idToTableIndexMapping removeKey:id. |
|
4918 ]. |
|
4919 knownIds at:idx put:nil. |
|
4920 ]. |
|
4921 ] |
|
4922 ]. |
|
4923 ] |
|
4924 |
|
4925 "Created: 21.6.1996 / 19:21:16 / cg" |
|
4926 "Modified: 1.3.1997 / 19:59:32 / cg" |
|
4927 ! |
|
4928 |
|
4929 viewFromId:aWindowID |
4921 viewFromId:aWindowID |
4930 "given an Id, return the corresponding view." |
4922 "given an Id, return the corresponding view." |
4931 |
4923 |
4932 |index v idx| |
4924 |index v idx| |
4933 |
4925 |
5235 ! ! |
5227 ! ! |
5236 |
5228 |
5237 !DeviceWorkstation class methodsFor:'documentation'! |
5229 !DeviceWorkstation class methodsFor:'documentation'! |
5238 |
5230 |
5239 version |
5231 version |
5240 ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.195 1997-03-28 15:15:33 cg Exp $' |
5232 ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.196 1997-04-02 18:10:39 cg Exp $' |
5241 ! ! |
5233 ! ! |
5242 DeviceWorkstation initialize! |
5234 DeviceWorkstation initialize! |