equal
deleted
inserted
replaced
518 ! ! |
518 ! ! |
519 |
519 |
520 |
520 |
521 |
521 |
522 |
522 |
|
523 |
|
524 |
523 !Object methodsFor:'Compatibility-Dolphin'! |
525 !Object methodsFor:'Compatibility-Dolphin'! |
524 |
526 |
525 stbFixup: anSTBInFiler at: newObjectIndex |
527 stbFixup: anSTBInFiler at: newObjectIndex |
526 "Answer the true object that must be used to represent the receiver when read from anSTBInFiler. |
528 "Answer the true object that must be used to represent the receiver when read from anSTBInFiler. |
527 Typically this is overridden by subclasses of STBProxy to answer the proxied object. Other classes |
529 Typically this is overridden by subclasses of STBProxy to answer the proxied object. Other classes |
692 arr at:2 put:(o2 := Point new). |
694 arr at:2 put:(o2 := Point new). |
693 o1 becomeSameAs:o2. |
695 o1 becomeSameAs:o2. |
694 (arr at:1) ~~ o2 ifTrue:[self halt]. |
696 (arr at:1) ~~ o2 ifTrue:[self halt]. |
695 " |
697 " |
696 ! ! |
698 ! ! |
|
699 |
697 |
700 |
698 |
701 |
699 !Object methodsFor:'accessing'! |
702 !Object methodsFor:'accessing'! |
700 |
703 |
701 _at:index |
704 _at:index |
1756 'abcdef' copy nilAllInstvars |
1759 'abcdef' copy nilAllInstvars |
1757 100 factorial nilAllInstvars |
1760 100 factorial nilAllInstvars |
1758 " |
1761 " |
1759 ! ! |
1762 ! ! |
1760 |
1763 |
|
1764 |
|
1765 |
1761 !Object methodsFor:'attributes access'! |
1766 !Object methodsFor:'attributes access'! |
1762 |
1767 |
1763 objectAttributeAt:attributeKey |
1768 objectAttributeAt:attributeKey |
1764 "return the attribute for a given key or nil if not found" |
1769 "return the attribute for a given key or nil if not found" |
1765 |
1770 |
1876 ] |
1881 ] |
1877 |
1882 |
1878 "Created: / 22.1.1998 / 21:29:39 / av" |
1883 "Created: / 22.1.1998 / 21:29:39 / av" |
1879 "Modified: / 18.2.2000 / 11:32:19 / cg" |
1884 "Modified: / 18.2.2000 / 11:32:19 / cg" |
1880 ! ! |
1885 ! ! |
|
1886 |
1881 |
1887 |
1882 |
1888 |
1883 !Object methodsFor:'change & update'! |
1889 !Object methodsFor:'change & update'! |
1884 |
1890 |
1885 broadcast:aSelectorSymbol |
1891 broadcast:aSelectorSymbol |
8614 |
8620 |
8615 wasBlocked := OperatingSystem blockInterrupts. |
8621 wasBlocked := OperatingSystem blockInterrupts. |
8616 |
8622 |
8617 sema := self synchronizationSemaphore. |
8623 sema := self synchronizationSemaphore. |
8618 sema isNil ifTrue:[ |
8624 sema isNil ifTrue:[ |
8619 sema := RecursionLock new name:self className. |
8625 sema := RecursionLock new name:self className. |
8620 self synchronizationSemaphore:sema. |
8626 self synchronizationSemaphore:sema. |
8621 ]. |
8627 ]. |
8622 |
8628 |
8623 wasBlocked ifFalse:[OperatingSystem unblockInterrupts]. |
8629 wasBlocked ifFalse:[OperatingSystem unblockInterrupts]. |
8624 sema critical:aBlock. |
8630 ^ sema critical:aBlock. |
8625 |
8631 |
8626 " |
8632 " |
8627 [Object synchronized:[Delay waitForSeconds:2. Transcript showCR:'1']] fork. |
8633 [Object synchronized:[Delay waitForSeconds:2. Transcript showCR:'1']] fork. |
8628 [Object synchronized:[Delay waitForSeconds:2. Transcript showCR:'2']] fork. |
8634 [Object synchronized:[Delay waitForSeconds:2. Transcript showCR:'2']] fork. |
8629 " |
8635 " |
10297 ^ aVisitor visitObject:self with:aParameter |
10303 ^ aVisitor visitObject:self with:aParameter |
10298 ! ! |
10304 ! ! |
10299 |
10305 |
10300 |
10306 |
10301 |
10307 |
|
10308 |
10302 !Object class methodsFor:'documentation'! |
10309 !Object class methodsFor:'documentation'! |
10303 |
10310 |
10304 version |
10311 version |
10305 ^ '$Header$' |
10312 ^ '$Header$' |
10306 ! |
10313 ! |