equal
deleted
inserted
replaced
357 "Created: 8.2.1996 / 13:22:27 / cg" |
357 "Created: 8.2.1996 / 13:22:27 / cg" |
358 "Modified: 8.2.1996 / 13:40:18 / cg" |
358 "Modified: 8.2.1996 / 13:40:18 / cg" |
359 ! |
359 ! |
360 |
360 |
361 update:something with:someArgument from:changedObject |
361 update:something with:someArgument from:changedObject |
362 |argList| |
362 |argList sensor| |
363 |
363 |
364 (changedObject == ObjectMemory) ifTrue:[ |
364 (changedObject == ObjectMemory) ifTrue:[ |
365 (something == #earlyRestart |
365 (something == #earlyRestart |
366 or:[something == #restarted |
366 or:[something == #restarted |
367 or:[something == #returnFromSnapshot]]) ifTrue:[ |
367 or:[something == #returnFromSnapshot]]) ifTrue:[ |
373 "/ |
373 "/ |
374 "/ avoid update/warn after my own changes |
374 "/ avoid update/warn after my own changes |
375 "/ |
375 "/ |
376 lockUpdates == true ifTrue:[ |
376 lockUpdates == true ifTrue:[ |
377 ^ self |
377 ^ self |
|
378 ]. |
|
379 |
|
380 (sensor := self sensor) isNil ifTrue:[ |
|
381 "/ mhmh - an update, but I am not yet visible |
|
382 |
|
383 ^ self delayedUpdate:something with:someArgument from:changedObject |
378 ]. |
384 ]. |
379 |
385 |
380 "/ |
386 "/ |
381 "/ if such an update is already in the queue, ignore it. |
387 "/ if such an update is already in the queue, ignore it. |
382 "/ Otherwise push it as an event, to be handled when I am back |
388 "/ Otherwise push it as an event, to be handled when I am back |
1854 classNewClass |
1860 classNewClass |
1855 ). |
1861 ). |
1856 ] ifFalse:[ |
1862 ] ifFalse:[ |
1857 currentClass isLoaded ifFalse:[ |
1863 currentClass isLoaded ifFalse:[ |
1858 labels := #( |
1864 labels := #( |
1859 'definition' |
|
1860 'documentation' |
1865 'documentation' |
1861 '-' |
1866 '-' |
1862 'class refs' |
1867 'class refs' |
1863 '-' |
1868 '-' |
1864 'new class' |
1869 'new class' |
1865 '-' |
1870 '-' |
1866 'load' |
1871 'load' |
1867 ). |
1872 ). |
1868 selectors := #( |
1873 selectors := #( |
1869 classDefinition |
|
1870 classDocumentation |
1874 classDocumentation |
1871 nil |
1875 nil |
1872 classRefs |
1876 classRefs |
1873 nil |
1877 nil |
1874 classNewClass |
1878 classNewClass |
2006 ]. |
2010 ]. |
2007 |
2011 |
2008 m subMenuAt:#otherMenu put:specialMenu. |
2012 m subMenuAt:#otherMenu put:specialMenu. |
2009 ^ m |
2013 ^ m |
2010 |
2014 |
2011 "Modified: 4.1.1997 / 15:48:15 / cg" |
2015 "Modified: 5.1.1997 / 14:32:56 / cg" |
2012 ! |
2016 ! |
2013 |
2017 |
2014 classNewClass |
2018 classNewClass |
2015 "create a class-definition prototype in codeview" |
2019 "create a class-definition prototype in codeview" |
2016 |
2020 |
9053 ! ! |
9057 ! ! |
9054 |
9058 |
9055 !BrowserView class methodsFor:'documentation'! |
9059 !BrowserView class methodsFor:'documentation'! |
9056 |
9060 |
9057 version |
9061 version |
9058 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.244 1997-01-05 02:22:50 cg Exp $' |
9062 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.245 1997-01-05 13:43:00 cg Exp $' |
9059 ! ! |
9063 ! ! |
9060 BrowserView initialize! |
9064 BrowserView initialize! |