(lp1 (ccopy_reg _reconstructor p2 (cpygments.token _TokenType p3 c__builtin__ tuple p4 (S'Text' p5 ttRp6 (dp7 S'subtypes' p8 c__builtin__ set p9 ((lp10 g2 (g3 g4 (g5 S'Symbol' p11 ttRp12 (dp13 g8 g9 ((ltRp14 sS'parent' p15 g6 sbag2 (g3 g4 (g5 S'Whitespace' p16 ttRp17 (dp18 g8 g9 ((ltRp19 sg15 g6 sbatRp20 sg11 g12 sg16 g17 sg15 g2 (g3 g4 (ttRp21 (dp22 S'Comment' p23 g2 (g3 g4 (g23 ttRp24 (dp25 g15 g21 sS'Preproc' p26 g2 (g3 g4 (g23 g26 ttRp27 (dp28 g8 g9 ((ltRp29 sg15 g24 sbsS'Single' p30 g2 (g3 g4 (g23 g30 ttRp31 (dp32 g8 g9 ((ltRp33 sg15 g24 sbsS'Multiline' p34 g2 (g3 g4 (g23 g34 ttRp35 (dp36 g8 g9 ((ltRp37 sg15 g24 sbsg8 g9 ((lp38 g2 (g3 g4 (g23 S'Special' p39 ttRp40 (dp41 g8 g9 ((ltRp42 sg15 g24 sbag27 ag31 ag35 atRp43 sg39 g40 sbsS'Name' p44 g2 (g3 g4 (g44 ttRp45 (dp46 S'Function' p47 g2 (g3 g4 (g44 g47 ttRp48 (dp49 g8 g9 ((ltRp50 sg15 g45 sbsS'Exception' p51 g2 (g3 g4 (g44 g51 ttRp52 (dp53 g8 g9 ((ltRp54 sg15 g45 sbsS'Tag' p55 g2 (g3 g4 (g44 g55 ttRp56 (dp57 g8 g9 ((ltRp58 sg15 g45 sbsS'Constant' p59 g2 (g3 g4 (g44 g59 ttRp60 (dp61 g8 g9 ((ltRp62 sg15 g45 sbsg15 g21 sS'Pseudo' p63 g2 (g3 g4 (g44 g63 ttRp64 (dp65 g8 g9 ((ltRp66 sg15 g45 sbsS'Attribute' p67 g2 (g3 g4 (g44 g67 ttRp68 (dp69 g8 g9 ((ltRp70 sg15 g45 sbsS'Label' p71 g2 (g3 g4 (g44 g71 ttRp72 (dp73 g8 g9 ((ltRp74 sg15 g45 sbsS'Blubb' p75 g2 (g3 g4 (g44 g75 ttRp76 (dp77 g8 g9 ((ltRp78 sg15 g45 sbsS'Entity' p79 g2 (g3 g4 (g44 g79 ttRp80 (dp81 g8 g9 ((ltRp82 sg15 g45 sbsS'Builtin' p83 g2 (g3 g4 (g44 g83 ttRp84 (dp85 g8 g9 ((lp86 g2 (g3 g4 (g44 g83 g63 ttRp87 (dp88 g8 g9 ((ltRp89 sg15 g84 sbatRp90 sg63 g87 sg15 g45 sbsS'Other' p91 g2 (g3 g4 (g44 g91 ttRp92 (dp93 g8 g9 ((ltRp94 sg15 g45 sbsS'Identifier' p95 g2 (g3 g4 (g44 g95 ttRp96 (dp97 g8 g9 ((ltRp98 sg15 g45 sbsS'Variable' p99 g2 (g3 g4 (g44 g99 ttRp100 (dp101 g15 g45 sS'Global' p102 g2 (g3 g4 (g44 g99 g102 ttRp103 (dp104 g8 g9 ((ltRp105 sg15 g100 sbsS'Instance' p106 g2 (g3 g4 (g44 g99 g106 ttRp107 (dp108 g8 g9 ((ltRp109 sg15 g100 sbsS'Anonymous' p110 g2 (g3 g4 (g44 g99 g110 ttRp111 (dp112 g8 g9 ((ltRp113 sg15 g100 sbsg8 g9 ((lp114 g111 ag107 ag103 ag2 (g3 g4 (g44 g99 S'Class' p115 ttRp116 (dp117 g8 g9 ((ltRp118 sg15 g100 sbatRp119 sg115 g116 sbsg8 g9 ((lp120 g2 (g3 g4 (g44 S'Decorator' p121 ttRp122 (dp123 g8 g9 ((ltRp124 sg15 g45 sbag68 ag60 ag64 ag2 (g3 g4 (g44 S'Namespace' p125 ttRp126 (dp127 g8 g9 ((ltRp128 sg15 g45 sbag96 ag84 ag100 ag92 ag76 ag80 ag48 ag2 (g3 g4 (g44 S'Property' p129 ttRp130 (dp131 g8 g9 ((ltRp132 sg15 g45 sbag72 ag56 ag52 ag2 (g3 g4 (g44 g115 ttRp133 (dp134 g8 g9 ((ltRp135 sg15 g45 sbatRp136 sg129 g130 sg115 g133 sg121 g122 sg125 g126 sbsS'Keyword' p137 g2 (g3 g4 (g137 ttRp138 (dp139 g59 g2 (g3 g4 (g137 g59 ttRp140 (dp141 g8 g9 ((ltRp142 sg15 g138 sbsg15 g21 sg125 g2 (g3 g4 (g137 g125 ttRp143 (dp144 g8 g9 ((ltRp145 sg15 g138 sbsg63 g2 (g3 g4 (g137 g63 ttRp146 (dp147 g8 g9 ((ltRp148 sg15 g138 sbsS'Reserved' p149 g2 (g3 g4 (g137 g149 ttRp150 (dp151 g8 g9 ((ltRp152 sg15 g138 sbsS'Declaration' p153 g2 (g3 g4 (g137 g153 ttRp154 (dp155 g8 g9 ((ltRp156 sg15 g138 sbsg99 g2 (g3 g4 (g137 g99 ttRp157 (dp158 g8 g9 ((ltRp159 sg15 g138 sbsg8 g9 ((lp160 g140 ag150 ag2 (g3 g4 (g137 S'Type' p161 ttRp162 (dp163 g8 g9 ((ltRp164 sg15 g138 sbag154 ag157 ag143 ag146 atRp165 sg161 g162 sbsS'Generic' p166 g2 (g3 g4 (g166 ttRp167 (dp168 S'Prompt' p169 g2 (g3 g4 (g166 g169 ttRp170 (dp171 g8 g9 ((ltRp172 sg15 g167 sbsg15 g21 sS'Deleted' p173 g2 (g3 g4 (g166 g173 ttRp174 (dp175 g8 g9 ((ltRp176 sg15 g167 sbsS'Traceback' p177 g2 (g3 g4 (g166 g177 ttRp178 (dp179 g8 g9 ((ltRp180 sg15 g167 sbsS'Emph' p181 g2 (g3 g4 (g166 g181 ttRp182 (dp183 g8 g9 ((ltRp184 sg15 g167 sbsS'Output' p185 g2 (g3 g4 (g166 g185 ttRp186 (dp187 g8 g9 ((ltRp188 sg15 g167 sbsS'Subheading' p189 g2 (g3 g4 (g166 g189 ttRp190 (dp191 g8 g9 ((ltRp192 sg15 g167 sbsS'Error' p193 g2 (g3 g4 (g166 g193 ttRp194 (dp195 g8 g9 ((ltRp196 sg15 g167 sbsg8 g9 ((lp197 g186 ag182 ag194 ag190 ag178 ag174 ag2 (g3 g4 (g166 S'Heading' p198 ttRp199 (dp200 g8 g9 ((ltRp201 sg15 g167 sbag2 (g3 g4 (g166 S'Inserted' p202 ttRp203 (dp204 g8 g9 ((ltRp205 sg15 g167 sbag2 (g3 g4 (g166 S'Strong' p206 ttRp207 (dp208 g8 g9 ((ltRp209 sg15 g167 sbag170 atRp210 sg206 g207 sg202 g203 sg198 g199 sbsg5 g6 sS'Punctuation' p211 g2 (g3 g4 (g211 ttRp212 (dp213 g8 g9 ((lp214 g2 (g3 g4 (g211 S'Indicator' p215 ttRp216 (dp217 g8 g9 ((ltRp218 sg15 g212 sbatRp219 sg215 g216 sg15 g21 sbsS'Token' p220 g21 sS'Number' p221 g2 (g3 g4 (S'Literal' p222 g221 ttRp223 (dp224 S'Bin' p225 g2 (g3 g4 (g222 g221 g225 ttRp226 (dp227 g8 g9 ((ltRp228 sg15 g223 sbsS'Binary' p229 g2 (g3 g4 (g222 g221 g229 ttRp230 (dp231 g8 g9 ((ltRp232 sg15 g223 sbsg15 g2 (g3 g4 (g222 ttRp233 (dp234 S'String' p235 g2 (g3 g4 (g222 g235 ttRp236 (dp237 S'Regex' p238 g2 (g3 g4 (g222 g235 g238 ttRp239 (dp240 g8 g9 ((ltRp241 sg15 g236 sbsS'Interpol' p242 g2 (g3 g4 (g222 g235 g242 ttRp243 (dp244 g8 g9 ((ltRp245 sg15 g236 sbsS'Regexp' p246 g2 (g3 g4 (g222 g235 g246 ttRp247 (dp248 g8 g9 ((ltRp249 sg15 g236 sbsg15 g233 sS'Heredoc' p250 g2 (g3 g4 (g222 g235 g250 ttRp251 (dp252 g8 g9 ((ltRp253 sg15 g236 sbsS'Double' p254 g2 (g3 g4 (g222 g235 g254 ttRp255 (dp256 g8 g9 ((ltRp257 sg15 g236 sbsg11 g2 (g3 g4 (g222 g235 g11 ttRp258 (dp259 g8 g9 ((ltRp260 sg15 g236 sbsS'Escape' p261 g2 (g3 g4 (g222 g235 g261 ttRp262 (dp263 g8 g9 ((ltRp264 sg15 g236 sbsS'Character' p265 g2 (g3 g4 (g222 g235 g265 ttRp266 (dp267 g8 g9 ((ltRp268 sg15 g236 sbsS'Interp' p269 g2 (g3 g4 (g222 g235 g269 ttRp270 (dp271 g8 g9 ((ltRp272 sg15 g236 sbsS'Backtick' p273 g2 (g3 g4 (g222 g235 g273 ttRp274 (dp275 g8 g9 ((ltRp276 sg15 g236 sbsS'Char' p277 g2 (g3 g4 (g222 g235 g277 ttRp278 (dp279 g8 g9 ((ltRp280 sg15 g236 sbsg30 g2 (g3 g4 (g222 g235 g30 ttRp281 (dp282 g8 g9 ((ltRp283 sg15 g236 sbsg91 g2 (g3 g4 (g222 g235 g91 ttRp284 (dp285 g8 g9 ((ltRp286 sg15 g236 sbsS'Doc' p287 g2 (g3 g4 (g222 g235 g287 ttRp288 (dp289 g8 g9 ((ltRp290 sg15 g236 sbsg8 g9 ((lp291 g284 ag2 (g3 g4 (g222 g235 S'Atom' p292 ttRp293 (dp294 g8 g9 ((ltRp295 sg15 g236 sbag255 ag278 ag270 ag288 ag251 ag274 ag243 ag258 ag247 ag239 ag281 ag266 ag262 atRp296 sg292 g293 sbsg15 g21 sg221 g223 sS'Scalar' p297 g2 (g3 g4 (g222 g297 ttRp298 (dp299 g8 g9 ((lp300 g2 (g3 g4 (g222 g297 S'Plain' p301 ttRp302 (dp303 g8 g9 ((ltRp304 sg15 g298 sbatRp305 sg15 g233 sg301 g302 sbsg91 g2 (g3 g4 (g222 g91 ttRp306 (dp307 g8 g9 ((ltRp308 sg15 g233 sbsS'Date' p309 g2 (g3 g4 (g222 g309 ttRp310 (dp311 g8 g9 ((ltRp312 sg15 g233 sbsg8 g9 ((lp313 g310 ag236 ag306 ag223 ag298 atRp314 sbsS'Decimal' p315 g2 (g3 g4 (g222 g221 g315 ttRp316 (dp317 g8 g9 ((ltRp318 sg15 g223 sbsS'Float' p319 g2 (g3 g4 (g222 g221 g319 ttRp320 (dp321 g8 g9 ((ltRp322 sg15 g223 sbsS'Hex' p323 g2 (g3 g4 (g222 g221 g323 ttRp324 (dp325 g8 g9 ((ltRp326 sg15 g223 sbsS'Integer' p327 g2 (g3 g4 (g222 g221 g327 ttRp328 (dp329 g8 g9 ((lp330 g2 (g3 g4 (g222 g221 g327 S'Long' p331 ttRp332 (dp333 g8 g9 ((ltRp334 sg15 g328 sbatRp335 sg331 g332 sg15 g223 sbsS'Octal' p336 g2 (g3 g4 (g222 g221 g336 ttRp337 (dp338 g8 g9 ((ltRp339 sg15 g223 sbsg8 g9 ((lp340 g226 ag230 ag337 ag316 ag2 (g3 g4 (g222 g221 S'Oct' p341 ttRp342 (dp343 g8 g9 ((ltRp344 sg15 g223 sbag328 ag320 ag324 atRp345 sg341 g342 sbsg222 g233 sg91 g2 (g3 g4 (g91 ttRp346 (dp347 g8 g9 ((ltRp348 sg15 g21 sbsg193 g2 (g3 g4 (g193 ttRp349 (dp350 g8 g9 ((ltRp351 sg15 g21 sbsS'Operator' p352 g2 (g3 g4 (g352 ttRp353 (dp354 g8 g9 ((lp355 g2 (g3 g4 (g352 S'Word' p356 ttRp357 (dp358 g8 g9 ((ltRp359 sg15 g353 sbatRp360 sg356 g357 sg15 g21 sbsg8 g9 ((lp361 g24 ag349 ag167 ag6 ag45 ag212 ag138 ag233 ag353 ag346 atRp362 sg235 g236 sbsbV! tp363 a(g133 VProtoObject p364 tp365 a(g6 V tp366 a(g48 Vsubclass: p367 tp368 a(g6 V tp369 a(g258 V#Object p370 tp371 a(g6 V\u000a p372 tp373 a(g48 VinstanceVariableNames: p374 tp375 a(g6 V tp376 a(g236 V'' p377 tp378 a(g6 V\u000a p379 tp380 a(g48 VclassVariableNames: p381 tp382 a(g6 V tp383 a(g236 V'DependentsFields' p384 tp385 a(g6 V\u000a p386 tp387 a(g48 VpoolDictionaries: p388 tp389 a(g6 V tp390 a(g236 V'' p391 tp392 a(g6 V\u000a p393 tp394 a(g48 Vcategory: p395 tp396 a(g6 V tp397 a(g236 V'Kernel-Objects' p398 tp399 a(g48 V! tp400 a(g6 V\u000a\u000a p401 tp402 a(g138 V! tp403 a(g133 VObject p404 tp405 a(g138 V methodsFor: p406 tp407 a(g236 V'*39Deprecated' p408 tp409 a(g138 V stamp: 'gk 2/24/2004 08:49'! p410 tp411 a(g6 V\u000a tp412 a(g48 Vbeep p413 tp414 a(g6 V\u000a p415 tp416 a(g24 V"Deprecated." p417 tp418 a(g6 V\u000a \u000a p419 tp420 a(g87 Vself p421 tp422 a(g6 V tp423 a(g48 Vdeprecated: p424 tp425 a(g6 V tp426 a(g236 V'Use Beeper class>>beep instead.' p427 tp428 a(g212 V. tp429 a(g6 V\u000a p430 tp431 a(g133 VBeeper p432 tp433 a(g6 V tp434 a(g48 Vbeep p435 tp436 a(g138 V! ! p437 tp438 a(g6 V\u000a\u000a p439 tp440 a(g138 V! tp441 a(g133 VObject p442 tp443 a(g138 V methodsFor: p444 tp445 a(g236 V'*39Deprecated' p446 tp447 a(g138 V stamp: 'gk 2/24/2004 08:50'! p448 tp449 a(g6 V\u000a tp450 a(g48 VbeepPrimitive p451 tp452 a(g6 V\u000a p453 tp454 a(g24 V"Deprecated. Beep in the absence of sound support." p455 tp456 a(g6 V\u000a \u000a p457 tp458 a(g87 Vself p459 tp460 a(g6 V tp461 a(g48 Vdeprecated: p462 tp463 a(g6 V tp464 a(g236 V'Use Beeper class>>beep or Beeper class>>beepPrimitive instead.' p465 tp466 a(g212 V. tp467 a(g6 V\u000a p468 tp469 a(g133 VBeeper p470 tp471 a(g6 V tp472 a(g48 VbeepPrimitive p473 tp474 a(g138 V! ! p475 tp476 a(g6 V\u000a\u000a p477 tp478 a(g138 V! tp479 a(g133 VObject p480 tp481 a(g138 V methodsFor: p482 tp483 a(g236 V'*39Deprecated' p484 tp485 a(g138 V stamp: 'md 12/12/2003 17:02'! p486 tp487 a(g6 V\u000a tp488 a(g48 Vbeep: p489 tp490 a(g6 V tp491 a(g100 VsoundName p492 tp493 a(g6 V\u000a p494 tp495 a(g24 V"Make the given sound, unless the making of sound is disabled in Preferences." p496 tp497 a(g6 V\u000a\u000a p498 tp499 a(g87 Vself p500 tp501 a(g6 V tp502 a(g48 Vdeprecated: p503 tp504 a(g6 V tp505 a(g236 V'Use SampledSound>>playSoundNamed: instead.' p506 tp507 a(g212 V. tp508 a(g6 V\u000a p509 tp510 a(g133 VPreferences p511 tp512 a(g6 V tp513 a(g48 VsoundsEnabled p514 tp515 a(g6 V\u000a p516 tp517 a(g84 VifTrue: p518 tp519 a(g6 V tp520 a(g6 V[ tp521 a(g6 V tp522 a(g87 Vself p523 tp524 a(g6 V tp525 a(g48 VplaySoundNamed: p526 tp527 a(g6 V tp528 a(g100 VsoundName p529 tp530 a(g6 V] tp531 a(g6 V\u000a tp532 a(g138 V! ! p533 tp534 a(g6 V\u000a\u000a p535 tp536 a(g138 V! tp537 a(g133 VObject p538 tp539 a(g138 V methodsFor: p540 tp541 a(g236 V'*39Deprecated' p542 tp543 a(g138 V stamp: 'sd 11/19/2004 16:57'! p544 tp545 a(g6 V\u000a tp546 a(g48 VcontentsGetz: p547 tp548 a(g6 V tp549 a(g100 Vx tp550 a(g6 V\u000a p551 tp552 a(g87 Vself p553 tp554 a(g6 V tp555 a(g48 Vdeprecated: p556 tp557 a(g6 V tp558 a(g236 V'there is no method named contents in object and in addition only one sender in a method not called' p559 tp560 a(g212 V. tp561 a(g6 V \u000a p562 tp563 a(g87 Vself p564 tp565 a(g6 V tp566 a(g48 Vcontents: p567 tp568 a(g6 V tp569 a(g100 Vx tp570 a(g138 V! ! p571 tp572 a(g6 V\u000a\u000a p573 tp574 a(g138 V! tp575 a(g133 VObject p576 tp577 a(g138 V methodsFor: p578 tp579 a(g236 V'*39Deprecated' p580 tp581 a(g138 V stamp: 'sd 11/13/2003 21:10'! p582 tp583 a(g6 V\u000a tp584 a(g48 VdeprecatedExplanation: p585 tp586 a(g6 V tp587 a(g100 VaString p588 tp589 a(g6 V\u000a p590 tp591 a(g24 V"This method is OBSOLETE. Use #deprecated: instead." p592 tp593 a(g6 V\u000a p594 tp595 a(g87 Vself p596 tp597 a(g6 V tp598 a(g48 Vdeprecated: p599 tp600 a(g6 V tp601 a(g236 V'Use Object>>deprecated: instead of deprecatedExplanation:.' p602 tp603 a(g212 V. tp604 a(g6 V\u000a\u000a p605 tp606 a(g133 VPreferences p607 tp608 a(g6 V tp609 a(g48 VshowDeprecationWarnings p610 tp611 a(g6 V tp612 a(g84 VifTrue: p613 tp614 a(g6 V\u000a p615 tp616 a(g6 V[ tp617 a(g6 V tp618 a(g133 VDeprecation p619 tp620 a(g6 V tp621 a(g48 Vsignal: p622 tp623 a(g6 V tp624 a(g6 V( tp625 a(g236 V'{1} has been deprecated. {2}' p626 tp627 a(g6 V tp628 a(g48 Vtranslated p629 tp630 a(g6 V tp631 a(g48 Vformat: p632 tp633 a(g6 V tp634 a(g6 V{ tp635 a(g87 VthisContext p636 tp637 a(g6 V tp638 a(g48 Vsender p639 tp640 a(g6 V tp641 a(g48 VprintString p642 tp643 a(g212 V. tp644 a(g6 V tp645 a(g100 VaString p646 tp647 a(g6 V} tp648 a(g6 V) tp649 a(g6 V] tp650 a(g138 V! ! p651 tp652 a(g6 V\u000a\u000a p653 tp654 a(g138 V! tp655 a(g133 VObject p656 tp657 a(g138 V methodsFor: p658 tp659 a(g236 V'*39Deprecated' p660 tp661 a(g138 V stamp: 'sd 11/13/2003 21:11'! p662 tp663 a(g6 V\u000a tp664 a(g48 Vdeprecated: p665 tp666 a(g6 V tp667 a(g100 VaBlock p668 tp669 a(g6 V tp670 a(g48 Vexplanation: p671 tp672 a(g6 V tp673 a(g100 VaString p674 tp675 a(g6 V \u000a p676 tp677 a(g24 V"This method is OBSOLETE. Use #deprecated:block: instead." p678 tp679 a(g6 V\u000a p680 tp681 a(g87 Vself p682 tp683 a(g6 V tp684 a(g48 Vdeprecated: p685 tp686 a(g6 V tp687 a(g236 V'Use Object>>deprecated:block: instead of deprecated:explanation:.' p688 tp689 a(g212 V. tp690 a(g6 V\u000a\u000a p691 tp692 a(g133 VPreferences p693 tp694 a(g6 V tp695 a(g48 VshowDeprecationWarnings p696 tp697 a(g6 V tp698 a(g84 VifTrue: p699 tp700 a(g6 V\u000a p701 tp702 a(g6 V[ tp703 a(g6 V tp704 a(g133 VDeprecation p705 tp706 a(g6 V\u000a p707 tp708 a(g48 Vsignal: p709 tp710 a(g6 V tp711 a(g6 V( tp712 a(g236 V'{1} has been deprecated. {2}' p713 tp714 a(g6 V tp715 a(g48 Vtranslated p716 tp717 a(g6 V tp718 a(g48 Vformat: p719 tp720 a(g6 V tp721 a(g6 V{ tp722 a(g87 VthisContext p723 tp724 a(g6 V tp725 a(g48 Vsender p726 tp727 a(g6 V tp728 a(g48 VprintString p729 tp730 a(g212 V. tp731 a(g6 V tp732 a(g100 VaString p733 tp734 a(g6 V} tp735 a(g6 V) tp736 a(g6 V] tp737 a(g212 V. tp738 a(g6 V\u000a p739 tp740 a(g353 V^ tp741 a(g6 V tp742 a(g100 VaBlock p743 tp744 a(g6 V tp745 a(g48 Vvalue p746 tp747 a(g212 V. tp748 a(g6 V\u000a tp749 a(g138 V! ! p750 tp751 a(g6 V\u000a\u000a p752 tp753 a(g138 V! tp754 a(g133 VObject p755 tp756 a(g138 V methodsFor: p757 tp758 a(g236 V'*39Deprecated' p759 tp760 a(g138 V stamp: 'md 12/12/2003 16:25'! p761 tp762 a(g6 V\u000a tp763 a(g48 VdoIfNotNil: p764 tp765 a(g6 V tp766 a(g100 VaBlock p767 tp768 a(g6 V\u000a p769 tp770 a(g87 Vself p771 tp772 a(g6 V tp773 a(g48 Vdeprecated: p774 tp775 a(g6 V tp776 a(g236 V'use ifNotNilDo:' p777 tp778 a(g212 V. tp779 a(g6 V\u000a p780 tp781 a(g353 V^ tp782 a(g6 V tp783 a(g87 Vself p784 tp785 a(g6 V tp786 a(g48 VifNotNilDo: p787 tp788 a(g6 V tp789 a(g100 VaBlock p790 tp791 a(g6 V\u000a tp792 a(g138 V! ! p793 tp794 a(g6 V\u000a\u000a p795 tp796 a(g138 V! tp797 a(g133 VObject p798 tp799 a(g138 V methodsFor: p800 tp801 a(g236 V'*39Deprecated' p802 tp803 a(g138 V stamp: 'md 11/27/2004 12:20'! p804 tp805 a(g6 V\u000a tp806 a(g48 VifKindOf: p807 tp808 a(g6 V tp809 a(g100 VaClass p810 tp811 a(g6 V tp812 a(g48 VthenDo: p813 tp814 a(g6 V tp815 a(g100 VaBlock p816 tp817 a(g6 V\u000a p818 tp819 a(g87 Vself p820 tp821 a(g6 V tp822 a(g48 Vdeprecated: p823 tp824 a(g6 V tp825 a(g236 V'Deprecated. Just use #isKindOf:' p826 tp827 a(g212 V. tp828 a(g6 V\u000a p829 tp830 a(g353 V^ tp831 a(g6 V tp832 a(g6 V( tp833 a(g87 Vself p834 tp835 a(g6 V tp836 a(g48 VisKindOf: p837 tp838 a(g6 V tp839 a(g100 VaClass p840 tp841 a(g6 V) tp842 a(g6 V tp843 a(g84 VifTrue: p844 tp845 a(g6 V tp846 a(g6 V[ tp847 a(g6 V tp848 a(g100 VaBlock p849 tp850 a(g6 V tp851 a(g48 Vvalue: p852 tp853 a(g6 V tp854 a(g87 Vself p855 tp856 a(g6 V] tp857 a(g138 V! ! p858 tp859 a(g6 V\u000a\u000a p860 tp861 a(g138 V! tp862 a(g133 VObject p863 tp864 a(g138 V methodsFor: p865 tp866 a(g236 V'*39Deprecated' p867 tp868 a(g138 V stamp: 'gk 2/23/2004 20:51'! p869 tp870 a(g6 V\u000a tp871 a(g48 VplaySoundNamed: p872 tp873 a(g6 V tp874 a(g100 VsoundName p875 tp876 a(g6 V\u000a p877 tp878 a(g24 V"Deprecated.\u000a Play the sound with the given name." p879 tp880 a(g6 V\u000a\u000a p881 tp882 a(g87 Vself p883 tp884 a(g6 V tp885 a(g48 Vdeprecated: p886 tp887 a(g6 V tp888 a(g236 V'Use "SoundService default playSoundNamed: aName" instead.' p889 tp890 a(g212 V. tp891 a(g6 V\u000a p892 tp893 a(g133 VSoundService p894 tp895 a(g6 V tp896 a(g48 Vdefault p897 tp898 a(g6 V tp899 a(g48 VplaySoundNamed: p900 tp901 a(g6 V tp902 a(g100 VsoundName p903 tp904 a(g138 V! ! p905 tp906 a(g6 V\u000a\u000a\u000a p907 tp908 a(g138 V! tp909 a(g133 VObject p910 tp911 a(g138 V methodsFor: p912 tp913 a(g236 V'*Aida' p914 tp915 a(g138 V stamp: 'JM 4/22/2007 15:23'! p916 tp917 a(g6 V\u000a tp918 a(g48 VaidaCanBeLocked p919 tp920 a(g6 V\u000a p921 tp922 a(g24 V"can we get an exclusive lock on that object (not already locked)?" p923 tp924 a(g6 V\u000a p925 tp926 a(g353 V^ tp927 a(g87 Vfalse p928 tp929 a(g138 V! ! p930 tp931 a(g6 V\u000a\u000a p932 tp933 a(g138 V! tp934 a(g133 VObject p935 tp936 a(g138 V methodsFor: p937 tp938 a(g236 V'*Aida' p939 tp940 a(g138 V stamp: 'JM 4/22/2007 15:23'! p941 tp942 a(g6 V\u000a tp943 a(g48 VaidaDontCache p944 tp945 a(g6 V\u000a p946 tp947 a(g24 V"don't cache web content in a browser. Appropriate header is added to http response" p948 tp949 a(g6 V\u000a p950 tp951 a(g353 V^ tp952 a(g87 Vfalse p953 tp954 a(g138 V! ! p955 tp956 a(g6 V\u000a\u000a p957 tp958 a(g138 V! tp959 a(g133 VObject p960 tp961 a(g138 V methodsFor: p962 tp963 a(g236 V'*Aida' p964 tp965 a(g138 V stamp: 'JM 4/22/2007 15:24'! p966 tp967 a(g6 V\u000a tp968 a(g48 VaidaIsLocked p969 tp970 a(g6 V\u000a p971 tp972 a(g24 V"is object locked exclusively?" p973 tp974 a(g6 V\u000a p975 tp976 a(g353 V^ tp977 a(g87 Vfalse p978 tp979 a(g138 V! ! p980 tp981 a(g6 V\u000a\u000a p982 tp983 a(g138 V! tp984 a(g133 VObject p985 tp986 a(g138 V methodsFor: p987 tp988 a(g236 V'*Aida' p989 tp990 a(g138 V stamp: 'JM 4/22/2007 15:24'! p991 tp992 a(g6 V\u000a tp993 a(g48 VaidaLock p994 tp995 a(g6 V\u000a p996 tp997 a(g24 V"get an exclusive lock on that object. Until unlocked, noon else can get that lock. Return false if already locked, true if successfull" p998 tp999 a(g6 V\u000a p1000 tp1001 a(g353 V^ tp1002 a(g87 Vfalse p1003 tp1004 a(g138 V! ! p1005 tp1006 a(g6 V\u000a\u000a p1007 tp1008 a(g138 V! tp1009 a(g133 VObject p1010 tp1011 a(g138 V methodsFor: p1012 tp1013 a(g236 V'*Aida' p1014 tp1015 a(g138 V stamp: 'JM 4/22/2007 15:24'! p1016 tp1017 a(g6 V\u000a tp1018 a(g48 VaidaUnlock p1019 tp1020 a(g6 V\u000a p1021 tp1022 a(g24 V"release an exclusive lock if any" p1023 tp1024 a(g6 V\u000a p1025 tp1026 a(g353 V^ tp1027 a(g87 Vtrue p1028 tp1029 a(g138 V! ! p1030 tp1031 a(g6 V\u000a\u000a p1032 tp1033 a(g138 V! tp1034 a(g133 VObject p1035 tp1036 a(g138 V methodsFor: p1037 tp1038 a(g236 V'*Aida' p1039 tp1040 a(g138 V stamp: 'JM 4/22/2007 15:24'! p1041 tp1042 a(g6 V\u000a tp1043 a(g48 Vapp p1044 tp1045 a(g6 V\u000a p1046 tp1047 a(g24 V"fastest and most convinient way to find a web app for that object" p1048 tp1049 a(g6 V\u000a p1050 tp1051 a(g353 V^ tp1052 a(g87 Vself p1053 tp1054 a(g6 V tp1055 a(g48 VwebAppFor: p1056 tp1057 a(g6 V tp1058 a(g87 Vself p1059 tp1060 a(g6 V tp1061 a(g48 VfirstSessionFromStack p1062 tp1063 a(g138 V! ! p1064 tp1065 a(g6 V\u000a\u000a p1066 tp1067 a(g138 V! tp1068 a(g133 VObject p1069 tp1070 a(g138 V methodsFor: p1071 tp1072 a(g236 V'*Aida' p1073 tp1074 a(g138 V stamp: 'JM 4/22/2007 15:25'! p1075 tp1076 a(g6 V\u000a tp1077 a(g48 VcontentType p1078 tp1079 a(g6 V\u000a tp1080 a(g6 V\u000a p1081 tp1082 a(g24 V"Janko Mivsek, apr98" p1083 tp1084 a(g6 V\u000a p1085 tp1086 a(g24 V"return 'text/html' as content type for web pages" p1087 tp1088 a(g6 V\u000a\u000a p1089 tp1090 a(g353 V^ tp1091 a(g236 V'text/html' p1092 tp1093 a(g138 V! ! p1094 tp1095 a(g6 V\u000a\u000a p1096 tp1097 a(g138 V! tp1098 a(g133 VObject p1099 tp1100 a(g138 V methodsFor: p1101 tp1102 a(g236 V'*Aida' p1103 tp1104 a(g138 V stamp: 'JM 4/22/2007 15:25'! p1105 tp1106 a(g6 V\u000a tp1107 a(g48 VdeepSearchOfClass: p1108 tp1109 a(g6 V tp1110 a(g100 VaClassName p1111 tp1112 a(g6 V\u000a p1113 tp1114 a(g24 V"finf all objects of that class down in object hierarchy" p1115 tp1116 a(g6 V\u000a p1117 tp1118 a(g353 V| tp1119 a(g100 V objectDictionary class p1120 tp1121 a(g353 V| tp1122 a(g6 V\u000a p1123 tp1124 a(g100 VobjectDictionary p1125 tp1126 a(g6 V tp1127 a(g353 V:= p1128 tp1129 a(g6 V tp1130 a(g133 VIdentityDictionary p1131 tp1132 a(g6 V tp1133 a(g84 Vnew p1134 tp1135 a(g212 V. tp1136 a(g6 V\u000a p1137 tp1138 a(g87 Vself p1139 tp1140 a(g6 V tp1141 a(g48 VdeepCopyNotIn: p1142 tp1143 a(g6 V tp1144 a(g100 VobjectDictionary p1145 tp1146 a(g212 V. tp1147 a(g6 V\u000a p1148 tp1149 a(g100 Vclass p1150 tp1151 a(g6 V tp1152 a(g353 V:= p1153 tp1154 a(g6 V tp1155 a(g100 VaClassName p1156 tp1157 a(g6 V tp1158 a(g48 VasSymbol p1159 tp1160 a(g212 V. tp1161 a(g6 V\u000a p1162 tp1163 a(g353 V^ tp1164 a(g100 VobjectDictionary p1165 tp1166 a(g6 V tp1167 a(g48 Vkeys p1168 tp1169 a(g6 V tp1170 a(g48 Vselect: p1171 tp1172 a(g6 V tp1173 a(g6 V[ tp1174 a(g353 V: tp1175 a(g100 Veach p1176 tp1177 a(g6 V tp1178 a(g353 V| tp1179 a(g6 V tp1180 a(g100 Veach p1181 tp1182 a(g6 V tp1183 a(g48 Vclass p1184 tp1185 a(g6 V tp1186 a(g48 Vname p1187 tp1188 a(g6 V tp1189 a(g48 V= tp1190 a(g6 V tp1191 a(g100 Vclass p1192 tp1193 a(g6 V] tp1194 a(g212 V. tp1195 a(g138 V! ! p1196 tp1197 a(g6 V\u000a\u000a p1198 tp1199 a(g138 V! tp1200 a(g133 VObject p1201 tp1202 a(g138 V methodsFor: p1203 tp1204 a(g236 V'*Aida' p1205 tp1206 a(g138 V stamp: 'JM 4/22/2007 15:26'! p1207 tp1208 a(g6 V\u000a tp1209 a(g48 VdeepSearchOfObsoleteClasses p1210 tp1211 a(g6 V\u000a p1212 tp1213 a(g24 V"find all objects of obsolete classes down in object hierarchy" p1214 tp1215 a(g6 V\u000a p1216 tp1217 a(g353 V| tp1218 a(g100 V objectDictionary p1219 tp1220 a(g353 V| tp1221 a(g6 V\u000a p1222 tp1223 a(g100 VobjectDictionary p1224 tp1225 a(g6 V tp1226 a(g353 V:= p1227 tp1228 a(g6 V tp1229 a(g133 VIdentityDictionary p1230 tp1231 a(g6 V tp1232 a(g84 Vnew p1233 tp1234 a(g212 V. tp1235 a(g6 V\u000a p1236 tp1237 a(g87 Vself p1238 tp1239 a(g6 V tp1240 a(g48 VdeepCopyNotIn: p1241 tp1242 a(g6 V tp1243 a(g100 VobjectDictionary p1244 tp1245 a(g212 V. tp1246 a(g6 V\u000a p1247 tp1248 a(g353 V^ tp1249 a(g100 VobjectDictionary p1250 tp1251 a(g6 V tp1252 a(g48 Vkeys p1253 tp1254 a(g6 V tp1255 a(g48 Vselect: p1256 tp1257 a(g6 V tp1258 a(g6 V[ tp1259 a(g353 V: tp1260 a(g100 Veach p1261 tp1262 a(g6 V tp1263 a(g353 V| tp1264 a(g6 V tp1265 a(g100 Veach p1266 tp1267 a(g6 V tp1268 a(g48 Vclass p1269 tp1270 a(g6 V tp1271 a(g48 VisObsolete p1272 tp1273 a(g6 V] tp1274 a(g212 V. tp1275 a(g138 V! ! p1276 tp1277 a(g6 V\u000a\u000a p1278 tp1279 a(g138 V! tp1280 a(g133 VObject p1281 tp1282 a(g138 V methodsFor: p1283 tp1284 a(g236 V'*Aida' p1285 tp1286 a(g138 V stamp: 'JM 4/22/2007 15:26'! p1287 tp1288 a(g6 V\u000a tp1289 a(g48 VexpiresTimestamp p1290 tp1291 a(g6 V\u000a p1292 tp1293 a(g24 V"until when content of this object wont be changed" p1294 tp1295 a(g6 V\u000a p1296 tp1297 a(g24 V"used in http response, override if you like to be included" p1298 tp1299 a(g6 V\u000a p1300 tp1301 a(g353 V^ tp1302 a(g87 Vself p1303 tp1304 a(g6 V tp1305 a(g48 VmodifiedTimestamp p1306 tp1307 a(g6 V p1308 tp1309 a(g24 V"to reload pages immediately" p1310 tp1311 a(g138 V! ! p1312 tp1313 a(g6 V\u000a\u000a p1314 tp1315 a(g138 V! tp1316 a(g133 VObject p1317 tp1318 a(g138 V methodsFor: p1319 tp1320 a(g236 V'*Aida' p1321 tp1322 a(g138 V stamp: 'JM 4/22/2007 15:26'! p1323 tp1324 a(g6 V\u000a tp1325 a(g48 VfirstAppFromStack p1326 tp1327 a(g6 V\u000a p1328 tp1329 a(g24 V"try to find a first sender up in calling stack, who is WebApplication" p1330 tp1331 a(g6 V\u000a p1332 tp1333 a(g353 V| tp1334 a(g100 V context p1335 tp1336 a(g353 V| tp1337 a(g6 V\u000a p1338 tp1339 a(g100 Vcontext p1340 tp1341 a(g6 V tp1342 a(g353 V:= p1343 tp1344 a(g6 V tp1345 a(g87 VthisContext p1346 tp1347 a(g212 V. tp1348 a(g6 V\u000a p1349 tp1350 a(g6 V[ tp1351 a(g6 V tp1352 a(g100 Vcontext p1353 tp1354 a(g6 V tp1355 a(g48 VnotNil p1356 tp1357 a(g6 V] tp1358 a(g6 V tp1359 a(g84 VwhileTrue: p1360 tp1361 a(g6 V tp1362 a(g6 V[ tp1363 a(g6 V\u000a p1364 tp1365 a(g6 V tp1366 a(g6 V( tp1367 a(g100 Vcontext p1368 tp1369 a(g6 V tp1370 a(g48 Vreceiver p1371 tp1372 a(g6 V tp1373 a(g48 VisKindOf: p1374 tp1375 a(g6 V tp1376 a(g133 VWebApplication p1377 tp1378 a(g6 V) tp1379 a(g6 V tp1380 a(g84 VifTrue: p1381 tp1382 a(g6 V tp1383 a(g6 V[ tp1384 a(g6 V tp1385 a(g353 V^ tp1386 a(g100 Vcontext p1387 tp1388 a(g6 V tp1389 a(g48 Vreceiver p1390 tp1391 a(g6 V] tp1392 a(g212 V. tp1393 a(g6 V\u000a p1394 tp1395 a(g100 Vcontext p1396 tp1397 a(g6 V tp1398 a(g353 V:= p1399 tp1400 a(g6 V tp1401 a(g100 Vcontext p1402 tp1403 a(g6 V tp1404 a(g48 Vsender p1405 tp1406 a(g6 V] tp1407 a(g212 V. tp1408 a(g6 V\u000a p1409 tp1410 a(g353 V^ tp1411 a(g87 Vself p1412 tp1413 a(g6 V tp1414 a(g48 VfirstSessionFromStack p1415 tp1416 a(g6 V tp1417 a(g48 VlastApp p1418 tp1419 a(g138 V! ! p1420 tp1421 a(g6 V\u000a\u000a p1422 tp1423 a(g138 V! tp1424 a(g133 VObject p1425 tp1426 a(g138 V methodsFor: p1427 tp1428 a(g236 V'*Aida' p1429 tp1430 a(g138 V stamp: 'JM 4/25/2007 21:34'! p1431 tp1432 a(g6 V\u000a tp1433 a(g48 VfirstSessionFromStack p1434 tp1435 a(g6 V\u000a p1436 tp1437 a(g24 V"try to find a first sender up in calling stack, who is AIDASite and get session if that call" p1438 tp1439 a(g6 V\u000a p1440 tp1441 a(g353 V| tp1442 a(g100 V context p1443 tp1444 a(g353 V| tp1445 a(g6 V\u000a p1446 tp1447 a(g100 Vcontext p1448 tp1449 a(g6 V tp1450 a(g353 V:= p1451 tp1452 a(g6 V tp1453 a(g87 VthisContext p1454 tp1455 a(g212 V. tp1456 a(g6 V\u000a p1457 tp1458 a(g6 V[ tp1459 a(g6 V tp1460 a(g100 Vcontext p1461 tp1462 a(g6 V tp1463 a(g48 VnotNil p1464 tp1465 a(g6 V] tp1466 a(g6 V tp1467 a(g84 VwhileTrue: p1468 tp1469 a(g6 V tp1470 a(g6 V[ tp1471 a(g6 V\u000a p1472 tp1473 a(g6 V tp1474 a(g6 V( tp1475 a(g100 Vcontext p1476 tp1477 a(g6 V tp1478 a(g48 Vreceiver p1479 tp1480 a(g6 V tp1481 a(g48 VisKindOf: p1482 tp1483 a(g6 V tp1484 a(g133 VAIDASite p1485 tp1486 a(g6 V) tp1487 a(g6 V tp1488 a(g84 VifTrue: p1489 tp1490 a(g6 V p1491 tp1492 a(g6 V[ tp1493 a(g6 V tp1494 a(g353 V^ tp1495 a(g6 V( tp1496 a(g100 Vcontext p1497 tp1498 a(g6 V tp1499 a(g48 Vat: p1500 tp1501 a(g6 V tp1502 a(g223 V3 tp1503 a(g6 V) tp1504 a(g6 V tp1505 a(g24 V"always?" p1506 tp1507 a(g6 V] tp1508 a(g212 V. tp1509 a(g6 V\u000a p1510 tp1511 a(g100 Vcontext p1512 tp1513 a(g6 V tp1514 a(g353 V:= p1515 tp1516 a(g6 V tp1517 a(g100 Vcontext p1518 tp1519 a(g6 V tp1520 a(g48 Vsender p1521 tp1522 a(g6 V] tp1523 a(g212 V. tp1524 a(g6 V\u000a p1525 tp1526 a(g353 V^ tp1527 a(g87 Vnil p1528 tp1529 a(g138 V! ! p1530 tp1531 a(g6 V\u000a\u000a p1532 tp1533 a(g138 V! tp1534 a(g133 VObject p1535 tp1536 a(g138 V methodsFor: p1537 tp1538 a(g236 V'*Aida' p1539 tp1540 a(g138 V stamp: 'mivsek 1/10/2008 18:14'! p1541 tp1542 a(g6 V\u000a tp1543 a(g48 VforLanguage: p1544 tp1545 a(g6 V tp1546 a(g100 VaLanguageCodeSymbol p1547 tp1548 a(g6 V\u000a p1549 tp1550 a(g24 V"for multilingual support: returns an apropriate instance of itself for that language. \u000a Langage is defined by ISO 639 2-letter language code, see \u000a http://en.wikipedia.org/wiki/List_of_ISO_639-1_codes" p1551 tp1552 a(g6 V\u000a p1553 tp1554 a(g353 V^ tp1555 a(g87 Vfalse p1556 tp1557 a(g138 V! ! p1558 tp1559 a(g6 V\u000a\u000a p1560 tp1561 a(g138 V! tp1562 a(g133 VObject p1563 tp1564 a(g138 V methodsFor: p1565 tp1566 a(g236 V'*Aida' p1567 tp1568 a(g138 V stamp: 'mivsek 1/10/2008 18:14'! p1569 tp1570 a(g6 V\u000a tp1571 a(g48 VisMultilingual p1572 tp1573 a(g6 V\u000a p1574 tp1575 a(g24 V"for multilingual support: override this if your domain object responds \u000a to #forLanguage: and returns an apropriate instance of itself for that language" p1576 tp1577 a(g6 V\u000a p1578 tp1579 a(g353 V^ tp1580 a(g87 Vfalse p1581 tp1582 a(g138 V! ! p1583 tp1584 a(g6 V\u000a\u000a p1585 tp1586 a(g138 V! tp1587 a(g133 VObject p1588 tp1589 a(g138 V methodsFor: p1590 tp1591 a(g236 V'*Aida' p1592 tp1593 a(g138 V stamp: 'JM 4/22/2007 15:27'! p1594 tp1595 a(g6 V\u000a tp1596 a(g48 VisVersionedObject p1597 tp1598 a(g6 V\u000a p1599 tp1600 a(g353 V^ tp1601 a(g87 Vfalse p1602 tp1603 a(g138 V! ! p1604 tp1605 a(g6 V\u000a\u000a p1606 tp1607 a(g138 V! tp1608 a(g133 VObject p1609 tp1610 a(g138 V methodsFor: p1611 tp1612 a(g236 V'*Aida' p1613 tp1614 a(g138 V stamp: 'JM 4/22/2007 15:27'! p1615 tp1616 a(g6 V\u000a tp1617 a(g48 VisWebApplication p1618 tp1619 a(g6 V\u000a p1620 tp1621 a(g353 V^ tp1622 a(g87 Vfalse p1623 tp1624 a(g138 V! ! p1625 tp1626 a(g6 V\u000a\u000a p1627 tp1628 a(g138 V! tp1629 a(g133 VObject p1630 tp1631 a(g138 V methodsFor: p1632 tp1633 a(g236 V'*Aida' p1634 tp1635 a(g138 V stamp: 'JM 4/22/2007 15:27'! p1636 tp1637 a(g6 V\u000a tp1638 a(g48 VisWebStyle p1639 tp1640 a(g6 V\u000a p1641 tp1642 a(g353 V^ tp1643 a(g87 Vfalse p1644 tp1645 a(g138 V! ! p1646 tp1647 a(g6 V\u000a\u000a p1648 tp1649 a(g138 V! tp1650 a(g133 VObject p1651 tp1652 a(g138 V methodsFor: p1653 tp1654 a(g236 V'*Aida' p1655 tp1656 a(g138 V stamp: 'JM 4/22/2007 15:27'! p1657 tp1658 a(g6 V\u000a tp1659 a(g48 VmodifiedTimestamp p1660 tp1661 a(g6 V\u000a p1662 tp1663 a(g24 V"when this object was last modified" p1664 tp1665 a(g6 V\u000a p1666 tp1667 a(g24 V"used in http response, override if you like to be included" p1668 tp1669 a(g6 V\u000a p1670 tp1671 a(g353 V^ tp1672 a(g87 Vnil p1673 tp1674 a(g138 V! ! p1675 tp1676 a(g6 V\u000a\u000a p1677 tp1678 a(g138 V! tp1679 a(g133 VObject p1680 tp1681 a(g138 V methodsFor: p1682 tp1683 a(g236 V'*Aida' p1684 tp1685 a(g138 V stamp: 'JM 4/22/2007 15:28'! p1686 tp1687 a(g6 V\u000a tp1688 a(g48 VpreferedUrl p1689 tp1690 a(g6 V\u000a p1691 tp1692 a(g24 V"override with a suggestion for url of this method!! If not already used, \u000a it will be considered by URLResolver during automatic url generation" p1693 tp1694 a(g6 V\u000a p1695 tp1696 a(g353 V^ tp1697 a(g87 Vnil p1698 tp1699 a(g138 V! ! p1700 tp1701 a(g6 V\u000a\u000a p1702 tp1703 a(g138 V! tp1704 a(g133 VObject p1705 tp1706 a(g138 V methodsFor: p1707 tp1708 a(g236 V'*Aida' p1709 tp1710 a(g138 V stamp: 'JM 4/22/2007 15:28'! p1711 tp1712 a(g6 V\u000a tp1713 a(g48 VprintWebAppNotFoundFor: p1714 tp1715 a(g6 V tp1716 a(g100 VaSession p1717 tp1718 a(g6 V \u000a p1719 tp1720 a(g353 V| tp1721 a(g100 V page p1722 tp1723 a(g353 V| tp1724 a(g6 V\u000a p1725 tp1726 a(g100 Vpage p1727 tp1728 a(g6 V tp1729 a(g353 V:= p1730 tp1731 a(g6 V tp1732 a(g133 VWebPage p1733 tp1734 a(g6 V tp1735 a(g84 Vnew p1736 tp1737 a(g212 V. tp1738 a(g6 V\u000a p1739 tp1740 a(g100 Vpage p1741 tp1742 a(g6 V tp1743 a(g48 VaddText: p1744 tp1745 a(g6 V tp1746 a(g236 V'Cannot find aWebApplication for object a' p1747 tp1748 a(g48 V, tp1749 a(g6 V tp1750 a(g87 Vself p1751 tp1752 a(g6 V tp1753 a(g48 Vclass p1754 tp1755 a(g6 V tp1756 a(g48 Vname p1757 tp1758 a(g212 V. tp1759 a(g6 V\u000a p1760 tp1761 a(g353 V^ tp1762 a(g100 Vpage p1763 tp1764 a(g138 V! ! p1765 tp1766 a(g6 V\u000a\u000a p1767 tp1768 a(g138 V! tp1769 a(g133 VObject p1770 tp1771 a(g138 V methodsFor: p1772 tp1773 a(g236 V'*Aida' p1774 tp1775 a(g138 V stamp: 'JM 4/22/2007 15:28'! p1776 tp1777 a(g6 V\u000a tp1778 a(g48 VprintWebPageFor: p1779 tp1780 a(g6 V tp1781 a(g100 VaSession p1782 tp1783 a(g6 V \u000a p1784 tp1785 a(g24 V"find appropriate web application to represent self as web page" p1786 tp1787 a(g6 V\u000a\u000a p1788 tp1789 a(g353 V| tp1790 a(g100 V webApp p1791 tp1792 a(g353 V| tp1793 a(g6 V\u000a p1794 tp1795 a(g100 VwebApp p1796 tp1797 a(g6 V tp1798 a(g353 V:= p1799 tp1800 a(g6 V tp1801 a(g87 Vself p1802 tp1803 a(g6 V tp1804 a(g48 VwebAppFor: p1805 tp1806 a(g6 V tp1807 a(g100 VaSession p1808 tp1809 a(g212 V. tp1810 a(g6 V\u000a p1811 tp1812 a(g353 V^ tp1813 a(g100 VwebApp p1814 tp1815 a(g6 V tp1816 a(g48 VnotNil p1817 tp1818 a(g6 V \u000a p1819 tp1820 a(g84 VifTrue: p1821 tp1822 a(g6 V tp1823 a(g6 V[ tp1824 a(g6 V tp1825 a(g100 VwebApp p1826 tp1827 a(g6 V tp1828 a(g48 VprintWebPage p1829 tp1830 a(g6 V] tp1831 a(g6 V\u000a p1832 tp1833 a(g84 VifFalse: p1834 tp1835 a(g6 V tp1836 a(g6 V[ tp1837 a(g6 V tp1838 a(g87 Vself p1839 tp1840 a(g6 V tp1841 a(g48 VprintWebAppNotFoundFor: p1842 tp1843 a(g6 V tp1844 a(g100 VaSession p1845 tp1846 a(g6 V] tp1847 a(g138 V! ! p1848 tp1849 a(g6 V\u000a\u000a p1850 tp1851 a(g138 V! tp1852 a(g133 VObject p1853 tp1854 a(g138 V methodsFor: p1855 tp1856 a(g236 V'*Aida' p1857 tp1858 a(g138 V stamp: 'JM 4/22/2007 15:29'! p1859 tp1860 a(g6 V\u000a tp1861 a(g48 VsendOver: p1862 tp1863 a(g6 V tp1864 a(g100 VaStream p1865 tp1866 a(g6 V \u000a p1867 tp1868 a(g24 V"from Wiki rendering" p1869 tp1870 a(g6 V\u000a p1871 tp1872 a(g87 Vself p1873 tp1874 a(g6 V tp1875 a(g48 VprintOn: p1876 tp1877 a(g6 V tp1878 a(g100 VaStream p1879 tp1880 a(g138 V! ! p1881 tp1882 a(g6 V\u000a\u000a p1883 tp1884 a(g138 V! tp1885 a(g133 VObject p1886 tp1887 a(g138 V methodsFor: p1888 tp1889 a(g236 V'*Aida' p1890 tp1891 a(g138 V stamp: 'JM 4/22/2007 15:29'! p1892 tp1893 a(g6 V\u000a tp1894 a(g48 VwebAppFor: p1895 tp1896 a(g6 V tp1897 a(g100 VaSession p1898 tp1899 a(g6 V\u000a p1900 tp1901 a(g353 V| tp1902 a(g100 V webApp p1903 tp1904 a(g353 V| tp1905 a(g6 V\u000a p1906 tp1907 a(g100 VaSession p1908 tp1909 a(g6 V tp1910 a(g48 VisNil p1911 tp1912 a(g6 V tp1913 a(g84 VifTrue: p1914 tp1915 a(g6 V tp1916 a(g6 V[ tp1917 a(g6 V tp1918 a(g353 V^ tp1919 a(g87 Vnil p1920 tp1921 a(g6 V] tp1922 a(g212 V. tp1923 a(g6 V\u000a p1924 tp1925 a(g100 VwebApp p1926 tp1927 a(g6 V tp1928 a(g353 V:= p1929 tp1930 a(g6 V tp1931 a(g100 VaSession p1932 tp1933 a(g6 V tp1934 a(g48 VwebAppFor: p1935 tp1936 a(g6 V tp1937 a(g87 Vself p1938 tp1939 a(g212 V. tp1940 a(g6 V\u000a p1941 tp1942 a(g100 VwebApp p1943 tp1944 a(g6 V tp1945 a(g48 VnotNil p1946 tp1947 a(g6 V tp1948 a(g84 VifTrue: p1949 tp1950 a(g6 V tp1951 a(g6 V[ tp1952 a(g6 V tp1953 a(g353 V^ tp1954 a(g100 VwebApp p1955 tp1956 a(g6 V] tp1957 a(g212 V. tp1958 a(g6 V\u000a p1959 tp1960 a(g100 VwebApp p1961 tp1962 a(g6 V tp1963 a(g353 V:= p1964 tp1965 a(g6 V tp1966 a(g133 VWebApplication p1967 tp1968 a(g6 V tp1969 a(g48 VnewFor: p1970 tp1971 a(g6 V tp1972 a(g87 Vself p1973 tp1974 a(g6 V tp1975 a(g48 Von: p1976 tp1977 a(g6 V tp1978 a(g100 VaSession p1979 tp1980 a(g212 V. tp1981 a(g6 V\u000a p1982 tp1983 a(g100 VwebApp p1984 tp1985 a(g6 V tp1986 a(g48 VnotNil p1987 tp1988 a(g6 V tp1989 a(g84 VifTrue: p1990 tp1991 a(g6 V tp1992 a(g6 V[ tp1993 a(g6 V tp1994 a(g100 VaSession p1995 tp1996 a(g6 V tp1997 a(g48 VaddWebApp: p1998 tp1999 a(g6 V tp2000 a(g100 VwebApp p2001 tp2002 a(g6 V tp2003 a(g48 Vfor: p2004 tp2005 a(g6 V tp2006 a(g87 Vself p2007 tp2008 a(g6 V] tp2009 a(g212 V. tp2010 a(g6 V\u000a p2011 tp2012 a(g353 V^ tp2013 a(g100 VwebApp p2014 tp2015 a(g138 V! ! p2016 tp2017 a(g6 V\u000a\u000a\u000a p2018 tp2019 a(g138 V! tp2020 a(g133 VObject p2021 tp2022 a(g138 V methodsFor: p2023 tp2024 a(g236 V'*DynamicBindings' p2025 tp2026 a(g138 V stamp: 'svp 3/6/2003 16:08'! p2027 tp2028 a(g6 V\u000a tp2029 a(g48 Vbinding p2030 tp2031 a(g6 V\u000a p2032 tp2033 a(g24 V"Answer the DynamicBinding for the receiver (if any)" p2034 tp2035 a(g6 V\u000a\u000a p2036 tp2037 a(g353 V^ tp2038 a(g133 VBindings p2039 tp2040 a(g6 V tp2041 a(g48 VbindingFor: p2042 tp2043 a(g6 V tp2044 a(g87 Vself p2045 tp2046 a(g6 V tp2047 a(g48 VifNotBound: p2048 tp2049 a(g6 V tp2050 a(g6 V[ tp2051 a(g6 V tp2052 a(g87 Vnil p2053 tp2054 a(g6 V] tp2055 a(g138 V! ! p2056 tp2057 a(g6 V\u000a\u000a p2058 tp2059 a(g138 V! tp2060 a(g133 VObject p2061 tp2062 a(g138 V methodsFor: p2063 tp2064 a(g236 V'*DynamicBindings' p2065 tp2066 a(g138 V stamp: 'svp 4/29/2003 00:35'! p2067 tp2068 a(g6 V\u000a tp2069 a(g48 Vbinding: p2070 tp2071 a(g6 V tp2072 a(g100 VanObject p2073 tp2074 a(g6 V\u000a p2075 tp2076 a(g24 V"Set the dynamic binding for the receiver, if anObject is nil, then \u000a remove the receiver's dynamic binding (if any)" p2077 tp2078 a(g6 V\u000a\u000a p2079 tp2080 a(g353 V^ tp2081 a(g100 VanObject p2082 tp2083 a(g6 V \u000a p2084 tp2085 a(g48 VifNil: p2086 tp2087 a(g6 V tp2088 a(g6 V[ tp2089 a(g6 V tp2090 a(g87 Vself p2091 tp2092 a(g6 V tp2093 a(g48 VremoveBinding p2094 tp2095 a(g6 V] tp2096 a(g6 V\u000a p2097 tp2098 a(g48 VifNotNil: p2099 tp2100 a(g6 V tp2101 a(g6 V[ tp2102 a(g6 V tp2103 a(g133 VBindings p2104 tp2105 a(g6 V tp2106 a(g48 Vbind: p2107 tp2108 a(g6 V tp2109 a(g87 Vself p2110 tp2111 a(g6 V tp2112 a(g48 Vto: p2113 tp2114 a(g6 V tp2115 a(g100 VanObject p2116 tp2117 a(g6 V] tp2118 a(g138 V! ! p2119 tp2120 a(g6 V\u000a\u000a p2121 tp2122 a(g138 V! tp2123 a(g133 VObject p2124 tp2125 a(g138 V methodsFor: p2126 tp2127 a(g236 V'*DynamicBindings' p2128 tp2129 a(g138 V stamp: 'svp 3/6/2003 16:09'! p2130 tp2131 a(g6 V\u000a tp2132 a(g48 VhasBinding p2133 tp2134 a(g6 V\u000a p2135 tp2136 a(g24 V"Answer whether or not the receiver has a dynamic binding" p2137 tp2138 a(g6 V\u000a\u000a p2139 tp2140 a(g353 V^ tp2141 a(g133 VBindings p2142 tp2143 a(g6 V tp2144 a(g48 VincludesKey: p2145 tp2146 a(g6 V tp2147 a(g87 Vself p2148 tp2149 a(g138 V! ! p2150 tp2151 a(g6 V\u000a\u000a p2152 tp2153 a(g138 V! tp2154 a(g133 VObject p2155 tp2156 a(g138 V methodsFor: p2157 tp2158 a(g236 V'*DynamicBindings' p2159 tp2160 a(g138 V stamp: 'svp 3/6/2003 16:09'! p2161 tp2162 a(g6 V\u000a tp2163 a(g48 VremoveBinding p2164 tp2165 a(g6 V\u000a p2166 tp2167 a(g24 V"Remove the dynamic binding associated with the receiver" p2168 tp2169 a(g6 V\u000a\u000a p2170 tp2171 a(g353 V^ tp2172 a(g133 VBindings p2173 tp2174 a(g6 V tp2175 a(g48 VremoveKey: p2176 tp2177 a(g6 V tp2178 a(g87 Vself p2179 tp2180 a(g6 V tp2181 a(g48 VifAbsent: p2182 tp2183 a(g6 V tp2184 a(g6 V[ tp2185 a(g6 V tp2186 a(g6 V] tp2187 a(g138 V! ! p2188 tp2189 a(g6 V\u000a\u000a\u000a p2190 tp2191 a(g138 V! tp2192 a(g133 VObject p2193 tp2194 a(g138 V methodsFor: p2195 tp2196 a(g236 V'*KomHttpServer' p2197 tp2198 a(g138 V stamp: 'SVP 8/23/1999 19:17'! p2199 tp2200 a(g6 V\u000a tp2201 a(g48 VasHtmlDocumentForRequest: p2202 tp2203 a(g6 V tp2204 a(g100 VaNetworkRequest p2205 tp2206 a(g6 V\u000a\u000a p2207 tp2208 a(g87 Vself p2209 tp2210 a(g6 V tp2211 a(g48 Verror: p2212 tp2213 a(g6 V \u000a p2214 tp2215 a(g6 V( tp2216 a(g236 V'The requested object (' p2217 tp2218 a(g48 V, tp2219 a(g6 V \u000a p2220 tp2221 a(g87 Vself p2222 tp2223 a(g6 V tp2224 a(g48 VasString p2225 tp2226 a(g48 V, tp2227 a(g6 V \u000a p2228 tp2229 a(g236 V'), could not be converted into HTML for your browser.' p2230 tp2231 a(g6 V) tp2232 a(g138 V! ! p2233 tp2234 a(g6 V\u000a\u000a p2235 tp2236 a(g138 V! tp2237 a(g133 VObject p2238 tp2239 a(g138 V methodsFor: p2240 tp2241 a(g236 V'*KomHttpServer' p2242 tp2243 a(g138 V stamp: 'SVP 8/23/1999 19:23'! p2244 tp2245 a(g6 V\u000a tp2246 a(g48 VasHttpResponseTo: p2247 tp2248 a(g6 V tp2249 a(g100 VanHttpRequest p2250 tp2251 a(g6 V\u000a\u000a p2252 tp2253 a(g353 V^ tp2254 a(g6 V( tp2255 a(g87 Vself p2256 tp2257 a(g6 V tp2258 a(g48 VasHtmlDocumentForRequest: p2259 tp2260 a(g6 V tp2261 a(g100 VanHttpRequest p2262 tp2263 a(g6 V) tp2264 a(g6 V \u000a p2265 tp2266 a(g48 VasHttpResponseTo: p2267 tp2268 a(g6 V tp2269 a(g100 VanHttpRequest p2270 tp2271 a(g6 V\u000a tp2272 a(g138 V! ! p2273 tp2274 a(g6 V\u000a\u000a p2275 tp2276 a(g138 V! tp2277 a(g133 VObject p2278 tp2279 a(g138 V methodsFor: p2280 tp2281 a(g236 V'*KomHttpServer' p2282 tp2283 a(g138 V stamp: 'svp 5/16/2003 12:47'! p2284 tp2285 a(g6 V\u000a tp2286 a(g48 VisComancheModule p2287 tp2288 a(g6 V\u000a tp2289 a(g6 V\u000a p2290 tp2291 a(g353 V^ tp2292 a(g87 Vfalse p2293 tp2294 a(g138 V! ! p2295 tp2296 a(g6 V\u000a\u000a p2297 tp2298 a(g138 V! tp2299 a(g133 VObject p2300 tp2301 a(g138 V methodsFor: p2302 tp2303 a(g236 V'*KomHttpServer' p2304 tp2305 a(g138 V stamp: 'SVP 8/17/1999 17:51'! p2306 tp2307 a(g6 V\u000a tp2308 a(g48 VmimeType p2309 tp2310 a(g6 V\u000a tp2311 a(g6 V\u000a p2312 tp2313 a(g353 V^ tp2314 a(g133 VMIMEDocument p2315 tp2316 a(g6 V tp2317 a(g48 VdefaultContentType p2318 tp2319 a(g138 V! ! p2320 tp2321 a(g6 V\u000a\u000a\u000a p2322 tp2323 a(g138 V! tp2324 a(g133 VObject p2325 tp2326 a(g138 V methodsFor: p2327 tp2328 a(g236 V'*Morphic-NewCurve-testing' p2329 tp2330 a(g138 V'' stamp: 'wiz 12/31/2005 21:31'! p2331 tp2332 a(g6 V\u000a tp2333 a(g48 VisNonZero p2334 tp2335 a(g6 V\u000a tp2336 a(g24 V"Overriden in Number. This returns the backstop answer for non-numbers" p2337 tp2338 a(g6 V\u000a tp2339 a(g353 V^ tp2340 a(g87 Vfalse p2341 tp2342 a(g212 V. tp2343 a(g138 V! ! p2344 tp2345 a(g6 V\u000a\u000a\u000a p2346 tp2347 a(g138 V! tp2348 a(g133 VObject p2349 tp2350 a(g138 V methodsFor: p2351 tp2352 a(g236 V'*Pinesoft-EventEnhancements' p2353 tp2354 a(g138 V stamp: 'gvc 10/25/2006 18:18'! p2355 tp2356 a(g6 V\u000a tp2357 a(g48 Vwhen: p2358 tp2359 a(g6 V tp2360 a(g100 VanEventSelector p2361 tp2362 a(g6 V\u000a tp2363 a(g48 Vsend: p2364 tp2365 a(g6 V tp2366 a(g100 VaMessageSelector p2367 tp2368 a(g6 V\u000a tp2369 a(g48 Vto: p2370 tp2371 a(g6 V tp2372 a(g100 VanObject p2373 tp2374 a(g6 V\u000a tp2375 a(g48 Vexclusive: p2376 tp2377 a(g6 V tp2378 a(g100 VaValueHolder p2379 tp2380 a(g6 V\u000a \u000a p2381 tp2382 a(g87 Vself p2383 tp2384 a(g6 V\u000a p2385 tp2386 a(g48 Vwhen: p2387 tp2388 a(g6 V tp2389 a(g100 VanEventSelector p2390 tp2391 a(g6 V\u000a p2392 tp2393 a(g48 Vevaluate: p2394 tp2395 a(g6 V tp2396 a(g6 V( tp2397 a(g6 V( tp2398 a(g133 VExclusiveWeakMessageSend p2399 tp2400 a(g6 V\u000a p2401 tp2402 a(g48 Vreceiver: p2403 tp2404 a(g6 V tp2405 a(g100 VanObject p2406 tp2407 a(g6 V\u000a p2408 tp2409 a(g48 Vselector: p2410 tp2411 a(g6 V tp2412 a(g100 VaMessageSelector p2413 tp2414 a(g6 V) tp2415 a(g6 V\u000a p2416 tp2417 a(g48 VbasicExecuting: p2418 tp2419 a(g6 V tp2420 a(g100 VaValueHolder p2421 tp2422 a(g6 V) tp2423 a(g138 V! ! p2424 tp2425 a(g6 V\u000a\u000a p2426 tp2427 a(g138 V! tp2428 a(g133 VObject p2429 tp2430 a(g138 V methodsFor: p2431 tp2432 a(g236 V'*Pinesoft-EventEnhancements' p2433 tp2434 a(g138 V stamp: 'gvc 10/25/2006 18:17'! p2435 tp2436 a(g6 V\u000a tp2437 a(g48 Vwhen: p2438 tp2439 a(g6 V tp2440 a(g100 VanEventSelector p2441 tp2442 a(g6 V\u000a tp2443 a(g48 Vsend: p2444 tp2445 a(g6 V tp2446 a(g100 VaMessageSelector p2447 tp2448 a(g6 V\u000a tp2449 a(g48 Vto: p2450 tp2451 a(g6 V tp2452 a(g100 VanObject p2453 tp2454 a(g6 V\u000a tp2455 a(g48 Vwith: p2456 tp2457 a(g6 V tp2458 a(g100 VanArg p2459 tp2460 a(g6 V\u000a tp2461 a(g48 Vexclusive: p2462 tp2463 a(g6 V tp2464 a(g100 VaValueHolder p2465 tp2466 a(g6 V\u000a \u000a p2467 tp2468 a(g87 Vself p2469 tp2470 a(g6 V\u000a p2471 tp2472 a(g48 Vwhen: p2473 tp2474 a(g6 V tp2475 a(g100 VanEventSelector p2476 tp2477 a(g6 V\u000a p2478 tp2479 a(g48 Vevaluate: p2480 tp2481 a(g6 V tp2482 a(g6 V( tp2483 a(g6 V( tp2484 a(g133 VExclusiveWeakMessageSend p2485 tp2486 a(g6 V\u000a p2487 tp2488 a(g48 Vreceiver: p2489 tp2490 a(g6 V tp2491 a(g100 VanObject p2492 tp2493 a(g6 V\u000a p2494 tp2495 a(g48 Vselector: p2496 tp2497 a(g6 V tp2498 a(g100 VaMessageSelector p2499 tp2500 a(g6 V\u000a p2501 tp2502 a(g48 Varguments: p2503 tp2504 a(g6 V tp2505 a(g6 V( tp2506 a(g133 VArray p2507 tp2508 a(g6 V tp2509 a(g48 Vwith: p2510 tp2511 a(g6 V tp2512 a(g100 VanArg p2513 tp2514 a(g6 V) tp2515 a(g6 V) tp2516 a(g6 V\u000a p2517 tp2518 a(g48 VbasicExecuting: p2519 tp2520 a(g6 V tp2521 a(g100 VaValueHolder p2522 tp2523 a(g6 V) tp2524 a(g138 V! ! p2525 tp2526 a(g6 V\u000a\u000a p2527 tp2528 a(g138 V! tp2529 a(g133 VObject p2530 tp2531 a(g138 V methodsFor: p2532 tp2533 a(g236 V'*Pinesoft-EventEnhancements' p2534 tp2535 a(g138 V stamp: 'gvc 10/25/2006 18:17'! p2536 tp2537 a(g6 V\u000a tp2538 a(g48 Vwhen: p2539 tp2540 a(g6 V tp2541 a(g100 VanEventSelector p2542 tp2543 a(g6 V\u000a tp2544 a(g48 Vsend: p2545 tp2546 a(g6 V tp2547 a(g100 VaMessageSelector p2548 tp2549 a(g6 V\u000a tp2550 a(g48 Vto: p2551 tp2552 a(g6 V tp2553 a(g100 VanObject p2554 tp2555 a(g6 V\u000a tp2556 a(g48 VwithArguments: p2557 tp2558 a(g6 V tp2559 a(g100 VanArgArray p2560 tp2561 a(g6 V\u000a tp2562 a(g48 Vexclusive: p2563 tp2564 a(g6 V tp2565 a(g100 VaValueHolder p2566 tp2567 a(g6 V\u000a \u000a p2568 tp2569 a(g87 Vself p2570 tp2571 a(g6 V\u000a p2572 tp2573 a(g48 Vwhen: p2574 tp2575 a(g6 V tp2576 a(g100 VanEventSelector p2577 tp2578 a(g6 V\u000a p2579 tp2580 a(g48 Vevaluate: p2581 tp2582 a(g6 V tp2583 a(g6 V( tp2584 a(g6 V( tp2585 a(g133 VExclusiveWeakMessageSend p2586 tp2587 a(g6 V\u000a p2588 tp2589 a(g48 Vreceiver: p2590 tp2591 a(g6 V tp2592 a(g100 VanObject p2593 tp2594 a(g6 V\u000a p2595 tp2596 a(g48 Vselector: p2597 tp2598 a(g6 V tp2599 a(g100 VaMessageSelector p2600 tp2601 a(g6 V\u000a p2602 tp2603 a(g48 Varguments: p2604 tp2605 a(g6 V tp2606 a(g100 VanArgArray p2607 tp2608 a(g6 V) tp2609 a(g6 V\u000a p2610 tp2611 a(g48 VbasicExecuting: p2612 tp2613 a(g6 V tp2614 a(g100 VaValueHolder p2615 tp2616 a(g6 V) tp2617 a(g138 V! ! p2618 tp2619 a(g6 V\u000a\u000a p2620 tp2621 a(g138 V! tp2622 a(g133 VObject p2623 tp2624 a(g138 V methodsFor: p2625 tp2626 a(g236 V'*Pinesoft-EventEnhancements' p2627 tp2628 a(g138 V stamp: 'gvc 10/24/2006 11:50'! p2629 tp2630 a(g6 V\u000a tp2631 a(g48 Vwhen: p2632 tp2633 a(g6 V tp2634 a(g100 VanEventSelector p2635 tp2636 a(g6 V\u000a tp2637 a(g48 VsendOnce: p2638 tp2639 a(g6 V tp2640 a(g100 VaMessageSelector p2641 tp2642 a(g6 V\u000a tp2643 a(g48 Vto: p2644 tp2645 a(g6 V tp2646 a(g100 VanObject p2647 tp2648 a(g6 V\u000a \u000a p2649 tp2650 a(g87 Vself p2651 tp2652 a(g6 V\u000a p2653 tp2654 a(g48 Vwhen: p2655 tp2656 a(g6 V tp2657 a(g100 VanEventSelector p2658 tp2659 a(g6 V\u000a p2660 tp2661 a(g48 Vevaluate: p2662 tp2663 a(g6 V tp2664 a(g6 V( tp2665 a(g133 VNonReentrantWeakMessageSend p2666 tp2667 a(g6 V\u000a p2668 tp2669 a(g48 Vreceiver: p2670 tp2671 a(g6 V tp2672 a(g100 VanObject p2673 tp2674 a(g6 V\u000a p2675 tp2676 a(g48 Vselector: p2677 tp2678 a(g6 V tp2679 a(g100 VaMessageSelector p2680 tp2681 a(g6 V) tp2682 a(g138 V! ! p2683 tp2684 a(g6 V\u000a\u000a p2685 tp2686 a(g138 V! tp2687 a(g133 VObject p2688 tp2689 a(g138 V methodsFor: p2690 tp2691 a(g236 V'*Pinesoft-EventEnhancements' p2692 tp2693 a(g138 V stamp: 'gvc 10/24/2006 11:49'! p2694 tp2695 a(g6 V\u000a tp2696 a(g48 Vwhen: p2697 tp2698 a(g6 V tp2699 a(g100 VanEventSelector p2700 tp2701 a(g6 V\u000a tp2702 a(g48 VsendOnce: p2703 tp2704 a(g6 V tp2705 a(g100 VaMessageSelector p2706 tp2707 a(g6 V\u000a tp2708 a(g48 Vto: p2709 tp2710 a(g6 V tp2711 a(g100 VanObject p2712 tp2713 a(g6 V\u000a tp2714 a(g48 Vwith: p2715 tp2716 a(g6 V tp2717 a(g100 VanArg p2718 tp2719 a(g6 V\u000a \u000a p2720 tp2721 a(g87 Vself p2722 tp2723 a(g6 V\u000a p2724 tp2725 a(g48 Vwhen: p2726 tp2727 a(g6 V tp2728 a(g100 VanEventSelector p2729 tp2730 a(g6 V\u000a p2731 tp2732 a(g48 Vevaluate: p2733 tp2734 a(g6 V tp2735 a(g6 V( tp2736 a(g133 VNonReentrantWeakMessageSend p2737 tp2738 a(g6 V\u000a p2739 tp2740 a(g48 Vreceiver: p2741 tp2742 a(g6 V tp2743 a(g100 VanObject p2744 tp2745 a(g6 V\u000a p2746 tp2747 a(g48 Vselector: p2748 tp2749 a(g6 V tp2750 a(g100 VaMessageSelector p2751 tp2752 a(g6 V\u000a p2753 tp2754 a(g48 Varguments: p2755 tp2756 a(g6 V tp2757 a(g6 V( tp2758 a(g133 VArray p2759 tp2760 a(g6 V tp2761 a(g48 Vwith: p2762 tp2763 a(g6 V tp2764 a(g100 VanArg p2765 tp2766 a(g6 V) tp2767 a(g6 V) tp2768 a(g138 V! ! p2769 tp2770 a(g6 V\u000a\u000a p2771 tp2772 a(g138 V! tp2773 a(g133 VObject p2774 tp2775 a(g138 V methodsFor: p2776 tp2777 a(g236 V'*Pinesoft-EventEnhancements' p2778 tp2779 a(g138 V stamp: 'gvc 10/24/2006 11:49'! p2780 tp2781 a(g6 V\u000a tp2782 a(g48 Vwhen: p2783 tp2784 a(g6 V tp2785 a(g100 VanEventSelector p2786 tp2787 a(g6 V\u000a tp2788 a(g48 VsendOnce: p2789 tp2790 a(g6 V tp2791 a(g100 VaMessageSelector p2792 tp2793 a(g6 V\u000a tp2794 a(g48 Vto: p2795 tp2796 a(g6 V tp2797 a(g100 VanObject p2798 tp2799 a(g6 V\u000a tp2800 a(g48 VwithArguments: p2801 tp2802 a(g6 V tp2803 a(g100 VanArgArray p2804 tp2805 a(g6 V\u000a \u000a p2806 tp2807 a(g87 Vself p2808 tp2809 a(g6 V\u000a p2810 tp2811 a(g48 Vwhen: p2812 tp2813 a(g6 V tp2814 a(g100 VanEventSelector p2815 tp2816 a(g6 V\u000a p2817 tp2818 a(g48 Vevaluate: p2819 tp2820 a(g6 V tp2821 a(g6 V( tp2822 a(g133 VNonReentrantWeakMessageSend p2823 tp2824 a(g6 V\u000a p2825 tp2826 a(g48 Vreceiver: p2827 tp2828 a(g6 V tp2829 a(g100 VanObject p2830 tp2831 a(g6 V\u000a p2832 tp2833 a(g48 Vselector: p2834 tp2835 a(g6 V tp2836 a(g100 VaMessageSelector p2837 tp2838 a(g6 V\u000a p2839 tp2840 a(g48 Varguments: p2841 tp2842 a(g6 V tp2843 a(g100 VanArgArray p2844 tp2845 a(g6 V) tp2846 a(g138 V! ! p2847 tp2848 a(g6 V\u000a\u000a\u000a p2849 tp2850 a(g138 V! tp2851 a(g133 VObject p2852 tp2853 a(g138 V methodsFor: p2854 tp2855 a(g236 V'*Pinesoft-Widgets' p2856 tp2857 a(g138 V stamp: 'gvc 1/10/2007 11:41'! p2858 tp2859 a(g6 V\u000a tp2860 a(g48 VokToClose p2861 tp2862 a(g6 V\u000a p2863 tp2864 a(g24 V"Sent to models when a window closing.\u000a Allows this check to be independent of okToChange." p2865 tp2866 a(g6 V\u000a \u000a p2867 tp2868 a(g353 V^ tp2869 a(g87 Vtrue p2870 tp2871 a(g138 V! ! p2872 tp2873 a(g6 V\u000a\u000a p2874 tp2875 a(g138 V! tp2876 a(g133 VObject p2877 tp2878 a(g138 V methodsFor: p2879 tp2880 a(g236 V'*Pinesoft-Widgets' p2881 tp2882 a(g138 V stamp: 'gvc 4/17/2007 17:41'! p2883 tp2884 a(g6 V\u000a tp2885 a(g48 VtaskbarIcon p2886 tp2887 a(g6 V\u000a p2888 tp2889 a(g24 V"Answer the icon for the receiver in a task bar\u000a or nil for the default." p2890 tp2891 a(g6 V\u000a\u000a p2892 tp2893 a(g353 V^ tp2894 a(g87 Vself p2895 tp2896 a(g6 V tp2897 a(g48 Vclass p2898 tp2899 a(g6 V tp2900 a(g48 VtaskbarIcon p2901 tp2902 a(g138 V! ! p2903 tp2904 a(g6 V\u000a\u000a\u000a p2905 tp2906 a(g138 V! tp2907 a(g133 VObject p2908 tp2909 a(g138 V methodsFor: p2910 tp2911 a(g236 V'*Pinesoft-Widgets-override' p2912 tp2913 a(g138 V stamp: 'gvc 9/4/2007 12:32'! p2914 tp2915 a(g6 V\u000a tp2916 a(g48 VwindowActiveOnFirstClick p2917 tp2918 a(g6 V\u000a p2919 tp2920 a(g24 V"Return true if my window should be active on first click." p2921 tp2922 a(g6 V\u000a\u000a p2923 tp2924 a(g353 V^ tp2925 a(g87 Vtrue p2926 tp2927 a(g138 V! ! p2928 tp2929 a(g6 V\u000a\u000a\u000a p2930 tp2931 a(g138 V! tp2932 a(g133 VObject p2933 tp2934 a(g138 V methodsFor: p2935 tp2936 a(g236 V'*SeasideAdaptersCompatibility' p2937 tp2938 a(g138 V stamp: 'pmm 11/25/2007 14:17'! p2939 tp2940 a(g6 V\u000a tp2941 a(g48 VtoString p2942 tp2943 a(g6 V\u000a p2944 tp2945 a(g353 V^ tp2946 a(g87 Vself p2947 tp2948 a(g138 V! ! p2949 tp2950 a(g6 V\u000a\u000a\u000a p2951 tp2952 a(g138 V! tp2953 a(g133 VObject p2954 tp2955 a(g138 V methodsFor: p2956 tp2957 a(g236 V'*Tools-Explorer' p2958 tp2959 a(g138 V stamp: 'stephaneducasse 9/17/2005 21:52'! p2960 tp2961 a(g6 V\u000a tp2962 a(g48 VexploreAndYourself p2963 tp2964 a(g6 V\u000a p2965 tp2966 a(g24 V"i.e. explore; yourself. Thisway i can peek w/o typing all the parentheses" p2967 tp2968 a(g6 V\u000a p2969 tp2970 a(g87 Vself p2971 tp2972 a(g6 V tp2973 a(g48 Vexplore p2974 tp2975 a(g212 V. tp2976 a(g6 V \u000a p2977 tp2978 a(g353 V^ tp2979 a(g87 Vself p2980 tp2981 a(g138 V! ! p2982 tp2983 a(g6 V\u000a\u000a p2984 tp2985 a(g138 V! tp2986 a(g133 VObject p2987 tp2988 a(g138 V methodsFor: p2989 tp2990 a(g236 V'*Tools-Explorer' p2991 tp2992 a(g138 V stamp: 'stephaneducasse 9/17/2005 21:48'! p2993 tp2994 a(g6 V\u000a tp2995 a(g48 VexploreWithLabel: p2996 tp2997 a(g6 V tp2998 a(g100 Vlabel p2999 tp3000 a(g6 V\u000a\u000a p3001 tp3002 a(g353 V^ tp3003 a(g6 V tp3004 a(g133 VObjectExplorer p3005 tp3006 a(g6 V tp3007 a(g84 Vnew p3008 tp3009 a(g6 V tp3010 a(g48 VopenExplorerFor: p3011 tp3012 a(g6 V tp3013 a(g87 Vself p3014 tp3015 a(g6 V tp3016 a(g48 VwithLabel: p3017 tp3018 a(g6 V\u000a tp3019 a(g100 Vlabel p3020 tp3021 a(g138 V! ! p3022 tp3023 a(g6 V\u000a\u000a\u000a p3024 tp3025 a(g138 V! tp3026 a(g133 VObject p3027 tp3028 a(g138 V methodsFor: p3029 tp3030 a(g236 V'*kernel-extensions-flagging' p3031 tp3032 a(g138 V stamp: 'mtf 1/26/2008 23:34'! p3033 tp3034 a(g6 V\u000a tp3035 a(g48 Vdeprecated p3036 tp3037 a(g6 V\u000a p3038 tp3039 a(g24 V"Warn that the sending method has been deprecated." p3040 tp3041 a(g6 V\u000a\u000a p3042 tp3043 a(g133 VPreferences p3044 tp3045 a(g6 V tp3046 a(g48 VshowDeprecationWarnings p3047 tp3048 a(g6 V tp3049 a(g84 VifTrue: p3050 tp3051 a(g6 V\u000a p3052 tp3053 a(g6 V[ tp3054 a(g6 V tp3055 a(g133 VDeprecation p3056 tp3057 a(g6 V tp3058 a(g48 Vsignal: p3059 tp3060 a(g6 V tp3061 a(g87 VthisContext p3062 tp3063 a(g6 V tp3064 a(g48 Vsender p3065 tp3066 a(g6 V tp3067 a(g48 VprintString p3068 tp3069 a(g48 V, tp3070 a(g6 V tp3071 a(g236 V' has been deprecated.' p3072 tp3073 a(g6 V] tp3074 a(g138 V! ! p3075 tp3076 a(g6 V\u000a\u000a\u000a p3077 tp3078 a(g138 V! tp3079 a(g133 VObject p3080 tp3081 a(g138 V methodsFor: p3082 tp3083 a(g236 V'*kernel-extensions-flexibility' p3084 tp3085 a(g138 V stamp: 'kph 1/27/2008 19:21'! p3086 tp3087 a(g6 V\u000a tp3088 a(g48 VaskFor: p3089 tp3090 a(g6 V tp3091 a(g100 Vselector p3092 tp3093 a(g6 V \u000a\u000a p3094 tp3095 a(g24 V"returns true or false" p3096 tp3097 a(g6 V\u000a \u000a p3098 tp3099 a(g353 V^ tp3100 a(g6 V tp3101 a(g6 V( tp3102 a(g87 Vself p3103 tp3104 a(g6 V tp3105 a(g48 VaskFor: p3106 tp3107 a(g6 V tp3108 a(g100 Vselector p3109 tp3110 a(g6 V tp3111 a(g48 VifAbsent: p3112 tp3113 a(g6 V tp3114 a(g87 Vnil p3115 tp3116 a(g6 V) tp3117 a(g6 V tp3118 a(g48 V== p3119 tp3120 a(g6 V tp3121 a(g87 Vtrue p3122 tp3123 a(g138 V! ! p3124 tp3125 a(g6 V\u000a\u000a p3126 tp3127 a(g138 V! tp3128 a(g133 VObject p3129 tp3130 a(g138 V methodsFor: p3131 tp3132 a(g236 V'*kernel-extensions-flexibility' p3133 tp3134 a(g138 V stamp: 'kph 10/17/2007 14:01'! p3135 tp3136 a(g6 V\u000a tp3137 a(g48 VaskFor: p3138 tp3139 a(g6 V tp3140 a(g100 Vselector p3141 tp3142 a(g6 V tp3143 a(g48 VifAbsent: p3144 tp3145 a(g6 V tp3146 a(g100 VaBlock p3147 tp3148 a(g6 V\u000a\u000a p3149 tp3150 a(g24 V"enables a default value to be specified in order to be tolerant of potentially missing methods\u000a \u000a e.g.\u000a (myPoint askFor: #originOffset) ifAbsent: [ 0@0 ].\u000a " p3151 tp3152 a(g6 V\u000a\u000a p3153 tp3154 a(g353 V^ tp3155 a(g6 V tp3156 a(g6 V( tp3157 a(g87 Vself p3158 tp3159 a(g6 V tp3160 a(g48 Vclass p3161 tp3162 a(g6 V tp3163 a(g48 VcanUnderstand: p3164 tp3165 a(g6 V tp3166 a(g100 Vselector p3167 tp3168 a(g6 V) tp3169 a(g6 V tp3170 a(g84 VifFalse: p3171 tp3172 a(g6 V tp3173 a(g6 V[ tp3174 a(g6 V tp3175 a(g6 V tp3176 a(g100 VaBlock p3177 tp3178 a(g6 V tp3179 a(g48 Vvalue p3180 tp3181 a(g6 V tp3182 a(g6 V] tp3183 a(g6 V tp3184 a(g84 VifTrue: p3185 tp3186 a(g6 V tp3187 a(g6 V[ tp3188 a(g6 V tp3189 a(g87 Vself p3190 tp3191 a(g6 V tp3192 a(g48 Vperform: p3193 tp3194 a(g6 V tp3195 a(g100 Vselector p3196 tp3197 a(g6 V] tp3198 a(g138 V! ! p3199 tp3200 a(g6 V\u000a\u000a\u000a p3201 tp3202 a(g138 V! tp3203 a(g133 VObject p3204 tp3205 a(g138 V methodsFor: p3206 tp3207 a(g236 V'*kernel-extensions-logging' p3208 tp3209 a(g138 V stamp: 'mtf 1/26/2008 23:52'! p3210 tp3211 a(g6 V\u000a tp3212 a(g48 Vlog p3213 tp3214 a(g6 V\u000a p3215 tp3216 a(g24 V"This method provides the univeral entry point fo all logging mechanisms" p3217 tp3218 a(g6 V\u000a \u000a p3219 tp3220 a(g24 V"Options:\u000a 1. Null for null logging\u000a 2. A LogRouter instance wih a FrameworkAdaptor.\u000a 3. CurrentLog a process local variable supplying a LogRouter" p3221 tp3222 a(g6 V\u000a \u000a p3223 tp3224 a(g353 V^ tp3225 a(g6 V tp3226 a(g6 V( tp3227 a(g133 VSmalltalk p3228 tp3229 a(g6 V tp3230 a(g48 Vat: p3231 tp3232 a(g6 V tp3233 a(g258 V#CurrentLog p3234 tp3235 a(g6 V tp3236 a(g48 VifAbsent: p3237 tp3238 a(g6 V tp3239 a(g6 V[ tp3240 a(g6 V tp3241 a(g6 V tp3242 a(g133 VNull p3243 tp3244 a(g6 V tp3245 a(g48 Vdefault p3246 tp3247 a(g6 V tp3248 a(g6 V] tp3249 a(g6 V) tp3250 a(g6 V tp3251 a(g48 Vvalue p3252 tp3253 a(g6 V\u000a p3254 tp3255 a(g48 Vsender: p3256 tp3257 a(g6 V tp3258 a(g87 VthisContext p3259 tp3260 a(g6 V tp3261 a(g48 Vsender p3262 tp3263 a(g212 V; tp3264 a(g6 V tp3265 a(g48 VbeginEntry p3266 tp3267 a(g212 V; tp3268 a(g6 V tp3269 a(g48 Vyourself p3270 tp3271 a(g138 V! ! p3272 tp3273 a(g6 V\u000a\u000a\u000a p3274 tp3275 a(g138 V! tp3276 a(g133 VObject p3277 tp3278 a(g138 V methodsFor: p3279 tp3280 a(g236 V'*magritte-model-accessing' p3281 tp3282 a(g138 V stamp: 'lr 3/9/2006 11:31'! p3283 tp3284 a(g6 V\u000a tp3285 a(g48 Vdescription p3286 tp3287 a(g6 V\u000a p3288 tp3289 a(g24 V"Return the description of the reciever. Subclasses might override this message to return instance-based descriptions." p3290 tp3291 a(g6 V\u000a\u000a p3292 tp3293 a(g353 V^ tp3294 a(g6 V tp3295 a(g87 Vself p3296 tp3297 a(g6 V tp3298 a(g48 Vclass p3299 tp3300 a(g6 V tp3301 a(g48 Vdescription p3302 tp3303 a(g138 V! ! p3304 tp3305 a(g6 V\u000a\u000a p3306 tp3307 a(g138 V! tp3308 a(g133 VObject p3309 tp3310 a(g138 V methodsFor: p3311 tp3312 a(g236 V'*magritte-model-accessing' p3313 tp3314 a(g138 V stamp: 'lr 3/9/2006 11:31'! p3315 tp3316 a(g6 V\u000a tp3317 a(g48 VmementoClass p3318 tp3319 a(g6 V\u000a p3320 tp3321 a(g24 V"Return a class to be used to remember or cache the receiver, namely a memento object." p3322 tp3323 a(g6 V\u000a\u000a p3324 tp3325 a(g353 V^ tp3326 a(g6 V tp3327 a(g133 VMACheckedMemento p3328 tp3329 a(g138 V! ! p3330 tp3331 a(g6 V\u000a\u000a\u000a p3332 tp3333 a(g138 V! tp3334 a(g133 VObject p3335 tp3336 a(g138 V methodsFor: p3337 tp3338 a(g236 V'*magritte-model-model' p3339 tp3340 a(g138 V stamp: 'lr 3/9/2006 11:31'! p3341 tp3342 a(g6 V\u000a tp3343 a(g48 VreadUsing: p3344 tp3345 a(g6 V tp3346 a(g100 VaDescription p3347 tp3348 a(g6 V\u000a p3349 tp3350 a(g24 V"Dispatch the read-access to the receiver using the accessor of aDescription." p3351 tp3352 a(g6 V\u000a\u000a p3353 tp3354 a(g353 V^ tp3355 a(g6 V tp3356 a(g100 VaDescription p3357 tp3358 a(g6 V tp3359 a(g48 Vaccessor p3360 tp3361 a(g6 V tp3362 a(g48 Vread: p3363 tp3364 a(g6 V tp3365 a(g87 Vself p3366 tp3367 a(g138 V! ! p3368 tp3369 a(g6 V\u000a\u000a p3370 tp3371 a(g138 V! tp3372 a(g133 VObject p3373 tp3374 a(g138 V methodsFor: p3375 tp3376 a(g236 V'*magritte-model-model' p3377 tp3378 a(g138 V stamp: 'lr 3/9/2006 11:31'! p3379 tp3380 a(g6 V\u000a tp3381 a(g48 Vwrite: p3382 tp3383 a(g6 V tp3384 a(g100 VanObject p3385 tp3386 a(g6 V tp3387 a(g48 Vusing: p3388 tp3389 a(g6 V tp3390 a(g100 VaDescription p3391 tp3392 a(g6 V\u000a p3393 tp3394 a(g24 V"Dispatch the write-access to the receiver of anObject using the accessor of aDescription." p3395 tp3396 a(g6 V\u000a\u000a p3397 tp3398 a(g100 VaDescription p3399 tp3400 a(g6 V tp3401 a(g48 Vaccessor p3402 tp3403 a(g6 V tp3404 a(g48 Vwrite: p3405 tp3406 a(g6 V tp3407 a(g100 VanObject p3408 tp3409 a(g6 V tp3410 a(g48 Vto: p3411 tp3412 a(g6 V tp3413 a(g87 Vself p3414 tp3415 a(g138 V! ! p3416 tp3417 a(g6 V\u000a\u000a\u000a p3418 tp3419 a(g138 V! tp3420 a(g133 VObject p3421 tp3422 a(g138 V methodsFor: p3423 tp3424 a(g236 V'*magritte-model-testing' p3425 tp3426 a(g138 V stamp: 'lr 3/9/2006 11:31'! p3427 tp3428 a(g6 V\u000a tp3429 a(g48 VisDescription p3430 tp3431 a(g6 V\u000a p3432 tp3433 a(g353 V^ tp3434 a(g6 V tp3435 a(g87 Vfalse p3436 tp3437 a(g138 V! ! p3438 tp3439 a(g6 V\u000a\u000a\u000a p3440 tp3441 a(g138 V! tp3442 a(g133 VObject p3443 tp3444 a(g138 V methodsFor: p3445 tp3446 a(g236 V'*magritte-morph-converting' p3447 tp3448 a(g138 V stamp: 'lr 3/9/2006 11:33'! p3449 tp3450 a(g6 V\u000a tp3451 a(g48 VasMorph p3452 tp3453 a(g6 V\u000a p3454 tp3455 a(g353 V^ tp3456 a(g6 V tp3457 a(g87 Vself p3458 tp3459 a(g6 V tp3460 a(g48 Vdescription p3461 tp3462 a(g6 V tp3463 a(g48 VasMorphOn: p3464 tp3465 a(g6 V tp3466 a(g87 Vself p3467 tp3468 a(g138 V! ! p3469 tp3470 a(g6 V\u000a\u000a\u000a p3471 tp3472 a(g138 V! tp3473 a(g133 VObject p3474 tp3475 a(g138 V methodsFor: p3476 tp3477 a(g236 V'*magritte-seaside-converting' p3478 tp3479 a(g138 V stamp: 'lr 3/9/2006 11:33'! p3480 tp3481 a(g6 V\u000a tp3482 a(g48 VasComponent p3483 tp3484 a(g6 V\u000a p3485 tp3486 a(g353 V^ tp3487 a(g6 V tp3488 a(g87 Vself p3489 tp3490 a(g6 V tp3491 a(g48 Vdescription p3492 tp3493 a(g6 V tp3494 a(g48 VasComponentOn: p3495 tp3496 a(g6 V tp3497 a(g87 Vself p3498 tp3499 a(g138 V! ! p3500 tp3501 a(g6 V\u000a\u000a\u000a p3502 tp3503 a(g138 V! tp3504 a(g133 VObject p3505 tp3506 a(g138 V methodsFor: p3507 tp3508 a(g236 V'*monticello' p3509 tp3510 a(g138 V stamp: 'dvf 8/10/2004 23:25'! p3511 tp3512 a(g6 V\u000a tp3513 a(g48 VisConflict p3514 tp3515 a(g6 V\u000a p3516 tp3517 a(g353 V^ tp3518 a(g87 Vfalse p3519 tp3520 a(g138 V! ! p3521 tp3522 a(g6 V\u000a\u000a\u000a p3523 tp3524 a(g138 V! tp3525 a(g133 VObject p3526 tp3527 a(g138 V methodsFor: p3528 tp3529 a(g236 V'*null' p3530 tp3531 a(g138 V stamp: 'kph 9/6/2007 23:31'! p3532 tp3533 a(g6 V\u000a tp3534 a(g48 VifNull: p3535 tp3536 a(g6 V tp3537 a(g100 VaBlock p3538 tp3539 a(g6 V\u000a\u000a p3540 tp3541 a(g353 V^ tp3542 a(g6 V tp3543 a(g87 Vself p3544 tp3545 a(g138 V! ! p3546 tp3547 a(g6 V\u000a\u000a p3548 tp3549 a(g138 V! tp3550 a(g133 VObject p3551 tp3552 a(g138 V methodsFor: p3553 tp3554 a(g236 V'*null' p3555 tp3556 a(g138 V stamp: 'kph 9/6/2007 23:33'! p3557 tp3558 a(g6 V\u000a tp3559 a(g48 VisNull p3560 tp3561 a(g6 V\u000a tp3562 a(g6 V\u000a p3563 tp3564 a(g353 V^ tp3565 a(g6 V tp3566 a(g87 Vfalse p3567 tp3568 a(g138 V! ! p3569 tp3570 a(g6 V\u000a\u000a p3571 tp3572 a(g138 V! tp3573 a(g133 VObject p3574 tp3575 a(g138 V methodsFor: p3576 tp3577 a(g236 V'*null' p3578 tp3579 a(g138 V stamp: 'kph 4/12/2007 08:27'! p3580 tp3581 a(g6 V\u000a tp3582 a(g48 VorNull p3583 tp3584 a(g6 V\u000a tp3585 a(g6 V\u000a p3586 tp3587 a(g353 V^ tp3588 a(g6 V tp3589 a(g87 Vself p3590 tp3591 a(g138 V! ! p3592 tp3593 a(g6 V\u000a\u000a\u000a p3594 tp3595 a(g138 V! tp3596 a(g133 VObject p3597 tp3598 a(g138 V methodsFor: p3599 tp3600 a(g236 V'*ob-tools-inspector' p3601 tp3602 a(g138 V stamp: 'lr 6/5/2008 11:07'! p3603 tp3604 a(g6 V\u000a tp3605 a(g48 VbasicInspectorNodes p3606 tp3607 a(g6 V\u000a p3608 tp3609 a(g6 V< tp3610 a(g138 Vinspector: p3611 tp3612 a(g6 V #'1' priority: 600 p3613 tp3614 a(g6 V> tp3615 a(g6 V\u000a \u000a p3616 tp3617 a(g353 V| tp3618 a(g100 V nodes p3619 tp3620 a(g353 V| tp3621 a(g6 V\u000a p3622 tp3623 a(g100 Vnodes p3624 tp3625 a(g6 V tp3626 a(g353 V:= p3627 tp3628 a(g6 V tp3629 a(g133 VOrderedCollection p3630 tp3631 a(g6 V tp3632 a(g48 Vnew: p3633 tp3634 a(g6 V tp3635 a(g87 Vself p3636 tp3637 a(g6 V tp3638 a(g48 Vclass p3639 tp3640 a(g6 V tp3641 a(g48 VinstSize p3642 tp3643 a(g6 V tp3644 a(g48 V+ tp3645 a(g6 V tp3646 a(g87 Vself p3647 tp3648 a(g6 V tp3649 a(g48 VbasicSize p3650 tp3651 a(g6 V tp3652 a(g48 V+ tp3653 a(g6 V tp3654 a(g223 V5 tp3655 a(g212 V. tp3656 a(g6 V\u000a p3657 tp3658 a(g100 Vnodes p3659 tp3660 a(g6 V tp3661 a(g48 Vadd: p3662 tp3663 a(g6 V tp3664 a(g87 Vself p3665 tp3666 a(g6 V tp3667 a(g48 VselfInspectorNode p3668 tp3669 a(g212 V. tp3670 a(g6 V\u000a p3671 tp3672 a(g87 Vself p3673 tp3674 a(g6 V tp3675 a(g48 Vclass p3676 tp3677 a(g6 V tp3678 a(g48 VallInstVarNames p3679 tp3680 a(g6 V tp3681 a(g48 VwithIndexDo: p3682 tp3683 a(g6 V tp3684 a(g6 V[ tp3685 a(g6 V tp3686 a(g353 V: tp3687 a(g100 Vname p3688 tp3689 a(g6 V tp3690 a(g353 V: tp3691 a(g100 Vindex p3692 tp3693 a(g6 V tp3694 a(g353 V| tp3695 a(g6 V\u000a p3696 tp3697 a(g100 Vnodes p3698 tp3699 a(g6 V tp3700 a(g48 Vadd: p3701 tp3702 a(g6 V tp3703 a(g6 V( tp3704 a(g133 VOTNamedVariableNode p3705 tp3706 a(g6 V tp3707 a(g48 Von: p3708 tp3709 a(g6 V tp3710 a(g87 Vself p3711 tp3712 a(g6 V tp3713 a(g48 Vindex: p3714 tp3715 a(g6 V tp3716 a(g100 Vindex p3717 tp3718 a(g6 V tp3719 a(g48 Vname: p3720 tp3721 a(g6 V tp3722 a(g100 Vname p3723 tp3724 a(g6 V) tp3725 a(g6 V tp3726 a(g6 V] tp3727 a(g212 V. tp3728 a(g6 V\u000a p3729 tp3730 a(g223 V1 tp3731 a(g6 V tp3732 a(g48 Vto: p3733 tp3734 a(g6 V tp3735 a(g87 Vself p3736 tp3737 a(g6 V tp3738 a(g48 VbasicSize p3739 tp3740 a(g6 V tp3741 a(g48 Vdo: p3742 tp3743 a(g6 V tp3744 a(g6 V[ tp3745 a(g6 V tp3746 a(g353 V: tp3747 a(g100 Vindex p3748 tp3749 a(g6 V tp3750 a(g353 V| tp3751 a(g6 V\u000a p3752 tp3753 a(g100 Vnodes p3754 tp3755 a(g6 V tp3756 a(g48 Vadd: p3757 tp3758 a(g6 V tp3759 a(g6 V( tp3760 a(g133 VOTIndexedVariableNode p3761 tp3762 a(g6 V tp3763 a(g48 Von: p3764 tp3765 a(g6 V tp3766 a(g87 Vself p3767 tp3768 a(g6 V tp3769 a(g48 Vindex: p3770 tp3771 a(g6 V tp3772 a(g100 Vindex p3773 tp3774 a(g6 V) tp3775 a(g6 V tp3776 a(g6 V] tp3777 a(g212 V. tp3778 a(g6 V\u000a p3779 tp3780 a(g353 V^ tp3781 a(g6 V tp3782 a(g100 Vnodes p3783 tp3784 a(g138 V! ! p3785 tp3786 a(g6 V\u000a\u000a p3787 tp3788 a(g138 V! tp3789 a(g133 VObject p3790 tp3791 a(g138 V methodsFor: p3792 tp3793 a(g236 V'*ob-tools-inspector' p3794 tp3795 a(g138 V stamp: 'lr 6/5/2008 11:07'! p3796 tp3797 a(g6 V\u000a tp3798 a(g48 VprotocolInspectorNodes p3799 tp3800 a(g6 V\u000a p3801 tp3802 a(g6 V< tp3803 a(g138 Vinspector: p3804 tp3805 a(g6 V #'#' priority: 800 p3806 tp3807 a(g6 V> tp3808 a(g6 V\u000a\u000a p3809 tp3810 a(g353 V^ tp3811 a(g6 V tp3812 a(g87 Vself p3813 tp3814 a(g6 V tp3815 a(g48 Vclass p3816 tp3817 a(g6 V tp3818 a(g48 VallSelectors p3819 tp3820 a(g6 V tp3821 a(g48 VasArray p3822 tp3823 a(g6 V tp3824 a(g48 Vsort p3825 tp3826 a(g6 V\u000a p3827 tp3828 a(g48 Vcollect: p3829 tp3830 a(g6 V tp3831 a(g6 V[ tp3832 a(g6 V tp3833 a(g353 V: tp3834 a(g100 Veach p3835 tp3836 a(g6 V tp3837 a(g353 V| tp3838 a(g6 V tp3839 a(g133 VOTProtocolInspectorNode p3840 tp3841 a(g6 V tp3842 a(g48 Von: p3843 tp3844 a(g6 V tp3845 a(g87 Vself p3846 tp3847 a(g6 V tp3848 a(g48 Vselector: p3849 tp3850 a(g6 V tp3851 a(g100 Veach p3852 tp3853 a(g6 V tp3854 a(g6 V] tp3855 a(g138 V! ! p3856 tp3857 a(g6 V\u000a\u000a p3858 tp3859 a(g138 V! tp3860 a(g133 VObject p3861 tp3862 a(g138 V methodsFor: p3863 tp3864 a(g236 V'*ob-tools-inspector' p3865 tp3866 a(g138 V stamp: 'lr 6/5/2008 09:58'! p3867 tp3868 a(g6 V\u000a tp3869 a(g48 VselfInspectorNode p3870 tp3871 a(g6 V\u000a p3872 tp3873 a(g353 V^ tp3874 a(g6 V tp3875 a(g133 VOTDerivedInspectorNode p3876 tp3877 a(g6 V tp3878 a(g48 Von: p3879 tp3880 a(g6 V tp3881 a(g87 Vself p3882 tp3883 a(g6 V tp3884 a(g48 Vlabel: p3885 tp3886 a(g6 V tp3887 a(g236 V'self' p3888 tp3889 a(g6 V tp3890 a(g48 Vblock: p3891 tp3892 a(g6 V tp3893 a(g6 V[ tp3894 a(g6 V tp3895 a(g353 V: tp3896 a(g100 Vobj p3897 tp3898 a(g6 V tp3899 a(g353 V| tp3900 a(g6 V tp3901 a(g100 Vobj p3902 tp3903 a(g6 V tp3904 a(g6 V] tp3905 a(g138 V! ! p3906 tp3907 a(g6 V\u000a\u000a\u000a p3908 tp3909 a(g138 V! tp3910 a(g133 VObject p3911 tp3912 a(g138 V methodsFor: p3913 tp3914 a(g236 V'*omnibrowser-converting' p3915 tp3916 a(g138 V stamp: 'cwp 4/17/2006 12:16'! p3917 tp3918 a(g6 V\u000a tp3919 a(g48 VasAnnouncement p3920 tp3921 a(g6 V\u000a p3922 tp3923 a(g353 V^ tp3924 a(g6 V tp3925 a(g87 Vself p3926 tp3927 a(g138 V! ! p3928 tp3929 a(g6 V\u000a\u000a\u000a p3930 tp3931 a(g138 V! tp3932 a(g133 VObject p3933 tp3934 a(g138 V methodsFor: p3935 tp3936 a(g236 V'*pier-model' p3937 tp3938 a(g138 V stamp: 'lr 3/9/2006 11:29'! p3939 tp3940 a(g6 V\u000a tp3941 a(g48 Vaccept: p3942 tp3943 a(g6 V tp3944 a(g100 VaVisitor p3945 tp3946 a(g6 V\u000a p3947 tp3948 a(g87 Vself p3949 tp3950 a(g6 V tp3951 a(g48 VsubclassResponsibility p3952 tp3953 a(g138 V! ! p3954 tp3955 a(g6 V\u000a\u000a p3956 tp3957 a(g138 V! tp3958 a(g133 VObject p3959 tp3960 a(g138 V methodsFor: p3961 tp3962 a(g236 V'*pier-model' p3963 tp3964 a(g138 V stamp: 'lr 3/9/2006 11:29'! p3965 tp3966 a(g6 V\u000a tp3967 a(g48 VacceptDecorated: p3968 tp3969 a(g6 V tp3970 a(g100 VaVisitor p3971 tp3972 a(g6 V\u000a p3973 tp3974 a(g87 Vself p3975 tp3976 a(g6 V tp3977 a(g48 Vaccept: p3978 tp3979 a(g6 V tp3980 a(g100 VaVisitor p3981 tp3982 a(g138 V! ! p3983 tp3984 a(g6 V\u000a\u000a\u000a p3985 tp3986 a(g138 V! tp3987 a(g133 VObject p3988 tp3989 a(g138 V methodsFor: p3990 tp3991 a(g236 V'*rio-kernel' p3992 tp3993 a(g138 V stamp: 'kph 3/8/2007 21:25'! p3994 tp3995 a(g6 V\u000a tp3996 a(g48 VisRio p3997 tp3998 a(g6 V\u000a tp3999 a(g6 V\u000a p4000 tp4001 a(g353 V^ tp4002 a(g6 V tp4003 a(g87 Vfalse p4004 tp4005 a(g138 V! ! p4006 tp4007 a(g6 V\u000a\u000a\u000a p4008 tp4009 a(g138 V! tp4010 a(g133 VObject p4011 tp4012 a(g138 V methodsFor: p4013 tp4014 a(g236 V'*scriptaculous' p4015 tp4016 a(g138 V stamp: 'lr 1/4/2007 17:20'! p4017 tp4018 a(g6 V\u000a tp4019 a(g48 VasFunction p4020 tp4021 a(g6 V\u000a p4022 tp4023 a(g353 V^ tp4024 a(g6 V tp4025 a(g87 Vself p4026 tp4027 a(g6 V tp4028 a(g48 VasFunction: p4029 tp4030 a(g6 V tp4031 a(g258 V#( p4032 tp4033 a(g258 V) tp4034 a(g138 V! ! p4035 tp4036 a(g6 V\u000a\u000a p4037 tp4038 a(g138 V! tp4039 a(g133 VObject p4040 tp4041 a(g138 V methodsFor: p4042 tp4043 a(g236 V'*scriptaculous' p4044 tp4045 a(g138 V stamp: 'lr 1/4/2007 17:21'! p4046 tp4047 a(g6 V\u000a tp4048 a(g48 VasFunction: p4049 tp4050 a(g6 V tp4051 a(g100 VaCollection p4052 tp4053 a(g6 V\u000a p4054 tp4055 a(g353 V^ tp4056 a(g6 V tp4057 a(g133 VSUFunction p4058 tp4059 a(g6 V tp4060 a(g84 Vnew p4061 tp4062 a(g6 V tp4063 a(g48 Vadd: p4064 tp4065 a(g6 V tp4066 a(g87 Vself p4067 tp4068 a(g212 V; tp4069 a(g6 V tp4070 a(g48 Varguments: p4071 tp4072 a(g6 V tp4073 a(g100 VaCollection p4074 tp4075 a(g138 V! ! p4076 tp4077 a(g6 V\u000a\u000a p4078 tp4079 a(g138 V! tp4080 a(g133 VObject p4081 tp4082 a(g138 V methodsFor: p4083 tp4084 a(g236 V'*scriptaculous' p4085 tp4086 a(g138 V stamp: 'lr 4/11/2006 19:49'! p4087 tp4088 a(g6 V\u000a tp4089 a(g48 VasJavascript p4090 tp4091 a(g6 V\u000a p4092 tp4093 a(g353 V^ tp4094 a(g6 V tp4095 a(g133 VString p4096 tp4097 a(g6 V tp4098 a(g48 VstreamContents: p4099 tp4100 a(g6 V tp4101 a(g6 V[ tp4102 a(g6 V tp4103 a(g353 V: tp4104 a(g100 Vstream p4105 tp4106 a(g6 V tp4107 a(g353 V| tp4108 a(g6 V tp4109 a(g87 Vself p4110 tp4111 a(g6 V tp4112 a(g48 VjavascriptOn: p4113 tp4114 a(g6 V tp4115 a(g100 Vstream p4116 tp4117 a(g6 V tp4118 a(g6 V] tp4119 a(g138 V! ! p4120 tp4121 a(g6 V\u000a\u000a\u000a p4122 tp4123 a(g138 V! tp4124 a(g133 VObject p4125 tp4126 a(g138 V methodsFor: p4127 tp4128 a(g236 V'*scriptaculous-printing' p4129 tp4130 a(g138 V stamp: 'lr 4/20/2006 21:10'! p4131 tp4132 a(g6 V\u000a tp4133 a(g48 VjavascriptOn: p4134 tp4135 a(g6 V tp4136 a(g100 VaStream p4137 tp4138 a(g6 V\u000a p4139 tp4140 a(g87 Vself p4141 tp4142 a(g6 V tp4143 a(g48 VprintOn: p4144 tp4145 a(g6 V tp4146 a(g100 VaStream p4147 tp4148 a(g138 V! ! p4149 tp4150 a(g6 V\u000a\u000a\u000a p4151 tp4152 a(g138 V! tp4153 a(g133 VObject p4154 tp4155 a(g138 V methodsFor: p4156 tp4157 a(g236 V'*seaside2' p4158 tp4159 a(g138 V stamp: 'lr 6/5/2007 21:35'! p4160 tp4161 a(g6 V\u000a tp4162 a(g48 VdeprecatedApi p4163 tp4164 a(g6 V\u000a p4165 tp4166 a(g87 Vself p4167 tp4168 a(g6 V tp4169 a(g48 VdeprecatedApi: p4170 tp4171 a(g6 V tp4172 a(g87 VthisContext p4173 tp4174 a(g6 V tp4175 a(g48 Vsender p4176 tp4177 a(g6 V tp4178 a(g48 VdisplayString p4179 tp4180 a(g138 V! ! p4181 tp4182 a(g6 V\u000a\u000a p4183 tp4184 a(g138 V! tp4185 a(g133 VObject p4186 tp4187 a(g138 V methodsFor: p4188 tp4189 a(g236 V'*seaside2' p4190 tp4191 a(g138 V stamp: 'lr 6/5/2007 21:35'! p4192 tp4193 a(g6 V\u000a tp4194 a(g48 VdeprecatedApi: p4195 tp4196 a(g6 V tp4197 a(g100 VaString p4198 tp4199 a(g6 V\u000a p4200 tp4201 a(g133 VWADeprecatedApi p4202 tp4203 a(g6 V tp4204 a(g48 VraiseSignal: p4205 tp4206 a(g6 V tp4207 a(g100 VaString p4208 tp4209 a(g138 V! ! p4210 tp4211 a(g6 V\u000a\u000a p4212 tp4213 a(g138 V! tp4214 a(g133 VObject p4215 tp4216 a(g138 V methodsFor: p4217 tp4218 a(g236 V'*seaside2' p4219 tp4220 a(g138 V stamp: 'lr 5/9/2007 08:47'! p4221 tp4222 a(g6 V\u000a tp4223 a(g48 VinspectorFields p4224 tp4225 a(g6 V\u000a p4226 tp4227 a(g353 V| tp4228 a(g100 V members p4229 tp4230 a(g353 V| tp4231 a(g6 V\u000a p4232 tp4233 a(g100 Vmembers p4234 tp4235 a(g6 V tp4236 a(g353 V:= p4237 tp4238 a(g6 V tp4239 a(g133 VArray p4240 tp4241 a(g6 V tp4242 a(g84 Vnew p4243 tp4244 a(g6 V tp4245 a(g48 VwriteStream p4246 tp4247 a(g212 V. tp4248 a(g6 V\u000a p4249 tp4250 a(g87 Vself p4251 tp4252 a(g6 V tp4253 a(g48 Vclass p4254 tp4255 a(g6 V tp4256 a(g48 VallInstVarNames p4257 tp4258 a(g6 V tp4259 a(g48 VwithIndexDo: p4260 tp4261 a(g6 V tp4262 a(g6 V[ tp4263 a(g6 V tp4264 a(g353 V: tp4265 a(g100 Veach p4266 tp4267 a(g6 V tp4268 a(g353 V: tp4269 a(g100 Vindex p4270 tp4271 a(g6 V tp4272 a(g353 V| tp4273 a(g6 V\u000a p4274 tp4275 a(g100 Vmembers p4276 tp4277 a(g6 V tp4278 a(g48 VnextPut: p4279 tp4280 a(g6 V tp4281 a(g100 Veach p4282 tp4283 a(g6 V tp4284 a(g48 V-> p4285 tp4286 a(g6 V tp4287 a(g6 V( tp4288 a(g87 Vself p4289 tp4290 a(g6 V tp4291 a(g48 VinstVarAt: p4292 tp4293 a(g6 V tp4294 a(g100 Vindex p4295 tp4296 a(g6 V) tp4297 a(g6 V tp4298 a(g6 V] tp4299 a(g212 V. tp4300 a(g6 V\u000a p4301 tp4302 a(g87 Vself p4303 tp4304 a(g6 V tp4305 a(g48 Vclass p4306 tp4307 a(g6 V tp4308 a(g48 VisVariable p4309 tp4310 a(g6 V tp4311 a(g84 VifTrue: p4312 tp4313 a(g6 V tp4314 a(g6 V[ tp4315 a(g6 V\u000a p4316 tp4317 a(g6 V tp4318 a(g223 V1 tp4319 a(g6 V tp4320 a(g48 Vto: p4321 tp4322 a(g6 V tp4323 a(g87 Vself p4324 tp4325 a(g6 V tp4326 a(g48 Vsize p4327 tp4328 a(g6 V tp4329 a(g48 Vdo: p4330 tp4331 a(g6 V tp4332 a(g6 V[ tp4333 a(g6 V tp4334 a(g353 V: tp4335 a(g100 Vindex p4336 tp4337 a(g6 V tp4338 a(g353 V| tp4339 a(g6 V\u000a p4340 tp4341 a(g100 Vmembers p4342 tp4343 a(g6 V tp4344 a(g48 VnextPut: p4345 tp4346 a(g6 V tp4347 a(g100 Vindex p4348 tp4349 a(g6 V tp4350 a(g48 V-> p4351 tp4352 a(g6 V tp4353 a(g6 V( tp4354 a(g87 Vself p4355 tp4356 a(g6 V tp4357 a(g48 Vat: p4358 tp4359 a(g6 V tp4360 a(g100 Vindex p4361 tp4362 a(g6 V) tp4363 a(g6 V tp4364 a(g6 V] tp4365 a(g6 V tp4366 a(g6 V] tp4367 a(g212 V. tp4368 a(g6 V\u000a p4369 tp4370 a(g353 V^ tp4371 a(g6 V tp4372 a(g100 Vmembers p4373 tp4374 a(g6 V tp4375 a(g48 Vcontents p4376 tp4377 a(g138 V! ! p4378 tp4379 a(g6 V\u000a\u000a p4380 tp4381 a(g138 V! tp4382 a(g133 VObject p4383 tp4384 a(g138 V methodsFor: p4385 tp4386 a(g236 V'*seaside2' p4387 tp4388 a(g138 V stamp: 'avi 3/14/2005 15:19'! p4389 tp4390 a(g6 V\u000a tp4391 a(g48 VlabelForSelector: p4392 tp4393 a(g6 V tp4394 a(g100 VaSymbol p4395 tp4396 a(g6 V\u000a p4397 tp4398 a(g353 V^ tp4399 a(g6 V tp4400 a(g100 VaSymbol p4401 tp4402 a(g6 V tp4403 a(g48 VasCapitalizedPhrase p4404 tp4405 a(g138 V! ! p4406 tp4407 a(g6 V\u000a\u000a p4408 tp4409 a(g138 V! tp4410 a(g133 VObject p4411 tp4412 a(g138 V methodsFor: p4413 tp4414 a(g236 V'*seaside2' p4415 tp4416 a(g138 V stamp: 'pmm 4/7/2007 17:14'! p4417 tp4418 a(g6 V\u000a tp4419 a(g48 VrenderOn: p4420 tp4421 a(g6 V tp4422 a(g100 VaRenderer p4423 tp4424 a(g6 V\u000a p4425 tp4426 a(g24 V"Override this method to customize how objects (not components) are rendered when passed as an argument to #render:. The default is the return value of #displayString.\u000a Just remember that you can not use #callback:, #on:of:, or #call:" p4427 tp4428 a(g6 V\u000a\u000a p4429 tp4430 a(g100 VaRenderer p4431 tp4432 a(g6 V tp4433 a(g48 Vtext: p4434 tp4435 a(g6 V tp4436 a(g87 Vself p4437 tp4438 a(g138 V! ! p4439 tp4440 a(g6 V\u000a\u000a p4441 tp4442 a(g138 V! tp4443 a(g133 VObject p4444 tp4445 a(g138 V methodsFor: p4446 tp4447 a(g236 V'*seaside2' p4448 tp4449 a(g138 V stamp: 'lr 3/19/2007 23:13'! p4450 tp4451 a(g6 V\u000a tp4452 a(g48 VrestoreFromSnapshot: p4453 tp4454 a(g6 V tp4455 a(g100 VanObject p4456 tp4457 a(g6 V\u000a p4458 tp4459 a(g87 Vself p4460 tp4461 a(g6 V tp4462 a(g48 VcopyFrom: p4463 tp4464 a(g6 V tp4465 a(g100 VanObject p4466 tp4467 a(g138 V! ! p4468 tp4469 a(g6 V\u000a\u000a p4470 tp4471 a(g138 V! tp4472 a(g133 VObject p4473 tp4474 a(g138 V methodsFor: p4475 tp4476 a(g236 V'*seaside2' p4477 tp4478 a(g138 V stamp: 'avi 9/1/2004 21:20'! p4479 tp4480 a(g6 V\u000a tp4481 a(g48 VsnapshotCopy p4482 tp4483 a(g6 V\u000a p4484 tp4485 a(g353 V^ tp4486 a(g6 V tp4487 a(g87 Vself p4488 tp4489 a(g6 V tp4490 a(g48 VshallowCopy p4491 tp4492 a(g138 V! ! p4493 tp4494 a(g6 V\u000a\u000a p4495 tp4496 a(g138 V! tp4497 a(g133 VObject p4498 tp4499 a(g138 V methodsFor: p4500 tp4501 a(g236 V'*seaside2' p4502 tp4503 a(g138 V stamp: 'lr 10/28/2007 14:42'! p4504 tp4505 a(g6 V\u000a tp4506 a(g48 VvalidationError: p4507 tp4508 a(g6 V tp4509 a(g100 Vmessage p4510 tp4511 a(g6 V\u000a p4512 tp4513 a(g353 V^ tp4514 a(g133 VWAValidationNotification p4515 tp4516 a(g6 V tp4517 a(g48 VraiseSignal: p4518 tp4519 a(g6 V tp4520 a(g100 Vmessage p4521 tp4522 a(g138 V! ! p4523 tp4524 a(g6 V\u000a\u000a\u000a p4525 tp4526 a(g138 V! tp4527 a(g133 VObject p4528 tp4529 a(g138 V methodsFor: p4530 tp4531 a(g236 V'*seaside2-encoding' p4532 tp4533 a(g138 V stamp: 'lr 3/26/2007 20:16'! p4534 tp4535 a(g6 V\u000a tp4536 a(g48 VencodeOn: p4537 tp4538 a(g6 V tp4539 a(g100 VaDocument p4540 tp4541 a(g6 V\u000a p4542 tp4543 a(g100 VaDocument p4544 tp4545 a(g6 V tp4546 a(g48 Vprint: p4547 tp4548 a(g6 V tp4549 a(g87 Vself p4550 tp4551 a(g6 V tp4552 a(g48 VdisplayString p4553 tp4554 a(g138 V! ! p4555 tp4556 a(g6 V\u000a\u000a\u000a p4557 tp4558 a(g138 V! tp4559 a(g133 VObject p4560 tp4561 a(g138 V methodsFor: p4562 tp4563 a(g236 V'*seaside2-squeak' p4564 tp4565 a(g138 V stamp: 'pmm 5/22/2007 22:10'! p4566 tp4567 a(g6 V\u000a tp4568 a(g48 VbeMutable p4569 tp4570 a(g6 V\u000a p4571 tp4572 a(g24 V"for VW compatibility, a hack that allows to cache a value in a literal array" p4573 tp4574 a(g138 V! ! p4575 tp4576 a(g6 V\u000a\u000a p4577 tp4578 a(g138 V! tp4579 a(g133 VObject p4580 tp4581 a(g138 V methodsFor: p4582 tp4583 a(g236 V'*seaside2-squeak' p4584 tp4585 a(g138 V stamp: 'lr 7/12/2005 17:01'! p4586 tp4587 a(g6 V\u000a tp4588 a(g48 VdisplayString p4589 tp4590 a(g6 V\u000a p4591 tp4592 a(g353 V^ tp4593 a(g6 V tp4594 a(g87 Vself p4595 tp4596 a(g6 V tp4597 a(g48 VasString p4598 tp4599 a(g138 V! ! p4600 tp4601 a(g6 V\u000a\u000a\u000a p4602 tp4603 a(g138 V! tp4604 a(g133 VObject p4605 tp4606 a(g138 V methodsFor: p4607 tp4608 a(g236 V'*services-base' p4609 tp4610 a(g138 V stamp: 'rr 3/21/2006 11:54'! p4611 tp4612 a(g6 V\u000a tp4613 a(g48 Vrequestor p4614 tp4615 a(g6 V\u000a p4616 tp4617 a(g24 V"returns the focused window's requestor" p4618 tp4619 a(g6 V\u000a\u000a p4620 tp4621 a(g24 V"SystemWindow focusedWindow ifNotNilDo: [:w | ^ w requestor]." p4622 tp4623 a(g6 V\u000a\u000a p4624 tp4625 a(g24 V"triggers an infinite loop" p4626 tp4627 a(g6 V\u000a\u000a p4628 tp4629 a(g353 V^ tp4630 a(g6 V tp4631 a(g133 VRequestor p4632 tp4633 a(g6 V tp4634 a(g48 Vdefault p4635 tp4636 a(g138 V! ! p4637 tp4638 a(g6 V\u000a\u000a\u000a p4639 tp4640 a(g138 V! tp4641 a(g133 VObject p4642 tp4643 a(g138 V methodsFor: p4644 tp4645 a(g236 V'*system-support' p4646 tp4647 a(g138 V stamp: 'dvf 8/23/2003 12:27'! p4648 tp4649 a(g6 V\u000a tp4650 a(g48 VsystemNavigation p4651 tp4652 a(g6 V\u000a tp4653 a(g6 V\u000a p4654 tp4655 a(g353 V^ tp4656 a(g6 V tp4657 a(g133 VSystemNavigation p4658 tp4659 a(g6 V tp4660 a(g48 Vdefault p4661 tp4662 a(g138 V! ! p4663 tp4664 a(g6 V\u000a\u000a\u000a p4665 tp4666 a(g138 V! tp4667 a(g133 VObject p4668 tp4669 a(g138 V methodsFor: p4670 tp4671 a(g236 V'*tools-browser' p4672 tp4673 a(g138 V stamp: 'mu 3/6/2004 15:13'! p4674 tp4675 a(g6 V\u000a tp4676 a(g48 Vbrowse p4677 tp4678 a(g6 V\u000a p4679 tp4680 a(g87 Vself p4681 tp4682 a(g6 V tp4683 a(g48 VsystemNavigation p4684 tp4685 a(g6 V tp4686 a(g48 VbrowseClass: p4687 tp4688 a(g6 V tp4689 a(g87 Vself p4690 tp4691 a(g6 V tp4692 a(g48 Vclass p4693 tp4694 a(g138 V! ! p4695 tp4696 a(g6 V\u000a\u000a p4697 tp4698 a(g138 V! tp4699 a(g133 VObject p4700 tp4701 a(g138 V methodsFor: p4702 tp4703 a(g236 V'*tools-browser' p4704 tp4705 a(g138 V stamp: 'mu 3/11/2004 16:00'! p4706 tp4707 a(g6 V\u000a tp4708 a(g48 VbrowseHierarchy p4709 tp4710 a(g6 V\u000a p4711 tp4712 a(g87 Vself p4713 tp4714 a(g6 V tp4715 a(g48 VsystemNavigation p4716 tp4717 a(g6 V tp4718 a(g48 VbrowseHierarchy: p4719 tp4720 a(g6 V tp4721 a(g87 Vself p4722 tp4723 a(g6 V tp4724 a(g48 Vclass p4725 tp4726 a(g138 V! ! p4727 tp4728 a(g6 V\u000a\u000a\u000a p4729 tp4730 a(g138 V! tp4731 a(g133 VObject p4732 tp4733 a(g138 V methodsFor: p4734 tp4735 a(g236 V'*universes' p4736 tp4737 a(g138 V stamp: 'ls 11/26/2006 12:33'! p4738 tp4739 a(g6 V\u000a tp4740 a(g48 VisUPackage p4741 tp4742 a(g6 V\u000a p4743 tp4744 a(g353 V^ tp4745 a(g87 Vfalse p4746 tp4747 a(g138 V! ! p4748 tp4749 a(g6 V\u000a\u000a p4750 tp4751 a(g138 V! tp4752 a(g133 VObject p4753 tp4754 a(g138 V methodsFor: p4755 tp4756 a(g236 V'*universes' p4757 tp4758 a(g138 V stamp: 'ls 11/26/2006 12:33'! p4759 tp4760 a(g6 V\u000a tp4761 a(g48 VisUPackageCategory p4762 tp4763 a(g6 V\u000a p4764 tp4765 a(g353 V^ tp4766 a(g87 Vfalse p4767 tp4768 a(g138 V! ! p4769 tp4770 a(g6 V\u000a\u000a\u000a p4771 tp4772 a(g138 V! tp4773 a(g133 VObject p4774 tp4775 a(g138 V methodsFor: p4776 tp4777 a(g236 V'accessing' p4778 tp4779 a(g138 V stamp: 'sw 4/30/1998 12:18'! p4780 tp4781 a(g6 V\u000a tp4782 a(g48 VaddInstanceVarNamed: p4783 tp4784 a(g6 V tp4785 a(g100 VaName p4786 tp4787 a(g6 V tp4788 a(g48 VwithValue: p4789 tp4790 a(g6 V tp4791 a(g100 VaValue p4792 tp4793 a(g6 V\u000a p4794 tp4795 a(g24 V"Add an instance variable named aName and give it value aValue" p4796 tp4797 a(g6 V\u000a p4798 tp4799 a(g87 Vself p4800 tp4801 a(g6 V tp4802 a(g48 Vclass p4803 tp4804 a(g6 V tp4805 a(g48 VaddInstVarName: p4806 tp4807 a(g6 V tp4808 a(g100 VaName p4809 tp4810 a(g6 V tp4811 a(g48 VasString p4812 tp4813 a(g212 V. tp4814 a(g6 V\u000a p4815 tp4816 a(g87 Vself p4817 tp4818 a(g6 V tp4819 a(g48 VinstVarAt: p4820 tp4821 a(g6 V tp4822 a(g87 Vself p4823 tp4824 a(g6 V tp4825 a(g48 Vclass p4826 tp4827 a(g6 V tp4828 a(g48 VinstSize p4829 tp4830 a(g6 V tp4831 a(g48 Vput: p4832 tp4833 a(g6 V tp4834 a(g100 VaValue p4835 tp4836 a(g138 V! ! p4837 tp4838 a(g6 V\u000a\u000a p4839 tp4840 a(g138 V! tp4841 a(g133 VObject p4842 tp4843 a(g138 V methodsFor: p4844 tp4845 a(g236 V'accessing' p4846 tp4847 a(g138 V stamp: 'yo 6/29/2004 11:39'! p4848 tp4849 a(g6 V\u000a tp4850 a(g48 Vat: p4851 tp4852 a(g6 V tp4853 a(g100 Vindex p4854 tp4855 a(g6 V \u000a p4856 tp4857 a(g24 V"Primitive. Assumes receiver is indexable. Answer the value of an \u000a indexable element in the receiver. Fail if the argument index is not an \u000a Integer or is out of bounds. Essential. See Object documentation \u000a whatIsAPrimitive." p4858 tp4859 a(g6 V\u000a\u000a p4860 tp4861 a(g6 V< tp4862 a(g138 Vprimitive: p4863 tp4864 a(g6 V 60 p4865 tp4866 a(g6 V> tp4867 a(g6 V\u000a p4868 tp4869 a(g100 Vindex p4870 tp4871 a(g6 V tp4872 a(g48 VisInteger p4873 tp4874 a(g6 V tp4875 a(g84 VifTrue: p4876 tp4877 a(g6 V\u000a p4878 tp4879 a(g6 V[ tp4880 a(g6 V tp4881 a(g87 Vself p4882 tp4883 a(g6 V tp4884 a(g48 Vclass p4885 tp4886 a(g6 V tp4887 a(g48 VisVariable p4888 tp4889 a(g6 V\u000a p4890 tp4891 a(g84 VifTrue: p4892 tp4893 a(g6 V tp4894 a(g6 V[ tp4895 a(g6 V tp4896 a(g87 Vself p4897 tp4898 a(g6 V tp4899 a(g48 VerrorSubscriptBounds: p4900 tp4901 a(g6 V tp4902 a(g100 Vindex p4903 tp4904 a(g6 V] tp4905 a(g6 V\u000a p4906 tp4907 a(g84 VifFalse: p4908 tp4909 a(g6 V tp4910 a(g6 V[ tp4911 a(g6 V tp4912 a(g87 Vself p4913 tp4914 a(g6 V tp4915 a(g48 VerrorNotIndexable p4916 tp4917 a(g6 V] tp4918 a(g6 V] tp4919 a(g212 V. tp4920 a(g6 V\u000a p4921 tp4922 a(g100 Vindex p4923 tp4924 a(g6 V tp4925 a(g48 VisNumber p4926 tp4927 a(g6 V\u000a p4928 tp4929 a(g84 VifTrue: p4930 tp4931 a(g6 V tp4932 a(g6 V[ tp4933 a(g6 V tp4934 a(g353 V^ tp4935 a(g87 Vself p4936 tp4937 a(g6 V tp4938 a(g48 Vat: p4939 tp4940 a(g6 V tp4941 a(g100 Vindex p4942 tp4943 a(g6 V tp4944 a(g48 VasInteger p4945 tp4946 a(g6 V] tp4947 a(g6 V\u000a p4948 tp4949 a(g84 VifFalse: p4950 tp4951 a(g6 V tp4952 a(g6 V[ tp4953 a(g6 V tp4954 a(g87 Vself p4955 tp4956 a(g6 V tp4957 a(g48 VerrorNonIntegerIndex p4958 tp4959 a(g6 V] tp4960 a(g138 V! ! p4961 tp4962 a(g6 V\u000a\u000a p4963 tp4964 a(g138 V! tp4965 a(g133 VObject p4966 tp4967 a(g138 V methodsFor: p4968 tp4969 a(g236 V'accessing' p4970 tp4971 a(g138 V! tp4972 a(g6 V\u000a tp4973 a(g48 Vat: p4974 tp4975 a(g6 V tp4976 a(g100 Vindex p4977 tp4978 a(g6 V tp4979 a(g48 Vmodify: p4980 tp4981 a(g6 V tp4982 a(g100 VaBlock p4983 tp4984 a(g6 V\u000a p4985 tp4986 a(g24 V"Replace the element of the collection with itself transformed by the block" p4987 tp4988 a(g6 V\u000a p4989 tp4990 a(g353 V^ tp4991 a(g6 V tp4992 a(g87 Vself p4993 tp4994 a(g6 V tp4995 a(g48 Vat: p4996 tp4997 a(g6 V tp4998 a(g100 Vindex p4999 tp5000 a(g6 V tp5001 a(g48 Vput: p5002 tp5003 a(g6 V tp5004 a(g6 V( tp5005 a(g100 VaBlock p5006 tp5007 a(g6 V tp5008 a(g48 Vvalue: p5009 tp5010 a(g6 V tp5011 a(g6 V( tp5012 a(g87 Vself p5013 tp5014 a(g6 V tp5015 a(g48 Vat: p5016 tp5017 a(g6 V tp5018 a(g100 Vindex p5019 tp5020 a(g6 V) tp5021 a(g6 V) tp5022 a(g138 V! ! p5023 tp5024 a(g6 V\u000a\u000a p5025 tp5026 a(g138 V! tp5027 a(g133 VObject p5028 tp5029 a(g138 V methodsFor: p5030 tp5031 a(g236 V'accessing' p5032 tp5033 a(g138 V stamp: 'yo 6/29/2004 13:08'! p5034 tp5035 a(g6 V\u000a tp5036 a(g48 Vat: p5037 tp5038 a(g6 V tp5039 a(g100 Vindex p5040 tp5041 a(g6 V tp5042 a(g48 Vput: p5043 tp5044 a(g6 V tp5045 a(g100 Vvalue p5046 tp5047 a(g6 V \u000a p5048 tp5049 a(g24 V"Primitive. Assumes receiver is indexable. Store the argument value in \u000a the indexable element of the receiver indicated by index. Fail if the \u000a index is not an Integer or is out of bounds. Or fail if the value is not of \u000a the right type for this kind of collection. Answer the value that was \u000a stored. Essential. See Object documentation whatIsAPrimitive." p5050 tp5051 a(g6 V\u000a\u000a p5052 tp5053 a(g6 V< tp5054 a(g138 Vprimitive: p5055 tp5056 a(g6 V 61 p5057 tp5058 a(g6 V> tp5059 a(g6 V\u000a p5060 tp5061 a(g100 Vindex p5062 tp5063 a(g6 V tp5064 a(g48 VisInteger p5065 tp5066 a(g6 V tp5067 a(g84 VifTrue: p5068 tp5069 a(g6 V\u000a p5070 tp5071 a(g6 V[ tp5072 a(g6 V tp5073 a(g87 Vself p5074 tp5075 a(g6 V tp5076 a(g48 Vclass p5077 tp5078 a(g6 V tp5079 a(g48 VisVariable p5080 tp5081 a(g6 V\u000a p5082 tp5083 a(g84 VifTrue: p5084 tp5085 a(g6 V tp5086 a(g6 V[ tp5087 a(g6 V tp5088 a(g6 V( tp5089 a(g100 Vindex p5090 tp5091 a(g6 V tp5092 a(g48 V>= p5093 tp5094 a(g6 V tp5095 a(g223 V1 tp5096 a(g6 V tp5097 a(g48 Vand: p5098 tp5099 a(g6 V tp5100 a(g6 V[ tp5101 a(g6 V tp5102 a(g100 Vindex p5103 tp5104 a(g6 V tp5105 a(g48 V<= p5106 tp5107 a(g6 V tp5108 a(g87 Vself p5109 tp5110 a(g6 V tp5111 a(g48 Vsize p5112 tp5113 a(g6 V] tp5114 a(g6 V) tp5115 a(g6 V\u000a p5116 tp5117 a(g84 VifTrue: p5118 tp5119 a(g6 V tp5120 a(g6 V[ tp5121 a(g6 V tp5122 a(g87 Vself p5123 tp5124 a(g6 V tp5125 a(g48 VerrorImproperStore p5126 tp5127 a(g6 V] tp5128 a(g6 V\u000a p5129 tp5130 a(g84 VifFalse: p5131 tp5132 a(g6 V tp5133 a(g6 V[ tp5134 a(g6 V tp5135 a(g87 Vself p5136 tp5137 a(g6 V tp5138 a(g48 VerrorSubscriptBounds: p5139 tp5140 a(g6 V tp5141 a(g100 Vindex p5142 tp5143 a(g6 V] tp5144 a(g6 V] tp5145 a(g6 V\u000a p5146 tp5147 a(g84 VifFalse: p5148 tp5149 a(g6 V tp5150 a(g6 V[ tp5151 a(g6 V tp5152 a(g87 Vself p5153 tp5154 a(g6 V tp5155 a(g48 VerrorNotIndexable p5156 tp5157 a(g6 V] tp5158 a(g6 V] tp5159 a(g212 V. tp5160 a(g6 V\u000a p5161 tp5162 a(g100 Vindex p5163 tp5164 a(g6 V tp5165 a(g48 VisNumber p5166 tp5167 a(g6 V\u000a p5168 tp5169 a(g84 VifTrue: p5170 tp5171 a(g6 V tp5172 a(g6 V[ tp5173 a(g6 V tp5174 a(g353 V^ tp5175 a(g87 Vself p5176 tp5177 a(g6 V tp5178 a(g48 Vat: p5179 tp5180 a(g6 V tp5181 a(g100 Vindex p5182 tp5183 a(g6 V tp5184 a(g48 VasInteger p5185 tp5186 a(g6 V tp5187 a(g48 Vput: p5188 tp5189 a(g6 V tp5190 a(g100 Vvalue p5191 tp5192 a(g6 V] tp5193 a(g6 V\u000a p5194 tp5195 a(g84 VifFalse: p5196 tp5197 a(g6 V tp5198 a(g6 V[ tp5199 a(g6 V tp5200 a(g87 Vself p5201 tp5202 a(g6 V tp5203 a(g48 VerrorNonIntegerIndex p5204 tp5205 a(g6 V] tp5206 a(g138 V! ! p5207 tp5208 a(g6 V\u000a\u000a p5209 tp5210 a(g138 V! tp5211 a(g133 VObject p5212 tp5213 a(g138 V methodsFor: p5214 tp5215 a(g236 V'accessing' p5216 tp5217 a(g138 V stamp: 'yo 9/20/2004 10:22'! p5218 tp5219 a(g6 V\u000a tp5220 a(g48 VbasicAddInstanceVarNamed: p5221 tp5222 a(g6 V tp5223 a(g100 VaName p5224 tp5225 a(g6 V tp5226 a(g48 VwithValue: p5227 tp5228 a(g6 V tp5229 a(g100 VaValue p5230 tp5231 a(g6 V\u000a p5232 tp5233 a(g24 V"Add an instance variable named aName and give it value aValue" p5234 tp5235 a(g6 V\u000a p5236 tp5237 a(g87 Vself p5238 tp5239 a(g6 V tp5240 a(g48 Vclass p5241 tp5242 a(g6 V tp5243 a(g48 VaddInstVarName: p5244 tp5245 a(g6 V tp5246 a(g100 VaName p5247 tp5248 a(g6 V tp5249 a(g48 VasString p5250 tp5251 a(g212 V. tp5252 a(g6 V\u000a p5253 tp5254 a(g87 Vself p5255 tp5256 a(g6 V tp5257 a(g48 VinstVarAt: p5258 tp5259 a(g6 V tp5260 a(g87 Vself p5261 tp5262 a(g6 V tp5263 a(g48 Vclass p5264 tp5265 a(g6 V tp5266 a(g48 VinstSize p5267 tp5268 a(g6 V tp5269 a(g48 Vput: p5270 tp5271 a(g6 V tp5272 a(g100 VaValue p5273 tp5274 a(g138 V! ! p5275 tp5276 a(g6 V\u000a\u000a p5277 tp5278 a(g138 V! tp5279 a(g133 VObject p5280 tp5281 a(g138 V methodsFor: p5282 tp5283 a(g236 V'accessing' p5284 tp5285 a(g138 V! tp5286 a(g6 V\u000a tp5287 a(g48 VbasicAt: p5288 tp5289 a(g6 V tp5290 a(g100 Vindex p5291 tp5292 a(g6 V \u000a p5293 tp5294 a(g24 V"Primitive. Assumes receiver is indexable. Answer the value of an \u000a indexable element in the receiver. Fail if the argument index is not an \u000a Integer or is out of bounds. Essential. Do not override in a subclass. See \u000a Object documentation whatIsAPrimitive." p5295 tp5296 a(g6 V\u000a\u000a p5297 tp5298 a(g6 V< tp5299 a(g138 Vprimitive: p5300 tp5301 a(g6 V 60 p5302 tp5303 a(g6 V> tp5304 a(g6 V\u000a p5305 tp5306 a(g100 Vindex p5307 tp5308 a(g6 V tp5309 a(g48 VisInteger p5310 tp5311 a(g6 V tp5312 a(g84 VifTrue: p5313 tp5314 a(g6 V tp5315 a(g6 V[ tp5316 a(g6 V tp5317 a(g87 Vself p5318 tp5319 a(g6 V tp5320 a(g48 VerrorSubscriptBounds: p5321 tp5322 a(g6 V tp5323 a(g100 Vindex p5324 tp5325 a(g6 V] tp5326 a(g212 V. tp5327 a(g6 V\u000a p5328 tp5329 a(g100 Vindex p5330 tp5331 a(g6 V tp5332 a(g48 VisNumber p5333 tp5334 a(g6 V\u000a p5335 tp5336 a(g84 VifTrue: p5337 tp5338 a(g6 V tp5339 a(g6 V[ tp5340 a(g6 V tp5341 a(g353 V^ tp5342 a(g87 Vself p5343 tp5344 a(g6 V tp5345 a(g48 VbasicAt: p5346 tp5347 a(g6 V tp5348 a(g100 Vindex p5349 tp5350 a(g6 V tp5351 a(g48 VasInteger p5352 tp5353 a(g6 V] tp5354 a(g6 V\u000a p5355 tp5356 a(g84 VifFalse: p5357 tp5358 a(g6 V tp5359 a(g6 V[ tp5360 a(g6 V tp5361 a(g87 Vself p5362 tp5363 a(g6 V tp5364 a(g48 VerrorNonIntegerIndex p5365 tp5366 a(g6 V] tp5367 a(g138 V! ! p5368 tp5369 a(g6 V\u000a\u000a p5370 tp5371 a(g138 V! tp5372 a(g133 VObject p5373 tp5374 a(g138 V methodsFor: p5375 tp5376 a(g236 V'accessing' p5377 tp5378 a(g138 V! tp5379 a(g6 V\u000a tp5380 a(g48 VbasicAt: p5381 tp5382 a(g6 V tp5383 a(g100 Vindex p5384 tp5385 a(g6 V tp5386 a(g48 Vput: p5387 tp5388 a(g6 V tp5389 a(g100 Vvalue p5390 tp5391 a(g6 V \u000a p5392 tp5393 a(g24 V"Primitive. Assumes receiver is indexable. Store the second argument \u000a value in the indexable element of the receiver indicated by index. Fail \u000a if the index is not an Integer or is out of bounds. Or fail if the value is \u000a not of the right type for this kind of collection. Answer the value that \u000a was stored. Essential. Do not override in a subclass. See Object \u000a documentation whatIsAPrimitive." p5394 tp5395 a(g6 V\u000a\u000a p5396 tp5397 a(g6 V< tp5398 a(g138 Vprimitive: p5399 tp5400 a(g6 V 61 p5401 tp5402 a(g6 V> tp5403 a(g6 V\u000a p5404 tp5405 a(g100 Vindex p5406 tp5407 a(g6 V tp5408 a(g48 VisInteger p5409 tp5410 a(g6 V\u000a p5411 tp5412 a(g84 VifTrue: p5413 tp5414 a(g6 V tp5415 a(g6 V[ tp5416 a(g6 V tp5417 a(g6 V( tp5418 a(g100 Vindex p5419 tp5420 a(g6 V tp5421 a(g48 V>= p5422 tp5423 a(g6 V tp5424 a(g223 V1 tp5425 a(g6 V tp5426 a(g48 Vand: p5427 tp5428 a(g6 V tp5429 a(g6 V[ tp5430 a(g6 V tp5431 a(g100 Vindex p5432 tp5433 a(g6 V tp5434 a(g48 V<= p5435 tp5436 a(g6 V tp5437 a(g87 Vself p5438 tp5439 a(g6 V tp5440 a(g48 Vsize p5441 tp5442 a(g6 V] tp5443 a(g6 V) tp5444 a(g6 V\u000a p5445 tp5446 a(g84 VifTrue: p5447 tp5448 a(g6 V tp5449 a(g6 V[ tp5450 a(g6 V tp5451 a(g87 Vself p5452 tp5453 a(g6 V tp5454 a(g48 VerrorImproperStore p5455 tp5456 a(g6 V] tp5457 a(g6 V\u000a p5458 tp5459 a(g84 VifFalse: p5460 tp5461 a(g6 V tp5462 a(g6 V[ tp5463 a(g6 V tp5464 a(g87 Vself p5465 tp5466 a(g6 V tp5467 a(g48 VerrorSubscriptBounds: p5468 tp5469 a(g6 V tp5470 a(g100 Vindex p5471 tp5472 a(g6 V] tp5473 a(g6 V] tp5474 a(g212 V. tp5475 a(g6 V\u000a p5476 tp5477 a(g100 Vindex p5478 tp5479 a(g6 V tp5480 a(g48 VisNumber p5481 tp5482 a(g6 V\u000a p5483 tp5484 a(g84 VifTrue: p5485 tp5486 a(g6 V tp5487 a(g6 V[ tp5488 a(g6 V tp5489 a(g353 V^ tp5490 a(g87 Vself p5491 tp5492 a(g6 V tp5493 a(g48 VbasicAt: p5494 tp5495 a(g6 V tp5496 a(g100 Vindex p5497 tp5498 a(g6 V tp5499 a(g48 VasInteger p5500 tp5501 a(g6 V tp5502 a(g48 Vput: p5503 tp5504 a(g6 V tp5505 a(g100 Vvalue p5506 tp5507 a(g6 V] tp5508 a(g6 V\u000a p5509 tp5510 a(g84 VifFalse: p5511 tp5512 a(g6 V tp5513 a(g6 V[ tp5514 a(g6 V tp5515 a(g87 Vself p5516 tp5517 a(g6 V tp5518 a(g48 VerrorNonIntegerIndex p5519 tp5520 a(g6 V] tp5521 a(g138 V! ! p5522 tp5523 a(g6 V\u000a\u000a p5524 tp5525 a(g138 V! tp5526 a(g133 VObject p5527 tp5528 a(g138 V methodsFor: p5529 tp5530 a(g236 V'accessing' p5531 tp5532 a(g138 V! tp5533 a(g6 V\u000a tp5534 a(g48 VbasicSize p5535 tp5536 a(g6 V\u000a p5537 tp5538 a(g24 V"Primitive. Answer the number of indexable variables in the receiver. \u000a This value is the same as the largest legal subscript. Essential. Do not \u000a override in any subclass. See Object documentation whatIsAPrimitive." p5539 tp5540 a(g6 V\u000a\u000a p5541 tp5542 a(g6 V< tp5543 a(g138 Vprimitive: p5544 tp5545 a(g6 V 62 p5546 tp5547 a(g6 V> tp5548 a(g6 V\u000a p5549 tp5550 a(g24 V"The number of indexable fields of fixed-length objects is 0" p5551 tp5552 a(g6 V\u000a p5553 tp5554 a(g353 V^ tp5555 a(g223 V0 tp5556 a(g6 V tp5557 a(g138 V! ! p5558 tp5559 a(g6 V\u000a\u000a p5560 tp5561 a(g138 V! tp5562 a(g133 VObject p5563 tp5564 a(g138 V methodsFor: p5565 tp5566 a(g236 V'accessing' p5567 tp5568 a(g138 V! tp5569 a(g6 V\u000a tp5570 a(g48 VbindWithTemp: p5571 tp5572 a(g6 V tp5573 a(g100 VaBlock p5574 tp5575 a(g6 V\u000a p5576 tp5577 a(g353 V^ tp5578 a(g6 V tp5579 a(g100 VaBlock p5580 tp5581 a(g6 V tp5582 a(g48 Vvalue: p5583 tp5584 a(g6 V tp5585 a(g87 Vself p5586 tp5587 a(g6 V tp5588 a(g48 Vvalue: p5589 tp5590 a(g6 V tp5591 a(g87 Vnil p5592 tp5593 a(g138 V! ! p5594 tp5595 a(g6 V\u000a\u000a p5596 tp5597 a(g138 V! tp5598 a(g133 VObject p5599 tp5600 a(g138 V methodsFor: p5601 tp5602 a(g236 V'accessing' p5603 tp5604 a(g138 V stamp: 'md 10/7/2004 15:43'! p5605 tp5606 a(g6 V\u000a tp5607 a(g48 VifNil: p5608 tp5609 a(g6 V tp5610 a(g100 VnilBlock p5611 tp5612 a(g6 V tp5613 a(g48 VifNotNilDo: p5614 tp5615 a(g6 V tp5616 a(g100 VaBlock p5617 tp5618 a(g6 V \u000a p5619 tp5620 a(g24 V"Evaluate aBlock with the receiver as its argument." p5621 tp5622 a(g6 V\u000a\u000a p5623 tp5624 a(g353 V^ tp5625 a(g6 V tp5626 a(g100 VaBlock p5627 tp5628 a(g6 V tp5629 a(g48 Vvalue: p5630 tp5631 a(g6 V tp5632 a(g87 Vself p5633 tp5634 a(g6 V\u000a tp5635 a(g138 V! ! p5636 tp5637 a(g6 V\u000a\u000a p5638 tp5639 a(g138 V! tp5640 a(g133 VObject p5641 tp5642 a(g138 V methodsFor: p5643 tp5644 a(g236 V'accessing' p5645 tp5646 a(g138 V stamp: 'di 11/8/2000 21:04'! p5647 tp5648 a(g6 V\u000a tp5649 a(g48 VifNotNilDo: p5650 tp5651 a(g6 V tp5652 a(g100 VaBlock p5653 tp5654 a(g6 V\u000a p5655 tp5656 a(g24 V"Evaluate the given block with the receiver as its argument." p5657 tp5658 a(g6 V\u000a\u000a p5659 tp5660 a(g353 V^ tp5661 a(g6 V tp5662 a(g100 VaBlock p5663 tp5664 a(g6 V tp5665 a(g48 Vvalue: p5666 tp5667 a(g6 V tp5668 a(g87 Vself p5669 tp5670 a(g6 V\u000a tp5671 a(g138 V! ! p5672 tp5673 a(g6 V\u000a\u000a p5674 tp5675 a(g138 V! tp5676 a(g133 VObject p5677 tp5678 a(g138 V methodsFor: p5679 tp5680 a(g236 V'accessing' p5681 tp5682 a(g138 V stamp: 'md 10/7/2004 15:43'! p5683 tp5684 a(g6 V\u000a tp5685 a(g48 VifNotNilDo: p5686 tp5687 a(g6 V tp5688 a(g100 VaBlock p5689 tp5690 a(g6 V tp5691 a(g48 VifNil: p5692 tp5693 a(g6 V tp5694 a(g100 VnilBlock p5695 tp5696 a(g6 V\u000a p5697 tp5698 a(g24 V"Evaluate aBlock with the receiver as its argument." p5699 tp5700 a(g6 V\u000a\u000a p5701 tp5702 a(g353 V^ tp5703 a(g6 V tp5704 a(g100 VaBlock p5705 tp5706 a(g6 V tp5707 a(g48 Vvalue: p5708 tp5709 a(g6 V tp5710 a(g87 Vself p5711 tp5712 a(g6 V\u000a tp5713 a(g138 V! ! p5714 tp5715 a(g6 V\u000a\u000a p5716 tp5717 a(g138 V! tp5718 a(g133 VObject p5719 tp5720 a(g138 V methodsFor: p5721 tp5722 a(g236 V'accessing' p5723 tp5724 a(g138 V stamp: 'ajh 1/21/2003 12:59'! p5725 tp5726 a(g6 V\u000a tp5727 a(g48 Vin: p5728 tp5729 a(g6 V tp5730 a(g100 VaBlock p5731 tp5732 a(g6 V\u000a p5733 tp5734 a(g24 V"Evaluate the given block with the receiver as its argument." p5735 tp5736 a(g6 V\u000a\u000a p5737 tp5738 a(g353 V^ tp5739 a(g6 V tp5740 a(g100 VaBlock p5741 tp5742 a(g6 V tp5743 a(g48 Vvalue: p5744 tp5745 a(g6 V tp5746 a(g87 Vself p5747 tp5748 a(g6 V\u000a tp5749 a(g138 V! ! p5750 tp5751 a(g6 V\u000a\u000a p5752 tp5753 a(g138 V! tp5754 a(g133 VObject p5755 tp5756 a(g138 V methodsFor: p5757 tp5758 a(g236 V'accessing' p5759 tp5760 a(g138 V stamp: 'sw 10/17/2000 11:15'! p5761 tp5762 a(g6 V\u000a tp5763 a(g48 Vpresenter p5764 tp5765 a(g6 V\u000a p5766 tp5767 a(g24 V"Answer the presenter object associated with the receiver. For morphs, there is in effect a clear containment hierarchy of presenters (accessed via their association with PasteUpMorphs); for arbitrary objects the hook is simply via the current world, at least at present." p5768 tp5769 a(g6 V\u000a\u000a p5770 tp5771 a(g353 V^ tp5772 a(g6 V tp5773 a(g87 Vself p5774 tp5775 a(g6 V tp5776 a(g48 VcurrentWorld p5777 tp5778 a(g6 V tp5779 a(g48 Vpresenter p5780 tp5781 a(g138 V! ! p5782 tp5783 a(g6 V\u000a\u000a p5784 tp5785 a(g138 V! tp5786 a(g133 VObject p5787 tp5788 a(g138 V methodsFor: p5789 tp5790 a(g236 V'accessing' p5791 tp5792 a(g138 V! tp5793 a(g6 V\u000a tp5794 a(g48 VreadFromString: p5795 tp5796 a(g6 V tp5797 a(g100 VaString p5798 tp5799 a(g6 V\u000a p5800 tp5801 a(g24 V"Create an object based on the contents of aString." p5802 tp5803 a(g6 V\u000a\u000a p5804 tp5805 a(g353 V^ tp5806 a(g87 Vself p5807 tp5808 a(g6 V tp5809 a(g48 VreadFrom: p5810 tp5811 a(g6 V tp5812 a(g6 V( tp5813 a(g133 VReadStream p5814 tp5815 a(g6 V tp5816 a(g48 Von: p5817 tp5818 a(g6 V tp5819 a(g100 VaString p5820 tp5821 a(g6 V) tp5822 a(g138 V! ! p5823 tp5824 a(g6 V\u000a\u000a p5825 tp5826 a(g138 V! tp5827 a(g133 VObject p5828 tp5829 a(g138 V methodsFor: p5830 tp5831 a(g236 V'accessing' p5832 tp5833 a(g138 V stamp: 'di 3/29/1999 13:10'! p5834 tp5835 a(g6 V\u000a tp5836 a(g48 Vsize p5837 tp5838 a(g6 V\u000a p5839 tp5840 a(g24 V"Primitive. Answer the number of indexable variables in the receiver. \u000a This value is the same as the largest legal subscript. Essential. See Object \u000a documentation whatIsAPrimitive." p5841 tp5842 a(g6 V\u000a\u000a p5843 tp5844 a(g6 V< tp5845 a(g138 Vprimitive: p5846 tp5847 a(g6 V 62 p5848 tp5849 a(g6 V> tp5850 a(g6 V\u000a p5851 tp5852 a(g87 Vself p5853 tp5854 a(g6 V tp5855 a(g48 Vclass p5856 tp5857 a(g6 V tp5858 a(g48 VisVariable p5859 tp5860 a(g6 V tp5861 a(g84 VifFalse: p5862 tp5863 a(g6 V tp5864 a(g6 V[ tp5865 a(g6 V tp5866 a(g87 Vself p5867 tp5868 a(g6 V tp5869 a(g48 VerrorNotIndexable p5870 tp5871 a(g6 V] tp5872 a(g212 V. tp5873 a(g6 V\u000a p5874 tp5875 a(g353 V^ tp5876 a(g6 V tp5877 a(g223 V0 tp5878 a(g138 V! ! p5879 tp5880 a(g6 V\u000a\u000a p5881 tp5882 a(g138 V! tp5883 a(g133 VObject p5884 tp5885 a(g138 V methodsFor: p5886 tp5887 a(g236 V'accessing' p5888 tp5889 a(g138 V stamp: 'md 5/16/2006 12:34'! p5890 tp5891 a(g6 V\u000a tp5892 a(g48 Vyourself p5893 tp5894 a(g6 V\u000a p5895 tp5896 a(g24 V"Answer self." p5897 tp5898 a(g6 V\u000a p5899 tp5900 a(g353 V^ tp5901 a(g87 Vself p5902 tp5903 a(g138 V! ! p5904 tp5905 a(g6 V\u000a\u000a\u000a p5906 tp5907 a(g138 V! tp5908 a(g133 VObject p5909 tp5910 a(g138 V methodsFor: p5911 tp5912 a(g236 V'associating' p5913 tp5914 a(g138 V stamp: 'md 7/22/2005 16:03'! p5915 tp5916 a(g6 V\u000a tp5917 a(g48 V-> p5918 tp5919 a(g6 V tp5920 a(g100 VanObject p5921 tp5922 a(g6 V\u000a p5923 tp5924 a(g24 V"Answer an Association between self and anObject" p5925 tp5926 a(g6 V\u000a\u000a p5927 tp5928 a(g353 V^ tp5929 a(g133 VAssociation p5930 tp5931 a(g6 V tp5932 a(g48 VbasicNew p5933 tp5934 a(g6 V tp5935 a(g48 Vkey: p5936 tp5937 a(g6 V tp5938 a(g87 Vself p5939 tp5940 a(g6 V tp5941 a(g48 Vvalue: p5942 tp5943 a(g6 V tp5944 a(g100 VanObject p5945 tp5946 a(g138 V! ! p5947 tp5948 a(g6 V\u000a\u000a\u000a p5949 tp5950 a(g138 V! tp5951 a(g133 VObject p5952 tp5953 a(g138 V methodsFor: p5954 tp5955 a(g236 V'binding' p5956 tp5957 a(g138 V! tp5958 a(g6 V\u000a tp5959 a(g48 VbindingOf: p5960 tp5961 a(g6 V tp5962 a(g100 VaString p5963 tp5964 a(g6 V\u000a p5965 tp5966 a(g353 V^ tp5967 a(g87 Vnil p5968 tp5969 a(g138 V! ! p5970 tp5971 a(g6 V\u000a\u000a\u000a p5972 tp5973 a(g138 V! tp5974 a(g133 VObject p5975 tp5976 a(g138 V methodsFor: p5977 tp5978 a(g236 V'breakpoint' p5979 tp5980 a(g138 V stamp: 'bkv 7/1/2003 12:33'! p5981 tp5982 a(g6 V\u000a tp5983 a(g48 Vbreak p5984 tp5985 a(g6 V\u000a p5986 tp5987 a(g24 V"This is a simple message to use for inserting breakpoints during debugging.\u000a The debugger is opened by sending a signal. This gives a chance to restore\u000a invariants related to multiple processes." p5988 tp5989 a(g6 V\u000a\u000a p5990 tp5991 a(g133 VBreakPoint p5992 tp5993 a(g6 V tp5994 a(g48 Vsignal p5995 tp5996 a(g212 V. tp5997 a(g6 V\u000a\u000a p5998 tp5999 a(g24 V"nil break." p6000 tp6001 a(g138 V! ! p6002 tp6003 a(g6 V\u000a\u000a\u000a p6004 tp6005 a(g138 V! tp6006 a(g133 VObject p6007 tp6008 a(g138 V methodsFor: p6009 tp6010 a(g236 V'casing' p6011 tp6012 a(g138 V! tp6013 a(g6 V\u000a tp6014 a(g48 VcaseOf: p6015 tp6016 a(g6 V tp6017 a(g100 VaBlockAssociationCollection p6018 tp6019 a(g6 V\u000a p6020 tp6021 a(g24 V"The elements of aBlockAssociationCollection are associations between blocks.\u000a Answer the evaluated value of the first association in aBlockAssociationCollection\u000a whose evaluated key equals the receiver. If no match is found, report an error." p6022 tp6023 a(g6 V\u000a\u000a p6024 tp6025 a(g353 V^ tp6026 a(g6 V tp6027 a(g87 Vself p6028 tp6029 a(g6 V tp6030 a(g48 VcaseOf: p6031 tp6032 a(g6 V tp6033 a(g100 VaBlockAssociationCollection p6034 tp6035 a(g6 V tp6036 a(g48 Votherwise: p6037 tp6038 a(g6 V tp6039 a(g6 V[ tp6040 a(g6 V tp6041 a(g87 Vself p6042 tp6043 a(g6 V tp6044 a(g48 VcaseError p6045 tp6046 a(g6 V] tp6047 a(g6 V\u000a\u000a p6048 tp6049 a(g24 V"| z | z _ {[#a]->[1+1]. ['b' asSymbol]->[2+2]. [#c]->[3+3]}. #b caseOf: z" p6050 tp6051 a(g6 V\u000a tp6052 a(g24 V"| z | z _ {[#a]->[1+1]. ['d' asSymbol]->[2+2]. [#c]->[3+3]}. #b caseOf: z" p6053 tp6054 a(g6 V\u000a tp6055 a(g24 V"The following are compiled in-line:" p6056 tp6057 a(g6 V\u000a tp6058 a(g24 V"#b caseOf: {[#a]->[1+1]. ['b' asSymbol]->[2+2]. [#c]->[3+3]}" p6059 tp6060 a(g6 V\u000a tp6061 a(g24 V"#b caseOf: {[#a]->[1+1]. ['d' asSymbol]->[2+2]. [#c]->[3+3]}" p6062 tp6063 a(g138 V! ! p6064 tp6065 a(g6 V\u000a\u000a p6066 tp6067 a(g138 V! tp6068 a(g133 VObject p6069 tp6070 a(g138 V methodsFor: p6071 tp6072 a(g236 V'casing' p6073 tp6074 a(g138 V! tp6075 a(g6 V\u000a tp6076 a(g48 VcaseOf: p6077 tp6078 a(g6 V tp6079 a(g100 VaBlockAssociationCollection p6080 tp6081 a(g6 V tp6082 a(g48 Votherwise: p6083 tp6084 a(g6 V tp6085 a(g100 VaBlock p6086 tp6087 a(g6 V\u000a p6088 tp6089 a(g24 V"The elements of aBlockAssociationCollection are associations between blocks.\u000a Answer the evaluated value of the first association in aBlockAssociationCollection\u000a whose evaluated key equals the receiver. If no match is found, answer the result\u000a of evaluating aBlock." p6090 tp6091 a(g6 V\u000a\u000a p6092 tp6093 a(g100 VaBlockAssociationCollection p6094 tp6095 a(g6 V tp6096 a(g48 VassociationsDo: p6097 tp6098 a(g6 V\u000a p6099 tp6100 a(g6 V[ tp6101 a(g353 V: tp6102 a(g100 Vassoc p6103 tp6104 a(g6 V tp6105 a(g353 V| tp6106 a(g6 V tp6107 a(g6 V( tp6108 a(g100 Vassoc p6109 tp6110 a(g6 V tp6111 a(g48 Vkey p6112 tp6113 a(g6 V tp6114 a(g48 Vvalue p6115 tp6116 a(g6 V tp6117 a(g48 V= tp6118 a(g6 V tp6119 a(g87 Vself p6120 tp6121 a(g6 V) tp6122 a(g6 V tp6123 a(g84 VifTrue: p6124 tp6125 a(g6 V tp6126 a(g6 V[ tp6127 a(g6 V tp6128 a(g353 V^ tp6129 a(g100 Vassoc p6130 tp6131 a(g6 V tp6132 a(g48 Vvalue p6133 tp6134 a(g6 V tp6135 a(g48 Vvalue p6136 tp6137 a(g6 V] tp6138 a(g6 V] tp6139 a(g212 V. tp6140 a(g6 V\u000a p6141 tp6142 a(g353 V^ tp6143 a(g6 V tp6144 a(g100 VaBlock p6145 tp6146 a(g6 V tp6147 a(g48 Vvalue p6148 tp6149 a(g6 V\u000a\u000a p6150 tp6151 a(g24 V"| z | z _ {[#a]->[1+1]. ['b' asSymbol]->[2+2]. [#c]->[3+3]}. #b caseOf: z otherwise: [0]" p6152 tp6153 a(g6 V\u000a tp6154 a(g24 V"| z | z _ {[#a]->[1+1]. ['d' asSymbol]->[2+2]. [#c]->[3+3]}. #b caseOf: z otherwise: [0]" p6155 tp6156 a(g6 V\u000a tp6157 a(g24 V"The following are compiled in-line:" p6158 tp6159 a(g6 V\u000a tp6160 a(g24 V"#b caseOf: {[#a]->[1+1]. ['b' asSymbol]->[2+2]. [#c]->[3+3]} otherwise: [0]" p6161 tp6162 a(g6 V\u000a tp6163 a(g24 V"#b caseOf: {[#a]->[1+1]. ['d' asSymbol]->[2+2]. [#c]->[3+3]} otherwise: [0]" p6164 tp6165 a(g138 V! ! p6166 tp6167 a(g6 V\u000a\u000a\u000a p6168 tp6169 a(g138 V! tp6170 a(g133 VObject p6171 tp6172 a(g138 V methodsFor: p6173 tp6174 a(g236 V'class membership' p6175 tp6176 a(g138 V! tp6177 a(g6 V\u000a tp6178 a(g48 Vclass p6179 tp6180 a(g6 V\u000a p6181 tp6182 a(g24 V"Primitive. Answer the object which is the receiver's class. Essential. See \u000a Object documentation whatIsAPrimitive." p6183 tp6184 a(g6 V\u000a\u000a p6185 tp6186 a(g6 V< tp6187 a(g138 Vprimitive: p6188 tp6189 a(g6 V 111 p6190 tp6191 a(g6 V> tp6192 a(g6 V\u000a p6193 tp6194 a(g87 Vself p6195 tp6196 a(g6 V tp6197 a(g48 VprimitiveFailed p6198 tp6199 a(g138 V! ! p6200 tp6201 a(g6 V\u000a\u000a p6202 tp6203 a(g138 V! tp6204 a(g133 VObject p6205 tp6206 a(g138 V methodsFor: p6207 tp6208 a(g236 V'class membership' p6209 tp6210 a(g138 V stamp: 'sw 9/27/2001 15:51'! p6211 tp6212 a(g6 V\u000a tp6213 a(g48 VinheritsFromAnyIn: p6214 tp6215 a(g6 V tp6216 a(g100 VaList p6217 tp6218 a(g6 V\u000a p6219 tp6220 a(g24 V"Answer whether the receiver inherits from any class represented by any element in the list. The elements of the list can be classes, class name symbols, or strings representing possible class names. This allows speculative membership tests to be made even when some of the classes may not be known to the current image, and even when their names are not interned symbols." p6221 tp6222 a(g6 V\u000a\u000a p6223 tp6224 a(g353 V| tp6225 a(g100 V aClass p6226 tp6227 a(g353 V| tp6228 a(g6 V\u000a p6229 tp6230 a(g100 VaList p6231 tp6232 a(g6 V tp6233 a(g48 Vdo: p6234 tp6235 a(g6 V\u000a p6236 tp6237 a(g6 V[ tp6238 a(g353 V: tp6239 a(g100 Velem p6240 tp6241 a(g6 V tp6242 a(g353 V| tp6243 a(g6 V tp6244 a(g133 VSymbol p6245 tp6246 a(g6 V tp6247 a(g48 VhasInterned: p6248 tp6249 a(g6 V tp6250 a(g100 Velem p6251 tp6252 a(g6 V tp6253 a(g48 VasString p6254 tp6255 a(g6 V tp6256 a(g84 VifTrue: p6257 tp6258 a(g6 V \u000a p6259 tp6260 a(g6 V[ tp6261 a(g353 V: tp6262 a(g100 VelemSymbol p6263 tp6264 a(g6 V tp6265 a(g353 V| tp6266 a(g6 V tp6267 a(g6 V( tp6268 a(g6 V( tp6269 a(g6 V( tp6270 a(g100 VaClass p6271 tp6272 a(g6 V tp6273 a(g353 V_ tp6274 a(g6 V tp6275 a(g133 VSmalltalk p6276 tp6277 a(g6 V tp6278 a(g48 Vat: p6279 tp6280 a(g6 V tp6281 a(g100 VelemSymbol p6282 tp6283 a(g6 V tp6284 a(g48 VifAbsent: p6285 tp6286 a(g6 V tp6287 a(g6 V[ tp6288 a(g6 V tp6289 a(g87 Vnil p6290 tp6291 a(g6 V] tp6292 a(g6 V) tp6293 a(g6 V tp6294 a(g48 VisKindOf: p6295 tp6296 a(g6 V tp6297 a(g133 VClass p6298 tp6299 a(g6 V) tp6300 a(g6 V\u000a p6301 tp6302 a(g48 Vand: p6303 tp6304 a(g6 V tp6305 a(g6 V[ tp6306 a(g6 V tp6307 a(g87 Vself p6308 tp6309 a(g6 V tp6310 a(g48 VisKindOf: p6311 tp6312 a(g6 V tp6313 a(g100 VaClass p6314 tp6315 a(g6 V] tp6316 a(g6 V) tp6317 a(g6 V\u000a p6318 tp6319 a(g84 VifTrue: p6320 tp6321 a(g6 V\u000a p6322 tp6323 a(g6 V[ tp6324 a(g6 V tp6325 a(g353 V^ tp6326 a(g6 V tp6327 a(g87 Vtrue p6328 tp6329 a(g6 V] tp6330 a(g6 V] tp6331 a(g6 V] tp6332 a(g212 V. tp6333 a(g6 V\u000a p6334 tp6335 a(g353 V^ tp6336 a(g6 V tp6337 a(g87 Vfalse p6338 tp6339 a(g6 V\u000a\u000a\u000a p6340 tp6341 a(g24 V"\u000a{3. true. 'olive'} do:\u000a [:token |\u000a {{#Number. #Boolean}. {Number. Boolean }. {'Number'. 'Boolean'}} do:\u000a [:list |\u000a Transcript cr; show: token asString, ' list element provided as a ', list first class name, ' - ', (token inheritsFromAnyIn: list) asString]]\u000a" p6342 tp6343 a(g138 V! ! p6344 tp6345 a(g6 V\u000a\u000a p6346 tp6347 a(g138 V! tp6348 a(g133 VObject p6349 tp6350 a(g138 V methodsFor: p6351 tp6352 a(g236 V'class membership' p6353 tp6354 a(g138 V! tp6355 a(g6 V\u000a tp6356 a(g48 VisKindOf: p6357 tp6358 a(g6 V tp6359 a(g100 VaClass p6360 tp6361 a(g6 V \u000a p6362 tp6363 a(g24 V"Answer whether the class, aClass, is a superclass or class of the receiver." p6364 tp6365 a(g6 V\u000a\u000a p6366 tp6367 a(g87 Vself p6368 tp6369 a(g6 V tp6370 a(g48 Vclass p6371 tp6372 a(g6 V tp6373 a(g48 V== p6374 tp6375 a(g6 V tp6376 a(g100 VaClass p6377 tp6378 a(g6 V\u000a p6379 tp6380 a(g84 VifTrue: p6381 tp6382 a(g6 V tp6383 a(g6 V[ tp6384 a(g6 V tp6385 a(g353 V^ tp6386 a(g87 Vtrue p6387 tp6388 a(g6 V] tp6389 a(g6 V\u000a p6390 tp6391 a(g84 VifFalse: p6392 tp6393 a(g6 V tp6394 a(g6 V[ tp6395 a(g6 V tp6396 a(g353 V^ tp6397 a(g87 Vself p6398 tp6399 a(g6 V tp6400 a(g48 Vclass p6401 tp6402 a(g6 V tp6403 a(g48 VinheritsFrom: p6404 tp6405 a(g6 V tp6406 a(g100 VaClass p6407 tp6408 a(g6 V] tp6409 a(g138 V! ! p6410 tp6411 a(g6 V\u000a\u000a p6412 tp6413 a(g138 V! tp6414 a(g133 VObject p6415 tp6416 a(g138 V methodsFor: p6417 tp6418 a(g236 V'class membership' p6419 tp6420 a(g138 V stamp: 'sw 2/16/98 02:08'! p6421 tp6422 a(g6 V\u000a tp6423 a(g48 VisKindOf: p6424 tp6425 a(g6 V tp6426 a(g100 VaClass p6427 tp6428 a(g6 V tp6429 a(g48 VorOf: p6430 tp6431 a(g6 V tp6432 a(g100 VanotherClass p6433 tp6434 a(g6 V\u000a p6435 tp6436 a(g24 V"Answer whether either of the classes, aClass or anotherClass,, is a superclass or class of the receiver. A convenience; could be somewhat optimized" p6437 tp6438 a(g6 V\u000a p6439 tp6440 a(g353 V^ tp6441 a(g6 V tp6442 a(g6 V( tp6443 a(g87 Vself p6444 tp6445 a(g6 V tp6446 a(g48 VisKindOf: p6447 tp6448 a(g6 V tp6449 a(g100 VaClass p6450 tp6451 a(g6 V) tp6452 a(g6 V tp6453 a(g48 Vor: p6454 tp6455 a(g6 V tp6456 a(g6 V[ tp6457 a(g6 V tp6458 a(g87 Vself p6459 tp6460 a(g6 V tp6461 a(g48 VisKindOf: p6462 tp6463 a(g6 V tp6464 a(g100 VanotherClass p6465 tp6466 a(g6 V] tp6467 a(g138 V! ! p6468 tp6469 a(g6 V\u000a\u000a p6470 tp6471 a(g138 V! tp6472 a(g133 VObject p6473 tp6474 a(g138 V methodsFor: p6475 tp6476 a(g236 V'class membership' p6477 tp6478 a(g138 V! tp6479 a(g6 V\u000a tp6480 a(g48 VisMemberOf: p6481 tp6482 a(g6 V tp6483 a(g100 VaClass p6484 tp6485 a(g6 V \u000a p6486 tp6487 a(g24 V"Answer whether the receiver is an instance of the class, aClass." p6488 tp6489 a(g6 V\u000a\u000a p6490 tp6491 a(g353 V^ tp6492 a(g87 Vself p6493 tp6494 a(g6 V tp6495 a(g48 Vclass p6496 tp6497 a(g6 V tp6498 a(g48 V== p6499 tp6500 a(g6 V tp6501 a(g100 VaClass p6502 tp6503 a(g138 V! ! p6504 tp6505 a(g6 V\u000a\u000a p6506 tp6507 a(g138 V! tp6508 a(g133 VObject p6509 tp6510 a(g138 V methodsFor: p6511 tp6512 a(g236 V'class membership' p6513 tp6514 a(g138 V! tp6515 a(g6 V\u000a tp6516 a(g48 VrespondsTo: p6517 tp6518 a(g6 V tp6519 a(g100 VaSymbol p6520 tp6521 a(g6 V \u000a p6522 tp6523 a(g24 V"Answer whether the method dictionary of the receiver's class contains \u000a aSymbol as a message selector." p6524 tp6525 a(g6 V\u000a\u000a p6526 tp6527 a(g353 V^ tp6528 a(g87 Vself p6529 tp6530 a(g6 V tp6531 a(g48 Vclass p6532 tp6533 a(g6 V tp6534 a(g48 VcanUnderstand: p6535 tp6536 a(g6 V tp6537 a(g100 VaSymbol p6538 tp6539 a(g138 V! ! p6540 tp6541 a(g6 V\u000a\u000a p6542 tp6543 a(g138 V! tp6544 a(g133 VObject p6545 tp6546 a(g138 V methodsFor: p6547 tp6548 a(g236 V'class membership' p6549 tp6550 a(g138 V stamp: 'tk 10/21/1998 12:38'! p6551 tp6552 a(g6 V\u000a tp6553 a(g48 VxxxClass p6554 tp6555 a(g6 V\u000a p6556 tp6557 a(g24 V"For subclasses of nil, such as ObjectOut" p6558 tp6559 a(g6 V\u000a p6560 tp6561 a(g353 V^ tp6562 a(g6 V tp6563 a(g87 Vself p6564 tp6565 a(g6 V tp6566 a(g48 Vclass p6567 tp6568 a(g138 V! ! p6569 tp6570 a(g6 V\u000a\u000a\u000a p6571 tp6572 a(g138 V! tp6573 a(g133 VObject p6574 tp6575 a(g138 V methodsFor: p6576 tp6577 a(g236 V'comparing' p6578 tp6579 a(g138 V stamp: 'tk 4/16/1999 18:26'! p6580 tp6581 a(g6 V\u000a tp6582 a(g48 VcloseTo: p6583 tp6584 a(g6 V tp6585 a(g100 VanObject p6586 tp6587 a(g6 V\u000a p6588 tp6589 a(g24 V"Answer whether the receiver and the argument represent the same\u000a object. If = is redefined in any subclass, consider also redefining the\u000a message hash." p6590 tp6591 a(g6 V\u000a\u000a p6592 tp6593 a(g353 V| tp6594 a(g100 V ans p6595 tp6596 a(g353 V| tp6597 a(g6 V\u000a p6598 tp6599 a(g6 V[ tp6600 a(g6 V tp6601 a(g100 Vans p6602 tp6603 a(g6 V tp6604 a(g353 V_ tp6605 a(g6 V tp6606 a(g87 Vself p6607 tp6608 a(g6 V tp6609 a(g48 V= tp6610 a(g6 V tp6611 a(g100 VanObject p6612 tp6613 a(g6 V] tp6614 a(g6 V tp6615 a(g48 VifError: p6616 tp6617 a(g6 V tp6618 a(g6 V[ tp6619 a(g353 V: tp6620 a(g100 VaString p6621 tp6622 a(g6 V tp6623 a(g353 V: tp6624 a(g100 VaReceiver p6625 tp6626 a(g6 V tp6627 a(g353 V| tp6628 a(g6 V tp6629 a(g353 V^ tp6630 a(g6 V tp6631 a(g87 Vfalse p6632 tp6633 a(g6 V] tp6634 a(g212 V. tp6635 a(g6 V\u000a p6636 tp6637 a(g353 V^ tp6638 a(g6 V tp6639 a(g100 Vans p6640 tp6641 a(g138 V! ! p6642 tp6643 a(g6 V\u000a\u000a p6644 tp6645 a(g138 V! tp6646 a(g133 VObject p6647 tp6648 a(g138 V methodsFor: p6649 tp6650 a(g236 V'comparing' p6651 tp6652 a(g138 V! tp6653 a(g6 V\u000a tp6654 a(g48 Vhash p6655 tp6656 a(g6 V\u000a p6657 tp6658 a(g24 V"Answer a SmallInteger whose value is related to the receiver's identity.\u000a May be overridden, and should be overridden in any classes that define = " p6659 tp6660 a(g6 V\u000a\u000a p6661 tp6662 a(g353 V^ tp6663 a(g6 V tp6664 a(g87 Vself p6665 tp6666 a(g6 V tp6667 a(g48 VidentityHash p6668 tp6669 a(g138 V! ! p6670 tp6671 a(g6 V\u000a\u000a p6672 tp6673 a(g138 V! tp6674 a(g133 VObject p6675 tp6676 a(g138 V methodsFor: p6677 tp6678 a(g236 V'comparing' p6679 tp6680 a(g138 V stamp: 'pm 9/23/97 09:36'! p6681 tp6682 a(g6 V\u000a tp6683 a(g48 VhashMappedBy: p6684 tp6685 a(g6 V tp6686 a(g100 Vmap p6687 tp6688 a(g6 V\u000a p6689 tp6690 a(g24 V"Answer what my hash would be if oops changed according to map." p6691 tp6692 a(g6 V\u000a\u000a p6693 tp6694 a(g353 V^ tp6695 a(g100 Vmap p6696 tp6697 a(g6 V tp6698 a(g48 VnewHashFor: p6699 tp6700 a(g6 V tp6701 a(g87 Vself p6702 tp6703 a(g138 V! ! p6704 tp6705 a(g6 V\u000a\u000a p6706 tp6707 a(g138 V! tp6708 a(g133 VObject p6709 tp6710 a(g138 V methodsFor: p6711 tp6712 a(g236 V'comparing' p6713 tp6714 a(g138 V stamp: 'di 9/27/97 20:23'! p6715 tp6716 a(g6 V\u000a tp6717 a(g48 VidentityHashMappedBy: p6718 tp6719 a(g6 V tp6720 a(g100 Vmap p6721 tp6722 a(g6 V\u000a p6723 tp6724 a(g24 V"Answer what my hash would be if oops changed according to map." p6725 tp6726 a(g6 V\u000a\u000a p6727 tp6728 a(g353 V^ tp6729 a(g100 Vmap p6730 tp6731 a(g6 V tp6732 a(g48 VnewHashFor: p6733 tp6734 a(g6 V tp6735 a(g87 Vself p6736 tp6737 a(g138 V! ! p6738 tp6739 a(g6 V\u000a\u000a p6740 tp6741 a(g138 V! tp6742 a(g133 VObject p6743 tp6744 a(g138 V methodsFor: p6745 tp6746 a(g236 V'comparing' p6747 tp6748 a(g138 V stamp: 'sw 8/20/1998 12:34'! p6749 tp6750 a(g6 V\u000a tp6751 a(g48 VidentityHashPrintString p6752 tp6753 a(g6 V\u000a p6754 tp6755 a(g24 V"'fred' identityHashPrintString" p6756 tp6757 a(g6 V\u000a\u000a p6758 tp6759 a(g353 V^ tp6760 a(g6 V tp6761 a(g236 V'(' p6762 tp6763 a(g48 V, tp6764 a(g6 V tp6765 a(g87 Vself p6766 tp6767 a(g6 V tp6768 a(g48 VidentityHash p6769 tp6770 a(g6 V tp6771 a(g48 VprintString p6772 tp6773 a(g48 V, tp6774 a(g6 V tp6775 a(g236 V')' p6776 tp6777 a(g138 V! ! p6778 tp6779 a(g6 V\u000a\u000a p6780 tp6781 a(g138 V! tp6782 a(g133 VObject p6783 tp6784 a(g138 V methodsFor: p6785 tp6786 a(g236 V'comparing' p6787 tp6788 a(g138 V stamp: 'ajh 2/2/2002 15:02'! p6789 tp6790 a(g6 V\u000a tp6791 a(g48 VliteralEqual: p6792 tp6793 a(g6 V tp6794 a(g100 Vother p6795 tp6796 a(g6 V\u000a\u000a p6797 tp6798 a(g353 V^ tp6799 a(g6 V tp6800 a(g87 Vself p6801 tp6802 a(g6 V tp6803 a(g48 Vclass p6804 tp6805 a(g6 V tp6806 a(g48 V== p6807 tp6808 a(g6 V tp6809 a(g100 Vother p6810 tp6811 a(g6 V tp6812 a(g48 Vclass p6813 tp6814 a(g6 V tp6815 a(g48 Vand: p6816 tp6817 a(g6 V tp6818 a(g6 V[ tp6819 a(g6 V tp6820 a(g87 Vself p6821 tp6822 a(g6 V tp6823 a(g48 V= tp6824 a(g6 V tp6825 a(g100 Vother p6826 tp6827 a(g6 V] tp6828 a(g138 V! ! p6829 tp6830 a(g6 V\u000a\u000a p6831 tp6832 a(g138 V! tp6833 a(g133 VObject p6834 tp6835 a(g138 V methodsFor: p6836 tp6837 a(g236 V'comparing' p6838 tp6839 a(g138 V! tp6840 a(g6 V\u000a tp6841 a(g48 V= tp6842 a(g6 V tp6843 a(g100 VanObject p6844 tp6845 a(g6 V tp6846 a(g6 V\u000a p6847 tp6848 a(g24 V"Answer whether the receiver and the argument represent the same \u000a object. If = is redefined in any subclass, consider also redefining the \u000a message hash." p6849 tp6850 a(g6 V\u000a\u000a p6851 tp6852 a(g353 V^ tp6853 a(g87 Vself p6854 tp6855 a(g6 V tp6856 a(g48 V== p6857 tp6858 a(g6 V tp6859 a(g100 VanObject p6860 tp6861 a(g138 V! ! p6862 tp6863 a(g6 V\u000a\u000a p6864 tp6865 a(g138 V! tp6866 a(g133 VObject p6867 tp6868 a(g138 V methodsFor: p6869 tp6870 a(g236 V'comparing' p6871 tp6872 a(g138 V! tp6873 a(g6 V\u000a tp6874 a(g48 V~= p6875 tp6876 a(g6 V tp6877 a(g100 VanObject p6878 tp6879 a(g6 V tp6880 a(g6 V\u000a p6881 tp6882 a(g24 V"Answer whether the receiver and the argument do not represent the \u000a same object." p6883 tp6884 a(g6 V\u000a\u000a p6885 tp6886 a(g353 V^ tp6887 a(g87 Vself p6888 tp6889 a(g6 V tp6890 a(g48 V= tp6891 a(g6 V tp6892 a(g100 VanObject p6893 tp6894 a(g6 V tp6895 a(g48 V== p6896 tp6897 a(g6 V tp6898 a(g87 Vfalse p6899 tp6900 a(g138 V! ! p6901 tp6902 a(g6 V\u000a\u000a\u000a p6903 tp6904 a(g138 V! tp6905 a(g133 VObject p6906 tp6907 a(g138 V methodsFor: p6908 tp6909 a(g236 V'converting' p6910 tp6911 a(g138 V stamp: 'di 11/9/1998 12:15'! p6912 tp6913 a(g6 V\u000a tp6914 a(g48 VadaptToFloat: p6915 tp6916 a(g6 V tp6917 a(g100 Vrcvr p6918 tp6919 a(g6 V tp6920 a(g48 VandSend: p6921 tp6922 a(g6 V tp6923 a(g100 Vselector p6924 tp6925 a(g6 V\u000a p6926 tp6927 a(g24 V"If no method has been provided for adapting an object to a Float,\u000a then it may be adequate to simply adapt it to a number." p6928 tp6929 a(g6 V\u000a p6930 tp6931 a(g353 V^ tp6932 a(g6 V tp6933 a(g87 Vself p6934 tp6935 a(g6 V tp6936 a(g48 VadaptToNumber: p6937 tp6938 a(g6 V tp6939 a(g100 Vrcvr p6940 tp6941 a(g6 V tp6942 a(g48 VandSend: p6943 tp6944 a(g6 V tp6945 a(g100 Vselector p6946 tp6947 a(g138 V! ! p6948 tp6949 a(g6 V\u000a\u000a p6950 tp6951 a(g138 V! tp6952 a(g133 VObject p6953 tp6954 a(g138 V methodsFor: p6955 tp6956 a(g236 V'converting' p6957 tp6958 a(g138 V stamp: 'di 11/9/1998 12:14'! p6959 tp6960 a(g6 V\u000a tp6961 a(g48 VadaptToFraction: p6962 tp6963 a(g6 V tp6964 a(g100 Vrcvr p6965 tp6966 a(g6 V tp6967 a(g48 VandSend: p6968 tp6969 a(g6 V tp6970 a(g100 Vselector p6971 tp6972 a(g6 V\u000a p6973 tp6974 a(g24 V"If no method has been provided for adapting an object to a Fraction,\u000a then it may be adequate to simply adapt it to a number." p6975 tp6976 a(g6 V\u000a p6977 tp6978 a(g353 V^ tp6979 a(g6 V tp6980 a(g87 Vself p6981 tp6982 a(g6 V tp6983 a(g48 VadaptToNumber: p6984 tp6985 a(g6 V tp6986 a(g100 Vrcvr p6987 tp6988 a(g6 V tp6989 a(g48 VandSend: p6990 tp6991 a(g6 V tp6992 a(g100 Vselector p6993 tp6994 a(g138 V! ! p6995 tp6996 a(g6 V\u000a\u000a p6997 tp6998 a(g138 V! tp6999 a(g133 VObject p7000 tp7001 a(g138 V methodsFor: p7002 tp7003 a(g236 V'converting' p7004 tp7005 a(g138 V stamp: 'di 11/9/1998 12:15'! p7006 tp7007 a(g6 V\u000a tp7008 a(g48 VadaptToInteger: p7009 tp7010 a(g6 V tp7011 a(g100 Vrcvr p7012 tp7013 a(g6 V tp7014 a(g48 VandSend: p7015 tp7016 a(g6 V tp7017 a(g100 Vselector p7018 tp7019 a(g6 V\u000a p7020 tp7021 a(g24 V"If no method has been provided for adapting an object to a Integer,\u000a then it may be adequate to simply adapt it to a number." p7022 tp7023 a(g6 V\u000a p7024 tp7025 a(g353 V^ tp7026 a(g6 V tp7027 a(g87 Vself p7028 tp7029 a(g6 V tp7030 a(g48 VadaptToNumber: p7031 tp7032 a(g6 V tp7033 a(g100 Vrcvr p7034 tp7035 a(g6 V tp7036 a(g48 VandSend: p7037 tp7038 a(g6 V tp7039 a(g100 Vselector p7040 tp7041 a(g138 V! ! p7042 tp7043 a(g6 V\u000a\u000a p7044 tp7045 a(g138 V! tp7046 a(g133 VObject p7047 tp7048 a(g138 V methodsFor: p7049 tp7050 a(g236 V'converting' p7051 tp7052 a(g138 V stamp: 'rw 4/27/2002 07:48'! p7053 tp7054 a(g6 V\u000a tp7055 a(g48 VasActionSequence p7056 tp7057 a(g6 V\u000a tp7058 a(g6 V\u000a p7059 tp7060 a(g353 V^ tp7061 a(g133 VWeakActionSequence p7062 tp7063 a(g6 V tp7064 a(g48 Vwith: p7065 tp7066 a(g6 V tp7067 a(g87 Vself p7068 tp7069 a(g138 V! ! p7070 tp7071 a(g6 V\u000a\u000a p7072 tp7073 a(g138 V! tp7074 a(g133 VObject p7075 tp7076 a(g138 V methodsFor: p7077 tp7078 a(g236 V'converting' p7079 tp7080 a(g138 V stamp: 'rw 7/20/2003 16:03'! p7081 tp7082 a(g6 V\u000a tp7083 a(g48 VasActionSequenceTrappingErrors p7084 tp7085 a(g6 V\u000a tp7086 a(g6 V\u000a p7087 tp7088 a(g353 V^ tp7089 a(g133 VWeakActionSequenceTrappingErrors p7090 tp7091 a(g6 V tp7092 a(g48 Vwith: p7093 tp7094 a(g6 V tp7095 a(g87 Vself p7096 tp7097 a(g138 V! ! p7098 tp7099 a(g6 V\u000a\u000a p7100 tp7101 a(g138 V! tp7102 a(g133 VObject p7103 tp7104 a(g138 V methodsFor: p7105 tp7106 a(g236 V'converting' p7107 tp7108 a(g138 V stamp: 'svp 5/16/2000 18:14'! p7109 tp7110 a(g6 V\u000a tp7111 a(g48 VasDraggableMorph p7112 tp7113 a(g6 V\u000a p7114 tp7115 a(g353 V^ tp7116 a(g6 V( tp7117 a(g133 VStringMorph p7118 tp7119 a(g6 V tp7120 a(g48 Vcontents: p7121 tp7122 a(g6 V tp7123 a(g87 Vself p7124 tp7125 a(g6 V tp7126 a(g48 VprintString p7127 tp7128 a(g6 V) tp7129 a(g6 V\u000a p7130 tp7131 a(g48 Vcolor: p7132 tp7133 a(g6 V tp7134 a(g133 VColor p7135 tp7136 a(g6 V tp7137 a(g48 Vwhite p7138 tp7139 a(g212 V; tp7140 a(g6 V\u000a p7141 tp7142 a(g48 Vyourself p7143 tp7144 a(g138 V! ! p7145 tp7146 a(g6 V\u000a\u000a p7147 tp7148 a(g138 V! tp7149 a(g133 VObject p7150 tp7151 a(g138 V methodsFor: p7152 tp7153 a(g236 V'converting' p7154 tp7155 a(g138 V stamp: 'sma 5/12/2000 17:39'! p7156 tp7157 a(g6 V\u000a tp7158 a(g48 VasOrderedCollection p7159 tp7160 a(g6 V\u000a p7161 tp7162 a(g24 V"Answer an OrderedCollection with the receiver as its only element." p7163 tp7164 a(g6 V\u000a\u000a p7165 tp7166 a(g353 V^ tp7167 a(g6 V tp7168 a(g133 VOrderedCollection p7169 tp7170 a(g6 V tp7171 a(g48 Vwith: p7172 tp7173 a(g6 V tp7174 a(g87 Vself p7175 tp7176 a(g138 V! ! p7177 tp7178 a(g6 V\u000a\u000a p7179 tp7180 a(g138 V! tp7181 a(g133 VObject p7182 tp7183 a(g138 V methodsFor: p7184 tp7185 a(g236 V'converting' p7186 tp7187 a(g138 V! tp7188 a(g6 V\u000a tp7189 a(g48 VasString p7190 tp7191 a(g6 V\u000a p7192 tp7193 a(g24 V"Answer a string that represents the receiver." p7194 tp7195 a(g6 V\u000a\u000a p7196 tp7197 a(g353 V^ tp7198 a(g6 V tp7199 a(g87 Vself p7200 tp7201 a(g6 V tp7202 a(g48 VprintString p7203 tp7204 a(g6 V tp7205 a(g138 V! ! p7206 tp7207 a(g6 V\u000a\u000a p7208 tp7209 a(g138 V! tp7210 a(g133 VObject p7211 tp7212 a(g138 V methodsFor: p7213 tp7214 a(g236 V'converting' p7215 tp7216 a(g138 V stamp: 'ajh 3/11/2003 10:27'! p7217 tp7218 a(g6 V\u000a tp7219 a(g48 VasStringOrText p7220 tp7221 a(g6 V\u000a p7222 tp7223 a(g24 V"Answer a string that represents the receiver." p7224 tp7225 a(g6 V\u000a\u000a p7226 tp7227 a(g353 V^ tp7228 a(g6 V tp7229 a(g87 Vself p7230 tp7231 a(g6 V tp7232 a(g48 VprintString p7233 tp7234 a(g6 V tp7235 a(g138 V! ! p7236 tp7237 a(g6 V\u000a\u000a p7238 tp7239 a(g138 V! tp7240 a(g133 VObject p7241 tp7242 a(g138 V methodsFor: p7243 tp7244 a(g236 V'converting' p7245 tp7246 a(g138 V! tp7247 a(g6 V\u000a tp7248 a(g48 Vas: p7249 tp7250 a(g6 V tp7251 a(g100 VaSimilarClass p7252 tp7253 a(g6 V\u000a p7254 tp7255 a(g24 V"Create an object of class aSimilarClass that has similar contents to the receiver." p7256 tp7257 a(g6 V\u000a\u000a p7258 tp7259 a(g353 V^ tp7260 a(g6 V tp7261 a(g100 VaSimilarClass p7262 tp7263 a(g6 V tp7264 a(g48 VnewFrom: p7265 tp7266 a(g6 V tp7267 a(g87 Vself p7268 tp7269 a(g138 V! ! p7270 tp7271 a(g6 V\u000a\u000a p7272 tp7273 a(g138 V! tp7274 a(g133 VObject p7275 tp7276 a(g138 V methodsFor: p7277 tp7278 a(g236 V'converting' p7279 tp7280 a(g138 V stamp: 'RAA 8/2/1999 12:41'! p7281 tp7282 a(g6 V\u000a tp7283 a(g48 VcomplexContents p7284 tp7285 a(g6 V\u000a tp7286 a(g6 V\u000a p7287 tp7288 a(g353 V^ tp7289 a(g87 Vself p7290 tp7291 a(g138 V! ! p7292 tp7293 a(g6 V\u000a\u000a p7294 tp7295 a(g138 V! tp7296 a(g133 VObject p7297 tp7298 a(g138 V methodsFor: p7299 tp7300 a(g236 V'converting' p7301 tp7302 a(g138 V stamp: 'ajh 7/6/2003 20:37'! p7303 tp7304 a(g6 V\u000a tp7305 a(g48 VmustBeBoolean p7306 tp7307 a(g6 V\u000a p7308 tp7309 a(g24 V"Catches attempts to test truth of non-Booleans. This message is sent from the VM. The sending context is rewound to just before the jump causing this exception." p7310 tp7311 a(g6 V\u000a\u000a p7312 tp7313 a(g353 V^ tp7314 a(g6 V tp7315 a(g87 Vself p7316 tp7317 a(g6 V tp7318 a(g48 VmustBeBooleanIn: p7319 tp7320 a(g6 V tp7321 a(g87 VthisContext p7322 tp7323 a(g6 V tp7324 a(g48 Vsender p7325 tp7326 a(g138 V! ! p7327 tp7328 a(g6 V\u000a\u000a p7329 tp7330 a(g138 V! tp7331 a(g133 VObject p7332 tp7333 a(g138 V methodsFor: p7334 tp7335 a(g236 V'converting' p7336 tp7337 a(g138 V stamp: 'ajh 7/6/2003 20:40'! p7338 tp7339 a(g6 V\u000a tp7340 a(g48 VmustBeBooleanIn: p7341 tp7342 a(g6 V tp7343 a(g100 Vcontext p7344 tp7345 a(g6 V\u000a p7346 tp7347 a(g24 V"context is the where the non-boolean error occurred. Rewind context to before jump then raise error." p7348 tp7349 a(g6 V\u000a\u000a p7350 tp7351 a(g353 V| tp7352 a(g100 V proceedValue p7353 tp7354 a(g353 V| tp7355 a(g6 V\u000a p7356 tp7357 a(g100 Vcontext p7358 tp7359 a(g6 V tp7360 a(g48 VskipBackBeforeJump p7361 tp7362 a(g212 V. tp7363 a(g6 V\u000a p7364 tp7365 a(g100 VproceedValue p7366 tp7367 a(g6 V tp7368 a(g353 V_ tp7369 a(g6 V tp7370 a(g133 VNonBooleanReceiver p7371 tp7372 a(g6 V tp7373 a(g84 Vnew p7374 tp7375 a(g6 V\u000a p7376 tp7377 a(g48 Vobject: p7378 tp7379 a(g6 V tp7380 a(g87 Vself p7381 tp7382 a(g212 V; tp7383 a(g6 V\u000a p7384 tp7385 a(g48 Vsignal: p7386 tp7387 a(g6 V tp7388 a(g236 V'proceed for truth.' p7389 tp7390 a(g212 V. tp7391 a(g6 V\u000a p7392 tp7393 a(g353 V^ tp7394 a(g6 V tp7395 a(g100 VproceedValue p7396 tp7397 a(g6 V tp7398 a(g48 V~~ p7399 tp7400 a(g6 V tp7401 a(g87 Vfalse p7402 tp7403 a(g138 V! ! p7404 tp7405 a(g6 V\u000a\u000a p7406 tp7407 a(g138 V! tp7408 a(g133 VObject p7409 tp7410 a(g138 V methodsFor: p7411 tp7412 a(g236 V'converting' p7413 tp7414 a(g138 V stamp: 'sw 3/26/2001 12:12'! p7415 tp7416 a(g6 V\u000a tp7417 a(g48 VprintDirectlyToDisplay p7418 tp7419 a(g6 V\u000a p7420 tp7421 a(g24 V"For debugging: write the receiver's printString directly to the display at (0, 100); senders of this are detected by the check-for-slips mechanism." p7422 tp7423 a(g6 V\u000a\u000a p7424 tp7425 a(g87 Vself p7426 tp7427 a(g6 V tp7428 a(g48 VasString p7429 tp7430 a(g6 V tp7431 a(g48 VdisplayAt: p7432 tp7433 a(g6 V tp7434 a(g223 V0 tp7435 a(g48 V@ tp7436 a(g223 V100 p7437 tp7438 a(g6 V\u000a\u000a p7439 tp7440 a(g24 V"StringMorph someInstance printDirectlyToDisplay" p7441 tp7442 a(g138 V! ! p7443 tp7444 a(g6 V\u000a\u000a p7445 tp7446 a(g138 V! tp7447 a(g133 VObject p7448 tp7449 a(g138 V methodsFor: p7450 tp7451 a(g236 V'converting' p7452 tp7453 a(g138 V stamp: 'RAA 3/31/1999 12:13'! p7454 tp7455 a(g6 V\u000a tp7456 a(g48 VwithoutListWrapper p7457 tp7458 a(g6 V\u000a tp7459 a(g6 V\u000a p7460 tp7461 a(g353 V^ tp7462 a(g87 Vself p7463 tp7464 a(g138 V! ! p7465 tp7466 a(g6 V\u000a\u000a\u000a p7467 tp7468 a(g138 V! tp7469 a(g133 VObject p7470 tp7471 a(g138 V methodsFor: p7472 tp7473 a(g236 V'copying' p7474 tp7475 a(g138 V! tp7476 a(g6 V\u000a tp7477 a(g48 Vclone p7478 tp7479 a(g6 V\u000a tp7480 a(g6 V\u000a p7481 tp7482 a(g6 V< tp7483 a(g138 Vprimitive: p7484 tp7485 a(g6 V 148 p7486 tp7487 a(g6 V> tp7488 a(g6 V\u000a p7489 tp7490 a(g87 Vself p7491 tp7492 a(g6 V tp7493 a(g48 VprimitiveFailed p7494 tp7495 a(g138 V! ! p7496 tp7497 a(g6 V\u000a\u000a p7498 tp7499 a(g138 V! tp7500 a(g133 VObject p7501 tp7502 a(g138 V methodsFor: p7503 tp7504 a(g236 V'copying' p7505 tp7506 a(g138 V stamp: 'ajh 8/18/2001 21:25'! p7507 tp7508 a(g6 V\u000a tp7509 a(g48 Vcopy p7510 tp7511 a(g6 V\u000a p7512 tp7513 a(g24 V"Answer another instance just like the receiver. Subclasses typically override postCopy; they typically do not override shallowCopy." p7514 tp7515 a(g6 V\u000a\u000a p7516 tp7517 a(g353 V^ tp7518 a(g87 Vself p7519 tp7520 a(g6 V tp7521 a(g48 VshallowCopy p7522 tp7523 a(g6 V tp7524 a(g48 VpostCopy p7525 tp7526 a(g138 V! ! p7527 tp7528 a(g6 V\u000a\u000a p7529 tp7530 a(g138 V! tp7531 a(g133 VObject p7532 tp7533 a(g138 V methodsFor: p7534 tp7535 a(g236 V'copying' p7536 tp7537 a(g138 V stamp: 'tk 8/20/1998 16:01'! p7538 tp7539 a(g6 V\u000a tp7540 a(g48 VcopyAddedStateFrom: p7541 tp7542 a(g6 V tp7543 a(g100 VanotherObject p7544 tp7545 a(g6 V\u000a p7546 tp7547 a(g24 V"Copy over the values of instance variables added by the receiver's class from anotherObject to the receiver. These will be remapped in mapUniClasses, if needed." p7548 tp7549 a(g6 V\u000a\u000a p7550 tp7551 a(g87 Vself p7552 tp7553 a(g6 V tp7554 a(g48 Vclass p7555 tp7556 a(g6 V tp7557 a(g48 Vsuperclass p7558 tp7559 a(g6 V tp7560 a(g48 VinstSize p7561 tp7562 a(g6 V tp7563 a(g48 V+ tp7564 a(g6 V tp7565 a(g223 V1 tp7566 a(g6 V tp7567 a(g48 Vto: p7568 tp7569 a(g6 V tp7570 a(g87 Vself p7571 tp7572 a(g6 V tp7573 a(g48 Vclass p7574 tp7575 a(g6 V tp7576 a(g48 VinstSize p7577 tp7578 a(g6 V tp7579 a(g48 Vdo: p7580 tp7581 a(g6 V\u000a p7582 tp7583 a(g6 V[ tp7584 a(g353 V: tp7585 a(g100 Vindex p7586 tp7587 a(g6 V tp7588 a(g353 V| tp7589 a(g6 V tp7590 a(g87 Vself p7591 tp7592 a(g6 V tp7593 a(g48 VinstVarAt: p7594 tp7595 a(g6 V tp7596 a(g100 Vindex p7597 tp7598 a(g6 V tp7599 a(g48 Vput: p7600 tp7601 a(g6 V tp7602 a(g6 V( tp7603 a(g100 VanotherObject p7604 tp7605 a(g6 V tp7606 a(g48 VinstVarAt: p7607 tp7608 a(g6 V tp7609 a(g100 Vindex p7610 tp7611 a(g6 V) tp7612 a(g6 V] tp7613 a(g138 V! ! p7614 tp7615 a(g6 V\u000a\u000a p7616 tp7617 a(g138 V! tp7618 a(g133 VObject p7619 tp7620 a(g138 V methodsFor: p7621 tp7622 a(g236 V'copying' p7623 tp7624 a(g138 V stamp: 'tpr 2/14/2004 21:53'! p7625 tp7626 a(g6 V\u000a tp7627 a(g48 VcopyFrom: p7628 tp7629 a(g6 V tp7630 a(g100 VanotherObject p7631 tp7632 a(g6 V\u000a p7633 tp7634 a(g24 V"Copy to myself all instance variables I have in common with anotherObject. This is dangerous because it ignores an object's control over its own inst vars. " p7635 tp7636 a(g6 V\u000a\u000a p7637 tp7638 a(g353 V| tp7639 a(g100 V mine his p7640 tp7641 a(g353 V| tp7642 a(g6 V\u000a p7643 tp7644 a(g6 V< tp7645 a(g138 Vprimitive: p7646 tp7647 a(g6 V 168 p7648 tp7649 a(g6 V> tp7650 a(g6 V\u000a p7651 tp7652 a(g100 Vmine p7653 tp7654 a(g6 V tp7655 a(g353 V_ tp7656 a(g6 V tp7657 a(g87 Vself p7658 tp7659 a(g6 V tp7660 a(g48 Vclass p7661 tp7662 a(g6 V tp7663 a(g48 VallInstVarNames p7664 tp7665 a(g212 V. tp7666 a(g6 V\u000a p7667 tp7668 a(g100 Vhis p7669 tp7670 a(g6 V tp7671 a(g353 V_ tp7672 a(g6 V tp7673 a(g100 VanotherObject p7674 tp7675 a(g6 V tp7676 a(g48 Vclass p7677 tp7678 a(g6 V tp7679 a(g48 VallInstVarNames p7680 tp7681 a(g212 V. tp7682 a(g6 V\u000a p7683 tp7684 a(g223 V1 tp7685 a(g6 V tp7686 a(g48 Vto: p7687 tp7688 a(g6 V tp7689 a(g6 V( tp7690 a(g100 Vmine p7691 tp7692 a(g6 V tp7693 a(g48 Vsize p7694 tp7695 a(g6 V tp7696 a(g48 Vmin: p7697 tp7698 a(g6 V tp7699 a(g100 Vhis p7700 tp7701 a(g6 V tp7702 a(g48 Vsize p7703 tp7704 a(g6 V) tp7705 a(g6 V tp7706 a(g48 Vdo: p7707 tp7708 a(g6 V tp7709 a(g6 V[ tp7710 a(g353 V: tp7711 a(g100 Vind p7712 tp7713 a(g6 V tp7714 a(g353 V| tp7715 a(g6 V\u000a p7716 tp7717 a(g6 V( tp7718 a(g100 Vmine p7719 tp7720 a(g6 V tp7721 a(g48 Vat: p7722 tp7723 a(g6 V tp7724 a(g100 Vind p7725 tp7726 a(g6 V) tp7727 a(g6 V tp7728 a(g48 V= tp7729 a(g6 V tp7730 a(g6 V( tp7731 a(g100 Vhis p7732 tp7733 a(g6 V tp7734 a(g48 Vat: p7735 tp7736 a(g6 V tp7737 a(g100 Vind p7738 tp7739 a(g6 V) tp7740 a(g6 V tp7741 a(g84 VifTrue: p7742 tp7743 a(g6 V tp7744 a(g6 V[ tp7745 a(g6 V\u000a p7746 tp7747 a(g6 V tp7748 a(g87 Vself p7749 tp7750 a(g6 V tp7751 a(g48 VinstVarAt: p7752 tp7753 a(g6 V tp7754 a(g100 Vind p7755 tp7756 a(g6 V tp7757 a(g48 Vput: p7758 tp7759 a(g6 V tp7760 a(g6 V( tp7761 a(g100 VanotherObject p7762 tp7763 a(g6 V tp7764 a(g48 VinstVarAt: p7765 tp7766 a(g6 V tp7767 a(g100 Vind p7768 tp7769 a(g6 V) tp7770 a(g6 V] tp7771 a(g6 V] tp7772 a(g212 V. tp7773 a(g6 V\u000a p7774 tp7775 a(g87 Vself p7776 tp7777 a(g6 V tp7778 a(g48 Vclass p7779 tp7780 a(g6 V tp7781 a(g48 VisVariable p7782 tp7783 a(g6 V tp7784 a(g48 V& tp7785 a(g6 V tp7786 a(g100 VanotherObject p7787 tp7788 a(g6 V tp7789 a(g48 Vclass p7790 tp7791 a(g6 V tp7792 a(g48 VisVariable p7793 tp7794 a(g6 V tp7795 a(g84 VifTrue: p7796 tp7797 a(g6 V tp7798 a(g6 V[ tp7799 a(g6 V\u000a p7800 tp7801 a(g6 V tp7802 a(g223 V1 tp7803 a(g6 V tp7804 a(g48 Vto: p7805 tp7806 a(g6 V tp7807 a(g6 V( tp7808 a(g87 Vself p7809 tp7810 a(g6 V tp7811 a(g48 VbasicSize p7812 tp7813 a(g6 V tp7814 a(g48 Vmin: p7815 tp7816 a(g6 V tp7817 a(g100 VanotherObject p7818 tp7819 a(g6 V tp7820 a(g48 VbasicSize p7821 tp7822 a(g6 V) tp7823 a(g6 V tp7824 a(g48 Vdo: p7825 tp7826 a(g6 V tp7827 a(g6 V[ tp7828 a(g353 V: tp7829 a(g100 Vind p7830 tp7831 a(g6 V tp7832 a(g353 V| tp7833 a(g6 V\u000a p7834 tp7835 a(g87 Vself p7836 tp7837 a(g6 V tp7838 a(g48 VbasicAt: p7839 tp7840 a(g6 V tp7841 a(g100 Vind p7842 tp7843 a(g6 V tp7844 a(g48 Vput: p7845 tp7846 a(g6 V tp7847 a(g6 V( tp7848 a(g100 VanotherObject p7849 tp7850 a(g6 V tp7851 a(g48 VbasicAt: p7852 tp7853 a(g6 V tp7854 a(g100 Vind p7855 tp7856 a(g6 V) tp7857 a(g6 V] tp7858 a(g6 V] tp7859 a(g212 V. tp7860 a(g138 V! ! p7861 tp7862 a(g6 V\u000a\u000a p7863 tp7864 a(g138 V! tp7865 a(g133 VObject p7866 tp7867 a(g138 V methodsFor: p7868 tp7869 a(g236 V'copying' p7870 tp7871 a(g138 V stamp: 'ajh 5/23/2002 00:38'! p7872 tp7873 a(g6 V\u000a tp7874 a(g48 VcopySameFrom: p7875 tp7876 a(g6 V tp7877 a(g100 VotherObject p7878 tp7879 a(g6 V\u000a p7880 tp7881 a(g24 V"Copy to myself all instance variables named the same in otherObject.\u000a This ignores otherObject's control over its own inst vars." p7882 tp7883 a(g6 V\u000a\u000a p7884 tp7885 a(g353 V| tp7886 a(g100 V myInstVars otherInstVars match p7887 tp7888 a(g353 V| tp7889 a(g6 V\u000a p7890 tp7891 a(g100 VmyInstVars p7892 tp7893 a(g6 V tp7894 a(g353 V_ tp7895 a(g6 V tp7896 a(g87 Vself p7897 tp7898 a(g6 V tp7899 a(g48 Vclass p7900 tp7901 a(g6 V tp7902 a(g48 VallInstVarNames p7903 tp7904 a(g212 V. tp7905 a(g6 V\u000a p7906 tp7907 a(g100 VotherInstVars p7908 tp7909 a(g6 V tp7910 a(g353 V_ tp7911 a(g6 V tp7912 a(g100 VotherObject p7913 tp7914 a(g6 V tp7915 a(g48 Vclass p7916 tp7917 a(g6 V tp7918 a(g48 VallInstVarNames p7919 tp7920 a(g212 V. tp7921 a(g6 V\u000a p7922 tp7923 a(g100 VmyInstVars p7924 tp7925 a(g6 V tp7926 a(g48 VdoWithIndex: p7927 tp7928 a(g6 V tp7929 a(g6 V[ tp7930 a(g353 V: tp7931 a(g100 Veach p7932 tp7933 a(g6 V tp7934 a(g353 V: tp7935 a(g100 Vindex p7936 tp7937 a(g6 V tp7938 a(g353 V| tp7939 a(g6 V\u000a p7940 tp7941 a(g6 V( tp7942 a(g100 Vmatch p7943 tp7944 a(g6 V tp7945 a(g353 V_ tp7946 a(g6 V tp7947 a(g100 VotherInstVars p7948 tp7949 a(g6 V tp7950 a(g48 VindexOf: p7951 tp7952 a(g6 V tp7953 a(g100 Veach p7954 tp7955 a(g6 V) tp7956 a(g6 V tp7957 a(g48 V> tp7958 a(g6 V tp7959 a(g223 V0 tp7960 a(g6 V tp7961 a(g84 VifTrue: p7962 tp7963 a(g6 V\u000a p7964 tp7965 a(g6 V[ tp7966 a(g6 V tp7967 a(g87 Vself p7968 tp7969 a(g6 V tp7970 a(g48 VinstVarAt: p7971 tp7972 a(g6 V tp7973 a(g100 Vindex p7974 tp7975 a(g6 V tp7976 a(g48 Vput: p7977 tp7978 a(g6 V tp7979 a(g6 V( tp7980 a(g100 VotherObject p7981 tp7982 a(g6 V tp7983 a(g48 VinstVarAt: p7984 tp7985 a(g6 V tp7986 a(g100 Vmatch p7987 tp7988 a(g6 V) tp7989 a(g6 V] tp7990 a(g6 V] tp7991 a(g212 V. tp7992 a(g6 V\u000a p7993 tp7994 a(g223 V1 tp7995 a(g6 V tp7996 a(g48 Vto: p7997 tp7998 a(g6 V tp7999 a(g6 V( tp8000 a(g87 Vself p8001 tp8002 a(g6 V tp8003 a(g48 VbasicSize p8004 tp8005 a(g6 V tp8006 a(g48 Vmin: p8007 tp8008 a(g6 V tp8009 a(g100 VotherObject p8010 tp8011 a(g6 V tp8012 a(g48 VbasicSize p8013 tp8014 a(g6 V) tp8015 a(g6 V tp8016 a(g48 Vdo: p8017 tp8018 a(g6 V tp8019 a(g6 V[ tp8020 a(g353 V: tp8021 a(g100 Vi tp8022 a(g6 V tp8023 a(g353 V| tp8024 a(g6 V\u000a p8025 tp8026 a(g87 Vself p8027 tp8028 a(g6 V tp8029 a(g48 VbasicAt: p8030 tp8031 a(g6 V tp8032 a(g100 Vi tp8033 a(g6 V tp8034 a(g48 Vput: p8035 tp8036 a(g6 V tp8037 a(g6 V( tp8038 a(g100 VotherObject p8039 tp8040 a(g6 V tp8041 a(g48 VbasicAt: p8042 tp8043 a(g6 V tp8044 a(g100 Vi tp8045 a(g6 V) tp8046 a(g6 V] tp8047 a(g212 V. tp8048 a(g6 V\u000a tp8049 a(g138 V! ! p8050 tp8051 a(g6 V\u000a\u000a p8052 tp8053 a(g138 V! tp8054 a(g133 VObject p8055 tp8056 a(g138 V methodsFor: p8057 tp8058 a(g236 V'copying' p8059 tp8060 a(g138 V stamp: 'tk 4/20/1999 14:44'! p8061 tp8062 a(g6 V\u000a tp8063 a(g48 VcopyTwoLevel p8064 tp8065 a(g6 V\u000a p8066 tp8067 a(g24 V"one more level than a shallowCopy" p8068 tp8069 a(g6 V\u000a\u000a p8070 tp8071 a(g353 V| tp8072 a(g100 V newObject class index p8073 tp8074 a(g353 V| tp8075 a(g6 V\u000a p8076 tp8077 a(g100 Vclass p8078 tp8079 a(g6 V tp8080 a(g353 V_ tp8081 a(g6 V tp8082 a(g87 Vself p8083 tp8084 a(g6 V tp8085 a(g48 Vclass p8086 tp8087 a(g212 V. tp8088 a(g6 V\u000a p8089 tp8090 a(g100 VnewObject p8091 tp8092 a(g6 V tp8093 a(g353 V_ tp8094 a(g6 V tp8095 a(g87 Vself p8096 tp8097 a(g6 V tp8098 a(g48 Vclone p8099 tp8100 a(g212 V. tp8101 a(g6 V\u000a p8102 tp8103 a(g100 VnewObject p8104 tp8105 a(g6 V tp8106 a(g48 V== p8107 tp8108 a(g6 V tp8109 a(g87 Vself p8110 tp8111 a(g6 V tp8112 a(g84 VifTrue: p8113 tp8114 a(g6 V tp8115 a(g6 V[ tp8116 a(g6 V tp8117 a(g353 V^ tp8118 a(g6 V tp8119 a(g87 Vself p8120 tp8121 a(g6 V] tp8122 a(g212 V. tp8123 a(g6 V\u000a p8124 tp8125 a(g100 Vclass p8126 tp8127 a(g6 V tp8128 a(g48 VisVariable p8129 tp8130 a(g6 V\u000a p8131 tp8132 a(g84 VifTrue: p8133 tp8134 a(g6 V \u000a p8135 tp8136 a(g6 V[ tp8137 a(g6 V tp8138 a(g100 Vindex p8139 tp8140 a(g6 V tp8141 a(g353 V_ tp8142 a(g6 V tp8143 a(g87 Vself p8144 tp8145 a(g6 V tp8146 a(g48 VbasicSize p8147 tp8148 a(g212 V. tp8149 a(g6 V\u000a p8150 tp8151 a(g6 V[ tp8152 a(g6 V tp8153 a(g100 Vindex p8154 tp8155 a(g6 V tp8156 a(g48 V> tp8157 a(g6 V tp8158 a(g223 V0 tp8159 a(g6 V] tp8160 a(g6 V\u000a p8161 tp8162 a(g84 VwhileTrue: p8163 tp8164 a(g6 V \u000a p8165 tp8166 a(g6 V[ tp8167 a(g6 V tp8168 a(g100 VnewObject p8169 tp8170 a(g6 V tp8171 a(g48 VbasicAt: p8172 tp8173 a(g6 V tp8174 a(g100 Vindex p8175 tp8176 a(g6 V tp8177 a(g48 Vput: p8178 tp8179 a(g6 V tp8180 a(g6 V( tp8181 a(g87 Vself p8182 tp8183 a(g6 V tp8184 a(g48 VbasicAt: p8185 tp8186 a(g6 V tp8187 a(g100 Vindex p8188 tp8189 a(g6 V) tp8190 a(g6 V tp8191 a(g48 VshallowCopy p8192 tp8193 a(g212 V. tp8194 a(g6 V\u000a p8195 tp8196 a(g100 Vindex p8197 tp8198 a(g6 V tp8199 a(g353 V_ tp8200 a(g6 V tp8201 a(g100 Vindex p8202 tp8203 a(g6 V tp8204 a(g48 V- tp8205 a(g6 V tp8206 a(g223 V1 tp8207 a(g6 V] tp8208 a(g6 V] tp8209 a(g212 V. tp8210 a(g6 V\u000a p8211 tp8212 a(g100 Vindex p8213 tp8214 a(g6 V tp8215 a(g353 V_ tp8216 a(g6 V tp8217 a(g100 Vclass p8218 tp8219 a(g6 V tp8220 a(g48 VinstSize p8221 tp8222 a(g212 V. tp8223 a(g6 V\u000a p8224 tp8225 a(g6 V[ tp8226 a(g6 V tp8227 a(g100 Vindex p8228 tp8229 a(g6 V tp8230 a(g48 V> tp8231 a(g6 V tp8232 a(g223 V0 tp8233 a(g6 V] tp8234 a(g6 V\u000a p8235 tp8236 a(g84 VwhileTrue: p8237 tp8238 a(g6 V \u000a p8239 tp8240 a(g6 V[ tp8241 a(g6 V tp8242 a(g100 VnewObject p8243 tp8244 a(g6 V tp8245 a(g48 VinstVarAt: p8246 tp8247 a(g6 V tp8248 a(g100 Vindex p8249 tp8250 a(g6 V tp8251 a(g48 Vput: p8252 tp8253 a(g6 V tp8254 a(g6 V( tp8255 a(g87 Vself p8256 tp8257 a(g6 V tp8258 a(g48 VinstVarAt: p8259 tp8260 a(g6 V tp8261 a(g100 Vindex p8262 tp8263 a(g6 V) tp8264 a(g6 V tp8265 a(g48 VshallowCopy p8266 tp8267 a(g212 V. tp8268 a(g6 V\u000a p8269 tp8270 a(g100 Vindex p8271 tp8272 a(g6 V tp8273 a(g353 V_ tp8274 a(g6 V tp8275 a(g100 Vindex p8276 tp8277 a(g6 V tp8278 a(g48 V- tp8279 a(g6 V tp8280 a(g223 V1 tp8281 a(g6 V] tp8282 a(g212 V. tp8283 a(g6 V\u000a p8284 tp8285 a(g353 V^ tp8286 a(g100 VnewObject p8287 tp8288 a(g138 V! ! p8289 tp8290 a(g6 V\u000a\u000a p8291 tp8292 a(g138 V! tp8293 a(g133 VObject p8294 tp8295 a(g138 V methodsFor: p8296 tp8297 a(g236 V'copying' p8298 tp8299 a(g138 V! tp8300 a(g6 V\u000a tp8301 a(g48 VdeepCopy p8302 tp8303 a(g6 V\u000a p8304 tp8305 a(g24 V"Answer a copy of the receiver with its own copy of each instance \u000a variable." p8306 tp8307 a(g6 V\u000a\u000a p8308 tp8309 a(g353 V| tp8310 a(g100 V newObject class index p8311 tp8312 a(g353 V| tp8313 a(g6 V\u000a p8314 tp8315 a(g100 Vclass p8316 tp8317 a(g6 V tp8318 a(g353 V_ tp8319 a(g6 V tp8320 a(g87 Vself p8321 tp8322 a(g6 V tp8323 a(g48 Vclass p8324 tp8325 a(g212 V. tp8326 a(g6 V\u000a p8327 tp8328 a(g6 V( tp8329 a(g100 Vclass p8330 tp8331 a(g6 V tp8332 a(g48 V== p8333 tp8334 a(g6 V tp8335 a(g133 VObject p8336 tp8337 a(g6 V) tp8338 a(g6 V tp8339 a(g84 VifTrue: p8340 tp8341 a(g6 V tp8342 a(g6 V[ tp8343 a(g6 V tp8344 a(g353 V^ tp8345 a(g87 Vself p8346 tp8347 a(g6 V] tp8348 a(g212 V. tp8349 a(g6 V\u000a p8350 tp8351 a(g100 Vclass p8352 tp8353 a(g6 V tp8354 a(g48 VisVariable p8355 tp8356 a(g6 V\u000a p8357 tp8358 a(g84 VifTrue: p8359 tp8360 a(g6 V \u000a p8361 tp8362 a(g6 V[ tp8363 a(g6 V tp8364 a(g100 Vindex p8365 tp8366 a(g6 V tp8367 a(g353 V_ tp8368 a(g6 V tp8369 a(g87 Vself p8370 tp8371 a(g6 V tp8372 a(g48 VbasicSize p8373 tp8374 a(g212 V. tp8375 a(g6 V\u000a p8376 tp8377 a(g100 VnewObject p8378 tp8379 a(g6 V tp8380 a(g353 V_ tp8381 a(g6 V tp8382 a(g100 Vclass p8383 tp8384 a(g6 V tp8385 a(g48 VbasicNew: p8386 tp8387 a(g6 V tp8388 a(g100 Vindex p8389 tp8390 a(g212 V. tp8391 a(g6 V\u000a p8392 tp8393 a(g6 V[ tp8394 a(g6 V tp8395 a(g100 Vindex p8396 tp8397 a(g6 V tp8398 a(g48 V> tp8399 a(g6 V tp8400 a(g223 V0 tp8401 a(g6 V] tp8402 a(g6 V\u000a p8403 tp8404 a(g84 VwhileTrue: p8405 tp8406 a(g6 V \u000a p8407 tp8408 a(g6 V[ tp8409 a(g6 V tp8410 a(g100 VnewObject p8411 tp8412 a(g6 V tp8413 a(g48 VbasicAt: p8414 tp8415 a(g6 V tp8416 a(g100 Vindex p8417 tp8418 a(g6 V tp8419 a(g48 Vput: p8420 tp8421 a(g6 V tp8422 a(g6 V( tp8423 a(g87 Vself p8424 tp8425 a(g6 V tp8426 a(g48 VbasicAt: p8427 tp8428 a(g6 V tp8429 a(g100 Vindex p8430 tp8431 a(g6 V) tp8432 a(g6 V tp8433 a(g48 VdeepCopy p8434 tp8435 a(g212 V. tp8436 a(g6 V\u000a p8437 tp8438 a(g100 Vindex p8439 tp8440 a(g6 V tp8441 a(g353 V_ tp8442 a(g6 V tp8443 a(g100 Vindex p8444 tp8445 a(g6 V tp8446 a(g48 V- tp8447 a(g6 V tp8448 a(g223 V1 tp8449 a(g6 V] tp8450 a(g6 V] tp8451 a(g6 V\u000a p8452 tp8453 a(g84 VifFalse: p8454 tp8455 a(g6 V tp8456 a(g6 V[ tp8457 a(g6 V tp8458 a(g100 VnewObject p8459 tp8460 a(g6 V tp8461 a(g353 V_ tp8462 a(g6 V tp8463 a(g100 Vclass p8464 tp8465 a(g6 V tp8466 a(g48 VbasicNew p8467 tp8468 a(g6 V] tp8469 a(g212 V. tp8470 a(g6 V\u000a p8471 tp8472 a(g100 Vindex p8473 tp8474 a(g6 V tp8475 a(g353 V_ tp8476 a(g6 V tp8477 a(g100 Vclass p8478 tp8479 a(g6 V tp8480 a(g48 VinstSize p8481 tp8482 a(g212 V. tp8483 a(g6 V\u000a p8484 tp8485 a(g6 V[ tp8486 a(g6 V tp8487 a(g100 Vindex p8488 tp8489 a(g6 V tp8490 a(g48 V> tp8491 a(g6 V tp8492 a(g223 V0 tp8493 a(g6 V] tp8494 a(g6 V\u000a p8495 tp8496 a(g84 VwhileTrue: p8497 tp8498 a(g6 V \u000a p8499 tp8500 a(g6 V[ tp8501 a(g6 V tp8502 a(g100 VnewObject p8503 tp8504 a(g6 V tp8505 a(g48 VinstVarAt: p8506 tp8507 a(g6 V tp8508 a(g100 Vindex p8509 tp8510 a(g6 V tp8511 a(g48 Vput: p8512 tp8513 a(g6 V tp8514 a(g6 V( tp8515 a(g87 Vself p8516 tp8517 a(g6 V tp8518 a(g48 VinstVarAt: p8519 tp8520 a(g6 V tp8521 a(g100 Vindex p8522 tp8523 a(g6 V) tp8524 a(g6 V tp8525 a(g48 VdeepCopy p8526 tp8527 a(g212 V. tp8528 a(g6 V\u000a p8529 tp8530 a(g100 Vindex p8531 tp8532 a(g6 V tp8533 a(g353 V_ tp8534 a(g6 V tp8535 a(g100 Vindex p8536 tp8537 a(g6 V tp8538 a(g48 V- tp8539 a(g6 V tp8540 a(g223 V1 tp8541 a(g6 V] tp8542 a(g212 V. tp8543 a(g6 V\u000a p8544 tp8545 a(g353 V^ tp8546 a(g100 VnewObject p8547 tp8548 a(g138 V! ! p8549 tp8550 a(g6 V\u000a\u000a p8551 tp8552 a(g138 V! tp8553 a(g133 VObject p8554 tp8555 a(g138 V methodsFor: p8556 tp8557 a(g236 V'copying' p8558 tp8559 a(g138 V stamp: 'hg 11/23/1999 13:43'! p8560 tp8561 a(g6 V\u000a tp8562 a(g48 VinitialDeepCopierSize p8563 tp8564 a(g6 V\u000a p8565 tp8566 a(g24 V"default value is 4096; other classes may override this, esp. for smaller (=faster) sizes" p8567 tp8568 a(g6 V\u000a\u000a p8569 tp8570 a(g353 V^ tp8571 a(g223 V4096 p8572 tp8573 a(g138 V! ! p8574 tp8575 a(g6 V\u000a\u000a p8576 tp8577 a(g138 V! tp8578 a(g133 VObject p8579 tp8580 a(g138 V methodsFor: p8581 tp8582 a(g236 V'copying' p8583 tp8584 a(g138 V stamp: 'ajh 1/27/2003 18:45'! p8585 tp8586 a(g6 V\u000a tp8587 a(g48 VpostCopy p8588 tp8589 a(g6 V\u000a p8590 tp8591 a(g24 V"self is a shallow copy, subclasses should copy fields as necessary to complete the full copy" p8592 tp8593 a(g6 V\u000a\u000a p8594 tp8595 a(g353 V^ tp8596 a(g6 V tp8597 a(g87 Vself p8598 tp8599 a(g138 V! ! p8600 tp8601 a(g6 V\u000a\u000a p8602 tp8603 a(g138 V! tp8604 a(g133 VObject p8605 tp8606 a(g138 V methodsFor: p8607 tp8608 a(g236 V'copying' p8609 tp8610 a(g138 V stamp: 'jm 11/14/97 11:08'! p8611 tp8612 a(g6 V\u000a tp8613 a(g48 VshallowCopy p8614 tp8615 a(g6 V\u000a p8616 tp8617 a(g24 V"Answer a copy of the receiver which shares the receiver's instance variables." p8618 tp8619 a(g6 V\u000a p8620 tp8621 a(g353 V| tp8622 a(g100 V class newObject index p8623 tp8624 a(g353 V| tp8625 a(g6 V\u000a p8626 tp8627 a(g6 V< tp8628 a(g138 Vprimitive: p8629 tp8630 a(g6 V 148 p8631 tp8632 a(g6 V> tp8633 a(g6 V\u000a p8634 tp8635 a(g100 Vclass p8636 tp8637 a(g6 V tp8638 a(g353 V_ tp8639 a(g6 V tp8640 a(g87 Vself p8641 tp8642 a(g6 V tp8643 a(g48 Vclass p8644 tp8645 a(g212 V. tp8646 a(g6 V\u000a p8647 tp8648 a(g100 Vclass p8649 tp8650 a(g6 V tp8651 a(g48 VisVariable p8652 tp8653 a(g6 V\u000a p8654 tp8655 a(g84 VifTrue: p8656 tp8657 a(g6 V \u000a p8658 tp8659 a(g6 V[ tp8660 a(g6 V tp8661 a(g100 Vindex p8662 tp8663 a(g6 V tp8664 a(g353 V_ tp8665 a(g6 V tp8666 a(g87 Vself p8667 tp8668 a(g6 V tp8669 a(g48 VbasicSize p8670 tp8671 a(g212 V. tp8672 a(g6 V\u000a p8673 tp8674 a(g100 VnewObject p8675 tp8676 a(g6 V tp8677 a(g353 V_ tp8678 a(g6 V tp8679 a(g100 Vclass p8680 tp8681 a(g6 V tp8682 a(g48 VbasicNew: p8683 tp8684 a(g6 V tp8685 a(g100 Vindex p8686 tp8687 a(g212 V. tp8688 a(g6 V\u000a p8689 tp8690 a(g6 V[ tp8691 a(g6 V tp8692 a(g100 Vindex p8693 tp8694 a(g6 V tp8695 a(g48 V> tp8696 a(g6 V tp8697 a(g223 V0 tp8698 a(g6 V] tp8699 a(g6 V\u000a p8700 tp8701 a(g84 VwhileTrue: p8702 tp8703 a(g6 V \u000a p8704 tp8705 a(g6 V[ tp8706 a(g6 V tp8707 a(g100 VnewObject p8708 tp8709 a(g6 V tp8710 a(g48 VbasicAt: p8711 tp8712 a(g6 V tp8713 a(g100 Vindex p8714 tp8715 a(g6 V tp8716 a(g48 Vput: p8717 tp8718 a(g6 V tp8719 a(g6 V( tp8720 a(g87 Vself p8721 tp8722 a(g6 V tp8723 a(g48 VbasicAt: p8724 tp8725 a(g6 V tp8726 a(g100 Vindex p8727 tp8728 a(g6 V) tp8729 a(g212 V. tp8730 a(g6 V\u000a p8731 tp8732 a(g100 Vindex p8733 tp8734 a(g6 V tp8735 a(g353 V_ tp8736 a(g6 V tp8737 a(g100 Vindex p8738 tp8739 a(g6 V tp8740 a(g48 V- tp8741 a(g6 V tp8742 a(g223 V1 tp8743 a(g6 V] tp8744 a(g6 V] tp8745 a(g6 V\u000a p8746 tp8747 a(g84 VifFalse: p8748 tp8749 a(g6 V tp8750 a(g6 V[ tp8751 a(g6 V tp8752 a(g100 VnewObject p8753 tp8754 a(g6 V tp8755 a(g353 V_ tp8756 a(g6 V tp8757 a(g100 Vclass p8758 tp8759 a(g6 V tp8760 a(g48 VbasicNew p8761 tp8762 a(g6 V] tp8763 a(g212 V. tp8764 a(g6 V\u000a p8765 tp8766 a(g100 Vindex p8767 tp8768 a(g6 V tp8769 a(g353 V_ tp8770 a(g6 V tp8771 a(g100 Vclass p8772 tp8773 a(g6 V tp8774 a(g48 VinstSize p8775 tp8776 a(g212 V. tp8777 a(g6 V\u000a p8778 tp8779 a(g6 V[ tp8780 a(g6 V tp8781 a(g100 Vindex p8782 tp8783 a(g6 V tp8784 a(g48 V> tp8785 a(g6 V tp8786 a(g223 V0 tp8787 a(g6 V] tp8788 a(g6 V\u000a p8789 tp8790 a(g84 VwhileTrue: p8791 tp8792 a(g6 V \u000a p8793 tp8794 a(g6 V[ tp8795 a(g6 V tp8796 a(g100 VnewObject p8797 tp8798 a(g6 V tp8799 a(g48 VinstVarAt: p8800 tp8801 a(g6 V tp8802 a(g100 Vindex p8803 tp8804 a(g6 V tp8805 a(g48 Vput: p8806 tp8807 a(g6 V tp8808 a(g6 V( tp8809 a(g87 Vself p8810 tp8811 a(g6 V tp8812 a(g48 VinstVarAt: p8813 tp8814 a(g6 V tp8815 a(g100 Vindex p8816 tp8817 a(g6 V) tp8818 a(g212 V. tp8819 a(g6 V\u000a p8820 tp8821 a(g100 Vindex p8822 tp8823 a(g6 V tp8824 a(g353 V_ tp8825 a(g6 V tp8826 a(g100 Vindex p8827 tp8828 a(g6 V tp8829 a(g48 V- tp8830 a(g6 V tp8831 a(g223 V1 tp8832 a(g6 V] tp8833 a(g212 V. tp8834 a(g6 V\u000a p8835 tp8836 a(g353 V^ tp8837 a(g6 V tp8838 a(g100 VnewObject p8839 tp8840 a(g138 V! ! p8841 tp8842 a(g6 V\u000a\u000a p8843 tp8844 a(g138 V! tp8845 a(g133 VObject p8846 tp8847 a(g138 V methodsFor: p8848 tp8849 a(g236 V'copying' p8850 tp8851 a(g138 V stamp: 'tk 3/11/2003 13:58'! p8852 tp8853 a(g6 V\u000a tp8854 a(g48 VveryDeepCopy p8855 tp8856 a(g6 V\u000a p8857 tp8858 a(g24 V"Do a complete tree copy using a dictionary. An object in the tree twice is only copied once. All references to the object in the copy of the tree will point to the new copy." p8859 tp8860 a(g6 V\u000a\u000a p8861 tp8862 a(g353 V| tp8863 a(g100 V copier new p8864 tp8865 a(g353 V| tp8866 a(g6 V\u000a p8867 tp8868 a(g100 Vcopier p8869 tp8870 a(g6 V tp8871 a(g353 V_ tp8872 a(g6 V tp8873 a(g133 VDeepCopier p8874 tp8875 a(g6 V tp8876 a(g84 Vnew p8877 tp8878 a(g6 V tp8879 a(g48 Vinitialize: p8880 tp8881 a(g6 V tp8882 a(g87 Vself p8883 tp8884 a(g6 V tp8885 a(g48 VinitialDeepCopierSize p8886 tp8887 a(g212 V. tp8888 a(g6 V\u000a p8889 tp8890 a(g100 Vnew p8891 tp8892 a(g6 V tp8893 a(g353 V_ tp8894 a(g6 V tp8895 a(g87 Vself p8896 tp8897 a(g6 V tp8898 a(g48 VveryDeepCopyWith: p8899 tp8900 a(g6 V tp8901 a(g100 Vcopier p8902 tp8903 a(g212 V. tp8904 a(g6 V\u000a p8905 tp8906 a(g100 Vcopier p8907 tp8908 a(g6 V tp8909 a(g48 VmapUniClasses p8910 tp8911 a(g212 V. tp8912 a(g6 V\u000a p8913 tp8914 a(g100 Vcopier p8915 tp8916 a(g6 V tp8917 a(g48 Vreferences p8918 tp8919 a(g6 V tp8920 a(g48 VassociationsDo: p8921 tp8922 a(g6 V tp8923 a(g6 V[ tp8924 a(g353 V: tp8925 a(g100 Vassoc p8926 tp8927 a(g6 V tp8928 a(g353 V| tp8929 a(g6 V \u000a p8930 tp8931 a(g100 Vassoc p8932 tp8933 a(g6 V tp8934 a(g48 Vvalue p8935 tp8936 a(g6 V tp8937 a(g48 VveryDeepFixupWith: p8938 tp8939 a(g6 V tp8940 a(g100 Vcopier p8941 tp8942 a(g6 V] tp8943 a(g212 V. tp8944 a(g6 V\u000a p8945 tp8946 a(g100 Vcopier p8947 tp8948 a(g6 V tp8949 a(g48 VfixDependents p8950 tp8951 a(g212 V. tp8952 a(g6 V\u000a p8953 tp8954 a(g353 V^ tp8955 a(g6 V tp8956 a(g100 Vnew p8957 tp8958 a(g138 V! ! p8959 tp8960 a(g6 V\u000a\u000a p8961 tp8962 a(g138 V! tp8963 a(g133 VObject p8964 tp8965 a(g138 V methodsFor: p8966 tp8967 a(g236 V'copying' p8968 tp8969 a(g138 V stamp: 'tk 3/11/2003 13:58'! p8970 tp8971 a(g6 V\u000a tp8972 a(g48 VveryDeepCopySibling p8973 tp8974 a(g6 V\u000a p8975 tp8976 a(g24 V"Do a complete tree copy using a dictionary. Substitute a clone of oldPlayer for the root. Normally, a Player or non systemDefined object would have a new class. We do not want one this time. An object in the tree twice, is only copied once. All references to the object in the copy of the tree will point to the new copy." p8977 tp8978 a(g6 V\u000a\u000a p8979 tp8980 a(g353 V| tp8981 a(g100 V copier new p8982 tp8983 a(g353 V| tp8984 a(g6 V\u000a p8985 tp8986 a(g100 Vcopier p8987 tp8988 a(g6 V tp8989 a(g353 V_ tp8990 a(g6 V tp8991 a(g133 VDeepCopier p8992 tp8993 a(g6 V tp8994 a(g84 Vnew p8995 tp8996 a(g6 V tp8997 a(g48 Vinitialize: p8998 tp8999 a(g6 V tp9000 a(g87 Vself p9001 tp9002 a(g6 V tp9003 a(g48 VinitialDeepCopierSize p9004 tp9005 a(g212 V. tp9006 a(g6 V\u000a p9007 tp9008 a(g100 Vcopier p9009 tp9010 a(g6 V tp9011 a(g48 VnewUniClasses: p9012 tp9013 a(g6 V tp9014 a(g87 Vfalse p9015 tp9016 a(g212 V. tp9017 a(g6 V\u000a p9018 tp9019 a(g100 Vnew p9020 tp9021 a(g6 V tp9022 a(g353 V_ tp9023 a(g6 V tp9024 a(g87 Vself p9025 tp9026 a(g6 V tp9027 a(g48 VveryDeepCopyWith: p9028 tp9029 a(g6 V tp9030 a(g100 Vcopier p9031 tp9032 a(g212 V. tp9033 a(g6 V\u000a p9034 tp9035 a(g100 Vcopier p9036 tp9037 a(g6 V tp9038 a(g48 VmapUniClasses p9039 tp9040 a(g212 V. tp9041 a(g6 V\u000a p9042 tp9043 a(g100 Vcopier p9044 tp9045 a(g6 V tp9046 a(g48 Vreferences p9047 tp9048 a(g6 V tp9049 a(g48 VassociationsDo: p9050 tp9051 a(g6 V tp9052 a(g6 V[ tp9053 a(g353 V: tp9054 a(g100 Vassoc p9055 tp9056 a(g6 V tp9057 a(g353 V| tp9058 a(g6 V \u000a p9059 tp9060 a(g100 Vassoc p9061 tp9062 a(g6 V tp9063 a(g48 Vvalue p9064 tp9065 a(g6 V tp9066 a(g48 VveryDeepFixupWith: p9067 tp9068 a(g6 V tp9069 a(g100 Vcopier p9070 tp9071 a(g6 V] tp9072 a(g212 V. tp9073 a(g6 V\u000a p9074 tp9075 a(g100 Vcopier p9076 tp9077 a(g6 V tp9078 a(g48 VfixDependents p9079 tp9080 a(g212 V. tp9081 a(g6 V\u000a p9082 tp9083 a(g353 V^ tp9084 a(g6 V tp9085 a(g100 Vnew p9086 tp9087 a(g138 V! ! p9088 tp9089 a(g6 V\u000a\u000a p9090 tp9091 a(g138 V! tp9092 a(g133 VObject p9093 tp9094 a(g138 V methodsFor: p9095 tp9096 a(g236 V'copying' p9097 tp9098 a(g138 V stamp: 'tk 5/13/2003 19:39'! p9099 tp9100 a(g6 V\u000a tp9101 a(g48 VveryDeepCopyUsing: p9102 tp9103 a(g6 V tp9104 a(g100 Vcopier p9105 tp9106 a(g6 V\u000a p9107 tp9108 a(g24 V"Do a complete tree copy using a dictionary. An object in the tree twice is only copied once. All references to the object in the copy of the tree will point to the new copy.\u000a Same as veryDeepCopy except copier (with dictionary) is supplied.\u000a ** do not delete this method, even if it has no callers **" p9109 tp9110 a(g6 V\u000a\u000a p9111 tp9112 a(g353 V| tp9113 a(g100 V new refs newDep newModel p9114 tp9115 a(g353 V| tp9116 a(g6 V\u000a p9117 tp9118 a(g100 Vnew p9119 tp9120 a(g6 V tp9121 a(g353 V_ tp9122 a(g6 V tp9123 a(g87 Vself p9124 tp9125 a(g6 V tp9126 a(g48 VveryDeepCopyWith: p9127 tp9128 a(g6 V tp9129 a(g100 Vcopier p9130 tp9131 a(g212 V. tp9132 a(g6 V\u000a p9133 tp9134 a(g100 Vcopier p9135 tp9136 a(g6 V tp9137 a(g48 VmapUniClasses p9138 tp9139 a(g212 V. tp9140 a(g6 V\u000a p9141 tp9142 a(g100 Vcopier p9143 tp9144 a(g6 V tp9145 a(g48 Vreferences p9146 tp9147 a(g6 V tp9148 a(g48 VassociationsDo: p9149 tp9150 a(g6 V tp9151 a(g6 V[ tp9152 a(g353 V: tp9153 a(g100 Vassoc p9154 tp9155 a(g6 V tp9156 a(g353 V| tp9157 a(g6 V \u000a p9158 tp9159 a(g100 Vassoc p9160 tp9161 a(g6 V tp9162 a(g48 Vvalue p9163 tp9164 a(g6 V tp9165 a(g48 VveryDeepFixupWith: p9166 tp9167 a(g6 V tp9168 a(g100 Vcopier p9169 tp9170 a(g6 V] tp9171 a(g212 V. tp9172 a(g6 V\u000a p9173 tp9174 a(g24 V"Fix dependents" p9175 tp9176 a(g6 V\u000a p9177 tp9178 a(g100 Vrefs p9179 tp9180 a(g6 V tp9181 a(g353 V_ tp9182 a(g6 V tp9183 a(g100 Vcopier p9184 tp9185 a(g6 V tp9186 a(g48 Vreferences p9187 tp9188 a(g212 V. tp9189 a(g6 V\u000a p9190 tp9191 a(g133 VDependentsFields p9192 tp9193 a(g6 V tp9194 a(g48 VassociationsDo: p9195 tp9196 a(g6 V tp9197 a(g6 V[ tp9198 a(g353 V: tp9199 a(g100 Vpair p9200 tp9201 a(g6 V tp9202 a(g353 V| tp9203 a(g6 V\u000a p9204 tp9205 a(g100 Vpair p9206 tp9207 a(g6 V tp9208 a(g48 Vvalue p9209 tp9210 a(g6 V tp9211 a(g48 Vdo: p9212 tp9213 a(g6 V tp9214 a(g6 V[ tp9215 a(g353 V: tp9216 a(g100 Vdep p9217 tp9218 a(g6 V tp9219 a(g353 V| tp9220 a(g6 V \u000a p9221 tp9222 a(g6 V( tp9223 a(g100 VnewDep p9224 tp9225 a(g6 V tp9226 a(g353 V_ tp9227 a(g6 V tp9228 a(g100 Vrefs p9229 tp9230 a(g6 V tp9231 a(g48 Vat: p9232 tp9233 a(g6 V tp9234 a(g100 Vdep p9235 tp9236 a(g6 V tp9237 a(g48 VifAbsent: p9238 tp9239 a(g6 V tp9240 a(g6 V[ tp9241 a(g6 V tp9242 a(g87 Vnil p9243 tp9244 a(g6 V] tp9245 a(g6 V) tp9246 a(g6 V tp9247 a(g48 VifNotNil: p9248 tp9249 a(g6 V tp9250 a(g6 V[ tp9251 a(g6 V\u000a p9252 tp9253 a(g6 V tp9254 a(g100 VnewModel p9255 tp9256 a(g6 V tp9257 a(g353 V_ tp9258 a(g6 V tp9259 a(g100 Vrefs p9260 tp9261 a(g6 V tp9262 a(g48 Vat: p9263 tp9264 a(g6 V tp9265 a(g100 Vpair p9266 tp9267 a(g6 V tp9268 a(g48 Vkey p9269 tp9270 a(g6 V tp9271 a(g48 VifAbsent: p9272 tp9273 a(g6 V tp9274 a(g6 V[ tp9275 a(g6 V tp9276 a(g100 Vpair p9277 tp9278 a(g6 V tp9279 a(g48 Vkey p9280 tp9281 a(g6 V] tp9282 a(g212 V. tp9283 a(g6 V\u000a p9284 tp9285 a(g100 VnewModel p9286 tp9287 a(g6 V tp9288 a(g48 VaddDependent: p9289 tp9290 a(g6 V tp9291 a(g100 VnewDep p9292 tp9293 a(g6 V] tp9294 a(g6 V] tp9295 a(g6 V] tp9296 a(g212 V. tp9297 a(g6 V\u000a p9298 tp9299 a(g353 V^ tp9300 a(g6 V tp9301 a(g100 Vnew p9302 tp9303 a(g138 V! ! p9304 tp9305 a(g6 V\u000a\u000a p9306 tp9307 a(g138 V! tp9308 a(g133 VObject p9309 tp9310 a(g138 V methodsFor: p9311 tp9312 a(g236 V'copying' p9313 tp9314 a(g138 V stamp: 'tk 3/11/2003 14:12'! p9315 tp9316 a(g6 V\u000a tp9317 a(g48 VveryDeepCopyWith: p9318 tp9319 a(g6 V tp9320 a(g100 VdeepCopier p9321 tp9322 a(g6 V\u000a p9323 tp9324 a(g24 V"Copy me and the entire tree of objects I point to. An object in the tree twice is copied once, and both references point to him. deepCopier holds a dictionary of objects we have seen. Some classes refuse to be copied. Some classes are picky about which fields get deep copied." p9325 tp9326 a(g6 V\u000a p9327 tp9328 a(g353 V| tp9329 a(g100 V class index sub subAss new uc sup has mine p9330 tp9331 a(g353 V| tp9332 a(g6 V\u000a p9333 tp9334 a(g100 VdeepCopier p9335 tp9336 a(g6 V tp9337 a(g48 Vreferences p9338 tp9339 a(g6 V tp9340 a(g48 Vat: p9341 tp9342 a(g6 V tp9343 a(g87 Vself p9344 tp9345 a(g6 V tp9346 a(g48 VifPresent: p9347 tp9348 a(g6 V tp9349 a(g6 V[ tp9350 a(g353 V: tp9351 a(g100 Vnewer p9352 tp9353 a(g6 V tp9354 a(g353 V| tp9355 a(g6 V tp9356 a(g353 V^ tp9357 a(g6 V tp9358 a(g100 Vnewer p9359 tp9360 a(g6 V] tp9361 a(g212 V. tp9362 a(g6 V p9363 tp9364 a(g24 V"already did him" p9365 tp9366 a(g6 V\u000a p9367 tp9368 a(g100 Vclass p9369 tp9370 a(g6 V tp9371 a(g353 V_ tp9372 a(g6 V tp9373 a(g87 Vself p9374 tp9375 a(g6 V tp9376 a(g48 Vclass p9377 tp9378 a(g212 V. tp9379 a(g6 V\u000a p9380 tp9381 a(g100 Vclass p9382 tp9383 a(g6 V tp9384 a(g48 VisMeta p9385 tp9386 a(g6 V tp9387 a(g84 VifTrue: p9388 tp9389 a(g6 V tp9390 a(g6 V[ tp9391 a(g6 V tp9392 a(g353 V^ tp9393 a(g6 V tp9394 a(g87 Vself p9395 tp9396 a(g6 V] tp9397 a(g212 V. tp9398 a(g6 V p9399 tp9400 a(g24 V"a class" p9401 tp9402 a(g6 V\u000a p9403 tp9404 a(g100 Vnew p9405 tp9406 a(g6 V tp9407 a(g353 V_ tp9408 a(g6 V tp9409 a(g87 Vself p9410 tp9411 a(g6 V tp9412 a(g48 Vclone p9413 tp9414 a(g212 V. tp9415 a(g6 V\u000a p9416 tp9417 a(g6 V( tp9418 a(g100 Vclass p9419 tp9420 a(g6 V tp9421 a(g48 VisSystemDefined p9422 tp9423 a(g6 V tp9424 a(g48 Vnot p9425 tp9426 a(g6 V tp9427 a(g48 Vand: p9428 tp9429 a(g6 V tp9430 a(g6 V[ tp9431 a(g6 V tp9432 a(g100 VdeepCopier p9433 tp9434 a(g6 V tp9435 a(g48 VnewUniClasses p9436 tp9437 a(g6 V tp9438 a(g24 V"allowed" p9439 tp9440 a(g6 V] tp9441 a(g6 V) tp9442 a(g6 V tp9443 a(g84 VifTrue: p9444 tp9445 a(g6 V tp9446 a(g6 V[ tp9447 a(g6 V\u000a p9448 tp9449 a(g6 V tp9450 a(g100 Vuc p9451 tp9452 a(g6 V tp9453 a(g353 V_ tp9454 a(g6 V tp9455 a(g100 VdeepCopier p9456 tp9457 a(g6 V tp9458 a(g48 VuniClasses p9459 tp9460 a(g6 V tp9461 a(g48 Vat: p9462 tp9463 a(g6 V tp9464 a(g100 Vclass p9465 tp9466 a(g6 V tp9467 a(g48 VifAbsent: p9468 tp9469 a(g6 V tp9470 a(g6 V[ tp9471 a(g6 V tp9472 a(g87 Vnil p9473 tp9474 a(g6 V] tp9475 a(g212 V. tp9476 a(g6 V\u000a p9477 tp9478 a(g100 Vuc p9479 tp9480 a(g6 V tp9481 a(g48 VifNil: p9482 tp9483 a(g6 V tp9484 a(g6 V[ tp9485 a(g6 V\u000a p9486 tp9487 a(g6 V tp9488 a(g100 VdeepCopier p9489 tp9490 a(g6 V tp9491 a(g48 VuniClasses p9492 tp9493 a(g6 V tp9494 a(g48 Vat: p9495 tp9496 a(g6 V tp9497 a(g100 Vclass p9498 tp9499 a(g6 V tp9500 a(g48 Vput: p9501 tp9502 a(g6 V tp9503 a(g6 V( tp9504 a(g100 Vuc p9505 tp9506 a(g6 V tp9507 a(g353 V_ tp9508 a(g6 V tp9509 a(g87 Vself p9510 tp9511 a(g6 V tp9512 a(g48 VcopyUniClassWith: p9513 tp9514 a(g6 V tp9515 a(g100 VdeepCopier p9516 tp9517 a(g6 V) tp9518 a(g212 V. tp9519 a(g6 V\u000a p9520 tp9521 a(g100 VdeepCopier p9522 tp9523 a(g6 V tp9524 a(g48 Vreferences p9525 tp9526 a(g6 V tp9527 a(g48 Vat: p9528 tp9529 a(g6 V tp9530 a(g100 Vclass p9531 tp9532 a(g6 V tp9533 a(g48 Vput: p9534 tp9535 a(g6 V tp9536 a(g100 Vuc p9537 tp9538 a(g6 V] tp9539 a(g212 V. tp9540 a(g6 V tp9541 a(g24 V"remember" p9542 tp9543 a(g6 V\u000a p9544 tp9545 a(g100 Vnew p9546 tp9547 a(g6 V tp9548 a(g353 V_ tp9549 a(g6 V tp9550 a(g100 Vuc p9551 tp9552 a(g6 V tp9553 a(g84 Vnew p9554 tp9555 a(g212 V. tp9556 a(g6 V\u000a p9557 tp9558 a(g100 Vnew p9559 tp9560 a(g6 V tp9561 a(g48 VcopyFrom: p9562 tp9563 a(g6 V tp9564 a(g87 Vself p9565 tp9566 a(g6 V] tp9567 a(g212 V. tp9568 a(g6 V tp9569 a(g24 V"copy inst vars in case any are weak" p9570 tp9571 a(g6 V\u000a p9572 tp9573 a(g100 VdeepCopier p9574 tp9575 a(g6 V tp9576 a(g48 Vreferences p9577 tp9578 a(g6 V tp9579 a(g48 Vat: p9580 tp9581 a(g6 V tp9582 a(g87 Vself p9583 tp9584 a(g6 V tp9585 a(g48 Vput: p9586 tp9587 a(g6 V tp9588 a(g100 Vnew p9589 tp9590 a(g212 V. tp9591 a(g6 V tp9592 a(g24 V"remember" p9593 tp9594 a(g6 V\u000a p9595 tp9596 a(g6 V( tp9597 a(g100 Vclass p9598 tp9599 a(g6 V tp9600 a(g48 VisVariable p9601 tp9602 a(g6 V tp9603 a(g48 Vand: p9604 tp9605 a(g6 V tp9606 a(g6 V[ tp9607 a(g6 V tp9608 a(g100 Vclass p9609 tp9610 a(g6 V tp9611 a(g48 VisPointers p9612 tp9613 a(g6 V] tp9614 a(g6 V) tp9615 a(g6 V tp9616 a(g84 VifTrue: p9617 tp9618 a(g6 V \u000a p9619 tp9620 a(g6 V[ tp9621 a(g6 V tp9622 a(g100 Vindex p9623 tp9624 a(g6 V tp9625 a(g353 V_ tp9626 a(g6 V tp9627 a(g87 Vself p9628 tp9629 a(g6 V tp9630 a(g48 VbasicSize p9631 tp9632 a(g212 V. tp9633 a(g6 V\u000a p9634 tp9635 a(g6 V[ tp9636 a(g6 V tp9637 a(g100 Vindex p9638 tp9639 a(g6 V tp9640 a(g48 V> tp9641 a(g6 V tp9642 a(g223 V0 tp9643 a(g6 V] tp9644 a(g6 V tp9645 a(g84 VwhileTrue: p9646 tp9647 a(g6 V \u000a p9648 tp9649 a(g6 V[ tp9650 a(g6 V tp9651 a(g100 Vsub p9652 tp9653 a(g6 V tp9654 a(g353 V_ tp9655 a(g6 V tp9656 a(g87 Vself p9657 tp9658 a(g6 V tp9659 a(g48 VbasicAt: p9660 tp9661 a(g6 V tp9662 a(g100 Vindex p9663 tp9664 a(g212 V. tp9665 a(g6 V\u000a p9666 tp9667 a(g6 V( tp9668 a(g100 VsubAss p9669 tp9670 a(g6 V tp9671 a(g353 V_ tp9672 a(g6 V tp9673 a(g100 VdeepCopier p9674 tp9675 a(g6 V tp9676 a(g48 Vreferences p9677 tp9678 a(g6 V tp9679 a(g48 VassociationAt: p9680 tp9681 a(g6 V tp9682 a(g100 Vsub p9683 tp9684 a(g6 V tp9685 a(g48 VifAbsent: p9686 tp9687 a(g6 V tp9688 a(g6 V[ tp9689 a(g6 V tp9690 a(g87 Vnil p9691 tp9692 a(g6 V] tp9693 a(g6 V) tp9694 a(g6 V\u000a p9695 tp9696 a(g48 VifNil: p9697 tp9698 a(g6 V tp9699 a(g6 V[ tp9700 a(g6 V tp9701 a(g100 Vnew p9702 tp9703 a(g6 V tp9704 a(g48 VbasicAt: p9705 tp9706 a(g6 V tp9707 a(g100 Vindex p9708 tp9709 a(g6 V tp9710 a(g48 Vput: p9711 tp9712 a(g6 V tp9713 a(g6 V( tp9714 a(g100 Vsub p9715 tp9716 a(g6 V tp9717 a(g48 VveryDeepCopyWith: p9718 tp9719 a(g6 V tp9720 a(g100 VdeepCopier p9721 tp9722 a(g6 V) tp9723 a(g6 V] tp9724 a(g6 V\u000a p9725 tp9726 a(g48 VifNotNil: p9727 tp9728 a(g6 V tp9729 a(g6 V[ tp9730 a(g6 V tp9731 a(g100 Vnew p9732 tp9733 a(g6 V tp9734 a(g48 VbasicAt: p9735 tp9736 a(g6 V tp9737 a(g100 Vindex p9738 tp9739 a(g6 V tp9740 a(g48 Vput: p9741 tp9742 a(g6 V tp9743 a(g100 VsubAss p9744 tp9745 a(g6 V tp9746 a(g48 Vvalue p9747 tp9748 a(g6 V] tp9749 a(g212 V. tp9750 a(g6 V\u000a p9751 tp9752 a(g100 Vindex p9753 tp9754 a(g6 V tp9755 a(g353 V_ tp9756 a(g6 V tp9757 a(g100 Vindex p9758 tp9759 a(g6 V tp9760 a(g48 V- tp9761 a(g6 V tp9762 a(g223 V1 tp9763 a(g6 V] tp9764 a(g6 V] tp9765 a(g212 V. tp9766 a(g6 V\u000a p9767 tp9768 a(g24 V"Ask each superclass if it wants to share (weak copy) any inst vars" p9769 tp9770 a(g6 V\u000a p9771 tp9772 a(g100 Vnew p9773 tp9774 a(g6 V tp9775 a(g48 VveryDeepInner: p9776 tp9777 a(g6 V tp9778 a(g100 VdeepCopier p9779 tp9780 a(g212 V. tp9781 a(g6 V p9782 tp9783 a(g24 V"does super a lot" p9784 tp9785 a(g6 V\u000a\u000a p9786 tp9787 a(g24 V"other superclasses want all inst vars deep copied" p9788 tp9789 a(g6 V\u000a p9790 tp9791 a(g100 Vsup p9792 tp9793 a(g6 V tp9794 a(g353 V_ tp9795 a(g6 V tp9796 a(g100 Vclass p9797 tp9798 a(g212 V. tp9799 a(g6 V p9800 tp9801 a(g100 Vindex p9802 tp9803 a(g6 V tp9804 a(g353 V_ tp9805 a(g6 V tp9806 a(g100 Vclass p9807 tp9808 a(g6 V tp9809 a(g48 VinstSize p9810 tp9811 a(g212 V. tp9812 a(g6 V\u000a p9813 tp9814 a(g6 V[ tp9815 a(g6 V tp9816 a(g100 Vhas p9817 tp9818 a(g6 V tp9819 a(g353 V_ tp9820 a(g6 V tp9821 a(g100 Vsup p9822 tp9823 a(g6 V tp9824 a(g48 VcompiledMethodAt: p9825 tp9826 a(g6 V tp9827 a(g258 V#veryDeepInner: p9828 tp9829 a(g6 V tp9830 a(g48 VifAbsent: p9831 tp9832 a(g6 V tp9833 a(g6 V[ tp9834 a(g6 V tp9835 a(g87 Vnil p9836 tp9837 a(g6 V] tp9838 a(g212 V. tp9839 a(g6 V\u000a p9840 tp9841 a(g100 Vhas p9842 tp9843 a(g6 V tp9844 a(g353 V_ tp9845 a(g6 V tp9846 a(g100 Vhas p9847 tp9848 a(g6 V tp9849 a(g48 VifNil: p9850 tp9851 a(g6 V tp9852 a(g6 V[ tp9853 a(g6 V tp9854 a(g100 Vclass p9855 tp9856 a(g6 V tp9857 a(g48 VisSystemDefined p9858 tp9859 a(g6 V tp9860 a(g48 Vnot p9861 tp9862 a(g6 V tp9863 a(g24 V"is a uniClass" p9864 tp9865 a(g6 V] tp9866 a(g6 V tp9867 a(g48 VifNotNil: p9868 tp9869 a(g6 V tp9870 a(g6 V[ tp9871 a(g6 V tp9872 a(g87 Vtrue p9873 tp9874 a(g6 V] tp9875 a(g212 V. tp9876 a(g6 V\u000a p9877 tp9878 a(g100 Vmine p9879 tp9880 a(g6 V tp9881 a(g353 V_ tp9882 a(g6 V tp9883 a(g100 Vsup p9884 tp9885 a(g6 V tp9886 a(g48 VinstVarNames p9887 tp9888 a(g212 V. tp9889 a(g6 V\u000a p9890 tp9891 a(g100 Vhas p9892 tp9893 a(g6 V tp9894 a(g84 VifTrue: p9895 tp9896 a(g6 V tp9897 a(g6 V[ tp9898 a(g6 V tp9899 a(g100 Vindex p9900 tp9901 a(g6 V tp9902 a(g353 V_ tp9903 a(g6 V tp9904 a(g100 Vindex p9905 tp9906 a(g6 V tp9907 a(g48 V- tp9908 a(g6 V tp9909 a(g100 Vmine p9910 tp9911 a(g6 V tp9912 a(g48 Vsize p9913 tp9914 a(g6 V] tp9915 a(g6 V tp9916 a(g24 V"skip inst vars" p9917 tp9918 a(g6 V\u000a p9919 tp9920 a(g84 VifFalse: p9921 tp9922 a(g6 V tp9923 a(g6 V[ tp9924 a(g6 V tp9925 a(g223 V1 tp9926 a(g6 V tp9927 a(g48 Vto: p9928 tp9929 a(g6 V tp9930 a(g100 Vmine p9931 tp9932 a(g6 V tp9933 a(g48 Vsize p9934 tp9935 a(g6 V tp9936 a(g48 Vdo: p9937 tp9938 a(g6 V tp9939 a(g6 V[ tp9940 a(g353 V: tp9941 a(g100 Vxx p9942 tp9943 a(g6 V tp9944 a(g353 V| tp9945 a(g6 V\u000a p9946 tp9947 a(g100 Vsub p9948 tp9949 a(g6 V tp9950 a(g353 V_ tp9951 a(g6 V tp9952 a(g87 Vself p9953 tp9954 a(g6 V tp9955 a(g48 VinstVarAt: p9956 tp9957 a(g6 V tp9958 a(g100 Vindex p9959 tp9960 a(g212 V. tp9961 a(g6 V\u000a p9962 tp9963 a(g6 V( tp9964 a(g100 VsubAss p9965 tp9966 a(g6 V tp9967 a(g353 V_ tp9968 a(g6 V tp9969 a(g100 VdeepCopier p9970 tp9971 a(g6 V tp9972 a(g48 Vreferences p9973 tp9974 a(g6 V tp9975 a(g48 VassociationAt: p9976 tp9977 a(g6 V tp9978 a(g100 Vsub p9979 tp9980 a(g6 V tp9981 a(g48 VifAbsent: p9982 tp9983 a(g6 V tp9984 a(g6 V[ tp9985 a(g6 V tp9986 a(g87 Vnil p9987 tp9988 a(g6 V] tp9989 a(g6 V) tp9990 a(g6 V\u000a p9991 tp9992 a(g24 V"use association, not value, so nil is an exceptional value" p9993 tp9994 a(g6 V\u000a p9995 tp9996 a(g48 VifNil: p9997 tp9998 a(g6 V tp9999 a(g6 V[ tp10000 a(g6 V tp10001 a(g100 Vnew p10002 tp10003 a(g6 V tp10004 a(g48 VinstVarAt: p10005 tp10006 a(g6 V tp10007 a(g100 Vindex p10008 tp10009 a(g6 V tp10010 a(g48 Vput: p10011 tp10012 a(g6 V \u000a p10013 tp10014 a(g6 V( tp10015 a(g100 Vsub p10016 tp10017 a(g6 V tp10018 a(g48 VveryDeepCopyWith: p10019 tp10020 a(g6 V tp10021 a(g100 VdeepCopier p10022 tp10023 a(g6 V) tp10024 a(g6 V] tp10025 a(g6 V\u000a p10026 tp10027 a(g48 VifNotNil: p10028 tp10029 a(g6 V tp10030 a(g6 V[ tp10031 a(g6 V tp10032 a(g100 Vnew p10033 tp10034 a(g6 V tp10035 a(g48 VinstVarAt: p10036 tp10037 a(g6 V tp10038 a(g100 Vindex p10039 tp10040 a(g6 V tp10041 a(g48 Vput: p10042 tp10043 a(g6 V tp10044 a(g100 VsubAss p10045 tp10046 a(g6 V tp10047 a(g48 Vvalue p10048 tp10049 a(g6 V] tp10050 a(g212 V. tp10051 a(g6 V\u000a p10052 tp10053 a(g100 Vindex p10054 tp10055 a(g6 V tp10056 a(g353 V_ tp10057 a(g6 V tp10058 a(g100 Vindex p10059 tp10060 a(g6 V tp10061 a(g48 V- tp10062 a(g6 V tp10063 a(g223 V1 tp10064 a(g6 V] tp10065 a(g6 V] tp10066 a(g212 V. tp10067 a(g6 V\u000a p10068 tp10069 a(g6 V( tp10070 a(g100 Vsup p10071 tp10072 a(g6 V tp10073 a(g353 V_ tp10074 a(g6 V tp10075 a(g100 Vsup p10076 tp10077 a(g6 V tp10078 a(g48 Vsuperclass p10079 tp10080 a(g6 V) tp10081 a(g6 V tp10082 a(g48 V== p10083 tp10084 a(g6 V tp10085 a(g87 Vnil p10086 tp10087 a(g6 V] tp10088 a(g6 V tp10089 a(g48 VwhileFalse p10090 tp10091 a(g212 V. tp10092 a(g6 V\u000a p10093 tp10094 a(g100 Vnew p10095 tp10096 a(g6 V tp10097 a(g48 Vrehash p10098 tp10099 a(g212 V. tp10100 a(g6 V tp10101 a(g24 V"force Sets and Dictionaries to rehash" p10102 tp10103 a(g6 V\u000a p10104 tp10105 a(g353 V^ tp10106 a(g6 V tp10107 a(g100 Vnew p10108 tp10109 a(g6 V\u000a tp10110 a(g138 V! ! p10111 tp10112 a(g6 V\u000a\u000a p10113 tp10114 a(g138 V! tp10115 a(g133 VObject p10116 tp10117 a(g138 V methodsFor: p10118 tp10119 a(g236 V'copying' p10120 tp10121 a(g138 V stamp: 'tk 1/6/1999 17:39'! p10122 tp10123 a(g6 V\u000a tp10124 a(g48 VveryDeepFixupWith: p10125 tp10126 a(g6 V tp10127 a(g100 VdeepCopier p10128 tp10129 a(g6 V\u000a p10130 tp10131 a(g24 V"I have no fields and no superclass. Catch the super call." p10132 tp10133 a(g6 V\u000a tp10134 a(g138 V! ! p10135 tp10136 a(g6 V\u000a\u000a p10137 tp10138 a(g138 V! tp10139 a(g133 VObject p10140 tp10141 a(g138 V methodsFor: p10142 tp10143 a(g236 V'copying' p10144 tp10145 a(g138 V stamp: 'tk 9/4/2001 10:30'! p10146 tp10147 a(g6 V\u000a tp10148 a(g48 VveryDeepInner: p10149 tp10150 a(g6 V tp10151 a(g100 VdeepCopier p10152 tp10153 a(g6 V\u000a p10154 tp10155 a(g24 V"No special treatment for inst vars of my superclasses. Override when some need to be weakly copied. Object>>veryDeepCopyWith: will veryDeepCopy any inst var whose class does not actually define veryDeepInner:" p10156 tp10157 a(g6 V\u000a tp10158 a(g138 V! ! p10159 tp10160 a(g6 V\u000a\u000a\u000a p10161 tp10162 a(g138 V! tp10163 a(g133 VObject p10164 tp10165 a(g138 V methodsFor: p10166 tp10167 a(g236 V'creation' p10168 tp10169 a(g138 V stamp: 'nk 2/26/2004 13:35'! p10170 tp10171 a(g6 V\u000a tp10172 a(g48 VasStringMorph p10173 tp10174 a(g6 V\u000a p10175 tp10176 a(g24 V"Open a StringMorph, as best one can, on the receiver" p10177 tp10178 a(g6 V\u000a\u000a p10179 tp10180 a(g353 V^ tp10181 a(g6 V tp10182 a(g87 Vself p10183 tp10184 a(g6 V tp10185 a(g48 VasStringOrText p10186 tp10187 a(g6 V tp10188 a(g48 VasStringMorph p10189 tp10190 a(g6 V\u000a tp10191 a(g138 V! ! p10192 tp10193 a(g6 V\u000a\u000a p10194 tp10195 a(g138 V! tp10196 a(g133 VObject p10197 tp10198 a(g138 V methodsFor: p10199 tp10200 a(g236 V'creation' p10201 tp10202 a(g138 V stamp: 'nk 2/26/2004 13:35'! p10203 tp10204 a(g6 V\u000a tp10205 a(g48 VasTextMorph p10206 tp10207 a(g6 V\u000a p10208 tp10209 a(g24 V"Open a TextMorph, as best one can, on the receiver" p10210 tp10211 a(g6 V\u000a\u000a p10212 tp10213 a(g353 V^ tp10214 a(g6 V tp10215 a(g133 VTextMorph p10216 tp10217 a(g6 V tp10218 a(g84 Vnew p10219 tp10220 a(g6 V tp10221 a(g48 VcontentsAsIs: p10222 tp10223 a(g6 V tp10224 a(g87 Vself p10225 tp10226 a(g6 V tp10227 a(g48 VasStringOrText p10228 tp10229 a(g6 V\u000a tp10230 a(g138 V! ! p10231 tp10232 a(g6 V\u000a\u000a p10233 tp10234 a(g138 V! tp10235 a(g133 VObject p10236 tp10237 a(g138 V methodsFor: p10238 tp10239 a(g236 V'creation' p10240 tp10241 a(g138 V stamp: 'sw 1/29/2002 21:45'! p10242 tp10243 a(g6 V\u000a tp10244 a(g48 VopenAsMorph p10245 tp10246 a(g6 V\u000a p10247 tp10248 a(g24 V"Open a morph, as best one can, on the receiver" p10249 tp10250 a(g6 V\u000a\u000a p10251 tp10252 a(g353 V^ tp10253 a(g6 V tp10254 a(g87 Vself p10255 tp10256 a(g6 V tp10257 a(g48 VasMorph p10258 tp10259 a(g6 V tp10260 a(g48 VopenInHand p10261 tp10262 a(g6 V\u000a\u000a p10263 tp10264 a(g24 V"\u000a234 openAsMorph\u000a(ScriptingSystem formAtKey: #TinyMenu) openAsMorph\u000a'fred' openAsMorph\u000a" p10265 tp10266 a(g138 V! ! p10267 tp10268 a(g6 V\u000a\u000a\u000a p10269 tp10270 a(g138 V! tp10271 a(g133 VObject p10272 tp10273 a(g138 V methodsFor: p10274 tp10275 a(g236 V'debugging' p10276 tp10277 a(g138 V stamp: 'md 11/24/2004 11:45'! p10278 tp10279 a(g6 V\u000a tp10280 a(g48 VhaltIf: p10281 tp10282 a(g6 V tp10283 a(g100 Vcondition p10284 tp10285 a(g6 V\u000a p10286 tp10287 a(g24 V"This is the typical message to use for inserting breakpoints during \u000a debugging. Param can be a block or expression, halt if true.\u000a If the Block has one arg, the receiver is bound to that.\u000a If the condition is a selector, we look up in the callchain. Halt if\u000a any method's selector equals selector." p10288 tp10289 a(g6 V\u000a p10290 tp10291 a(g353 V| tp10292 a(g100 V cntxt p10293 tp10294 a(g353 V| tp10295 a(g6 V\u000a\u000a p10296 tp10297 a(g100 Vcondition p10298 tp10299 a(g6 V tp10300 a(g48 VisSymbol p10301 tp10302 a(g6 V tp10303 a(g84 VifTrue: p10304 tp10305 a(g6 V[ tp10306 a(g6 V\u000a p10307 tp10308 a(g24 V"only halt if a method with selector symbol is in callchain" p10309 tp10310 a(g6 V\u000a p10311 tp10312 a(g6 V tp10313 a(g100 Vcntxt p10314 tp10315 a(g6 V tp10316 a(g353 V:= p10317 tp10318 a(g6 V tp10319 a(g87 VthisContext p10320 tp10321 a(g212 V. tp10322 a(g6 V\u000a p10323 tp10324 a(g6 V[ tp10325 a(g6 V tp10326 a(g100 Vcntxt p10327 tp10328 a(g6 V tp10329 a(g48 Vsender p10330 tp10331 a(g6 V tp10332 a(g48 VisNil p10333 tp10334 a(g6 V] tp10335 a(g6 V tp10336 a(g84 VwhileFalse: p10337 tp10338 a(g6 V tp10339 a(g6 V[ tp10340 a(g6 V\u000a p10341 tp10342 a(g6 V tp10343 a(g100 Vcntxt p10344 tp10345 a(g6 V tp10346 a(g353 V:= p10347 tp10348 a(g6 V tp10349 a(g100 Vcntxt p10350 tp10351 a(g6 V tp10352 a(g48 Vsender p10353 tp10354 a(g212 V. tp10355 a(g6 V \u000a p10356 tp10357 a(g6 V( tp10358 a(g100 Vcntxt p10359 tp10360 a(g6 V tp10361 a(g48 Vselector p10362 tp10363 a(g6 V tp10364 a(g48 V= tp10365 a(g6 V tp10366 a(g100 Vcondition p10367 tp10368 a(g6 V) tp10369 a(g6 V tp10370 a(g84 VifTrue: p10371 tp10372 a(g6 V tp10373 a(g6 V[ tp10374 a(g6 V tp10375 a(g133 VHalt p10376 tp10377 a(g6 V tp10378 a(g48 Vsignal p10379 tp10380 a(g6 V] tp10381 a(g212 V. tp10382 a(g6 V\u000a p10383 tp10384 a(g6 V] tp10385 a(g212 V. tp10386 a(g6 V\u000a p10387 tp10388 a(g353 V^ tp10389 a(g87 Vself p10390 tp10391 a(g212 V. tp10392 a(g6 V\u000a p10393 tp10394 a(g6 V] tp10395 a(g212 V. tp10396 a(g6 V\u000a p10397 tp10398 a(g6 V( tp10399 a(g100 Vcondition p10400 tp10401 a(g6 V tp10402 a(g48 VisBlock p10403 tp10404 a(g6 V \u000a p10405 tp10406 a(g84 VifTrue: p10407 tp10408 a(g6 V tp10409 a(g6 V[ tp10410 a(g6 V tp10411 a(g100 Vcondition p10412 tp10413 a(g6 V tp10414 a(g48 VvalueWithPossibleArgument: p10415 tp10416 a(g6 V tp10417 a(g87 Vself p10418 tp10419 a(g6 V] tp10420 a(g6 V \u000a p10421 tp10422 a(g84 VifFalse: p10423 tp10424 a(g6 V tp10425 a(g6 V[ tp10426 a(g6 V tp10427 a(g100 Vcondition p10428 tp10429 a(g6 V] tp10430 a(g6 V \u000a p10431 tp10432 a(g6 V) tp10433 a(g6 V tp10434 a(g84 VifTrue: p10435 tp10436 a(g6 V tp10437 a(g6 V[ tp10438 a(g6 V\u000a p10439 tp10440 a(g6 V tp10441 a(g133 VHalt p10442 tp10443 a(g6 V tp10444 a(g48 Vsignal p10445 tp10446 a(g6 V\u000a p10447 tp10448 a(g6 V] tp10449 a(g212 V. tp10450 a(g138 V! ! p10451 tp10452 a(g6 V\u000a\u000a p10453 tp10454 a(g138 V! tp10455 a(g133 VObject p10456 tp10457 a(g138 V methodsFor: p10458 tp10459 a(g236 V'debugging' p10460 tp10461 a(g138 V! tp10462 a(g6 V\u000a tp10463 a(g100 VneedsWork p10464 tp10465 a(g138 V! ! p10466 tp10467 a(g6 V\u000a\u000a\u000a p10468 tp10469 a(g138 V! tp10470 a(g133 VObject p10471 tp10472 a(g138 V methodsFor: p10473 tp10474 a(g236 V'debugging-haltOnce' p10475 tp10476 a(g138 V stamp: 'sbw 6/2/2004 08:26'! p10477 tp10478 a(g6 V\u000a tp10479 a(g48 VcheckHaltCountExpired p10480 tp10481 a(g6 V\u000a p10482 tp10483 a(g353 V| tp10484 a(g100 V counter p10485 tp10486 a(g353 V| tp10487 a(g6 V\u000a p10488 tp10489 a(g100 Vcounter p10490 tp10491 a(g6 V tp10492 a(g353 V_ tp10493 a(g6 V tp10494 a(g133 VSmalltalk p10495 tp10496 a(g6 V tp10497 a(g48 Vat: p10498 tp10499 a(g6 V tp10500 a(g258 V#HaltCount p10501 tp10502 a(g6 V tp10503 a(g48 VifAbsent: p10504 tp10505 a(g6 V tp10506 a(g6 V[ tp10507 a(g6 V tp10508 a(g223 V0 tp10509 a(g6 V] tp10510 a(g212 V. tp10511 a(g6 V\u000a p10512 tp10513 a(g353 V^ tp10514 a(g100 Vcounter p10515 tp10516 a(g6 V tp10517 a(g48 V= tp10518 a(g6 V tp10519 a(g223 V0 tp10520 a(g138 V! ! p10521 tp10522 a(g6 V\u000a\u000a p10523 tp10524 a(g138 V! tp10525 a(g133 VObject p10526 tp10527 a(g138 V methodsFor: p10528 tp10529 a(g236 V'debugging-haltOnce' p10530 tp10531 a(g138 V stamp: 'sbw 5/19/2004 19:04'! p10532 tp10533 a(g6 V\u000a tp10534 a(g48 VclearHaltOnce p10535 tp10536 a(g6 V\u000a p10537 tp10538 a(g24 V"Turn on the halt once flag." p10539 tp10540 a(g6 V\u000a p10541 tp10542 a(g133 VSmalltalk p10543 tp10544 a(g6 V tp10545 a(g48 Vat: p10546 tp10547 a(g6 V tp10548 a(g258 V#HaltOnce p10549 tp10550 a(g6 V tp10551 a(g48 Vput: p10552 tp10553 a(g6 V tp10554 a(g87 Vfalse p10555 tp10556 a(g138 V! ! p10557 tp10558 a(g6 V\u000a\u000a p10559 tp10560 a(g138 V! tp10561 a(g133 VObject p10562 tp10563 a(g138 V methodsFor: p10564 tp10565 a(g236 V'debugging-haltOnce' p10566 tp10567 a(g138 V stamp: 'sbw 6/2/2004 08:30'! p10568 tp10569 a(g6 V\u000a tp10570 a(g48 VdecrementAndCheckHaltCount p10571 tp10572 a(g6 V\u000a p10573 tp10574 a(g87 Vself p10575 tp10576 a(g6 V tp10577 a(g48 VdecrementHaltCount p10578 tp10579 a(g212 V. tp10580 a(g6 V\u000a p10581 tp10582 a(g353 V^ tp10583 a(g87 Vself p10584 tp10585 a(g6 V tp10586 a(g48 VcheckHaltCountExpired p10587 tp10588 a(g138 V! ! p10589 tp10590 a(g6 V\u000a\u000a p10591 tp10592 a(g138 V! tp10593 a(g133 VObject p10594 tp10595 a(g138 V methodsFor: p10596 tp10597 a(g236 V'debugging-haltOnce' p10598 tp10599 a(g138 V stamp: 'sbw 6/2/2004 08:28'! p10600 tp10601 a(g6 V\u000a tp10602 a(g48 VdecrementHaltCount p10603 tp10604 a(g6 V\u000a p10605 tp10606 a(g353 V| tp10607 a(g100 V counter p10608 tp10609 a(g353 V| tp10610 a(g6 V\u000a p10611 tp10612 a(g100 Vcounter p10613 tp10614 a(g6 V tp10615 a(g353 V:= p10616 tp10617 a(g6 V tp10618 a(g133 VSmalltalk p10619 tp10620 a(g6 V\u000a p10621 tp10622 a(g48 Vat: p10623 tp10624 a(g6 V tp10625 a(g258 V#HaltCount p10626 tp10627 a(g6 V\u000a p10628 tp10629 a(g48 VifAbsent: p10630 tp10631 a(g6 V tp10632 a(g6 V[ tp10633 a(g6 V tp10634 a(g223 V0 tp10635 a(g6 V] tp10636 a(g212 V. tp10637 a(g6 V\u000a p10638 tp10639 a(g100 Vcounter p10640 tp10641 a(g6 V tp10642 a(g48 V> tp10643 a(g6 V tp10644 a(g223 V0 tp10645 a(g6 V tp10646 a(g84 VifTrue: p10647 tp10648 a(g6 V tp10649 a(g6 V[ tp10650 a(g6 V\u000a p10651 tp10652 a(g6 V tp10653 a(g100 Vcounter p10654 tp10655 a(g6 V tp10656 a(g353 V_ tp10657 a(g6 V tp10658 a(g100 Vcounter p10659 tp10660 a(g6 V tp10661 a(g48 V- tp10662 a(g6 V tp10663 a(g223 V1 tp10664 a(g212 V. tp10665 a(g6 V\u000a p10666 tp10667 a(g87 Vself p10668 tp10669 a(g6 V tp10670 a(g48 VsetHaltCountTo: p10671 tp10672 a(g6 V tp10673 a(g100 Vcounter p10674 tp10675 a(g6 V] tp10676 a(g138 V! ! p10677 tp10678 a(g6 V\u000a\u000a p10679 tp10680 a(g138 V! tp10681 a(g133 VObject p10682 tp10683 a(g138 V methodsFor: p10684 tp10685 a(g236 V'debugging-haltOnce' p10686 tp10687 a(g138 V stamp: 'sbw 6/2/2004 08:42'! p10688 tp10689 a(g6 V\u000a tp10690 a(g48 VdoExpiredHaltCount p10691 tp10692 a(g6 V\u000a p10693 tp10694 a(g87 Vself p10695 tp10696 a(g6 V tp10697 a(g48 VclearHaltOnce p10698 tp10699 a(g212 V. tp10700 a(g6 V\u000a p10701 tp10702 a(g87 Vself p10703 tp10704 a(g6 V tp10705 a(g48 VremoveHaltCount p10706 tp10707 a(g212 V. tp10708 a(g6 V\u000a p10709 tp10710 a(g87 Vself p10711 tp10712 a(g6 V tp10713 a(g48 Vhalt p10714 tp10715 a(g138 V! ! p10716 tp10717 a(g6 V\u000a\u000a p10718 tp10719 a(g138 V! tp10720 a(g133 VObject p10721 tp10722 a(g138 V methodsFor: p10723 tp10724 a(g236 V'debugging-haltOnce' p10725 tp10726 a(g138 V stamp: 'sbw 6/2/2004 08:44'! p10727 tp10728 a(g6 V\u000a tp10729 a(g48 VdoExpiredHaltCount: p10730 tp10731 a(g6 V tp10732 a(g100 VaString p10733 tp10734 a(g6 V\u000a p10735 tp10736 a(g87 Vself p10737 tp10738 a(g6 V tp10739 a(g48 VclearHaltOnce p10740 tp10741 a(g212 V. tp10742 a(g6 V\u000a p10743 tp10744 a(g87 Vself p10745 tp10746 a(g6 V tp10747 a(g48 VremoveHaltCount p10748 tp10749 a(g212 V. tp10750 a(g6 V\u000a p10751 tp10752 a(g87 Vself p10753 tp10754 a(g6 V tp10755 a(g48 Vhalt: p10756 tp10757 a(g6 V tp10758 a(g100 VaString p10759 tp10760 a(g138 V! ! p10761 tp10762 a(g6 V\u000a\u000a p10763 tp10764 a(g138 V! tp10765 a(g133 VObject p10766 tp10767 a(g138 V methodsFor: p10768 tp10769 a(g236 V'debugging-haltOnce' p10770 tp10771 a(g138 V stamp: 'sbw 6/2/2004 08:45'! p10772 tp10773 a(g6 V\u000a tp10774 a(g48 VdoExpiredInspectCount p10775 tp10776 a(g6 V\u000a p10777 tp10778 a(g87 Vself p10779 tp10780 a(g6 V tp10781 a(g48 VclearHaltOnce p10782 tp10783 a(g212 V. tp10784 a(g6 V\u000a p10785 tp10786 a(g87 Vself p10787 tp10788 a(g6 V tp10789 a(g48 VremoveHaltCount p10790 tp10791 a(g212 V. tp10792 a(g6 V\u000a p10793 tp10794 a(g87 Vself p10795 tp10796 a(g6 V tp10797 a(g48 Vinspect p10798 tp10799 a(g138 V! ! p10800 tp10801 a(g6 V\u000a\u000a p10802 tp10803 a(g138 V! tp10804 a(g133 VObject p10805 tp10806 a(g138 V methodsFor: p10807 tp10808 a(g236 V'debugging-haltOnce' p10809 tp10810 a(g138 V stamp: 'sbw 6/2/2004 08:43'! p10811 tp10812 a(g6 V\u000a tp10813 a(g48 VhaltOnCount: p10814 tp10815 a(g6 V tp10816 a(g100 Vint p10817 tp10818 a(g6 V \u000a p10819 tp10820 a(g87 Vself p10821 tp10822 a(g6 V tp10823 a(g48 VhaltOnceEnabled p10824 tp10825 a(g6 V\u000a p10826 tp10827 a(g84 VifTrue: p10828 tp10829 a(g6 V tp10830 a(g6 V[ tp10831 a(g6 V tp10832 a(g87 Vself p10833 tp10834 a(g6 V tp10835 a(g48 VhasHaltCount p10836 tp10837 a(g6 V\u000a p10838 tp10839 a(g84 VifTrue: p10840 tp10841 a(g6 V tp10842 a(g6 V[ tp10843 a(g6 V tp10844 a(g87 Vself p10845 tp10846 a(g6 V tp10847 a(g48 VdecrementAndCheckHaltCount p10848 tp10849 a(g6 V\u000a p10850 tp10851 a(g84 VifTrue: p10852 tp10853 a(g6 V tp10854 a(g6 V[ tp10855 a(g6 V tp10856 a(g87 Vself p10857 tp10858 a(g6 V tp10859 a(g48 VdoExpiredHaltCount p10860 tp10861 a(g6 V] tp10862 a(g6 V] tp10863 a(g6 V\u000a p10864 tp10865 a(g84 VifFalse: p10866 tp10867 a(g6 V tp10868 a(g6 V[ tp10869 a(g6 V tp10870 a(g100 Vint p10871 tp10872 a(g6 V tp10873 a(g48 V= tp10874 a(g6 V tp10875 a(g223 V1 tp10876 a(g6 V\u000a p10877 tp10878 a(g84 VifTrue: p10879 tp10880 a(g6 V tp10881 a(g6 V[ tp10882 a(g6 V tp10883 a(g87 Vself p10884 tp10885 a(g6 V tp10886 a(g48 VdoExpiredHaltCount p10887 tp10888 a(g6 V] tp10889 a(g6 V\u000a p10890 tp10891 a(g84 VifFalse: p10892 tp10893 a(g6 V tp10894 a(g6 V[ tp10895 a(g6 V tp10896 a(g87 Vself p10897 tp10898 a(g6 V tp10899 a(g48 VsetHaltCountTo: p10900 tp10901 a(g6 V tp10902 a(g100 Vint p10903 tp10904 a(g6 V tp10905 a(g48 V- tp10906 a(g6 V tp10907 a(g223 V1 tp10908 a(g6 V] tp10909 a(g6 V] tp10910 a(g6 V] tp10911 a(g138 V! ! p10912 tp10913 a(g6 V\u000a\u000a p10914 tp10915 a(g138 V! tp10916 a(g133 VObject p10917 tp10918 a(g138 V methodsFor: p10919 tp10920 a(g236 V'debugging-haltOnce' p10921 tp10922 a(g138 V stamp: 'sbw 5/19/2004 19:05'! p10923 tp10924 a(g6 V\u000a tp10925 a(g48 VhaltOnce p10926 tp10927 a(g6 V\u000a p10928 tp10929 a(g24 V"Halt unless we have already done it once." p10930 tp10931 a(g6 V\u000a p10932 tp10933 a(g87 Vself p10934 tp10935 a(g6 V tp10936 a(g48 VhaltOnceEnabled p10937 tp10938 a(g6 V\u000a p10939 tp10940 a(g84 VifTrue: p10941 tp10942 a(g6 V tp10943 a(g6 V[ tp10944 a(g6 V tp10945 a(g87 Vself p10946 tp10947 a(g6 V tp10948 a(g48 VclearHaltOnce p10949 tp10950 a(g212 V. tp10951 a(g6 V\u000a p10952 tp10953 a(g353 V^ tp10954 a(g6 V tp10955 a(g87 Vself p10956 tp10957 a(g6 V tp10958 a(g48 Vhalt p10959 tp10960 a(g6 V] tp10961 a(g138 V! ! p10962 tp10963 a(g6 V\u000a\u000a p10964 tp10965 a(g138 V! tp10966 a(g133 VObject p10967 tp10968 a(g138 V methodsFor: p10969 tp10970 a(g236 V'debugging-haltOnce' p10971 tp10972 a(g138 V stamp: 'sbw 5/19/2004 19:04'! p10973 tp10974 a(g6 V\u000a tp10975 a(g48 VhaltOnceEnabled p10976 tp10977 a(g6 V\u000a p10978 tp10979 a(g353 V^ tp10980 a(g6 V tp10981 a(g133 VSmalltalk p10982 tp10983 a(g6 V\u000a p10984 tp10985 a(g48 Vat: p10986 tp10987 a(g6 V tp10988 a(g258 V#HaltOnce p10989 tp10990 a(g6 V\u000a p10991 tp10992 a(g48 VifAbsent: p10993 tp10994 a(g6 V tp10995 a(g6 V[ tp10996 a(g6 V tp10997 a(g87 Vfalse p10998 tp10999 a(g6 V] tp11000 a(g138 V! ! p11001 tp11002 a(g6 V\u000a\u000a p11003 tp11004 a(g138 V! tp11005 a(g133 VObject p11006 tp11007 a(g138 V methodsFor: p11008 tp11009 a(g236 V'debugging-haltOnce' p11010 tp11011 a(g138 V stamp: 'sbw 5/19/2004 19:05'! p11012 tp11013 a(g6 V\u000a tp11014 a(g48 VhaltOnce: p11015 tp11016 a(g6 V tp11017 a(g100 VaString p11018 tp11019 a(g6 V \u000a p11020 tp11021 a(g24 V"Halt unless we have already done it once." p11022 tp11023 a(g6 V\u000a p11024 tp11025 a(g87 Vself p11026 tp11027 a(g6 V tp11028 a(g48 VhaltOnceEnabled p11029 tp11030 a(g6 V\u000a p11031 tp11032 a(g84 VifTrue: p11033 tp11034 a(g6 V tp11035 a(g6 V[ tp11036 a(g6 V tp11037 a(g87 Vself p11038 tp11039 a(g6 V tp11040 a(g48 VclearHaltOnce p11041 tp11042 a(g212 V. tp11043 a(g6 V\u000a p11044 tp11045 a(g353 V^ tp11046 a(g6 V tp11047 a(g87 Vself p11048 tp11049 a(g6 V tp11050 a(g48 Vhalt: p11051 tp11052 a(g6 V tp11053 a(g100 VaString p11054 tp11055 a(g6 V] tp11056 a(g138 V! ! p11057 tp11058 a(g6 V\u000a\u000a p11059 tp11060 a(g138 V! tp11061 a(g133 VObject p11062 tp11063 a(g138 V methodsFor: p11064 tp11065 a(g236 V'debugging-haltOnce' p11066 tp11067 a(g138 V stamp: 'sbw 6/2/2004 08:45'! p11068 tp11069 a(g6 V\u000a tp11070 a(g48 Vhalt: p11071 tp11072 a(g6 V tp11073 a(g100 VaString p11074 tp11075 a(g6 V tp11076 a(g48 VonCount: p11077 tp11078 a(g6 V tp11079 a(g100 Vint p11080 tp11081 a(g6 V \u000a p11082 tp11083 a(g87 Vself p11084 tp11085 a(g6 V tp11086 a(g48 VhaltOnceEnabled p11087 tp11088 a(g6 V\u000a p11089 tp11090 a(g84 VifTrue: p11091 tp11092 a(g6 V tp11093 a(g6 V[ tp11094 a(g6 V tp11095 a(g87 Vself p11096 tp11097 a(g6 V tp11098 a(g48 VhasHaltCount p11099 tp11100 a(g6 V\u000a p11101 tp11102 a(g84 VifTrue: p11103 tp11104 a(g6 V tp11105 a(g6 V[ tp11106 a(g6 V tp11107 a(g87 Vself p11108 tp11109 a(g6 V tp11110 a(g48 VdecrementAndCheckHaltCount p11111 tp11112 a(g6 V\u000a p11113 tp11114 a(g84 VifTrue: p11115 tp11116 a(g6 V tp11117 a(g6 V[ tp11118 a(g6 V tp11119 a(g87 Vself p11120 tp11121 a(g6 V tp11122 a(g48 VdoExpiredHaltCount: p11123 tp11124 a(g6 V tp11125 a(g100 VaString p11126 tp11127 a(g6 V] tp11128 a(g6 V] tp11129 a(g6 V\u000a p11130 tp11131 a(g84 VifFalse: p11132 tp11133 a(g6 V tp11134 a(g6 V[ tp11135 a(g6 V tp11136 a(g100 Vint p11137 tp11138 a(g6 V tp11139 a(g48 V= tp11140 a(g6 V tp11141 a(g223 V1 tp11142 a(g6 V\u000a p11143 tp11144 a(g84 VifTrue: p11145 tp11146 a(g6 V tp11147 a(g6 V[ tp11148 a(g6 V tp11149 a(g87 Vself p11150 tp11151 a(g6 V tp11152 a(g48 VdoExpiredHaltCount: p11153 tp11154 a(g6 V tp11155 a(g100 VaString p11156 tp11157 a(g6 V] tp11158 a(g6 V\u000a p11159 tp11160 a(g84 VifFalse: p11161 tp11162 a(g6 V tp11163 a(g6 V[ tp11164 a(g6 V tp11165 a(g87 Vself p11166 tp11167 a(g6 V tp11168 a(g48 VsetHaltCountTo: p11169 tp11170 a(g6 V tp11171 a(g100 Vint p11172 tp11173 a(g6 V tp11174 a(g48 V- tp11175 a(g6 V tp11176 a(g223 V1 tp11177 a(g6 V] tp11178 a(g6 V] tp11179 a(g6 V] tp11180 a(g138 V! ! p11181 tp11182 a(g6 V\u000a\u000a p11183 tp11184 a(g138 V! tp11185 a(g133 VObject p11186 tp11187 a(g138 V methodsFor: p11188 tp11189 a(g236 V'debugging-haltOnce' p11190 tp11191 a(g138 V stamp: 'sbw 6/2/2004 08:36'! p11192 tp11193 a(g6 V\u000a tp11194 a(g48 VhasHaltCount p11195 tp11196 a(g6 V\u000a p11197 tp11198 a(g353 V^ tp11199 a(g133 VSmalltalk p11200 tp11201 a(g6 V\u000a p11202 tp11203 a(g48 VincludesKey: p11204 tp11205 a(g6 V tp11206 a(g258 V#HaltCount p11207 tp11208 a(g138 V! ! p11209 tp11210 a(g6 V\u000a\u000a p11211 tp11212 a(g138 V! tp11213 a(g133 VObject p11214 tp11215 a(g138 V methodsFor: p11216 tp11217 a(g236 V'debugging-haltOnce' p11218 tp11219 a(g138 V stamp: 'sbw 6/2/2004 08:46'! p11220 tp11221 a(g6 V\u000a tp11222 a(g48 VinspectOnCount: p11223 tp11224 a(g6 V tp11225 a(g100 Vint p11226 tp11227 a(g6 V \u000a p11228 tp11229 a(g87 Vself p11230 tp11231 a(g6 V tp11232 a(g48 VhaltOnceEnabled p11233 tp11234 a(g6 V\u000a p11235 tp11236 a(g84 VifTrue: p11237 tp11238 a(g6 V tp11239 a(g6 V[ tp11240 a(g6 V tp11241 a(g87 Vself p11242 tp11243 a(g6 V tp11244 a(g48 VhasHaltCount p11245 tp11246 a(g6 V\u000a p11247 tp11248 a(g84 VifTrue: p11249 tp11250 a(g6 V tp11251 a(g6 V[ tp11252 a(g6 V tp11253 a(g87 Vself p11254 tp11255 a(g6 V tp11256 a(g48 VdecrementAndCheckHaltCount p11257 tp11258 a(g6 V\u000a p11259 tp11260 a(g84 VifTrue: p11261 tp11262 a(g6 V tp11263 a(g6 V[ tp11264 a(g6 V tp11265 a(g87 Vself p11266 tp11267 a(g6 V tp11268 a(g48 VdoExpiredInspectCount p11269 tp11270 a(g6 V] tp11271 a(g6 V] tp11272 a(g6 V\u000a p11273 tp11274 a(g84 VifFalse: p11275 tp11276 a(g6 V tp11277 a(g6 V[ tp11278 a(g6 V tp11279 a(g100 Vint p11280 tp11281 a(g6 V tp11282 a(g48 V= tp11283 a(g6 V tp11284 a(g223 V1 tp11285 a(g6 V\u000a p11286 tp11287 a(g84 VifTrue: p11288 tp11289 a(g6 V tp11290 a(g6 V[ tp11291 a(g6 V tp11292 a(g87 Vself p11293 tp11294 a(g6 V tp11295 a(g48 VdoExpiredInspectCount p11296 tp11297 a(g6 V] tp11298 a(g6 V\u000a p11299 tp11300 a(g84 VifFalse: p11301 tp11302 a(g6 V tp11303 a(g6 V[ tp11304 a(g6 V tp11305 a(g87 Vself p11306 tp11307 a(g6 V tp11308 a(g48 VsetHaltCountTo: p11309 tp11310 a(g6 V tp11311 a(g100 Vint p11312 tp11313 a(g6 V tp11314 a(g48 V- tp11315 a(g6 V tp11316 a(g223 V1 tp11317 a(g6 V] tp11318 a(g6 V] tp11319 a(g6 V] tp11320 a(g138 V! ! p11321 tp11322 a(g6 V\u000a\u000a p11323 tp11324 a(g138 V! tp11325 a(g133 VObject p11326 tp11327 a(g138 V methodsFor: p11328 tp11329 a(g236 V'debugging-haltOnce' p11330 tp11331 a(g138 V stamp: 'sbw 5/19/2004 19:05'! p11332 tp11333 a(g6 V\u000a tp11334 a(g48 VinspectOnce p11335 tp11336 a(g6 V\u000a p11337 tp11338 a(g24 V"Inspect unless we have already done it once." p11339 tp11340 a(g6 V\u000a p11341 tp11342 a(g87 Vself p11343 tp11344 a(g6 V tp11345 a(g48 VhaltOnceEnabled p11346 tp11347 a(g6 V\u000a p11348 tp11349 a(g84 VifTrue: p11350 tp11351 a(g6 V tp11352 a(g6 V[ tp11353 a(g6 V tp11354 a(g87 Vself p11355 tp11356 a(g6 V tp11357 a(g48 VclearHaltOnce p11358 tp11359 a(g212 V. tp11360 a(g6 V\u000a p11361 tp11362 a(g353 V^ tp11363 a(g6 V tp11364 a(g87 Vself p11365 tp11366 a(g6 V tp11367 a(g48 Vinspect p11368 tp11369 a(g6 V] tp11370 a(g138 V! ! p11371 tp11372 a(g6 V\u000a\u000a p11373 tp11374 a(g138 V! tp11375 a(g133 VObject p11376 tp11377 a(g138 V methodsFor: p11378 tp11379 a(g236 V'debugging-haltOnce' p11380 tp11381 a(g138 V stamp: 'sbw 6/2/2004 13:20'! p11382 tp11383 a(g6 V\u000a tp11384 a(g48 VinspectUntilCount: p11385 tp11386 a(g6 V tp11387 a(g100 Vint p11388 tp11389 a(g6 V \u000a p11390 tp11391 a(g87 Vself p11392 tp11393 a(g6 V tp11394 a(g48 VhaltOnceEnabled p11395 tp11396 a(g6 V\u000a p11397 tp11398 a(g84 VifTrue: p11399 tp11400 a(g6 V tp11401 a(g6 V[ tp11402 a(g6 V tp11403 a(g87 Vself p11404 tp11405 a(g6 V tp11406 a(g48 VhasHaltCount p11407 tp11408 a(g6 V\u000a p11409 tp11410 a(g84 VifTrue: p11411 tp11412 a(g6 V tp11413 a(g6 V[ tp11414 a(g6 V tp11415 a(g87 Vself p11416 tp11417 a(g6 V tp11418 a(g48 VdecrementAndCheckHaltCount p11419 tp11420 a(g6 V\u000a p11421 tp11422 a(g84 VifTrue: p11423 tp11424 a(g6 V tp11425 a(g6 V[ tp11426 a(g6 V tp11427 a(g87 Vself p11428 tp11429 a(g6 V tp11430 a(g48 VdoExpiredInspectCount p11431 tp11432 a(g6 V] tp11433 a(g6 V\u000a p11434 tp11435 a(g84 VifFalse: p11436 tp11437 a(g6 V tp11438 a(g6 V[ tp11439 a(g6 V tp11440 a(g87 Vself p11441 tp11442 a(g6 V tp11443 a(g48 Vinspect p11444 tp11445 a(g6 V] tp11446 a(g6 V] tp11447 a(g6 V\u000a p11448 tp11449 a(g84 VifFalse: p11450 tp11451 a(g6 V tp11452 a(g6 V[ tp11453 a(g6 V tp11454 a(g100 Vint p11455 tp11456 a(g6 V tp11457 a(g48 V= tp11458 a(g6 V tp11459 a(g223 V1 tp11460 a(g6 V\u000a p11461 tp11462 a(g84 VifTrue: p11463 tp11464 a(g6 V tp11465 a(g6 V[ tp11466 a(g6 V tp11467 a(g87 Vself p11468 tp11469 a(g6 V tp11470 a(g48 VdoExpiredInspectCount p11471 tp11472 a(g6 V] tp11473 a(g6 V\u000a p11474 tp11475 a(g84 VifFalse: p11476 tp11477 a(g6 V tp11478 a(g6 V[ tp11479 a(g6 V tp11480 a(g87 Vself p11481 tp11482 a(g6 V tp11483 a(g48 VsetHaltCountTo: p11484 tp11485 a(g6 V tp11486 a(g100 Vint p11487 tp11488 a(g6 V tp11489 a(g48 V- tp11490 a(g6 V tp11491 a(g223 V1 tp11492 a(g6 V] tp11493 a(g6 V] tp11494 a(g6 V] tp11495 a(g138 V! ! p11496 tp11497 a(g6 V\u000a\u000a p11498 tp11499 a(g138 V! tp11500 a(g133 VObject p11501 tp11502 a(g138 V methodsFor: p11503 tp11504 a(g236 V'debugging-haltOnce' p11505 tp11506 a(g138 V stamp: 'sbw 6/2/2004 08:49'! p11507 tp11508 a(g6 V\u000a tp11509 a(g48 VremoveHaltCount p11510 tp11511 a(g6 V\u000a p11512 tp11513 a(g6 V( tp11514 a(g133 VSmalltalk p11515 tp11516 a(g6 V tp11517 a(g48 VincludesKey: p11518 tp11519 a(g6 V tp11520 a(g258 V#HaltCount p11521 tp11522 a(g6 V) tp11523 a(g6 V tp11524 a(g84 VifTrue: p11525 tp11526 a(g6 V tp11527 a(g6 V[ tp11528 a(g6 V\u000a p11529 tp11530 a(g6 V tp11531 a(g133 VSmalltalk p11532 tp11533 a(g6 V tp11534 a(g48 VremoveKey: p11535 tp11536 a(g6 V tp11537 a(g258 V#HaltCount p11538 tp11539 a(g6 V] tp11540 a(g138 V! ! p11541 tp11542 a(g6 V\u000a\u000a p11543 tp11544 a(g138 V! tp11545 a(g133 VObject p11546 tp11547 a(g138 V methodsFor: p11548 tp11549 a(g236 V'debugging-haltOnce' p11550 tp11551 a(g138 V stamp: 'sbw 6/2/2004 08:25'! p11552 tp11553 a(g6 V\u000a tp11554 a(g48 VsetHaltCountTo: p11555 tp11556 a(g6 V tp11557 a(g100 Vint p11558 tp11559 a(g6 V\u000a p11560 tp11561 a(g133 VSmalltalk p11562 tp11563 a(g6 V tp11564 a(g48 Vat: p11565 tp11566 a(g6 V tp11567 a(g258 V#HaltCount p11568 tp11569 a(g6 V tp11570 a(g48 Vput: p11571 tp11572 a(g6 V tp11573 a(g100 Vint p11574 tp11575 a(g138 V! ! p11576 tp11577 a(g6 V\u000a\u000a p11578 tp11579 a(g138 V! tp11580 a(g133 VObject p11581 tp11582 a(g138 V methodsFor: p11583 tp11584 a(g236 V'debugging-haltOnce' p11585 tp11586 a(g138 V stamp: 'sbw 5/19/2004 19:04'! p11587 tp11588 a(g6 V\u000a tp11589 a(g48 VsetHaltOnce p11590 tp11591 a(g6 V\u000a p11592 tp11593 a(g24 V"Turn on the halt once flag." p11594 tp11595 a(g6 V\u000a p11596 tp11597 a(g133 VSmalltalk p11598 tp11599 a(g6 V tp11600 a(g48 Vat: p11601 tp11602 a(g6 V tp11603 a(g258 V#HaltOnce p11604 tp11605 a(g6 V tp11606 a(g48 Vput: p11607 tp11608 a(g6 V tp11609 a(g87 Vtrue p11610 tp11611 a(g138 V! ! p11612 tp11613 a(g6 V\u000a\u000a p11614 tp11615 a(g138 V! tp11616 a(g133 VObject p11617 tp11618 a(g138 V methodsFor: p11619 tp11620 a(g236 V'debugging-haltOnce' p11621 tp11622 a(g138 V stamp: 'sbw 5/19/2004 19:04'! p11623 tp11624 a(g6 V\u000a tp11625 a(g48 VtoggleHaltOnce p11626 tp11627 a(g6 V\u000a p11628 tp11629 a(g87 Vself p11630 tp11631 a(g6 V tp11632 a(g48 VhaltOnceEnabled p11633 tp11634 a(g6 V\u000a p11635 tp11636 a(g84 VifTrue: p11637 tp11638 a(g6 V tp11639 a(g6 V[ tp11640 a(g6 V tp11641 a(g87 Vself p11642 tp11643 a(g6 V tp11644 a(g48 VclearHaltOnce p11645 tp11646 a(g6 V] tp11647 a(g6 V\u000a p11648 tp11649 a(g84 VifFalse: p11650 tp11651 a(g6 V tp11652 a(g6 V[ tp11653 a(g6 V tp11654 a(g87 Vself p11655 tp11656 a(g6 V tp11657 a(g48 VsetHaltOnce p11658 tp11659 a(g6 V] tp11660 a(g138 V! ! p11661 tp11662 a(g6 V\u000a\u000a\u000a p11663 tp11664 a(g138 V! tp11665 a(g133 VObject p11666 tp11667 a(g138 V methodsFor: p11668 tp11669 a(g236 V'dependents access' p11670 tp11671 a(g138 V stamp: 'ar 2/11/2001 01:55'! p11672 tp11673 a(g6 V\u000a tp11674 a(g48 VaddDependent: p11675 tp11676 a(g6 V tp11677 a(g100 VanObject p11678 tp11679 a(g6 V\u000a p11680 tp11681 a(g24 V"Make the given object one of the receiver's dependents." p11682 tp11683 a(g6 V\u000a\u000a p11684 tp11685 a(g353 V| tp11686 a(g100 V dependents p11687 tp11688 a(g353 V| tp11689 a(g6 V\u000a p11690 tp11691 a(g100 Vdependents p11692 tp11693 a(g6 V tp11694 a(g353 V_ tp11695 a(g6 V tp11696 a(g87 Vself p11697 tp11698 a(g6 V tp11699 a(g48 Vdependents p11700 tp11701 a(g212 V. tp11702 a(g6 V\u000a p11703 tp11704 a(g6 V( tp11705 a(g100 Vdependents p11706 tp11707 a(g6 V tp11708 a(g48 Vincludes: p11709 tp11710 a(g6 V tp11711 a(g100 VanObject p11712 tp11713 a(g6 V) tp11714 a(g6 V tp11715 a(g84 VifFalse: p11716 tp11717 a(g6 V\u000a p11718 tp11719 a(g6 V[ tp11720 a(g6 V tp11721 a(g87 Vself p11722 tp11723 a(g6 V tp11724 a(g48 VmyDependents: p11725 tp11726 a(g6 V tp11727 a(g6 V( tp11728 a(g100 Vdependents p11729 tp11730 a(g6 V tp11731 a(g48 VcopyWithDependent: p11732 tp11733 a(g6 V tp11734 a(g100 VanObject p11735 tp11736 a(g6 V) tp11737 a(g6 V] tp11738 a(g212 V. tp11739 a(g6 V\u000a p11740 tp11741 a(g353 V^ tp11742 a(g6 V tp11743 a(g100 VanObject p11744 tp11745 a(g138 V! ! p11746 tp11747 a(g6 V\u000a\u000a p11748 tp11749 a(g138 V! tp11750 a(g133 VObject p11751 tp11752 a(g138 V methodsFor: p11753 tp11754 a(g236 V'dependents access' p11755 tp11756 a(g138 V stamp: 'sma 2/29/2000 19:53'! p11757 tp11758 a(g6 V\u000a tp11759 a(g48 VbreakDependents p11760 tp11761 a(g6 V\u000a p11762 tp11763 a(g24 V"Remove all of the receiver's dependents." p11764 tp11765 a(g6 V\u000a\u000a p11766 tp11767 a(g87 Vself p11768 tp11769 a(g6 V tp11770 a(g48 VmyDependents: p11771 tp11772 a(g6 V tp11773 a(g87 Vnil p11774 tp11775 a(g138 V! ! p11776 tp11777 a(g6 V\u000a\u000a p11778 tp11779 a(g138 V! tp11780 a(g133 VObject p11781 tp11782 a(g138 V methodsFor: p11783 tp11784 a(g236 V'dependents access' p11785 tp11786 a(g138 V stamp: 'sma 2/29/2000 19:26'! p11787 tp11788 a(g6 V\u000a tp11789 a(g48 VcanDiscardEdits p11790 tp11791 a(g6 V\u000a p11792 tp11793 a(g24 V"Answer true if none of the views on this model has unaccepted edits that matter." p11794 tp11795 a(g6 V\u000a\u000a p11796 tp11797 a(g87 Vself p11798 tp11799 a(g6 V tp11800 a(g48 Vdependents p11801 tp11802 a(g6 V\u000a p11803 tp11804 a(g48 Vdo: p11805 tp11806 a(g6 V tp11807 a(g6 V[ tp11808 a(g353 V: tp11809 a(g100 Veach p11810 tp11811 a(g6 V tp11812 a(g353 V| tp11813 a(g6 V tp11814 a(g100 Veach p11815 tp11816 a(g6 V tp11817 a(g48 VcanDiscardEdits p11818 tp11819 a(g6 V tp11820 a(g84 VifFalse: p11821 tp11822 a(g6 V tp11823 a(g6 V[ tp11824 a(g6 V tp11825 a(g353 V^ tp11826 a(g6 V tp11827 a(g87 Vfalse p11828 tp11829 a(g6 V] tp11830 a(g6 V] tp11831 a(g6 V\u000a p11832 tp11833 a(g48 Vwithout: p11834 tp11835 a(g6 V tp11836 a(g87 Vself p11837 tp11838 a(g212 V. tp11839 a(g6 V\u000a p11840 tp11841 a(g353 V^ tp11842 a(g6 V tp11843 a(g87 Vtrue p11844 tp11845 a(g138 V! ! p11846 tp11847 a(g6 V\u000a\u000a p11848 tp11849 a(g138 V! tp11850 a(g133 VObject p11851 tp11852 a(g138 V methodsFor: p11853 tp11854 a(g236 V'dependents access' p11855 tp11856 a(g138 V stamp: 'sma 2/29/2000 19:58'! p11857 tp11858 a(g6 V\u000a tp11859 a(g48 Vdependents p11860 tp11861 a(g6 V\u000a p11862 tp11863 a(g24 V"Answer a collection of objects that are 'dependent' on the receiver;\u000a that is, all objects that should be notified if the receiver changes." p11864 tp11865 a(g6 V\u000a\u000a p11866 tp11867 a(g353 V^ tp11868 a(g6 V tp11869 a(g87 Vself p11870 tp11871 a(g6 V tp11872 a(g48 VmyDependents p11873 tp11874 a(g6 V tp11875 a(g48 VifNil: p11876 tp11877 a(g6 V tp11878 a(g6 V[ tp11879 a(g6 V tp11880 a(g258 V#( p11881 tp11882 a(g258 V) tp11883 a(g6 V] tp11884 a(g138 V! ! p11885 tp11886 a(g6 V\u000a\u000a p11887 tp11888 a(g138 V! tp11889 a(g133 VObject p11890 tp11891 a(g138 V methodsFor: p11892 tp11893 a(g236 V'dependents access' p11894 tp11895 a(g138 V! tp11896 a(g6 V\u000a tp11897 a(g48 Vevaluate: p11898 tp11899 a(g6 V tp11900 a(g100 VactionBlock p11901 tp11902 a(g6 V tp11903 a(g48 VwheneverChangeIn: p11904 tp11905 a(g6 V tp11906 a(g100 VaspectBlock p11907 tp11908 a(g6 V\u000a p11909 tp11910 a(g353 V| tp11911 a(g100 V viewerThenObject objectThenViewer p11912 tp11913 a(g353 V| tp11914 a(g6 V\u000a p11915 tp11916 a(g100 VobjectThenViewer p11917 tp11918 a(g6 V tp11919 a(g353 V_ tp11920 a(g6 V tp11921 a(g87 Vself p11922 tp11923 a(g212 V. tp11924 a(g6 V\u000a p11925 tp11926 a(g100 VviewerThenObject p11927 tp11928 a(g6 V tp11929 a(g353 V_ tp11930 a(g6 V tp11931 a(g133 VObjectViewer p11932 tp11933 a(g6 V tp11934 a(g48 Von: p11935 tp11936 a(g6 V tp11937 a(g100 VobjectThenViewer p11938 tp11939 a(g212 V. tp11940 a(g6 V\u000a p11941 tp11942 a(g100 VobjectThenViewer p11943 tp11944 a(g6 V tp11945 a(g48 Vbecome: p11946 tp11947 a(g6 V tp11948 a(g100 VviewerThenObject p11949 tp11950 a(g212 V. tp11951 a(g6 V\u000a p11952 tp11953 a(g24 V"--- Then ---" p11954 tp11955 a(g6 V\u000a p11956 tp11957 a(g100 VobjectThenViewer p11958 tp11959 a(g6 V tp11960 a(g48 VxxxViewedObject: p11961 tp11962 a(g6 V tp11963 a(g100 VviewerThenObject p11964 tp11965 a(g6 V\u000a p11966 tp11967 a(g48 Vevaluate: p11968 tp11969 a(g6 V tp11970 a(g100 VactionBlock p11971 tp11972 a(g6 V\u000a p11973 tp11974 a(g48 VwheneverChangeIn: p11975 tp11976 a(g6 V tp11977 a(g100 VaspectBlock p11978 tp11979 a(g138 V! ! p11980 tp11981 a(g6 V\u000a\u000a p11982 tp11983 a(g138 V! tp11984 a(g133 VObject p11985 tp11986 a(g138 V methodsFor: p11987 tp11988 a(g236 V'dependents access' p11989 tp11990 a(g138 V stamp: 'sma 2/29/2000 19:59'! p11991 tp11992 a(g6 V\u000a tp11993 a(g48 VhasUnacceptedEdits p11994 tp11995 a(g6 V\u000a p11996 tp11997 a(g24 V"Answer true if any of the views on this object has unaccepted edits." p11998 tp11999 a(g6 V\u000a\u000a p12000 tp12001 a(g87 Vself p12002 tp12003 a(g6 V tp12004 a(g48 Vdependents p12005 tp12006 a(g6 V\u000a p12007 tp12008 a(g48 Vdo: p12009 tp12010 a(g6 V tp12011 a(g6 V[ tp12012 a(g353 V: tp12013 a(g100 Veach p12014 tp12015 a(g6 V tp12016 a(g353 V| tp12017 a(g6 V tp12018 a(g100 Veach p12019 tp12020 a(g6 V tp12021 a(g48 VhasUnacceptedEdits p12022 tp12023 a(g6 V tp12024 a(g84 VifTrue: p12025 tp12026 a(g6 V tp12027 a(g6 V[ tp12028 a(g6 V tp12029 a(g353 V^ tp12030 a(g6 V tp12031 a(g87 Vtrue p12032 tp12033 a(g6 V] tp12034 a(g6 V] tp12035 a(g6 V\u000a p12036 tp12037 a(g48 Vwithout: p12038 tp12039 a(g6 V tp12040 a(g87 Vself p12041 tp12042 a(g212 V. tp12043 a(g6 V\u000a p12044 tp12045 a(g353 V^ tp12046 a(g6 V tp12047 a(g87 Vfalse p12048 tp12049 a(g138 V! ! p12050 tp12051 a(g6 V\u000a\u000a p12052 tp12053 a(g138 V! tp12054 a(g133 VObject p12055 tp12056 a(g138 V methodsFor: p12057 tp12058 a(g236 V'dependents access' p12059 tp12060 a(g138 V stamp: 'sma 2/29/2000 19:55'! p12061 tp12062 a(g6 V\u000a tp12063 a(g48 VmyDependents p12064 tp12065 a(g6 V\u000a p12066 tp12067 a(g24 V"Private. Answer a list of all the receiver's dependents." p12068 tp12069 a(g6 V\u000a\u000a p12070 tp12071 a(g353 V^ tp12072 a(g6 V tp12073 a(g133 VDependentsFields p12074 tp12075 a(g6 V tp12076 a(g48 Vat: p12077 tp12078 a(g6 V tp12079 a(g87 Vself p12080 tp12081 a(g6 V tp12082 a(g48 VifAbsent: p12083 tp12084 a(g6 V tp12085 a(g6 V[ tp12086 a(g6 V tp12087 a(g6 V] tp12088 a(g138 V! ! p12089 tp12090 a(g6 V\u000a\u000a p12091 tp12092 a(g138 V! tp12093 a(g133 VObject p12094 tp12095 a(g138 V methodsFor: p12096 tp12097 a(g236 V'dependents access' p12098 tp12099 a(g138 V stamp: 'sma 2/29/2000 19:52'! p12100 tp12101 a(g6 V\u000a tp12102 a(g48 VmyDependents: p12103 tp12104 a(g6 V tp12105 a(g100 VaCollectionOrNil p12106 tp12107 a(g6 V\u000a p12108 tp12109 a(g24 V"Private. Set (or remove) the receiver's dependents list." p12110 tp12111 a(g6 V\u000a\u000a p12112 tp12113 a(g100 VaCollectionOrNil p12114 tp12115 a(g6 V\u000a p12116 tp12117 a(g48 VifNil: p12118 tp12119 a(g6 V tp12120 a(g6 V[ tp12121 a(g6 V tp12122 a(g133 VDependentsFields p12123 tp12124 a(g6 V tp12125 a(g48 VremoveKey: p12126 tp12127 a(g6 V tp12128 a(g87 Vself p12129 tp12130 a(g6 V tp12131 a(g48 VifAbsent: p12132 tp12133 a(g6 V tp12134 a(g6 V[ tp12135 a(g6 V tp12136 a(g6 V] tp12137 a(g6 V] tp12138 a(g6 V\u000a p12139 tp12140 a(g48 VifNotNil: p12141 tp12142 a(g6 V tp12143 a(g6 V[ tp12144 a(g6 V tp12145 a(g133 VDependentsFields p12146 tp12147 a(g6 V tp12148 a(g48 Vat: p12149 tp12150 a(g6 V tp12151 a(g87 Vself p12152 tp12153 a(g6 V tp12154 a(g48 Vput: p12155 tp12156 a(g6 V tp12157 a(g100 VaCollectionOrNil p12158 tp12159 a(g6 V] tp12160 a(g138 V! ! p12161 tp12162 a(g6 V\u000a\u000a p12163 tp12164 a(g138 V! tp12165 a(g133 VObject p12166 tp12167 a(g138 V methodsFor: p12168 tp12169 a(g236 V'dependents access' p12170 tp12171 a(g138 V stamp: 'reThink 2/18/2001 17:06'! p12172 tp12173 a(g6 V\u000a tp12174 a(g48 Vrelease p12175 tp12176 a(g6 V\u000a p12177 tp12178 a(g24 V"Remove references to objects that may refer to the receiver. This message \u000a should be overridden by subclasses with any cycles, in which case the \u000a subclass should also include the expression super release." p12179 tp12180 a(g6 V\u000a\u000a p12181 tp12182 a(g87 Vself p12183 tp12184 a(g6 V tp12185 a(g48 VreleaseActionMap p12186 tp12187 a(g138 V! ! p12188 tp12189 a(g6 V\u000a\u000a p12190 tp12191 a(g138 V! tp12192 a(g133 VObject p12193 tp12194 a(g138 V methodsFor: p12195 tp12196 a(g236 V'dependents access' p12197 tp12198 a(g138 V stamp: 'sma 2/29/2000 20:23'! p12199 tp12200 a(g6 V\u000a tp12201 a(g48 VremoveDependent: p12202 tp12203 a(g6 V tp12204 a(g100 VanObject p12205 tp12206 a(g6 V\u000a p12207 tp12208 a(g24 V"Remove the given object as one of the receiver's dependents." p12209 tp12210 a(g6 V\u000a\u000a p12211 tp12212 a(g353 V| tp12213 a(g100 V dependents p12214 tp12215 a(g353 V| tp12216 a(g6 V\u000a p12217 tp12218 a(g100 Vdependents p12219 tp12220 a(g6 V tp12221 a(g353 V_ tp12222 a(g6 V tp12223 a(g87 Vself p12224 tp12225 a(g6 V tp12226 a(g48 Vdependents p12227 tp12228 a(g6 V tp12229 a(g48 Vreject: p12230 tp12231 a(g6 V tp12232 a(g6 V[ tp12233 a(g353 V: tp12234 a(g100 Veach p12235 tp12236 a(g6 V tp12237 a(g353 V| tp12238 a(g6 V tp12239 a(g100 Veach p12240 tp12241 a(g6 V tp12242 a(g48 V== p12243 tp12244 a(g6 V tp12245 a(g100 VanObject p12246 tp12247 a(g6 V] tp12248 a(g212 V. tp12249 a(g6 V\u000a p12250 tp12251 a(g87 Vself p12252 tp12253 a(g6 V tp12254 a(g48 VmyDependents: p12255 tp12256 a(g6 V tp12257 a(g6 V( tp12258 a(g100 Vdependents p12259 tp12260 a(g6 V tp12261 a(g48 VisEmpty p12262 tp12263 a(g6 V tp12264 a(g84 VifFalse: p12265 tp12266 a(g6 V tp12267 a(g6 V[ tp12268 a(g6 V tp12269 a(g100 Vdependents p12270 tp12271 a(g6 V] tp12272 a(g6 V) tp12273 a(g212 V. tp12274 a(g6 V\u000a p12275 tp12276 a(g353 V^ tp12277 a(g6 V tp12278 a(g100 VanObject p12279 tp12280 a(g138 V! ! p12281 tp12282 a(g6 V\u000a\u000a\u000a p12283 tp12284 a(g138 V! tp12285 a(g133 VObject p12286 tp12287 a(g138 V methodsFor: p12288 tp12289 a(g236 V'drag and drop' p12290 tp12291 a(g138 V stamp: 'bh 9/16/2001 18:10'! p12292 tp12293 a(g6 V\u000a tp12294 a(g48 VacceptDroppingMorph: p12295 tp12296 a(g6 V tp12297 a(g100 VtransferMorph p12298 tp12299 a(g6 V tp12300 a(g48 Vevent: p12301 tp12302 a(g6 V tp12303 a(g100 Vevt p12304 tp12305 a(g6 V tp12306 a(g48 VinMorph: p12307 tp12308 a(g6 V tp12309 a(g100 VdstListMorph p12310 tp12311 a(g6 V \u000a \u000a p12312 tp12313 a(g353 V^ tp12314 a(g87 Vfalse p12315 tp12316 a(g212 V. tp12317 a(g138 V! ! p12318 tp12319 a(g6 V\u000a\u000a p12320 tp12321 a(g138 V! tp12322 a(g133 VObject p12323 tp12324 a(g138 V methodsFor: p12325 tp12326 a(g236 V'drag and drop' p12327 tp12328 a(g138 V stamp: 'mir 5/16/2000 11:35'! p12329 tp12330 a(g6 V\u000a tp12331 a(g48 VdragAnimationFor: p12332 tp12333 a(g6 V tp12334 a(g100 Vitem p12335 tp12336 a(g6 V tp12337 a(g48 VtransferMorph: p12338 tp12339 a(g6 V tp12340 a(g100 VtransferMorph p12341 tp12342 a(g6 V \u000a p12343 tp12344 a(g24 V"Default do nothing" p12345 tp12346 a(g138 V! ! p12347 tp12348 a(g6 V\u000a\u000a p12349 tp12350 a(g138 V! tp12351 a(g133 VObject p12352 tp12353 a(g138 V methodsFor: p12354 tp12355 a(g236 V'drag and drop' p12356 tp12357 a(g138 V stamp: 'panda 4/28/2000 16:20'! p12358 tp12359 a(g6 V\u000a tp12360 a(g48 VdragPassengerFor: p12361 tp12362 a(g6 V tp12363 a(g100 Vitem p12364 tp12365 a(g6 V tp12366 a(g48 VinMorph: p12367 tp12368 a(g6 V tp12369 a(g100 VdragSource p12370 tp12371 a(g6 V \u000a p12372 tp12373 a(g353 V^ tp12374 a(g100 Vitem p12375 tp12376 a(g138 V! ! p12377 tp12378 a(g6 V\u000a\u000a p12379 tp12380 a(g138 V! tp12381 a(g133 VObject p12382 tp12383 a(g138 V methodsFor: p12384 tp12385 a(g236 V'drag and drop' p12386 tp12387 a(g138 V stamp: 'panda 4/28/2000 16:11'! p12388 tp12389 a(g6 V\u000a tp12390 a(g48 VdragTransferType p12391 tp12392 a(g6 V\u000a p12393 tp12394 a(g353 V^ tp12395 a(g87 Vnil p12396 tp12397 a(g138 V! ! p12398 tp12399 a(g6 V\u000a\u000a p12400 tp12401 a(g138 V! tp12402 a(g133 VObject p12403 tp12404 a(g138 V methodsFor: p12405 tp12406 a(g236 V'drag and drop' p12407 tp12408 a(g138 V stamp: 'panda 4/28/2000 16:05'! p12409 tp12410 a(g6 V\u000a tp12411 a(g48 VdragTransferTypeForMorph: p12412 tp12413 a(g6 V tp12414 a(g100 VdragSource p12415 tp12416 a(g6 V \u000a p12417 tp12418 a(g353 V^ tp12419 a(g87 Vnil p12420 tp12421 a(g138 V! ! p12422 tp12423 a(g6 V\u000a\u000a p12424 tp12425 a(g138 V! tp12426 a(g133 VObject p12427 tp12428 a(g138 V methodsFor: p12429 tp12430 a(g236 V'drag and drop' p12431 tp12432 a(g138 V stamp: 'mir 5/8/2000 17:19'! p12433 tp12434 a(g6 V\u000a tp12435 a(g48 VwantsDroppedMorph: p12436 tp12437 a(g6 V tp12438 a(g100 VaMorph p12439 tp12440 a(g6 V tp12441 a(g48 Vevent: p12442 tp12443 a(g6 V tp12444 a(g100 VanEvent p12445 tp12446 a(g6 V tp12447 a(g48 VinMorph: p12448 tp12449 a(g6 V tp12450 a(g100 VdestinationLM p12451 tp12452 a(g6 V \u000a p12453 tp12454 a(g353 V^ tp12455 a(g87 Vfalse p12456 tp12457 a(g138 V! ! p12458 tp12459 a(g6 V\u000a\u000a\u000a p12460 tp12461 a(g138 V! tp12462 a(g133 VObject p12463 tp12464 a(g138 V methodsFor: p12465 tp12466 a(g236 V'error handling' p12467 tp12468 a(g138 V stamp: 'sma 5/6/2000 19:35'! p12469 tp12470 a(g6 V\u000a tp12471 a(g48 Vassert: p12472 tp12473 a(g6 V tp12474 a(g100 VaBlock p12475 tp12476 a(g6 V\u000a p12477 tp12478 a(g24 V"Throw an assertion error if aBlock does not evaluates to true." p12479 tp12480 a(g6 V\u000a\u000a p12481 tp12482 a(g100 VaBlock p12483 tp12484 a(g6 V tp12485 a(g48 Vvalue p12486 tp12487 a(g6 V tp12488 a(g84 VifFalse: p12489 tp12490 a(g6 V tp12491 a(g6 V[ tp12492 a(g6 V tp12493 a(g133 VAssertionFailure p12494 tp12495 a(g6 V tp12496 a(g48 Vsignal: p12497 tp12498 a(g6 V tp12499 a(g236 V'Assertion failed' p12500 tp12501 a(g6 V] tp12502 a(g138 V! ! p12503 tp12504 a(g6 V\u000a\u000a p12505 tp12506 a(g138 V! tp12507 a(g133 VObject p12508 tp12509 a(g138 V methodsFor: p12510 tp12511 a(g236 V'error handling' p12512 tp12513 a(g138 V stamp: 'nk 1/15/2004 10:54'! p12514 tp12515 a(g6 V\u000a tp12516 a(g48 Vassert: p12517 tp12518 a(g6 V tp12519 a(g100 VaBlock p12520 tp12521 a(g6 V tp12522 a(g48 VdescriptionBlock: p12523 tp12524 a(g6 V tp12525 a(g100 VdescriptionBlock p12526 tp12527 a(g6 V\u000a p12528 tp12529 a(g24 V"Throw an assertion error if aBlock does not evaluate to true." p12530 tp12531 a(g6 V\u000a\u000a p12532 tp12533 a(g100 VaBlock p12534 tp12535 a(g6 V tp12536 a(g48 Vvalue p12537 tp12538 a(g6 V tp12539 a(g84 VifFalse: p12540 tp12541 a(g6 V tp12542 a(g6 V[ tp12543 a(g6 V tp12544 a(g133 VAssertionFailure p12545 tp12546 a(g6 V tp12547 a(g48 Vsignal: p12548 tp12549 a(g6 V tp12550 a(g100 VdescriptionBlock p12551 tp12552 a(g6 V tp12553 a(g48 Vvalue p12554 tp12555 a(g6 V tp12556 a(g48 VasString p12557 tp12558 a(g6 V tp12559 a(g6 V] tp12560 a(g138 V! ! p12561 tp12562 a(g6 V\u000a\u000a p12563 tp12564 a(g138 V! tp12565 a(g133 VObject p12566 tp12567 a(g138 V methodsFor: p12568 tp12569 a(g236 V'error handling' p12570 tp12571 a(g138 V stamp: 'nk 10/25/2003 16:47'! p12572 tp12573 a(g6 V\u000a tp12574 a(g48 Vassert: p12575 tp12576 a(g6 V tp12577 a(g100 VaBlock p12578 tp12579 a(g6 V tp12580 a(g48 Vdescription: p12581 tp12582 a(g6 V tp12583 a(g100 VaString p12584 tp12585 a(g6 V\u000a p12586 tp12587 a(g24 V"Throw an assertion error if aBlock does not evaluates to true." p12588 tp12589 a(g6 V\u000a\u000a p12590 tp12591 a(g100 VaBlock p12592 tp12593 a(g6 V tp12594 a(g48 Vvalue p12595 tp12596 a(g6 V tp12597 a(g84 VifFalse: p12598 tp12599 a(g6 V tp12600 a(g6 V[ tp12601 a(g6 V tp12602 a(g133 VAssertionFailure p12603 tp12604 a(g6 V tp12605 a(g48 Vsignal: p12606 tp12607 a(g6 V tp12608 a(g100 VaString p12609 tp12610 a(g6 V tp12611 a(g6 V] tp12612 a(g138 V! ! p12613 tp12614 a(g6 V\u000a\u000a p12615 tp12616 a(g138 V! tp12617 a(g133 VObject p12618 tp12619 a(g138 V methodsFor: p12620 tp12621 a(g236 V'error handling' p12622 tp12623 a(g138 V stamp: 'md 10/13/2004 15:59'! p12624 tp12625 a(g6 V\u000a tp12626 a(g48 VbackwardCompatibilityOnly: p12627 tp12628 a(g6 V tp12629 a(g100 VanExplanationString p12630 tp12631 a(g6 V\u000a p12632 tp12633 a(g24 V"Warn that the sending method has been deprecated. Methods that are tagt with #backwardCompatibility:\u000a are kept for compatibility." p12634 tp12635 a(g6 V\u000a\u000a p12636 tp12637 a(g133 VPreferences p12638 tp12639 a(g6 V tp12640 a(g48 VshowDeprecationWarnings p12641 tp12642 a(g6 V tp12643 a(g84 VifTrue: p12644 tp12645 a(g6 V\u000a p12646 tp12647 a(g6 V[ tp12648 a(g6 V tp12649 a(g133 VDeprecation p12650 tp12651 a(g6 V tp12652 a(g48 Vsignal: p12653 tp12654 a(g6 V tp12655 a(g87 VthisContext p12656 tp12657 a(g6 V tp12658 a(g48 Vsender p12659 tp12660 a(g6 V tp12661 a(g48 VprintString p12662 tp12663 a(g48 V, tp12664 a(g6 V tp12665 a(g236 V' has been deprecated (but will be kept for compatibility). ' p12666 tp12667 a(g48 V, tp12668 a(g6 V tp12669 a(g100 VanExplanationString p12670 tp12671 a(g6 V] tp12672 a(g138 V! ! p12673 tp12674 a(g6 V\u000a\u000a p12675 tp12676 a(g138 V! tp12677 a(g133 VObject p12678 tp12679 a(g138 V methodsFor: p12680 tp12681 a(g236 V'error handling' p12682 tp12683 a(g138 V! tp12684 a(g6 V\u000a tp12685 a(g48 VcaseError p12686 tp12687 a(g6 V\u000a p12688 tp12689 a(g24 V"Report an error from an in-line or explicit case statement." p12690 tp12691 a(g6 V\u000a\u000a p12692 tp12693 a(g87 Vself p12694 tp12695 a(g6 V tp12696 a(g48 Verror: p12697 tp12698 a(g6 V tp12699 a(g236 V'Case not found, and no otherwise clause' p12700 tp12701 a(g138 V! ! p12702 tp12703 a(g6 V\u000a\u000a p12704 tp12705 a(g138 V! tp12706 a(g133 VObject p12707 tp12708 a(g138 V methodsFor: p12709 tp12710 a(g236 V'error handling' p12711 tp12712 a(g138 V stamp: 'rbb 3/1/2005 09:26'! p12713 tp12714 a(g6 V\u000a tp12715 a(g48 Vconfirm: p12716 tp12717 a(g6 V tp12718 a(g100 VqueryString p12719 tp12720 a(g6 V\u000a p12721 tp12722 a(g24 V"Put up a yes/no menu with caption queryString. Answer true if the \u000a response is yes, false if no. This is a modal question--the user must \u000a respond yes or no." p12723 tp12724 a(g6 V\u000a\u000a p12725 tp12726 a(g24 V"nil confirm: 'Are you hungry?'" p12727 tp12728 a(g6 V\u000a\u000a p12729 tp12730 a(g353 V^ tp12731 a(g6 V tp12732 a(g133 VUIManager p12733 tp12734 a(g6 V tp12735 a(g48 Vdefault p12736 tp12737 a(g6 V tp12738 a(g48 Vconfirm: p12739 tp12740 a(g6 V tp12741 a(g100 VqueryString p12742 tp12743 a(g138 V! ! p12744 tp12745 a(g6 V\u000a\u000a p12746 tp12747 a(g138 V! tp12748 a(g133 VObject p12749 tp12750 a(g138 V methodsFor: p12751 tp12752 a(g236 V'error handling' p12753 tp12754 a(g138 V stamp: 'rbb 3/1/2005 09:27'! p12755 tp12756 a(g6 V\u000a tp12757 a(g48 Vconfirm: p12758 tp12759 a(g6 V tp12760 a(g100 VaString p12761 tp12762 a(g6 V tp12763 a(g48 VorCancel: p12764 tp12765 a(g6 V tp12766 a(g100 VcancelBlock p12767 tp12768 a(g6 V\u000a p12769 tp12770 a(g24 V"Put up a yes/no/cancel menu with caption aString. Answer true if \u000a the response is yes, false if no. If cancel is chosen, evaluate \u000a cancelBlock. This is a modal question--the user must respond yes or no." p12771 tp12772 a(g6 V\u000a\u000a p12773 tp12774 a(g353 V^ tp12775 a(g6 V tp12776 a(g133 VUIManager p12777 tp12778 a(g6 V tp12779 a(g48 Vdefault p12780 tp12781 a(g6 V tp12782 a(g48 Vconfirm: p12783 tp12784 a(g6 V tp12785 a(g100 VaString p12786 tp12787 a(g6 V tp12788 a(g48 VorCancel: p12789 tp12790 a(g6 V tp12791 a(g100 VcancelBlock p12792 tp12793 a(g138 V! ! p12794 tp12795 a(g6 V\u000a\u000a p12796 tp12797 a(g138 V! tp12798 a(g133 VObject p12799 tp12800 a(g138 V methodsFor: p12801 tp12802 a(g236 V'error handling' p12803 tp12804 a(g138 V stamp: 'dew 10/6/2003 18:20'! p12805 tp12806 a(g6 V\u000a tp12807 a(g48 Vdeprecated: p12808 tp12809 a(g6 V tp12810 a(g100 VanExplanationString p12811 tp12812 a(g6 V\u000a p12813 tp12814 a(g24 V"Warn that the sending method has been deprecated." p12815 tp12816 a(g6 V\u000a\u000a p12817 tp12818 a(g133 VPreferences p12819 tp12820 a(g6 V tp12821 a(g48 VshowDeprecationWarnings p12822 tp12823 a(g6 V tp12824 a(g84 VifTrue: p12825 tp12826 a(g6 V\u000a p12827 tp12828 a(g6 V[ tp12829 a(g6 V tp12830 a(g133 VDeprecation p12831 tp12832 a(g6 V tp12833 a(g48 Vsignal: p12834 tp12835 a(g6 V tp12836 a(g87 VthisContext p12837 tp12838 a(g6 V tp12839 a(g48 Vsender p12840 tp12841 a(g6 V tp12842 a(g48 VprintString p12843 tp12844 a(g48 V, tp12845 a(g6 V tp12846 a(g236 V' has been deprecated. ' p12847 tp12848 a(g48 V, tp12849 a(g6 V tp12850 a(g100 VanExplanationString p12851 tp12852 a(g6 V] tp12853 a(g138 V! ! p12854 tp12855 a(g6 V\u000a\u000a p12856 tp12857 a(g138 V! tp12858 a(g133 VObject p12859 tp12860 a(g138 V methodsFor: p12861 tp12862 a(g236 V'error handling' p12863 tp12864 a(g138 V stamp: 'dew 10/7/2003 00:26'! p12865 tp12866 a(g6 V\u000a tp12867 a(g48 Vdeprecated: p12868 tp12869 a(g6 V tp12870 a(g100 VanExplanationString p12871 tp12872 a(g6 V tp12873 a(g48 Vblock: p12874 tp12875 a(g6 V tp12876 a(g100 VaBlock p12877 tp12878 a(g6 V \u000a p12879 tp12880 a(g24 V"Warn that the sender has been deprecated. Answer the value of aBlock on resumption. (Note that #deprecated: is usually the preferred method.)" p12881 tp12882 a(g6 V\u000a\u000a p12883 tp12884 a(g133 VPreferences p12885 tp12886 a(g6 V tp12887 a(g48 VshowDeprecationWarnings p12888 tp12889 a(g6 V tp12890 a(g84 VifTrue: p12891 tp12892 a(g6 V\u000a p12893 tp12894 a(g6 V[ tp12895 a(g6 V tp12896 a(g133 VDeprecation p12897 tp12898 a(g6 V\u000a p12899 tp12900 a(g48 Vsignal: p12901 tp12902 a(g6 V tp12903 a(g87 VthisContext p12904 tp12905 a(g6 V tp12906 a(g48 Vsender p12907 tp12908 a(g6 V tp12909 a(g48 VprintString p12910 tp12911 a(g48 V, tp12912 a(g6 V tp12913 a(g236 V' has been deprecated. ' p12914 tp12915 a(g48 V, tp12916 a(g6 V tp12917 a(g100 VanExplanationString p12918 tp12919 a(g6 V] tp12920 a(g212 V. tp12921 a(g6 V\u000a p12922 tp12923 a(g353 V^ tp12924 a(g6 V tp12925 a(g100 VaBlock p12926 tp12927 a(g6 V tp12928 a(g48 Vvalue p12929 tp12930 a(g212 V. tp12931 a(g6 V\u000a tp12932 a(g138 V! ! p12933 tp12934 a(g6 V\u000a\u000a p12935 tp12936 a(g138 V! tp12937 a(g133 VObject p12938 tp12939 a(g138 V methodsFor: p12940 tp12941 a(g236 V'error handling' p12942 tp12943 a(g138 V stamp: 'md 2/22/2006 21:21'! p12944 tp12945 a(g6 V\u000a tp12946 a(g48 VdoesNotUnderstand: p12947 tp12948 a(g6 V tp12949 a(g100 VaMessage p12950 tp12951 a(g6 V \u000a p12952 tp12953 a(g24 V"Handle the fact that there was an attempt to send the given message to the receiver but the receiver does not understand this message (typically sent from the machine when a message is sent to the receiver and no method is defined for that selector)." p12954 tp12955 a(g6 V\u000a p12956 tp12957 a(g24 V"Testing: (3 activeProcess)" p12958 tp12959 a(g6 V\u000a\u000a p12960 tp12961 a(g133 VMessageNotUnderstood p12962 tp12963 a(g6 V tp12964 a(g84 Vnew p12965 tp12966 a(g6 V \u000a p12967 tp12968 a(g48 Vmessage: p12969 tp12970 a(g6 V tp12971 a(g100 VaMessage p12972 tp12973 a(g212 V; tp12974 a(g6 V\u000a p12975 tp12976 a(g48 Vreceiver: p12977 tp12978 a(g6 V tp12979 a(g87 Vself p12980 tp12981 a(g212 V; tp12982 a(g6 V\u000a p12983 tp12984 a(g48 Vsignal p12985 tp12986 a(g212 V. tp12987 a(g6 V\u000a p12988 tp12989 a(g353 V^ tp12990 a(g6 V tp12991 a(g100 VaMessage p12992 tp12993 a(g6 V tp12994 a(g48 VsentTo: p12995 tp12996 a(g6 V tp12997 a(g87 Vself p12998 tp12999 a(g212 V. tp13000 a(g6 V\u000a tp13001 a(g138 V! ! p13002 tp13003 a(g6 V\u000a\u000a p13004 tp13005 a(g138 V! tp13006 a(g133 VObject p13007 tp13008 a(g138 V methodsFor: p13009 tp13010 a(g236 V'error handling' p13011 tp13012 a(g138 V stamp: 'TRee 11/4/2003 16:47'! p13013 tp13014 a(g6 V\u000a tp13015 a(g48 VdpsTrace: p13016 tp13017 a(g6 V tp13018 a(g100 VreportObject p13019 tp13020 a(g6 V \u000a p13021 tp13022 a(g133 VTranscript p13023 tp13024 a(g6 V tp13025 a(g48 VmyDependents p13026 tp13027 a(g6 V tp13028 a(g48 VisNil p13029 tp13030 a(g6 V tp13031 a(g84 VifTrue: p13032 tp13033 a(g6 V tp13034 a(g6 V[ tp13035 a(g6 V tp13036 a(g353 V^ tp13037 a(g87 Vself p13038 tp13039 a(g6 V] tp13040 a(g212 V. tp13041 a(g6 V\u000a p13042 tp13043 a(g87 Vself p13044 tp13045 a(g6 V tp13046 a(g48 VdpsTrace: p13047 tp13048 a(g6 V tp13049 a(g100 VreportObject p13050 tp13051 a(g6 V tp13052 a(g48 Vlevels: p13053 tp13054 a(g6 V tp13055 a(g223 V1 tp13056 a(g6 V tp13057 a(g48 VwithContext: p13058 tp13059 a(g6 V tp13060 a(g87 VthisContext p13061 tp13062 a(g6 V\u000a \u000a p13063 tp13064 a(g24 V" nil dpsTrace: 'sludder'. " p13065 tp13066 a(g138 V! ! p13067 tp13068 a(g6 V\u000a\u000a p13069 tp13070 a(g138 V! tp13071 a(g133 VObject p13072 tp13073 a(g138 V methodsFor: p13074 tp13075 a(g236 V'error handling' p13076 tp13077 a(g138 V stamp: 'TRee 11/4/2003 16:49'! p13078 tp13079 a(g6 V\u000a tp13080 a(g48 VdpsTrace: p13081 tp13082 a(g6 V tp13083 a(g100 VreportObject p13084 tp13085 a(g6 V tp13086 a(g48 Vlevels: p13087 tp13088 a(g6 V tp13089 a(g100 VanInt p13090 tp13091 a(g6 V\u000a p13092 tp13093 a(g87 Vself p13094 tp13095 a(g6 V tp13096 a(g48 VdpsTrace: p13097 tp13098 a(g6 V tp13099 a(g100 VreportObject p13100 tp13101 a(g6 V tp13102 a(g48 Vlevels: p13103 tp13104 a(g6 V tp13105 a(g100 VanInt p13106 tp13107 a(g6 V tp13108 a(g48 VwithContext: p13109 tp13110 a(g6 V tp13111 a(g87 VthisContext p13112 tp13113 a(g6 V\u000a\u000a p13114 tp13115 a(g24 V"(1 to: 3) do: [:int | nil dpsTrace: int levels: 5.]" p13116 tp13117 a(g138 V! ! p13118 tp13119 a(g6 V\u000a\u000a p13120 tp13121 a(g138 V! tp13122 a(g133 VObject p13123 tp13124 a(g138 V methodsFor: p13125 tp13126 a(g236 V'error handling' p13127 tp13128 a(g138 V stamp: 'TRee 11/4/2003 17:02'! p13129 tp13130 a(g6 V\u000a tp13131 a(g48 VdpsTrace: p13132 tp13133 a(g6 V tp13134 a(g100 VreportObject p13135 tp13136 a(g6 V tp13137 a(g48 Vlevels: p13138 tp13139 a(g6 V tp13140 a(g100 VanInt p13141 tp13142 a(g6 V tp13143 a(g48 VwithContext: p13144 tp13145 a(g6 V tp13146 a(g100 VcurrentContext p13147 tp13148 a(g6 V\u000a p13149 tp13150 a(g353 V| tp13151 a(g100 V reportString context displayCount p13152 tp13153 a(g353 V| tp13154 a(g6 V\u000a p13155 tp13156 a(g100 VreportString p13157 tp13158 a(g6 V tp13159 a(g353 V:= p13160 tp13161 a(g6 V tp13162 a(g6 V( tp13163 a(g100 VreportObject p13164 tp13165 a(g6 V tp13166 a(g48 VrespondsTo: p13167 tp13168 a(g6 V tp13169 a(g258 V#asString p13170 tp13171 a(g6 V) tp13172 a(g6 V \u000a p13173 tp13174 a(g84 VifTrue: p13175 tp13176 a(g6 V tp13177 a(g6 V[ tp13178 a(g6 V tp13179 a(g100 VreportObject p13180 tp13181 a(g6 V tp13182 a(g48 VasString p13183 tp13184 a(g6 V] tp13185 a(g6 V tp13186 a(g84 VifFalse: p13187 tp13188 a(g6 V tp13189 a(g6 V[ tp13190 a(g6 V tp13191 a(g100 VreportObject p13192 tp13193 a(g6 V tp13194 a(g48 VprintString p13195 tp13196 a(g6 V] tp13197 a(g212 V. tp13198 a(g6 V\u000a p13199 tp13200 a(g6 V( tp13201 a(g133 VSmalltalk p13202 tp13203 a(g6 V tp13204 a(g48 Vat: p13205 tp13206 a(g6 V tp13207 a(g258 V#Decompiler p13208 tp13209 a(g6 V tp13210 a(g48 VifAbsent: p13211 tp13212 a(g6 V tp13213 a(g6 V[ tp13214 a(g6 V tp13215 a(g87 Vnil p13216 tp13217 a(g6 V] tp13218 a(g6 V) tp13219 a(g6 V \u000a p13220 tp13221 a(g48 VifNil: p13222 tp13223 a(g6 V \u000a p13224 tp13225 a(g6 V[ tp13226 a(g6 V tp13227 a(g133 VTranscript p13228 tp13229 a(g6 V tp13230 a(g48 Vcr p13231 tp13232 a(g212 V; tp13233 a(g6 V tp13234 a(g48 Vshow: p13235 tp13236 a(g6 V tp13237 a(g100 VreportString p13238 tp13239 a(g6 V] tp13240 a(g6 V\u000a p13241 tp13242 a(g48 VifNotNil: p13243 tp13244 a(g6 V\u000a p13245 tp13246 a(g6 V[ tp13247 a(g6 V tp13248 a(g100 Vcontext p13249 tp13250 a(g6 V tp13251 a(g353 V:= p13252 tp13253 a(g6 V tp13254 a(g100 VcurrentContext p13255 tp13256 a(g212 V. tp13257 a(g6 V\u000a p13258 tp13259 a(g100 VdisplayCount p13260 tp13261 a(g6 V tp13262 a(g353 V:= p13263 tp13264 a(g6 V tp13265 a(g100 VanInt p13266 tp13267 a(g6 V tp13268 a(g48 V> tp13269 a(g6 V tp13270 a(g223 V1 tp13271 a(g212 V. tp13272 a(g6 V\u000a p13273 tp13274 a(g223 V1 tp13275 a(g6 V tp13276 a(g48 Vto: p13277 tp13278 a(g6 V tp13279 a(g100 VanInt p13280 tp13281 a(g6 V tp13282 a(g48 Vdo: p13283 tp13284 a(g6 V\u000a p13285 tp13286 a(g6 V[ tp13287 a(g353 V: tp13288 a(g100 Vcount p13289 tp13290 a(g6 V tp13291 a(g353 V| tp13292 a(g6 V\u000a p13293 tp13294 a(g133 VTranscript p13295 tp13296 a(g6 V tp13297 a(g48 Vcr p13298 tp13299 a(g212 V. tp13300 a(g6 V\u000a p13301 tp13302 a(g100 VdisplayCount p13303 tp13304 a(g6 V\u000a p13305 tp13306 a(g84 VifTrue: p13307 tp13308 a(g6 V tp13309 a(g6 V[ tp13310 a(g6 V tp13311 a(g133 VTranscript p13312 tp13313 a(g6 V tp13314 a(g48 Vshow: p13315 tp13316 a(g6 V tp13317 a(g100 Vcount p13318 tp13319 a(g6 V tp13320 a(g48 VprintString p13321 tp13322 a(g48 V, tp13323 a(g6 V tp13324 a(g236 V': ' p13325 tp13326 a(g6 V] tp13327 a(g212 V. tp13328 a(g6 V\u000a \u000a p13329 tp13330 a(g100 VreportString p13331 tp13332 a(g6 V tp13333 a(g48 VnotNil p13334 tp13335 a(g6 V\u000a p13336 tp13337 a(g84 VifTrue: p13338 tp13339 a(g6 V\u000a p13340 tp13341 a(g6 V[ tp13342 a(g6 V tp13343 a(g133 VTranscript p13344 tp13345 a(g6 V tp13346 a(g48 Vshow: p13347 tp13348 a(g6 V tp13349 a(g100 Vcontext p13350 tp13351 a(g6 V tp13352 a(g48 Vhome p13353 tp13354 a(g6 V tp13355 a(g48 Vclass p13356 tp13357 a(g6 V tp13358 a(g48 Vname p13359 tp13360 a(g6 V \u000a p13361 tp13362 a(g48 V, tp13363 a(g6 V tp13364 a(g236 V'/' p13365 tp13366 a(g6 V tp13367 a(g48 V, tp13368 a(g6 V tp13369 a(g100 Vcontext p13370 tp13371 a(g6 V tp13372 a(g48 Vsender p13373 tp13374 a(g6 V tp13375 a(g48 Vselector p13376 tp13377 a(g48 V, tp13378 a(g6 V p13379 tp13380 a(g236 V' (' p13381 tp13382 a(g6 V tp13383 a(g48 V, tp13384 a(g6 V tp13385 a(g100 VreportString p13386 tp13387 a(g6 V tp13388 a(g48 V, tp13389 a(g6 V tp13390 a(g236 V')' p13391 tp13392 a(g212 V. tp13393 a(g6 V\u000a p13394 tp13395 a(g100 Vcontext p13396 tp13397 a(g6 V tp13398 a(g353 V:= p13399 tp13400 a(g6 V tp13401 a(g100 Vcontext p13402 tp13403 a(g6 V tp13404 a(g48 Vsender p13405 tp13406 a(g212 V. tp13407 a(g6 V\u000a p13408 tp13409 a(g100 VreportString p13410 tp13411 a(g6 V tp13412 a(g353 V:= p13413 tp13414 a(g6 V tp13415 a(g87 Vnil p13416 tp13417 a(g6 V] tp13418 a(g6 V\u000a p13419 tp13420 a(g84 VifFalse: p13421 tp13422 a(g6 V\u000a p13423 tp13424 a(g6 V[ tp13425 a(g6 V tp13426 a(g6 V( tp13427 a(g100 Vcontext p13428 tp13429 a(g6 V tp13430 a(g48 VnotNil p13431 tp13432 a(g6 V tp13433 a(g48 Vand: p13434 tp13435 a(g6 V tp13436 a(g6 V[ tp13437 a(g6 V tp13438 a(g6 V( tp13439 a(g100 Vcontext p13440 tp13441 a(g6 V tp13442 a(g353 V:= p13443 tp13444 a(g6 V tp13445 a(g100 Vcontext p13446 tp13447 a(g6 V tp13448 a(g48 Vsender p13449 tp13450 a(g6 V) tp13451 a(g6 V tp13452 a(g48 VnotNil p13453 tp13454 a(g6 V] tp13455 a(g6 V) tp13456 a(g6 V\u000a p13457 tp13458 a(g84 VifTrue: p13459 tp13460 a(g6 V tp13461 a(g6 V[ tp13462 a(g6 V tp13463 a(g133 VTranscript p13464 tp13465 a(g6 V tp13466 a(g48 Vshow: p13467 tp13468 a(g6 V tp13469 a(g100 Vcontext p13470 tp13471 a(g6 V tp13472 a(g48 Vreceiver p13473 tp13474 a(g6 V tp13475 a(g48 Vclass p13476 tp13477 a(g6 V tp13478 a(g48 Vname p13479 tp13480 a(g6 V tp13481 a(g48 V, tp13482 a(g6 V tp13483 a(g236 V'/' p13484 tp13485 a(g6 V tp13486 a(g48 V, tp13487 a(g6 V tp13488 a(g100 Vcontext p13489 tp13490 a(g6 V tp13491 a(g48 Vselector p13492 tp13493 a(g6 V] tp13494 a(g6 V] tp13495 a(g6 V] tp13496 a(g212 V. tp13497 a(g6 V\u000a p13498 tp13499 a(g24 V"Transcript cr" p13500 tp13501 a(g6 V] tp13502 a(g212 V. tp13503 a(g138 V! ! p13504 tp13505 a(g6 V\u000a\u000a p13506 tp13507 a(g138 V! tp13508 a(g133 VObject p13509 tp13510 a(g138 V methodsFor: p13511 tp13512 a(g236 V'error handling' p13513 tp13514 a(g138 V stamp: 'md 8/2/2005 22:17'! p13515 tp13516 a(g6 V\u000a tp13517 a(g48 Verror p13518 tp13519 a(g6 V\u000a p13520 tp13521 a(g24 V"Throw a generic Error exception." p13522 tp13523 a(g6 V\u000a\u000a p13524 tp13525 a(g353 V^ tp13526 a(g87 Vself p13527 tp13528 a(g6 V tp13529 a(g48 Verror: p13530 tp13531 a(g6 V tp13532 a(g236 V'Error!!' p13533 tp13534 a(g212 V. tp13535 a(g138 V! ! p13536 tp13537 a(g6 V\u000a\u000a p13538 tp13539 a(g138 V! tp13540 a(g133 VObject p13541 tp13542 a(g138 V methodsFor: p13543 tp13544 a(g236 V'error handling' p13545 tp13546 a(g138 V stamp: 'tfei 4/12/1999 12:55'! p13547 tp13548 a(g6 V\u000a tp13549 a(g48 Verror: p13550 tp13551 a(g6 V tp13552 a(g100 VaString p13553 tp13554 a(g6 V \u000a p13555 tp13556 a(g24 V"Throw a generic Error exception." p13557 tp13558 a(g6 V\u000a\u000a p13559 tp13560 a(g353 V^ tp13561 a(g133 VError p13562 tp13563 a(g6 V tp13564 a(g84 Vnew p13565 tp13566 a(g6 V tp13567 a(g48 Vsignal: p13568 tp13569 a(g6 V tp13570 a(g100 VaString p13571 tp13572 a(g138 V! ! p13573 tp13574 a(g6 V\u000a\u000a p13575 tp13576 a(g138 V! tp13577 a(g133 VObject p13578 tp13579 a(g138 V methodsFor: p13580 tp13581 a(g236 V'error handling' p13582 tp13583 a(g138 V stamp: 'al 9/16/2005 14:12'! p13584 tp13585 a(g6 V\u000a tp13586 a(g48 VexplicitRequirement p13587 tp13588 a(g6 V\u000a p13589 tp13590 a(g87 Vself p13591 tp13592 a(g6 V tp13593 a(g48 Verror: p13594 tp13595 a(g6 V tp13596 a(g236 V'Explicitly required method' p13597 tp13598 a(g138 V! ! p13599 tp13600 a(g6 V\u000a\u000a p13601 tp13602 a(g138 V! tp13603 a(g133 VObject p13604 tp13605 a(g138 V methodsFor: p13606 tp13607 a(g236 V'error handling' p13608 tp13609 a(g138 V stamp: 'al 2/13/2006 22:20'! p13610 tp13611 a(g6 V\u000a tp13612 a(g48 Vhalt p13613 tp13614 a(g6 V\u000a p13615 tp13616 a(g24 V"This is the typical message to use for inserting breakpoints during \u000a debugging. It behaves like halt:, but does not call on halt: in order to \u000a avoid putting this message on the stack. Halt is especially useful when \u000a the breakpoint message is an arbitrary one." p13617 tp13618 a(g6 V\u000a\u000a p13619 tp13620 a(g133 VHalt p13621 tp13622 a(g6 V tp13623 a(g48 Vsignal p13624 tp13625 a(g138 V! ! p13626 tp13627 a(g6 V\u000a\u000a p13628 tp13629 a(g138 V! tp13630 a(g133 VObject p13631 tp13632 a(g138 V methodsFor: p13633 tp13634 a(g236 V'error handling' p13635 tp13636 a(g138 V stamp: 'tfei 4/12/1999 12:59'! p13637 tp13638 a(g6 V\u000a tp13639 a(g48 Vhalt: p13640 tp13641 a(g6 V tp13642 a(g100 VaString p13643 tp13644 a(g6 V \u000a p13645 tp13646 a(g24 V"This is the typical message to use for inserting breakpoints during \u000a debugging. It creates and schedules a Notifier with the argument, \u000a aString, as the label." p13647 tp13648 a(g6 V\u000a \u000a p13649 tp13650 a(g133 VHalt p13651 tp13652 a(g6 V tp13653 a(g84 Vnew p13654 tp13655 a(g6 V tp13656 a(g48 Vsignal: p13657 tp13658 a(g6 V tp13659 a(g100 VaString p13660 tp13661 a(g138 V! ! p13662 tp13663 a(g6 V\u000a\u000a p13664 tp13665 a(g138 V! tp13666 a(g133 VObject p13667 tp13668 a(g138 V methodsFor: p13669 tp13670 a(g236 V'error handling' p13671 tp13672 a(g138 V stamp: 'md 1/20/2006 16:24'! p13673 tp13674 a(g6 V\u000a tp13675 a(g48 Vhandles: p13676 tp13677 a(g6 V tp13678 a(g100 Vexception p13679 tp13680 a(g6 V\u000a p13681 tp13682 a(g24 V"This method exists in case a non exception class is the first arg in an on:do: (for instance using a exception class that is not loaded). We prefer this to raising an error during error handling itself. Also, semantically it makes sense that the exception handler is not active if its exception class is not loaded" p13683 tp13684 a(g6 V\u000a\u000a p13685 tp13686 a(g353 V^ tp13687 a(g6 V tp13688 a(g87 Vfalse p13689 tp13690 a(g138 V! ! p13691 tp13692 a(g6 V\u000a\u000a p13693 tp13694 a(g138 V! tp13695 a(g133 VObject p13696 tp13697 a(g138 V methodsFor: p13698 tp13699 a(g236 V'error handling' p13700 tp13701 a(g138 V stamp: 'ar 9/27/2005 20:24'! p13702 tp13703 a(g6 V\u000a tp13704 a(g48 VnotifyWithLabel: p13705 tp13706 a(g6 V tp13707 a(g100 VaString p13708 tp13709 a(g6 V \u000a p13710 tp13711 a(g24 V"Create and schedule a Notifier with aString as the window label as well as the contents of the window, in order to request confirmation before a process can proceed." p13712 tp13713 a(g6 V\u000a\u000a p13714 tp13715 a(g133 VToolSet p13716 tp13717 a(g6 V\u000a p13718 tp13719 a(g48 VdebugContext: p13720 tp13721 a(g6 V tp13722 a(g87 VthisContext p13723 tp13724 a(g6 V\u000a p13725 tp13726 a(g48 Vlabel: p13727 tp13728 a(g6 V tp13729 a(g100 VaString p13730 tp13731 a(g6 V\u000a p13732 tp13733 a(g48 Vcontents: p13734 tp13735 a(g6 V tp13736 a(g100 VaString p13737 tp13738 a(g6 V\u000a\u000a p13739 tp13740 a(g24 V"nil notifyWithLabel: 'let us see if this works'" p13741 tp13742 a(g138 V! ! p13743 tp13744 a(g6 V\u000a\u000a p13745 tp13746 a(g138 V! tp13747 a(g133 VObject p13748 tp13749 a(g138 V methodsFor: p13750 tp13751 a(g236 V'error handling' p13752 tp13753 a(g138 V stamp: 'hg 10/2/2001 20:49'! p13754 tp13755 a(g6 V\u000a tp13756 a(g48 Vnotify: p13757 tp13758 a(g6 V tp13759 a(g100 VaString p13760 tp13761 a(g6 V \u000a p13762 tp13763 a(g24 V"Create and schedule a Notifier with the argument as the message in \u000a order to request confirmation before a process can proceed." p13764 tp13765 a(g6 V\u000a\u000a p13766 tp13767 a(g133 VWarning p13768 tp13769 a(g6 V tp13770 a(g48 Vsignal: p13771 tp13772 a(g6 V tp13773 a(g100 VaString p13774 tp13775 a(g6 V\u000a\u000a p13776 tp13777 a(g24 V"nil notify: 'confirmation message'" p13778 tp13779 a(g138 V! ! p13780 tp13781 a(g6 V\u000a\u000a p13782 tp13783 a(g138 V! tp13784 a(g133 VObject p13785 tp13786 a(g138 V methodsFor: p13787 tp13788 a(g236 V'error handling' p13789 tp13790 a(g138 V! tp13791 a(g6 V\u000a tp13792 a(g48 Vnotify: p13793 tp13794 a(g6 V tp13795 a(g100 VaString p13796 tp13797 a(g6 V tp13798 a(g48 Vat: p13799 tp13800 a(g6 V tp13801 a(g100 Vlocation p13802 tp13803 a(g6 V\u000a p13804 tp13805 a(g24 V"Create and schedule a Notifier with the argument as the message in \u000a order to request confirmation before a process can proceed. Subclasses can\u000a override this and insert an error message at location within aString." p13806 tp13807 a(g6 V\u000a\u000a p13808 tp13809 a(g87 Vself p13810 tp13811 a(g6 V tp13812 a(g48 Vnotify: p13813 tp13814 a(g6 V tp13815 a(g100 VaString p13816 tp13817 a(g6 V\u000a\u000a p13818 tp13819 a(g24 V"nil notify: 'confirmation message' at: 12" p13820 tp13821 a(g138 V! ! p13822 tp13823 a(g6 V\u000a\u000a p13824 tp13825 a(g138 V! tp13826 a(g133 VObject p13827 tp13828 a(g138 V methodsFor: p13829 tp13830 a(g236 V'error handling' p13831 tp13832 a(g138 V! tp13833 a(g6 V\u000a tp13834 a(g48 VprimitiveFailed p13835 tp13836 a(g6 V\u000a p13837 tp13838 a(g24 V"Announce that a primitive has failed and there is no appropriate \u000a Smalltalk code to run." p13839 tp13840 a(g6 V\u000a\u000a p13841 tp13842 a(g87 Vself p13843 tp13844 a(g6 V tp13845 a(g48 Verror: p13846 tp13847 a(g6 V tp13848 a(g236 V'a primitive has failed' p13849 tp13850 a(g138 V! ! p13851 tp13852 a(g6 V\u000a\u000a p13853 tp13854 a(g138 V! tp13855 a(g133 VObject p13856 tp13857 a(g138 V methodsFor: p13858 tp13859 a(g236 V'error handling' p13860 tp13861 a(g138 V stamp: 'al 9/16/2005 14:12'! p13862 tp13863 a(g6 V\u000a tp13864 a(g48 Vrequirement p13865 tp13866 a(g6 V\u000a p13867 tp13868 a(g87 Vself p13869 tp13870 a(g6 V tp13871 a(g48 Verror: p13872 tp13873 a(g6 V tp13874 a(g236 V'Implicitly required method' p13875 tp13876 a(g138 V! ! p13877 tp13878 a(g6 V\u000a\u000a p13879 tp13880 a(g138 V! tp13881 a(g133 VObject p13882 tp13883 a(g138 V methodsFor: p13884 tp13885 a(g236 V'error handling' p13886 tp13887 a(g138 V stamp: 'AFi 2/8/2003 22:52'! p13888 tp13889 a(g6 V\u000a tp13890 a(g48 VshouldBeImplemented p13891 tp13892 a(g6 V\u000a p13893 tp13894 a(g24 V"Announce that this message should be implemented" p13895 tp13896 a(g6 V\u000a\u000a p13897 tp13898 a(g87 Vself p13899 tp13900 a(g6 V tp13901 a(g48 Verror: p13902 tp13903 a(g6 V tp13904 a(g236 V'This message should be implemented' p13905 tp13906 a(g138 V! ! p13907 tp13908 a(g6 V\u000a\u000a p13909 tp13910 a(g138 V! tp13911 a(g133 VObject p13912 tp13913 a(g138 V methodsFor: p13914 tp13915 a(g236 V'error handling' p13916 tp13917 a(g138 V! tp13918 a(g6 V\u000a tp13919 a(g48 VshouldNotImplement p13920 tp13921 a(g6 V\u000a p13922 tp13923 a(g24 V"Announce that, although the receiver inherits this message, it should \u000a not implement it." p13924 tp13925 a(g6 V\u000a\u000a p13926 tp13927 a(g87 Vself p13928 tp13929 a(g6 V tp13930 a(g48 Verror: p13931 tp13932 a(g6 V tp13933 a(g236 V'This message is not appropriate for this object' p13934 tp13935 a(g138 V! ! p13936 tp13937 a(g6 V\u000a\u000a p13938 tp13939 a(g138 V! tp13940 a(g133 VObject p13941 tp13942 a(g138 V methodsFor: p13943 tp13944 a(g236 V'error handling' p13945 tp13946 a(g138 V stamp: 'md 2/17/2006 12:02'! p13947 tp13948 a(g6 V\u000a tp13949 a(g48 VsubclassResponsibility p13950 tp13951 a(g6 V\u000a p13952 tp13953 a(g24 V"This message sets up a framework for the behavior of the class' subclasses.\u000a Announce that the subclass should have implemented this message." p13954 tp13955 a(g6 V\u000a\u000a p13956 tp13957 a(g87 Vself p13958 tp13959 a(g6 V tp13960 a(g48 Verror: p13961 tp13962 a(g6 V tp13963 a(g236 V'My subclass should have overridden ' p13964 tp13965 a(g48 V, tp13966 a(g6 V tp13967 a(g87 VthisContext p13968 tp13969 a(g6 V tp13970 a(g48 Vsender p13971 tp13972 a(g6 V tp13973 a(g48 Vselector p13974 tp13975 a(g6 V tp13976 a(g48 VprintString p13977 tp13978 a(g138 V! ! p13979 tp13980 a(g6 V\u000a\u000a p13981 tp13982 a(g138 V! tp13983 a(g133 VObject p13984 tp13985 a(g138 V methodsFor: p13986 tp13987 a(g236 V'error handling' p13988 tp13989 a(g138 V stamp: 'al 12/16/2003 16:16'! p13990 tp13991 a(g6 V\u000a tp13992 a(g48 VtraitConflict p13993 tp13994 a(g6 V\u000a p13995 tp13996 a(g87 Vself p13997 tp13998 a(g6 V tp13999 a(g48 Verror: p14000 tp14001 a(g6 V tp14002 a(g236 V'A class or trait does not properly resolve a conflict between multiple traits it uses.' p14003 tp14004 a(g138 V! ! p14005 tp14006 a(g6 V\u000a\u000a\u000a p14007 tp14008 a(g138 V! tp14009 a(g133 VObject p14010 tp14011 a(g138 V methodsFor: p14012 tp14013 a(g236 V'evaluating' p14014 tp14015 a(g138 V stamp: 'reThink 3/12/2001 18:14'! p14016 tp14017 a(g6 V\u000a tp14018 a(g48 Vvalue p14019 tp14020 a(g6 V\u000a tp14021 a(g6 V\u000a p14022 tp14023 a(g353 V^ tp14024 a(g87 Vself p14025 tp14026 a(g138 V! ! p14027 tp14028 a(g6 V\u000a\u000a p14029 tp14030 a(g138 V! tp14031 a(g133 VObject p14032 tp14033 a(g138 V methodsFor: p14034 tp14035 a(g236 V'evaluating' p14036 tp14037 a(g138 V stamp: 'reThink 2/18/2001 15:23'! p14038 tp14039 a(g6 V\u000a tp14040 a(g48 VvalueWithArguments: p14041 tp14042 a(g6 V tp14043 a(g100 VaSequenceOfArguments p14044 tp14045 a(g6 V\u000a\u000a p14046 tp14047 a(g353 V^ tp14048 a(g87 Vself p14049 tp14050 a(g138 V! ! p14051 tp14052 a(g6 V\u000a\u000a\u000a p14053 tp14054 a(g138 V! tp14055 a(g133 VObject p14056 tp14057 a(g138 V methodsFor: p14058 tp14059 a(g236 V'events' p14060 tp14061 a(g138 V stamp: 'nk 8/27/2003 16:23'! p14062 tp14063 a(g6 V\u000a tp14064 a(g48 VactionsWithReceiver: p14065 tp14066 a(g6 V tp14067 a(g100 VanObject p14068 tp14069 a(g6 V tp14070 a(g48 VforEvent: p14071 tp14072 a(g6 V tp14073 a(g100 VanEventSelector p14074 tp14075 a(g6 V\u000a\u000a p14076 tp14077 a(g353 V^ tp14078 a(g6 V( tp14079 a(g87 Vself p14080 tp14081 a(g6 V tp14082 a(g48 VactionSequenceForEvent: p14083 tp14084 a(g6 V tp14085 a(g100 VanEventSelector p14086 tp14087 a(g6 V) tp14088 a(g6 V\u000a p14089 tp14090 a(g48 Vselect: p14091 tp14092 a(g6 V tp14093 a(g6 V[ tp14094 a(g353 V: tp14095 a(g100 VanAction p14096 tp14097 a(g6 V tp14098 a(g353 V| tp14099 a(g6 V tp14100 a(g100 VanAction p14101 tp14102 a(g6 V tp14103 a(g48 Vreceiver p14104 tp14105 a(g6 V tp14106 a(g48 V== p14107 tp14108 a(g6 V tp14109 a(g100 VanObject p14110 tp14111 a(g6 V tp14112 a(g6 V] tp14113 a(g138 V! ! p14114 tp14115 a(g6 V\u000a\u000a p14116 tp14117 a(g138 V! tp14118 a(g133 VObject p14119 tp14120 a(g138 V methodsFor: p14121 tp14122 a(g236 V'events' p14123 tp14124 a(g138 V stamp: 'nk 8/27/2003 17:45'! p14125 tp14126 a(g6 V\u000a tp14127 a(g48 VrenameActionsWithReceiver: p14128 tp14129 a(g6 V tp14130 a(g100 VanObject p14131 tp14132 a(g6 V tp14133 a(g48 VforEvent: p14134 tp14135 a(g6 V tp14136 a(g100 VanEventSelector p14137 tp14138 a(g6 V tp14139 a(g48 VtoEvent: p14140 tp14141 a(g6 V tp14142 a(g100 VnewEvent p14143 tp14144 a(g6 V\u000a\u000a p14145 tp14146 a(g353 V| tp14147 a(g100 V oldActions newActions p14148 tp14149 a(g353 V| tp14150 a(g6 V\u000a p14151 tp14152 a(g100 VoldActions p14153 tp14154 a(g6 V tp14155 a(g353 V_ tp14156 a(g6 V tp14157 a(g133 VSet p14158 tp14159 a(g6 V tp14160 a(g84 Vnew p14161 tp14162 a(g212 V. tp14163 a(g6 V\u000a p14164 tp14165 a(g100 VnewActions p14166 tp14167 a(g6 V tp14168 a(g353 V_ tp14169 a(g6 V tp14170 a(g133 VSet p14171 tp14172 a(g6 V tp14173 a(g84 Vnew p14174 tp14175 a(g212 V. tp14176 a(g6 V\u000a p14177 tp14178 a(g6 V( tp14179 a(g87 Vself p14180 tp14181 a(g6 V tp14182 a(g48 VactionSequenceForEvent: p14183 tp14184 a(g6 V tp14185 a(g100 VanEventSelector p14186 tp14187 a(g6 V) tp14188 a(g6 V tp14189 a(g48 Vdo: p14190 tp14191 a(g6 V tp14192 a(g6 V[ tp14193 a(g6 V tp14194 a(g353 V: tp14195 a(g100 Vaction p14196 tp14197 a(g6 V tp14198 a(g353 V| tp14199 a(g6 V\u000a p14200 tp14201 a(g100 Vaction p14202 tp14203 a(g6 V tp14204 a(g48 Vreceiver p14205 tp14206 a(g6 V tp14207 a(g48 V== p14208 tp14209 a(g6 V tp14210 a(g100 VanObject p14211 tp14212 a(g6 V\u000a p14213 tp14214 a(g84 VifTrue: p14215 tp14216 a(g6 V tp14217 a(g6 V[ tp14218 a(g6 V tp14219 a(g6 V tp14220 a(g100 VoldActions p14221 tp14222 a(g6 V tp14223 a(g48 Vadd: p14224 tp14225 a(g6 V tp14226 a(g100 VanObject p14227 tp14228 a(g6 V tp14229 a(g6 V] tp14230 a(g6 V\u000a p14231 tp14232 a(g84 VifFalse: p14233 tp14234 a(g6 V tp14235 a(g6 V[ tp14236 a(g6 V tp14237 a(g6 V tp14238 a(g100 VnewActions p14239 tp14240 a(g6 V tp14241 a(g48 Vadd: p14242 tp14243 a(g6 V tp14244 a(g100 VanObject p14245 tp14246 a(g6 V tp14247 a(g6 V] tp14248 a(g6 V] tp14249 a(g212 V. tp14250 a(g6 V\u000a p14251 tp14252 a(g87 Vself p14253 tp14254 a(g6 V tp14255 a(g48 VsetActionSequence: p14256 tp14257 a(g6 V tp14258 a(g6 V( tp14259 a(g133 VActionSequence p14260 tp14261 a(g6 V tp14262 a(g48 VwithAll: p14263 tp14264 a(g6 V tp14265 a(g100 VnewActions p14266 tp14267 a(g6 V) tp14268 a(g6 V tp14269 a(g48 VforEvent: p14270 tp14271 a(g6 V tp14272 a(g100 VanEventSelector p14273 tp14274 a(g212 V. tp14275 a(g6 V\u000a p14276 tp14277 a(g100 VoldActions p14278 tp14279 a(g6 V tp14280 a(g48 Vdo: p14281 tp14282 a(g6 V tp14283 a(g6 V[ tp14284 a(g6 V tp14285 a(g353 V: tp14286 a(g100 Vact p14287 tp14288 a(g6 V tp14289 a(g353 V| tp14290 a(g6 V tp14291 a(g87 Vself p14292 tp14293 a(g6 V tp14294 a(g48 Vwhen: p14295 tp14296 a(g6 V tp14297 a(g100 VnewEvent p14298 tp14299 a(g6 V tp14300 a(g48 Vevaluate: p14301 tp14302 a(g6 V tp14303 a(g100 Vact p14304 tp14305 a(g6 V tp14306 a(g6 V] tp14307 a(g212 V. tp14308 a(g138 V! ! p14309 tp14310 a(g6 V\u000a\u000a\u000a p14311 tp14312 a(g138 V! tp14313 a(g133 VObject p14314 tp14315 a(g138 V methodsFor: p14316 tp14317 a(g236 V'events-accessing' p14318 tp14319 a(g138 V stamp: 'nk 12/20/2002 17:48'! p14320 tp14321 a(g6 V\u000a tp14322 a(g48 VactionForEvent: p14323 tp14324 a(g6 V tp14325 a(g100 VanEventSelector p14326 tp14327 a(g6 V\u000a p14328 tp14329 a(g24 V"Answer the action to be evaluated when has been triggered." p14330 tp14331 a(g6 V\u000a\u000a p14332 tp14333 a(g353 V| tp14334 a(g100 V actions p14335 tp14336 a(g353 V| tp14337 a(g6 V\u000a p14338 tp14339 a(g100 Vactions p14340 tp14341 a(g6 V tp14342 a(g353 V:= p14343 tp14344 a(g6 V tp14345 a(g87 Vself p14346 tp14347 a(g6 V tp14348 a(g48 VactionMap p14349 tp14350 a(g6 V\u000a p14351 tp14352 a(g48 Vat: p14353 tp14354 a(g6 V tp14355 a(g100 VanEventSelector p14356 tp14357 a(g6 V tp14358 a(g48 VasSymbol p14359 tp14360 a(g6 V\u000a p14361 tp14362 a(g48 VifAbsent: p14363 tp14364 a(g6 V tp14365 a(g6 V[ tp14366 a(g6 V tp14367 a(g87 Vnil p14368 tp14369 a(g6 V] tp14370 a(g212 V. tp14371 a(g6 V\u000a p14372 tp14373 a(g100 Vactions p14374 tp14375 a(g6 V tp14376 a(g48 VifNil: p14377 tp14378 a(g6 V tp14379 a(g6 V[ tp14380 a(g6 V tp14381 a(g353 V^ tp14382 a(g87 Vnil p14383 tp14384 a(g6 V] tp14385 a(g212 V. tp14386 a(g6 V\u000a p14387 tp14388 a(g353 V^ tp14389 a(g6 V tp14390 a(g100 Vactions p14391 tp14392 a(g6 V tp14393 a(g48 VasMinimalRepresentation p14394 tp14395 a(g138 V! ! p14396 tp14397 a(g6 V\u000a\u000a p14398 tp14399 a(g138 V! tp14400 a(g133 VObject p14401 tp14402 a(g138 V methodsFor: p14403 tp14404 a(g236 V'events-accessing' p14405 tp14406 a(g138 V stamp: 'nk 12/20/2002 17:48'! p14407 tp14408 a(g6 V\u000a tp14409 a(g48 VactionForEvent: p14410 tp14411 a(g6 V tp14412 a(g100 VanEventSelector p14413 tp14414 a(g6 V\u000a tp14415 a(g48 VifAbsent: p14416 tp14417 a(g6 V tp14418 a(g100 VanExceptionBlock p14419 tp14420 a(g6 V\u000a p14421 tp14422 a(g24 V"Answer the action to be evaluated when has been triggered." p14423 tp14424 a(g6 V\u000a\u000a p14425 tp14426 a(g353 V| tp14427 a(g100 V actions p14428 tp14429 a(g353 V| tp14430 a(g6 V\u000a p14431 tp14432 a(g100 Vactions p14433 tp14434 a(g6 V tp14435 a(g353 V:= p14436 tp14437 a(g6 V tp14438 a(g87 Vself p14439 tp14440 a(g6 V tp14441 a(g48 VactionMap p14442 tp14443 a(g6 V\u000a p14444 tp14445 a(g48 Vat: p14446 tp14447 a(g6 V tp14448 a(g100 VanEventSelector p14449 tp14450 a(g6 V tp14451 a(g48 VasSymbol p14452 tp14453 a(g6 V\u000a p14454 tp14455 a(g48 VifAbsent: p14456 tp14457 a(g6 V tp14458 a(g6 V[ tp14459 a(g6 V tp14460 a(g87 Vnil p14461 tp14462 a(g6 V] tp14463 a(g212 V. tp14464 a(g6 V\u000a p14465 tp14466 a(g100 Vactions p14467 tp14468 a(g6 V tp14469 a(g48 VifNil: p14470 tp14471 a(g6 V tp14472 a(g6 V[ tp14473 a(g6 V tp14474 a(g353 V^ tp14475 a(g100 VanExceptionBlock p14476 tp14477 a(g6 V tp14478 a(g48 Vvalue p14479 tp14480 a(g6 V] tp14481 a(g212 V. tp14482 a(g6 V\u000a p14483 tp14484 a(g353 V^ tp14485 a(g6 V tp14486 a(g100 Vactions p14487 tp14488 a(g6 V tp14489 a(g48 VasMinimalRepresentation p14490 tp14491 a(g138 V! ! p14492 tp14493 a(g6 V\u000a\u000a p14494 tp14495 a(g138 V! tp14496 a(g133 VObject p14497 tp14498 a(g138 V methodsFor: p14499 tp14500 a(g236 V'events-accessing' p14501 tp14502 a(g138 V stamp: 'reThink 2/18/2001 14:43'! p14503 tp14504 a(g6 V\u000a tp14505 a(g48 VactionMap p14506 tp14507 a(g6 V\u000a tp14508 a(g6 V\u000a p14509 tp14510 a(g353 V^ tp14511 a(g133 VEventManager p14512 tp14513 a(g6 V tp14514 a(g48 VactionMapFor: p14515 tp14516 a(g6 V tp14517 a(g87 Vself p14518 tp14519 a(g138 V! ! p14520 tp14521 a(g6 V\u000a\u000a p14522 tp14523 a(g138 V! tp14524 a(g133 VObject p14525 tp14526 a(g138 V methodsFor: p14527 tp14528 a(g236 V'events-accessing' p14529 tp14530 a(g138 V stamp: 'rw 4/27/2002 08:35'! p14531 tp14532 a(g6 V\u000a tp14533 a(g48 VactionSequenceForEvent: p14534 tp14535 a(g6 V tp14536 a(g100 VanEventSelector p14537 tp14538 a(g6 V\u000a\u000a p14539 tp14540 a(g353 V^ tp14541 a(g6 V( tp14542 a(g87 Vself p14543 tp14544 a(g6 V tp14545 a(g48 VactionMap p14546 tp14547 a(g6 V\u000a p14548 tp14549 a(g48 Vat: p14550 tp14551 a(g6 V tp14552 a(g100 VanEventSelector p14553 tp14554 a(g6 V tp14555 a(g48 VasSymbol p14556 tp14557 a(g6 V\u000a p14558 tp14559 a(g48 VifAbsent: p14560 tp14561 a(g6 V tp14562 a(g6 V[ tp14563 a(g6 V tp14564 a(g353 V^ tp14565 a(g133 VWeakActionSequence p14566 tp14567 a(g6 V tp14568 a(g84 Vnew p14569 tp14570 a(g6 V] tp14571 a(g6 V) tp14572 a(g6 V\u000a p14573 tp14574 a(g48 VasActionSequence p14575 tp14576 a(g138 V! ! p14577 tp14578 a(g6 V\u000a\u000a p14579 tp14580 a(g138 V! tp14581 a(g133 VObject p14582 tp14583 a(g138 V methodsFor: p14584 tp14585 a(g236 V'events-accessing' p14586 tp14587 a(g138 V stamp: 'SqR 6/28/2001 13:19'! p14588 tp14589 a(g6 V\u000a tp14590 a(g48 VactionsDo: p14591 tp14592 a(g6 V tp14593 a(g100 VaBlock p14594 tp14595 a(g6 V\u000a\u000a p14596 tp14597 a(g87 Vself p14598 tp14599 a(g6 V tp14600 a(g48 VactionMap p14601 tp14602 a(g6 V tp14603 a(g48 Vdo: p14604 tp14605 a(g6 V tp14606 a(g100 VaBlock p14607 tp14608 a(g138 V! ! p14609 tp14610 a(g6 V\u000a\u000a p14611 tp14612 a(g138 V! tp14613 a(g133 VObject p14614 tp14615 a(g138 V methodsFor: p14616 tp14617 a(g236 V'events-accessing' p14618 tp14619 a(g138 V stamp: 'rw 2/10/2002 13:05'! p14620 tp14621 a(g6 V\u000a tp14622 a(g48 VcreateActionMap p14623 tp14624 a(g6 V\u000a tp14625 a(g6 V\u000a p14626 tp14627 a(g353 V^ tp14628 a(g133 VIdentityDictionary p14629 tp14630 a(g6 V tp14631 a(g84 Vnew p14632 tp14633 a(g138 V! ! p14634 tp14635 a(g6 V\u000a\u000a p14636 tp14637 a(g138 V! tp14638 a(g133 VObject p14639 tp14640 a(g138 V methodsFor: p14641 tp14642 a(g236 V'events-accessing' p14643 tp14644 a(g138 V stamp: 'SqR 2/19/2001 14:04'! p14645 tp14646 a(g6 V\u000a tp14647 a(g48 VhasActionForEvent: p14648 tp14649 a(g6 V tp14650 a(g100 VanEventSelector p14651 tp14652 a(g6 V\u000a p14653 tp14654 a(g24 V"Answer true if there is an action associated with anEventSelector" p14655 tp14656 a(g6 V\u000a\u000a p14657 tp14658 a(g353 V^ tp14659 a(g6 V( tp14660 a(g87 Vself p14661 tp14662 a(g6 V tp14663 a(g48 VactionForEvent: p14664 tp14665 a(g6 V tp14666 a(g100 VanEventSelector p14667 tp14668 a(g6 V) tp14669 a(g6 V tp14670 a(g48 VnotNil p14671 tp14672 a(g138 V! ! p14673 tp14674 a(g6 V\u000a\u000a p14675 tp14676 a(g138 V! tp14677 a(g133 VObject p14678 tp14679 a(g138 V methodsFor: p14680 tp14681 a(g236 V'events-accessing' p14682 tp14683 a(g138 V stamp: 'reThink 2/18/2001 15:29'! p14684 tp14685 a(g6 V\u000a tp14686 a(g48 VsetActionSequence: p14687 tp14688 a(g6 V tp14689 a(g100 VactionSequence p14690 tp14691 a(g6 V\u000a tp14692 a(g48 VforEvent: p14693 tp14694 a(g6 V tp14695 a(g100 VanEventSelector p14696 tp14697 a(g6 V\u000a\u000a p14698 tp14699 a(g353 V| tp14700 a(g100 V action p14701 tp14702 a(g353 V| tp14703 a(g6 V\u000a p14704 tp14705 a(g100 Vaction p14706 tp14707 a(g6 V tp14708 a(g353 V:= p14709 tp14710 a(g6 V tp14711 a(g100 VactionSequence p14712 tp14713 a(g6 V tp14714 a(g48 VasMinimalRepresentation p14715 tp14716 a(g212 V. tp14717 a(g6 V\u000a p14718 tp14719 a(g100 Vaction p14720 tp14721 a(g6 V tp14722 a(g48 V== p14723 tp14724 a(g6 V tp14725 a(g87 Vnil p14726 tp14727 a(g6 V\u000a p14728 tp14729 a(g84 VifTrue: p14730 tp14731 a(g6 V\u000a p14732 tp14733 a(g6 V[ tp14734 a(g6 V tp14735 a(g87 Vself p14736 tp14737 a(g6 V tp14738 a(g48 VremoveActionsForEvent: p14739 tp14740 a(g6 V tp14741 a(g100 VanEventSelector p14742 tp14743 a(g6 V] tp14744 a(g6 V\u000a p14745 tp14746 a(g84 VifFalse: p14747 tp14748 a(g6 V\u000a p14749 tp14750 a(g6 V[ tp14751 a(g6 V tp14752 a(g87 Vself p14753 tp14754 a(g6 V tp14755 a(g48 VupdateableActionMap p14756 tp14757 a(g6 V\u000a p14758 tp14759 a(g48 Vat: p14760 tp14761 a(g6 V tp14762 a(g100 VanEventSelector p14763 tp14764 a(g6 V tp14765 a(g48 VasSymbol p14766 tp14767 a(g6 V\u000a p14768 tp14769 a(g48 Vput: p14770 tp14771 a(g6 V tp14772 a(g100 Vaction p14773 tp14774 a(g6 V] tp14775 a(g138 V! ! p14776 tp14777 a(g6 V\u000a\u000a p14778 tp14779 a(g138 V! tp14780 a(g133 VObject p14781 tp14782 a(g138 V methodsFor: p14783 tp14784 a(g236 V'events-accessing' p14785 tp14786 a(g138 V stamp: 'reThink 2/25/2001 08:50'! p14787 tp14788 a(g6 V\u000a tp14789 a(g48 VupdateableActionMap p14790 tp14791 a(g6 V\u000a tp14792 a(g6 V\u000a p14793 tp14794 a(g353 V^ tp14795 a(g133 VEventManager p14796 tp14797 a(g6 V tp14798 a(g48 VupdateableActionMapFor: p14799 tp14800 a(g6 V tp14801 a(g87 Vself p14802 tp14803 a(g138 V! ! p14804 tp14805 a(g6 V\u000a\u000a\u000a p14806 tp14807 a(g138 V! tp14808 a(g133 VObject p14809 tp14810 a(g138 V methodsFor: p14811 tp14812 a(g236 V'events-registering' p14813 tp14814 a(g138 V stamp: 'reThink 2/18/2001 15:04'! p14815 tp14816 a(g6 V\u000a tp14817 a(g48 Vwhen: p14818 tp14819 a(g6 V tp14820 a(g100 VanEventSelector p14821 tp14822 a(g6 V tp14823 a(g48 Vevaluate: p14824 tp14825 a(g6 V tp14826 a(g100 VanAction p14827 tp14828 a(g6 V \u000a\u000a p14829 tp14830 a(g353 V| tp14831 a(g100 V actions p14832 tp14833 a(g353 V| tp14834 a(g6 V\u000a p14835 tp14836 a(g100 Vactions p14837 tp14838 a(g6 V tp14839 a(g353 V:= p14840 tp14841 a(g6 V tp14842 a(g87 Vself p14843 tp14844 a(g6 V tp14845 a(g48 VactionSequenceForEvent: p14846 tp14847 a(g6 V tp14848 a(g100 VanEventSelector p14849 tp14850 a(g212 V. tp14851 a(g6 V\u000a p14852 tp14853 a(g6 V( tp14854 a(g100 Vactions p14855 tp14856 a(g6 V tp14857 a(g48 Vincludes: p14858 tp14859 a(g6 V tp14860 a(g100 VanAction p14861 tp14862 a(g6 V) tp14863 a(g6 V\u000a p14864 tp14865 a(g84 VifTrue: p14866 tp14867 a(g6 V tp14868 a(g6 V[ tp14869 a(g6 V tp14870 a(g353 V^ tp14871 a(g6 V tp14872 a(g87 Vself p14873 tp14874 a(g6 V] tp14875 a(g212 V. tp14876 a(g6 V\u000a p14877 tp14878 a(g87 Vself p14879 tp14880 a(g6 V \u000a p14881 tp14882 a(g48 VsetActionSequence: p14883 tp14884 a(g6 V tp14885 a(g6 V( tp14886 a(g100 Vactions p14887 tp14888 a(g6 V tp14889 a(g48 VcopyWith: p14890 tp14891 a(g6 V tp14892 a(g100 VanAction p14893 tp14894 a(g6 V) tp14895 a(g6 V\u000a p14896 tp14897 a(g48 VforEvent: p14898 tp14899 a(g6 V tp14900 a(g100 VanEventSelector p14901 tp14902 a(g138 V! ! p14903 tp14904 a(g6 V\u000a\u000a p14905 tp14906 a(g138 V! tp14907 a(g133 VObject p14908 tp14909 a(g138 V methodsFor: p14910 tp14911 a(g236 V'events-registering' p14912 tp14913 a(g138 V stamp: 'rww 12/30/2002 10:37'! p14914 tp14915 a(g6 V\u000a tp14916 a(g48 Vwhen: p14917 tp14918 a(g6 V tp14919 a(g100 VanEventSelector p14920 tp14921 a(g6 V\u000a tp14922 a(g48 Vsend: p14923 tp14924 a(g6 V tp14925 a(g100 VaMessageSelector p14926 tp14927 a(g6 V\u000a tp14928 a(g48 Vto: p14929 tp14930 a(g6 V tp14931 a(g100 VanObject p14932 tp14933 a(g6 V\u000a \u000a p14934 tp14935 a(g87 Vself p14936 tp14937 a(g6 V\u000a p14938 tp14939 a(g48 Vwhen: p14940 tp14941 a(g6 V tp14942 a(g100 VanEventSelector p14943 tp14944 a(g6 V\u000a p14945 tp14946 a(g48 Vevaluate: p14947 tp14948 a(g6 V tp14949 a(g6 V( tp14950 a(g133 VWeakMessageSend p14951 tp14952 a(g6 V\u000a p14953 tp14954 a(g48 Vreceiver: p14955 tp14956 a(g6 V tp14957 a(g100 VanObject p14958 tp14959 a(g6 V\u000a p14960 tp14961 a(g48 Vselector: p14962 tp14963 a(g6 V tp14964 a(g100 VaMessageSelector p14965 tp14966 a(g6 V) tp14967 a(g138 V! ! p14968 tp14969 a(g6 V\u000a\u000a p14970 tp14971 a(g138 V! tp14972 a(g133 VObject p14973 tp14974 a(g138 V methodsFor: p14975 tp14976 a(g236 V'events-registering' p14977 tp14978 a(g138 V stamp: 'rww 12/30/2002 10:37'! p14979 tp14980 a(g6 V\u000a tp14981 a(g48 Vwhen: p14982 tp14983 a(g6 V tp14984 a(g100 VanEventSelector p14985 tp14986 a(g6 V\u000a tp14987 a(g48 Vsend: p14988 tp14989 a(g6 V tp14990 a(g100 VaMessageSelector p14991 tp14992 a(g6 V\u000a tp14993 a(g48 Vto: p14994 tp14995 a(g6 V tp14996 a(g100 VanObject p14997 tp14998 a(g6 V\u000a tp14999 a(g48 VwithArguments: p15000 tp15001 a(g6 V tp15002 a(g100 VanArgArray p15003 tp15004 a(g6 V\u000a \u000a p15005 tp15006 a(g87 Vself p15007 tp15008 a(g6 V\u000a p15009 tp15010 a(g48 Vwhen: p15011 tp15012 a(g6 V tp15013 a(g100 VanEventSelector p15014 tp15015 a(g6 V\u000a p15016 tp15017 a(g48 Vevaluate: p15018 tp15019 a(g6 V tp15020 a(g6 V( tp15021 a(g133 VWeakMessageSend p15022 tp15023 a(g6 V\u000a p15024 tp15025 a(g48 Vreceiver: p15026 tp15027 a(g6 V tp15028 a(g100 VanObject p15029 tp15030 a(g6 V\u000a p15031 tp15032 a(g48 Vselector: p15033 tp15034 a(g6 V tp15035 a(g100 VaMessageSelector p15036 tp15037 a(g6 V\u000a p15038 tp15039 a(g48 Varguments: p15040 tp15041 a(g6 V tp15042 a(g100 VanArgArray p15043 tp15044 a(g6 V) tp15045 a(g138 V! ! p15046 tp15047 a(g6 V\u000a\u000a p15048 tp15049 a(g138 V! tp15050 a(g133 VObject p15051 tp15052 a(g138 V methodsFor: p15053 tp15054 a(g236 V'events-registering' p15055 tp15056 a(g138 V stamp: 'rww 12/30/2002 10:37'! p15057 tp15058 a(g6 V\u000a tp15059 a(g48 Vwhen: p15060 tp15061 a(g6 V tp15062 a(g100 VanEventSelector p15063 tp15064 a(g6 V\u000a tp15065 a(g48 Vsend: p15066 tp15067 a(g6 V tp15068 a(g100 VaMessageSelector p15069 tp15070 a(g6 V\u000a tp15071 a(g48 Vto: p15072 tp15073 a(g6 V tp15074 a(g100 VanObject p15075 tp15076 a(g6 V\u000a tp15077 a(g48 Vwith: p15078 tp15079 a(g6 V tp15080 a(g100 VanArg p15081 tp15082 a(g6 V\u000a \u000a p15083 tp15084 a(g87 Vself p15085 tp15086 a(g6 V\u000a p15087 tp15088 a(g48 Vwhen: p15089 tp15090 a(g6 V tp15091 a(g100 VanEventSelector p15092 tp15093 a(g6 V\u000a p15094 tp15095 a(g48 Vevaluate: p15096 tp15097 a(g6 V tp15098 a(g6 V( tp15099 a(g133 VWeakMessageSend p15100 tp15101 a(g6 V\u000a p15102 tp15103 a(g48 Vreceiver: p15104 tp15105 a(g6 V tp15106 a(g100 VanObject p15107 tp15108 a(g6 V\u000a p15109 tp15110 a(g48 Vselector: p15111 tp15112 a(g6 V tp15113 a(g100 VaMessageSelector p15114 tp15115 a(g6 V\u000a p15116 tp15117 a(g48 Varguments: p15118 tp15119 a(g6 V tp15120 a(g6 V( tp15121 a(g133 VArray p15122 tp15123 a(g6 V tp15124 a(g48 Vwith: p15125 tp15126 a(g6 V tp15127 a(g100 VanArg p15128 tp15129 a(g6 V) tp15130 a(g6 V) tp15131 a(g138 V! ! p15132 tp15133 a(g6 V\u000a\u000a\u000a p15134 tp15135 a(g138 V! tp15136 a(g133 VObject p15137 tp15138 a(g138 V methodsFor: p15139 tp15140 a(g236 V'events-removing' p15141 tp15142 a(g138 V stamp: 'reThink 2/18/2001 15:33'! p15143 tp15144 a(g6 V\u000a tp15145 a(g48 VreleaseActionMap p15146 tp15147 a(g6 V\u000a tp15148 a(g6 V\u000a p15149 tp15150 a(g133 VEventManager p15151 tp15152 a(g6 V tp15153 a(g48 VreleaseActionMapFor: p15154 tp15155 a(g6 V tp15156 a(g87 Vself p15157 tp15158 a(g138 V! ! p15159 tp15160 a(g6 V\u000a\u000a p15161 tp15162 a(g138 V! tp15163 a(g133 VObject p15164 tp15165 a(g138 V methodsFor: p15166 tp15167 a(g236 V'events-removing' p15168 tp15169 a(g138 V stamp: 'reThink 2/18/2001 15:33'! p15170 tp15171 a(g6 V\u000a tp15172 a(g48 VremoveActionsForEvent: p15173 tp15174 a(g6 V tp15175 a(g100 VanEventSelector p15176 tp15177 a(g6 V\u000a\u000a p15178 tp15179 a(g353 V| tp15180 a(g100 V map p15181 tp15182 a(g353 V| tp15183 a(g6 V\u000a p15184 tp15185 a(g100 Vmap p15186 tp15187 a(g6 V tp15188 a(g353 V:= p15189 tp15190 a(g6 V tp15191 a(g87 Vself p15192 tp15193 a(g6 V tp15194 a(g48 VactionMap p15195 tp15196 a(g212 V. tp15197 a(g6 V\u000a p15198 tp15199 a(g100 Vmap p15200 tp15201 a(g6 V tp15202 a(g48 VremoveKey: p15203 tp15204 a(g6 V tp15205 a(g100 VanEventSelector p15206 tp15207 a(g6 V tp15208 a(g48 VasSymbol p15209 tp15210 a(g6 V tp15211 a(g48 VifAbsent: p15212 tp15213 a(g6 V tp15214 a(g6 V[ tp15215 a(g6 V tp15216 a(g6 V] tp15217 a(g212 V. tp15218 a(g6 V\u000a p15219 tp15220 a(g100 Vmap p15221 tp15222 a(g6 V tp15223 a(g48 VisEmpty p15224 tp15225 a(g6 V\u000a p15226 tp15227 a(g84 VifTrue: p15228 tp15229 a(g6 V tp15230 a(g6 V[ tp15231 a(g6 V tp15232 a(g87 Vself p15233 tp15234 a(g6 V tp15235 a(g48 VreleaseActionMap p15236 tp15237 a(g6 V] tp15238 a(g138 V! ! p15239 tp15240 a(g6 V\u000a\u000a p15241 tp15242 a(g138 V! tp15243 a(g133 VObject p15244 tp15245 a(g138 V methodsFor: p15246 tp15247 a(g236 V'events-removing' p15248 tp15249 a(g138 V stamp: 'nk 8/25/2003 21:46'! p15250 tp15251 a(g6 V\u000a tp15252 a(g48 VremoveActionsSatisfying: p15253 tp15254 a(g6 V tp15255 a(g100 VaBlock p15256 tp15257 a(g6 V\u000a\u000a p15258 tp15259 a(g87 Vself p15260 tp15261 a(g6 V tp15262 a(g48 VactionMap p15263 tp15264 a(g6 V tp15265 a(g48 Vkeys p15266 tp15267 a(g6 V tp15268 a(g48 Vdo: p15269 tp15270 a(g6 V\u000a p15271 tp15272 a(g6 V[ tp15273 a(g353 V: tp15274 a(g100 VeachEventSelector p15275 tp15276 a(g6 V tp15277 a(g353 V| tp15278 a(g6 V\u000a p15279 tp15280 a(g87 Vself p15281 tp15282 a(g6 V\u000a p15283 tp15284 a(g48 VremoveActionsSatisfying: p15285 tp15286 a(g6 V tp15287 a(g100 VaBlock p15288 tp15289 a(g6 V\u000a p15290 tp15291 a(g48 VforEvent: p15292 tp15293 a(g6 V tp15294 a(g100 VeachEventSelector p15295 tp15296 a(g6 V\u000a p15297 tp15298 a(g6 V] tp15299 a(g138 V! ! p15300 tp15301 a(g6 V\u000a\u000a p15302 tp15303 a(g138 V! tp15304 a(g133 VObject p15305 tp15306 a(g138 V methodsFor: p15307 tp15308 a(g236 V'events-removing' p15309 tp15310 a(g138 V stamp: 'reThink 2/18/2001 15:31'! p15311 tp15312 a(g6 V\u000a tp15313 a(g48 VremoveActionsSatisfying: p15314 tp15315 a(g6 V tp15316 a(g100 VaOneArgBlock p15317 tp15318 a(g6 V \u000a p15319 tp15320 a(g48 VforEvent: p15321 tp15322 a(g6 V tp15323 a(g100 VanEventSelector p15324 tp15325 a(g6 V\u000a\u000a p15326 tp15327 a(g87 Vself p15328 tp15329 a(g6 V\u000a p15330 tp15331 a(g48 VsetActionSequence: p15332 tp15333 a(g6 V\u000a p15334 tp15335 a(g6 V( tp15336 a(g6 V( tp15337 a(g87 Vself p15338 tp15339 a(g6 V tp15340 a(g48 VactionSequenceForEvent: p15341 tp15342 a(g6 V tp15343 a(g100 VanEventSelector p15344 tp15345 a(g6 V) tp15346 a(g6 V\u000a p15347 tp15348 a(g48 Vreject: p15349 tp15350 a(g6 V tp15351 a(g6 V[ tp15352 a(g353 V: tp15353 a(g100 VanAction p15354 tp15355 a(g6 V tp15356 a(g353 V| tp15357 a(g6 V tp15358 a(g100 VaOneArgBlock p15359 tp15360 a(g6 V tp15361 a(g48 Vvalue: p15362 tp15363 a(g6 V tp15364 a(g100 VanAction p15365 tp15366 a(g6 V] tp15367 a(g6 V) tp15368 a(g6 V\u000a p15369 tp15370 a(g48 VforEvent: p15371 tp15372 a(g6 V tp15373 a(g100 VanEventSelector p15374 tp15375 a(g138 V! ! p15376 tp15377 a(g6 V\u000a\u000a p15378 tp15379 a(g138 V! tp15380 a(g133 VObject p15381 tp15382 a(g138 V methodsFor: p15383 tp15384 a(g236 V'events-removing' p15385 tp15386 a(g138 V stamp: 'rw 7/29/2003 17:18'! p15387 tp15388 a(g6 V\u000a tp15389 a(g48 VremoveActionsWithReceiver: p15390 tp15391 a(g6 V tp15392 a(g100 VanObject p15393 tp15394 a(g6 V\u000a\u000a p15395 tp15396 a(g87 Vself p15397 tp15398 a(g6 V tp15399 a(g48 VactionMap p15400 tp15401 a(g6 V tp15402 a(g48 Vcopy p15403 tp15404 a(g6 V tp15405 a(g48 VkeysDo: p15406 tp15407 a(g6 V\u000a p15408 tp15409 a(g6 V[ tp15410 a(g353 V: tp15411 a(g100 VeachEventSelector p15412 tp15413 a(g6 V tp15414 a(g353 V| tp15415 a(g6 V\u000a p15416 tp15417 a(g87 Vself p15418 tp15419 a(g6 V\u000a p15420 tp15421 a(g48 VremoveActionsSatisfying: p15422 tp15423 a(g6 V tp15424 a(g6 V[ tp15425 a(g353 V: tp15426 a(g100 VanAction p15427 tp15428 a(g6 V tp15429 a(g353 V| tp15430 a(g6 V tp15431 a(g100 VanAction p15432 tp15433 a(g6 V tp15434 a(g48 Vreceiver p15435 tp15436 a(g6 V tp15437 a(g48 V== p15438 tp15439 a(g6 V tp15440 a(g100 VanObject p15441 tp15442 a(g6 V] tp15443 a(g6 V\u000a p15444 tp15445 a(g48 VforEvent: p15446 tp15447 a(g6 V tp15448 a(g100 VeachEventSelector p15449 tp15450 a(g6 V\u000a p15451 tp15452 a(g6 V] tp15453 a(g138 V! ! p15454 tp15455 a(g6 V\u000a\u000a p15456 tp15457 a(g138 V! tp15458 a(g133 VObject p15459 tp15460 a(g138 V methodsFor: p15461 tp15462 a(g236 V'events-removing' p15463 tp15464 a(g138 V stamp: 'reThink 2/18/2001 15:36'! p15465 tp15466 a(g6 V\u000a tp15467 a(g48 VremoveActionsWithReceiver: p15468 tp15469 a(g6 V tp15470 a(g100 VanObject p15471 tp15472 a(g6 V\u000a tp15473 a(g48 VforEvent: p15474 tp15475 a(g6 V tp15476 a(g100 VanEventSelector p15477 tp15478 a(g6 V\u000a\u000a p15479 tp15480 a(g87 Vself p15481 tp15482 a(g6 V\u000a p15483 tp15484 a(g48 VremoveActionsSatisfying: p15485 tp15486 a(g6 V\u000a p15487 tp15488 a(g6 V[ tp15489 a(g353 V: tp15490 a(g100 VanAction p15491 tp15492 a(g6 V tp15493 a(g353 V| tp15494 a(g6 V\u000a p15495 tp15496 a(g100 VanAction p15497 tp15498 a(g6 V tp15499 a(g48 Vreceiver p15500 tp15501 a(g6 V tp15502 a(g48 V== p15503 tp15504 a(g6 V tp15505 a(g100 VanObject p15506 tp15507 a(g6 V] tp15508 a(g6 V\u000a p15509 tp15510 a(g48 VforEvent: p15511 tp15512 a(g6 V tp15513 a(g100 VanEventSelector p15514 tp15515 a(g138 V! ! p15516 tp15517 a(g6 V\u000a\u000a p15518 tp15519 a(g138 V! tp15520 a(g133 VObject p15521 tp15522 a(g138 V methodsFor: p15523 tp15524 a(g236 V'events-removing' p15525 tp15526 a(g138 V stamp: 'reThink 2/18/2001 15:31'! p15527 tp15528 a(g6 V\u000a tp15529 a(g48 VremoveAction: p15530 tp15531 a(g6 V tp15532 a(g100 VanAction p15533 tp15534 a(g6 V\u000a tp15535 a(g48 VforEvent: p15536 tp15537 a(g6 V tp15538 a(g100 VanEventSelector p15539 tp15540 a(g6 V\u000a\u000a p15541 tp15542 a(g87 Vself p15543 tp15544 a(g6 V\u000a p15545 tp15546 a(g48 VremoveActionsSatisfying: p15547 tp15548 a(g6 V tp15549 a(g6 V[ tp15550 a(g353 V: tp15551 a(g100 Vaction p15552 tp15553 a(g6 V tp15554 a(g353 V| tp15555 a(g6 V tp15556 a(g100 Vaction p15557 tp15558 a(g6 V tp15559 a(g48 V= tp15560 a(g6 V tp15561 a(g100 VanAction p15562 tp15563 a(g6 V] tp15564 a(g6 V\u000a p15565 tp15566 a(g48 VforEvent: p15567 tp15568 a(g6 V tp15569 a(g100 VanEventSelector p15570 tp15571 a(g138 V! ! p15572 tp15573 a(g6 V\u000a\u000a\u000a p15574 tp15575 a(g138 V! tp15576 a(g133 VObject p15577 tp15578 a(g138 V methodsFor: p15579 tp15580 a(g236 V'events-triggering' p15581 tp15582 a(g138 V stamp: 'reThink 2/18/2001 15:22'! p15583 tp15584 a(g6 V\u000a tp15585 a(g48 VtriggerEvent: p15586 tp15587 a(g6 V tp15588 a(g100 VanEventSelector p15589 tp15590 a(g6 V\u000a p15591 tp15592 a(g24 V"Evaluate all actions registered for . Return the value of the last registered action." p15593 tp15594 a(g6 V\u000a\u000a p15595 tp15596 a(g353 V^ tp15597 a(g6 V( tp15598 a(g87 Vself p15599 tp15600 a(g6 V tp15601 a(g48 VactionForEvent: p15602 tp15603 a(g6 V tp15604 a(g100 VanEventSelector p15605 tp15606 a(g6 V) tp15607 a(g6 V tp15608 a(g48 Vvalue p15609 tp15610 a(g138 V! ! p15611 tp15612 a(g6 V\u000a\u000a p15613 tp15614 a(g138 V! tp15615 a(g133 VObject p15616 tp15617 a(g138 V methodsFor: p15618 tp15619 a(g236 V'events-triggering' p15620 tp15621 a(g138 V stamp: 'reThink 2/18/2001 17:09'! p15622 tp15623 a(g6 V\u000a tp15624 a(g48 VtriggerEvent: p15625 tp15626 a(g6 V tp15627 a(g100 VanEventSelector p15628 tp15629 a(g6 V\u000a tp15630 a(g48 VifNotHandled: p15631 tp15632 a(g6 V tp15633 a(g100 VanExceptionBlock p15634 tp15635 a(g6 V\u000a p15636 tp15637 a(g24 V"Evaluate all actions registered for . Return the value of the last registered action." p15638 tp15639 a(g6 V\u000a\u000a p15640 tp15641 a(g353 V^ tp15642 a(g6 V( tp15643 a(g87 Vself p15644 tp15645 a(g6 V \u000a p15646 tp15647 a(g48 VactionForEvent: p15648 tp15649 a(g6 V tp15650 a(g100 VanEventSelector p15651 tp15652 a(g6 V\u000a p15653 tp15654 a(g48 VifAbsent: p15655 tp15656 a(g6 V tp15657 a(g6 V[ tp15658 a(g6 V tp15659 a(g353 V^ tp15660 a(g100 VanExceptionBlock p15661 tp15662 a(g6 V tp15663 a(g48 Vvalue p15664 tp15665 a(g6 V] tp15666 a(g6 V) tp15667 a(g6 V tp15668 a(g48 Vvalue p15669 tp15670 a(g6 V\u000a tp15671 a(g138 V! ! p15672 tp15673 a(g6 V\u000a\u000a p15674 tp15675 a(g138 V! tp15676 a(g133 VObject p15677 tp15678 a(g138 V methodsFor: p15679 tp15680 a(g236 V'events-triggering' p15681 tp15682 a(g138 V stamp: 'reThink 2/18/2001 15:21'! p15683 tp15684 a(g6 V\u000a tp15685 a(g48 VtriggerEvent: p15686 tp15687 a(g6 V tp15688 a(g100 VanEventSelector p15689 tp15690 a(g6 V\u000a tp15691 a(g48 VwithArguments: p15692 tp15693 a(g6 V tp15694 a(g100 VanArgumentList p15695 tp15696 a(g6 V\u000a\u000a p15697 tp15698 a(g353 V^ tp15699 a(g6 V( tp15700 a(g87 Vself p15701 tp15702 a(g6 V tp15703 a(g48 VactionForEvent: p15704 tp15705 a(g6 V tp15706 a(g100 VanEventSelector p15707 tp15708 a(g6 V) tp15709 a(g6 V\u000a p15710 tp15711 a(g48 VvalueWithArguments: p15712 tp15713 a(g6 V tp15714 a(g100 VanArgumentList p15715 tp15716 a(g138 V! ! p15717 tp15718 a(g6 V\u000a\u000a p15719 tp15720 a(g138 V! tp15721 a(g133 VObject p15722 tp15723 a(g138 V methodsFor: p15724 tp15725 a(g236 V'events-triggering' p15726 tp15727 a(g138 V stamp: 'reThink 2/18/2001 15:21'! p15728 tp15729 a(g6 V\u000a tp15730 a(g48 VtriggerEvent: p15731 tp15732 a(g6 V tp15733 a(g100 VanEventSelector p15734 tp15735 a(g6 V\u000a tp15736 a(g48 VwithArguments: p15737 tp15738 a(g6 V tp15739 a(g100 VanArgumentList p15740 tp15741 a(g6 V\u000a tp15742 a(g48 VifNotHandled: p15743 tp15744 a(g6 V tp15745 a(g100 VanExceptionBlock p15746 tp15747 a(g6 V\u000a\u000a p15748 tp15749 a(g353 V^ tp15750 a(g6 V( tp15751 a(g87 Vself p15752 tp15753 a(g6 V \u000a p15754 tp15755 a(g48 VactionForEvent: p15756 tp15757 a(g6 V tp15758 a(g100 VanEventSelector p15759 tp15760 a(g6 V\u000a p15761 tp15762 a(g48 VifAbsent: p15763 tp15764 a(g6 V tp15765 a(g6 V[ tp15766 a(g6 V tp15767 a(g353 V^ tp15768 a(g100 VanExceptionBlock p15769 tp15770 a(g6 V tp15771 a(g48 Vvalue p15772 tp15773 a(g6 V] tp15774 a(g6 V) tp15775 a(g6 V\u000a p15776 tp15777 a(g48 VvalueWithArguments: p15778 tp15779 a(g6 V tp15780 a(g100 VanArgumentList p15781 tp15782 a(g138 V! ! p15783 tp15784 a(g6 V\u000a\u000a p15785 tp15786 a(g138 V! tp15787 a(g133 VObject p15788 tp15789 a(g138 V methodsFor: p15790 tp15791 a(g236 V'events-triggering' p15792 tp15793 a(g138 V stamp: 'reThink 2/18/2001 14:59'! p15794 tp15795 a(g6 V\u000a tp15796 a(g48 VtriggerEvent: p15797 tp15798 a(g6 V tp15799 a(g100 VanEventSelector p15800 tp15801 a(g6 V\u000a tp15802 a(g48 Vwith: p15803 tp15804 a(g6 V tp15805 a(g100 VanObject p15806 tp15807 a(g6 V\u000a\u000a p15808 tp15809 a(g353 V^ tp15810 a(g87 Vself p15811 tp15812 a(g6 V \u000a p15813 tp15814 a(g48 VtriggerEvent: p15815 tp15816 a(g6 V tp15817 a(g100 VanEventSelector p15818 tp15819 a(g6 V\u000a p15820 tp15821 a(g48 VwithArguments: p15822 tp15823 a(g6 V tp15824 a(g6 V( tp15825 a(g133 VArray p15826 tp15827 a(g6 V tp15828 a(g48 Vwith: p15829 tp15830 a(g6 V tp15831 a(g100 VanObject p15832 tp15833 a(g6 V) tp15834 a(g138 V! ! p15835 tp15836 a(g6 V\u000a\u000a p15837 tp15838 a(g138 V! tp15839 a(g133 VObject p15840 tp15841 a(g138 V methodsFor: p15842 tp15843 a(g236 V'events-triggering' p15844 tp15845 a(g138 V stamp: 'reThink 2/18/2001 14:59'! p15846 tp15847 a(g6 V\u000a tp15848 a(g48 VtriggerEvent: p15849 tp15850 a(g6 V tp15851 a(g100 VanEventSelector p15852 tp15853 a(g6 V\u000a tp15854 a(g48 Vwith: p15855 tp15856 a(g6 V tp15857 a(g100 VanObject p15858 tp15859 a(g6 V\u000a tp15860 a(g48 VifNotHandled: p15861 tp15862 a(g6 V tp15863 a(g100 VanExceptionBlock p15864 tp15865 a(g6 V\u000a\u000a p15866 tp15867 a(g353 V^ tp15868 a(g87 Vself p15869 tp15870 a(g6 V \u000a p15871 tp15872 a(g48 VtriggerEvent: p15873 tp15874 a(g6 V tp15875 a(g100 VanEventSelector p15876 tp15877 a(g6 V\u000a p15878 tp15879 a(g48 VwithArguments: p15880 tp15881 a(g6 V tp15882 a(g6 V( tp15883 a(g133 VArray p15884 tp15885 a(g6 V tp15886 a(g48 Vwith: p15887 tp15888 a(g6 V tp15889 a(g100 VanObject p15890 tp15891 a(g6 V) tp15892 a(g6 V\u000a p15893 tp15894 a(g48 VifNotHandled: p15895 tp15896 a(g6 V tp15897 a(g100 VanExceptionBlock p15898 tp15899 a(g138 V! ! p15900 tp15901 a(g6 V\u000a\u000a\u000a p15902 tp15903 a(g138 V! tp15904 a(g133 VObject p15905 tp15906 a(g138 V methodsFor: p15907 tp15908 a(g236 V'filter streaming' p15909 tp15910 a(g138 V stamp: 'MPW 1/1/1901 00:42'! p15911 tp15912 a(g6 V\u000a tp15913 a(g48 VbyteEncode: p15914 tp15915 a(g100 VaStream p15916 tp15917 a(g6 V\u000a p15918 tp15919 a(g87 Vself p15920 tp15921 a(g6 V tp15922 a(g48 VflattenOnStream: p15923 tp15924 a(g100 VaStream p15925 tp15926 a(g212 V. tp15927 a(g6 V\u000a tp15928 a(g138 V! ! p15929 tp15930 a(g6 V\u000a\u000a p15931 tp15932 a(g138 V! tp15933 a(g133 VObject p15934 tp15935 a(g138 V methodsFor: p15936 tp15937 a(g236 V'filter streaming' p15938 tp15939 a(g138 V! tp15940 a(g6 V\u000a tp15941 a(g48 VdrawOnCanvas: p15942 tp15943 a(g100 VaStream p15944 tp15945 a(g6 V\u000a p15946 tp15947 a(g87 Vself p15948 tp15949 a(g6 V tp15950 a(g48 VflattenOnStream: p15951 tp15952 a(g100 VaStream p15953 tp15954 a(g212 V. tp15955 a(g6 V\u000a tp15956 a(g138 V! ! p15957 tp15958 a(g6 V\u000a\u000a p15959 tp15960 a(g138 V! tp15961 a(g133 VObject p15962 tp15963 a(g138 V methodsFor: p15964 tp15965 a(g236 V'filter streaming' p15966 tp15967 a(g138 V stamp: 'MPW 1/1/1901 01:31'! p15968 tp15969 a(g6 V\u000a tp15970 a(g48 VelementSeparator p15971 tp15972 a(g6 V\u000a p15973 tp15974 a(g353 V^ tp15975 a(g87 Vnil p15976 tp15977 a(g212 V. tp15978 a(g138 V! ! p15979 tp15980 a(g6 V\u000a\u000a p15981 tp15982 a(g138 V! tp15983 a(g133 VObject p15984 tp15985 a(g138 V methodsFor: p15986 tp15987 a(g236 V'filter streaming' p15988 tp15989 a(g138 V! tp15990 a(g6 V\u000a tp15991 a(g48 VencodePostscriptOn: p15992 tp15993 a(g100 VaStream p15994 tp15995 a(g6 V\u000a p15996 tp15997 a(g87 Vself p15998 tp15999 a(g6 V tp16000 a(g48 VbyteEncode: p16001 tp16002 a(g100 VaStream p16003 tp16004 a(g212 V. tp16005 a(g6 V\u000a tp16006 a(g138 V! ! p16007 tp16008 a(g6 V\u000a\u000a p16009 tp16010 a(g138 V! tp16011 a(g133 VObject p16012 tp16013 a(g138 V methodsFor: p16014 tp16015 a(g236 V'filter streaming' p16016 tp16017 a(g138 V stamp: 'MPW 1/1/1901 00:07'! p16018 tp16019 a(g6 V\u000a tp16020 a(g48 VflattenOnStream: p16021 tp16022 a(g100 VaStream p16023 tp16024 a(g6 V\u000a p16025 tp16026 a(g87 Vself p16027 tp16028 a(g6 V tp16029 a(g48 VwriteOnFilterStream: p16030 tp16031 a(g100 VaStream p16032 tp16033 a(g212 V. tp16034 a(g6 V\u000a tp16035 a(g138 V! ! p16036 tp16037 a(g6 V\u000a\u000a p16038 tp16039 a(g138 V! tp16040 a(g133 VObject p16041 tp16042 a(g138 V methodsFor: p16043 tp16044 a(g236 V'filter streaming' p16045 tp16046 a(g138 V stamp: 'mpw 6/22/1930 22:56'! p16047 tp16048 a(g6 V\u000a tp16049 a(g48 VfullDrawPostscriptOn: p16050 tp16051 a(g100 VaStream p16052 tp16053 a(g6 V\u000a p16054 tp16055 a(g353 V^ tp16056 a(g100 VaStream p16057 tp16058 a(g6 V tp16059 a(g48 VfullDraw: p16060 tp16061 a(g87 Vself p16062 tp16063 a(g212 V. tp16064 a(g6 V\u000a tp16065 a(g138 V! ! p16066 tp16067 a(g6 V\u000a\u000a p16068 tp16069 a(g138 V! tp16070 a(g133 VObject p16071 tp16072 a(g138 V methodsFor: p16073 tp16074 a(g236 V'filter streaming' p16075 tp16076 a(g138 V stamp: 'MPW 1/1/1901 01:51'! p16077 tp16078 a(g6 V\u000a tp16079 a(g48 VprintOnStream: p16080 tp16081 a(g100 VaStream p16082 tp16083 a(g6 V\u000a p16084 tp16085 a(g87 Vself p16086 tp16087 a(g6 V tp16088 a(g48 VbyteEncode: p16089 tp16090 a(g100 VaStream p16091 tp16092 a(g212 V. tp16093 a(g6 V\u000a tp16094 a(g138 V! ! p16095 tp16096 a(g6 V\u000a\u000a p16097 tp16098 a(g138 V! tp16099 a(g133 VObject p16100 tp16101 a(g138 V methodsFor: p16102 tp16103 a(g236 V'filter streaming' p16104 tp16105 a(g138 V stamp: 'MPW 1/1/1901 00:49'! p16106 tp16107 a(g6 V\u000a tp16108 a(g48 VputOn: p16109 tp16110 a(g100 VaStream p16111 tp16112 a(g6 V\u000a p16113 tp16114 a(g353 V^ tp16115 a(g100 VaStream p16116 tp16117 a(g6 V tp16118 a(g48 VnextPut: p16119 tp16120 a(g87 Vself p16121 tp16122 a(g212 V. tp16123 a(g6 V\u000a tp16124 a(g138 V! ! p16125 tp16126 a(g6 V\u000a\u000a p16127 tp16128 a(g138 V! tp16129 a(g133 VObject p16130 tp16131 a(g138 V methodsFor: p16132 tp16133 a(g236 V'filter streaming' p16134 tp16135 a(g138 V stamp: 'MPW 1/1/1901 01:53'! p16136 tp16137 a(g6 V\u000a tp16138 a(g48 VstoreOnStream: p16139 tp16140 a(g100 VaStream p16141 tp16142 a(g6 V\u000a p16143 tp16144 a(g87 Vself p16145 tp16146 a(g6 V tp16147 a(g48 VprintOnStream: p16148 tp16149 a(g100 VaStream p16150 tp16151 a(g212 V. tp16152 a(g6 V\u000a tp16153 a(g138 V! ! p16154 tp16155 a(g6 V\u000a\u000a p16156 tp16157 a(g138 V! tp16158 a(g133 VObject p16159 tp16160 a(g138 V methodsFor: p16161 tp16162 a(g236 V'filter streaming' p16163 tp16164 a(g138 V stamp: 'MPW 1/1/1901 00:06'! p16165 tp16166 a(g6 V\u000a tp16167 a(g48 VwriteOnFilterStream: p16168 tp16169 a(g100 VaStream p16170 tp16171 a(g6 V\u000a p16172 tp16173 a(g100 VaStream p16174 tp16175 a(g6 V tp16176 a(g48 VwriteObject: p16177 tp16178 a(g87 Vself p16179 tp16180 a(g212 V. tp16181 a(g6 V\u000a tp16182 a(g138 V! ! p16183 tp16184 a(g6 V\u000a\u000a\u000a p16185 tp16186 a(g138 V! tp16187 a(g133 VObject p16188 tp16189 a(g138 V methodsFor: p16190 tp16191 a(g236 V'finalization' p16192 tp16193 a(g138 V stamp: 'ar 3/21/98 16:26'! p16194 tp16195 a(g6 V\u000a tp16196 a(g48 VactAsExecutor p16197 tp16198 a(g6 V\u000a p16199 tp16200 a(g24 V"Prepare the receiver to act as executor for any resources associated with it" p16201 tp16202 a(g6 V\u000a p16203 tp16204 a(g87 Vself p16205 tp16206 a(g6 V tp16207 a(g48 VbreakDependents p16208 tp16209 a(g138 V! ! p16210 tp16211 a(g6 V\u000a\u000a p16212 tp16213 a(g138 V! tp16214 a(g133 VObject p16215 tp16216 a(g138 V methodsFor: p16217 tp16218 a(g236 V'finalization' p16219 tp16220 a(g138 V stamp: 'ar 3/20/98 22:19'! p16221 tp16222 a(g6 V\u000a tp16223 a(g48 Vexecutor p16224 tp16225 a(g6 V\u000a p16226 tp16227 a(g24 V"Return an object which can act as executor for finalization of the receiver" p16228 tp16229 a(g6 V\u000a p16230 tp16231 a(g353 V^ tp16232 a(g87 Vself p16233 tp16234 a(g6 V tp16235 a(g48 VshallowCopy p16236 tp16237 a(g6 V tp16238 a(g48 VactAsExecutor p16239 tp16240 a(g138 V! ! p16241 tp16242 a(g6 V\u000a\u000a p16243 tp16244 a(g138 V! tp16245 a(g133 VObject p16246 tp16247 a(g138 V methodsFor: p16248 tp16249 a(g236 V'finalization' p16250 tp16251 a(g138 V stamp: 'ar 5/19/2003 20:10'! p16252 tp16253 a(g6 V\u000a tp16254 a(g48 VfinalizationRegistry p16255 tp16256 a(g6 V\u000a p16257 tp16258 a(g24 V"Answer the finalization registry associated with the receiver." p16259 tp16260 a(g6 V\u000a p16261 tp16262 a(g353 V^ tp16263 a(g133 VWeakRegistry p16264 tp16265 a(g6 V tp16266 a(g48 Vdefault p16267 tp16268 a(g138 V! ! p16269 tp16270 a(g6 V\u000a\u000a p16271 tp16272 a(g138 V! tp16273 a(g133 VObject p16274 tp16275 a(g138 V methodsFor: p16276 tp16277 a(g236 V'finalization' p16278 tp16279 a(g138 V stamp: 'ar 3/21/98 16:27'! p16280 tp16281 a(g6 V\u000a tp16282 a(g48 Vfinalize p16283 tp16284 a(g6 V\u000a p16285 tp16286 a(g24 V"Finalize the resource associated with the receiver. This message should only be sent during the finalization process. There is NO garantuee that the resource associated with the receiver hasn't been free'd before so take care that you don't run into trouble - this all may happen with interrupt priority." p16287 tp16288 a(g138 V! ! p16289 tp16290 a(g6 V\u000a\u000a p16291 tp16292 a(g138 V! tp16293 a(g133 VObject p16294 tp16295 a(g138 V methodsFor: p16296 tp16297 a(g236 V'finalization' p16298 tp16299 a(g138 V stamp: 'ar 3/21/98 18:38'! p16300 tp16301 a(g6 V\u000a tp16302 a(g48 VretryWithGC: p16303 tp16304 a(g6 V tp16305 a(g100 VexecBlock p16306 tp16307 a(g6 V tp16308 a(g48 Vuntil: p16309 tp16310 a(g6 V tp16311 a(g100 VtestBlock p16312 tp16313 a(g6 V\u000a p16314 tp16315 a(g24 V"Retry execBlock as long as testBlock returns false. Do an incremental GC after the first try, a full GC after the second try." p16316 tp16317 a(g6 V\u000a p16318 tp16319 a(g353 V| tp16320 a(g100 V blockValue p16321 tp16322 a(g353 V| tp16323 a(g6 V\u000a p16324 tp16325 a(g100 VblockValue p16326 tp16327 a(g6 V tp16328 a(g353 V:= p16329 tp16330 a(g6 V tp16331 a(g100 VexecBlock p16332 tp16333 a(g6 V tp16334 a(g48 Vvalue p16335 tp16336 a(g212 V. tp16337 a(g6 V\u000a p16338 tp16339 a(g6 V( tp16340 a(g100 VtestBlock p16341 tp16342 a(g6 V tp16343 a(g48 Vvalue: p16344 tp16345 a(g6 V tp16346 a(g100 VblockValue p16347 tp16348 a(g6 V) tp16349 a(g6 V tp16350 a(g84 VifTrue: p16351 tp16352 a(g6 V[ tp16353 a(g6 V tp16354 a(g353 V^ tp16355 a(g100 VblockValue p16356 tp16357 a(g6 V] tp16358 a(g212 V. tp16359 a(g6 V\u000a p16360 tp16361 a(g133 VSmalltalk p16362 tp16363 a(g6 V tp16364 a(g48 VgarbageCollectMost p16365 tp16366 a(g212 V. tp16367 a(g6 V\u000a p16368 tp16369 a(g100 VblockValue p16370 tp16371 a(g6 V tp16372 a(g353 V:= p16373 tp16374 a(g6 V tp16375 a(g100 VexecBlock p16376 tp16377 a(g6 V tp16378 a(g48 Vvalue p16379 tp16380 a(g212 V. tp16381 a(g6 V\u000a p16382 tp16383 a(g6 V( tp16384 a(g100 VtestBlock p16385 tp16386 a(g6 V tp16387 a(g48 Vvalue: p16388 tp16389 a(g6 V tp16390 a(g100 VblockValue p16391 tp16392 a(g6 V) tp16393 a(g6 V tp16394 a(g84 VifTrue: p16395 tp16396 a(g6 V[ tp16397 a(g6 V tp16398 a(g353 V^ tp16399 a(g100 VblockValue p16400 tp16401 a(g6 V] tp16402 a(g212 V. tp16403 a(g6 V\u000a p16404 tp16405 a(g133 VSmalltalk p16406 tp16407 a(g6 V tp16408 a(g48 VgarbageCollect p16409 tp16410 a(g212 V. tp16411 a(g6 V\u000a p16412 tp16413 a(g353 V^ tp16414 a(g100 VexecBlock p16415 tp16416 a(g6 V tp16417 a(g48 Vvalue p16418 tp16419 a(g212 V. tp16420 a(g138 V! ! p16421 tp16422 a(g6 V\u000a\u000a p16423 tp16424 a(g138 V! tp16425 a(g133 VObject p16426 tp16427 a(g138 V methodsFor: p16428 tp16429 a(g236 V'finalization' p16430 tp16431 a(g138 V stamp: 'ar 5/19/2003 20:14'! p16432 tp16433 a(g6 V\u000a tp16434 a(g48 VtoFinalizeSend: p16435 tp16436 a(g6 V tp16437 a(g100 VaSelector p16438 tp16439 a(g6 V tp16440 a(g48 Vto: p16441 tp16442 a(g6 V tp16443 a(g100 VaFinalizer p16444 tp16445 a(g6 V tp16446 a(g48 Vwith: p16447 tp16448 a(g6 V tp16449 a(g100 VaResourceHandle p16450 tp16451 a(g6 V\u000a p16452 tp16453 a(g24 V"When I am finalized (e.g., garbage collected) close the associated resource handle by sending aSelector to the appropriate finalizer (the guy who knows how to get rid of the resource).\u000a WARNING: Neither the finalizer nor the resource handle are allowed to reference me. If they do, then I will NEVER be garbage collected. Since this cannot be validated here, it is up to the client to make sure this invariant is not broken." p16454 tp16455 a(g6 V\u000a p16456 tp16457 a(g87 Vself p16458 tp16459 a(g6 V tp16460 a(g48 V== p16461 tp16462 a(g6 V tp16463 a(g100 VaFinalizer p16464 tp16465 a(g6 V tp16466 a(g84 VifTrue: p16467 tp16468 a(g6 V[ tp16469 a(g6 V tp16470 a(g87 Vself p16471 tp16472 a(g6 V tp16473 a(g48 Verror: p16474 tp16475 a(g6 V tp16476 a(g236 V'I cannot finalize myself' p16477 tp16478 a(g6 V] tp16479 a(g212 V. tp16480 a(g6 V\u000a p16481 tp16482 a(g87 Vself p16483 tp16484 a(g6 V tp16485 a(g48 V== p16486 tp16487 a(g6 V tp16488 a(g100 VaResourceHandle p16489 tp16490 a(g6 V tp16491 a(g84 VifTrue: p16492 tp16493 a(g6 V[ tp16494 a(g6 V tp16495 a(g87 Vself p16496 tp16497 a(g6 V tp16498 a(g48 Verror: p16499 tp16500 a(g6 V tp16501 a(g236 V'I cannot finalize myself' p16502 tp16503 a(g6 V] tp16504 a(g212 V. tp16505 a(g6 V\u000a p16506 tp16507 a(g353 V^ tp16508 a(g87 Vself p16509 tp16510 a(g6 V tp16511 a(g48 VfinalizationRegistry p16512 tp16513 a(g6 V tp16514 a(g48 Vadd: p16515 tp16516 a(g6 V tp16517 a(g87 Vself p16518 tp16519 a(g6 V tp16520 a(g48 Vexecutor: p16521 tp16522 a(g6 V\u000a p16523 tp16524 a(g6 V( tp16525 a(g133 VObjectFinalizer p16526 tp16527 a(g6 V tp16528 a(g84 Vnew p16529 tp16530 a(g6 V\u000a p16531 tp16532 a(g48 Vreceiver: p16533 tp16534 a(g6 V tp16535 a(g100 VaFinalizer p16536 tp16537 a(g6 V\u000a p16538 tp16539 a(g48 Vselector: p16540 tp16541 a(g6 V tp16542 a(g100 VaSelector p16543 tp16544 a(g6 V\u000a p16545 tp16546 a(g48 Vargument: p16547 tp16548 a(g6 V tp16549 a(g100 VaResourceHandle p16550 tp16551 a(g6 V) tp16552 a(g138 V! ! p16553 tp16554 a(g6 V\u000a\u000a\u000a p16555 tp16556 a(g138 V! tp16557 a(g133 VObject p16558 tp16559 a(g138 V methodsFor: p16560 tp16561 a(g236 V'flagging' p16562 tp16563 a(g138 V stamp: 'sw 8/4/97 16:49'! p16564 tp16565 a(g6 V\u000a tp16566 a(g48 VisThisEverCalled p16567 tp16568 a(g6 V\u000a p16569 tp16570 a(g353 V^ tp16571 a(g6 V tp16572 a(g87 Vself p16573 tp16574 a(g6 V tp16575 a(g48 VisThisEverCalled: p16576 tp16577 a(g6 V tp16578 a(g87 VthisContext p16579 tp16580 a(g6 V tp16581 a(g48 Vsender p16582 tp16583 a(g6 V tp16584 a(g48 VprintString p16585 tp16586 a(g138 V! ! p16587 tp16588 a(g6 V\u000a\u000a p16589 tp16590 a(g138 V! tp16591 a(g133 VObject p16592 tp16593 a(g138 V methodsFor: p16594 tp16595 a(g236 V'flagging' p16596 tp16597 a(g138 V! tp16598 a(g6 V\u000a tp16599 a(g48 VisThisEverCalled: p16600 tp16601 a(g6 V tp16602 a(g100 Vmsg p16603 tp16604 a(g6 V\u000a p16605 tp16606 a(g24 V"Send this message, with some useful printable argument, from methods or branches of methods which you believe are never reached. 2/5/96 sw" p16607 tp16608 a(g6 V\u000a\u000a p16609 tp16610 a(g87 Vself p16611 tp16612 a(g6 V tp16613 a(g48 Vhalt: p16614 tp16615 a(g6 V tp16616 a(g236 V'This is indeed called: ' p16617 tp16618 a(g48 V, tp16619 a(g6 V tp16620 a(g100 Vmsg p16621 tp16622 a(g6 V tp16623 a(g48 VprintString p16624 tp16625 a(g138 V! ! p16626 tp16627 a(g6 V\u000a\u000a p16628 tp16629 a(g138 V! tp16630 a(g133 VObject p16631 tp16632 a(g138 V methodsFor: p16633 tp16634 a(g236 V'flagging' p16635 tp16636 a(g138 V stamp: 'jm 3/18/98 17:23'! p16637 tp16638 a(g6 V\u000a tp16639 a(g48 VlogEntry p16640 tp16641 a(g6 V\u000a tp16642 a(g6 V\u000a p16643 tp16644 a(g133 VTranscript p16645 tp16646 a(g6 V tp16647 a(g48 Vshow: p16648 tp16649 a(g6 V tp16650 a(g236 V'Entered ' p16651 tp16652 a(g48 V, tp16653 a(g6 V tp16654 a(g87 VthisContext p16655 tp16656 a(g6 V tp16657 a(g48 Vsender p16658 tp16659 a(g6 V tp16660 a(g48 VprintString p16661 tp16662 a(g212 V; tp16663 a(g6 V tp16664 a(g48 Vcr p16665 tp16666 a(g212 V. tp16667 a(g6 V\u000a tp16668 a(g138 V! ! p16669 tp16670 a(g6 V\u000a\u000a p16671 tp16672 a(g138 V! tp16673 a(g133 VObject p16674 tp16675 a(g138 V methodsFor: p16676 tp16677 a(g236 V'flagging' p16678 tp16679 a(g138 V stamp: 'jm 3/18/98 17:23'! p16680 tp16681 a(g6 V\u000a tp16682 a(g48 VlogExecution p16683 tp16684 a(g6 V\u000a tp16685 a(g6 V\u000a p16686 tp16687 a(g133 VTranscript p16688 tp16689 a(g6 V tp16690 a(g48 Vshow: p16691 tp16692 a(g6 V tp16693 a(g236 V'Executing ' p16694 tp16695 a(g48 V, tp16696 a(g6 V tp16697 a(g87 VthisContext p16698 tp16699 a(g6 V tp16700 a(g48 Vsender p16701 tp16702 a(g6 V tp16703 a(g48 VprintString p16704 tp16705 a(g212 V; tp16706 a(g6 V tp16707 a(g48 Vcr p16708 tp16709 a(g212 V. tp16710 a(g6 V\u000a tp16711 a(g138 V! ! p16712 tp16713 a(g6 V\u000a\u000a p16714 tp16715 a(g138 V! tp16716 a(g133 VObject p16717 tp16718 a(g138 V methodsFor: p16719 tp16720 a(g236 V'flagging' p16721 tp16722 a(g138 V stamp: 'jm 3/18/98 17:22'! p16723 tp16724 a(g6 V\u000a tp16725 a(g48 VlogExit p16726 tp16727 a(g6 V\u000a tp16728 a(g6 V\u000a p16729 tp16730 a(g133 VTranscript p16731 tp16732 a(g6 V tp16733 a(g48 Vshow: p16734 tp16735 a(g6 V p16736 tp16737 a(g236 V'Exited ' p16738 tp16739 a(g48 V, tp16740 a(g6 V tp16741 a(g87 VthisContext p16742 tp16743 a(g6 V tp16744 a(g48 Vsender p16745 tp16746 a(g6 V tp16747 a(g48 VprintString p16748 tp16749 a(g212 V; tp16750 a(g6 V tp16751 a(g48 Vcr p16752 tp16753 a(g212 V. tp16754 a(g6 V\u000a tp16755 a(g138 V! ! p16756 tp16757 a(g6 V\u000a\u000a\u000a p16758 tp16759 a(g138 V! tp16760 a(g133 VObject p16761 tp16762 a(g138 V methodsFor: p16763 tp16764 a(g236 V'graph model' p16765 tp16766 a(g138 V stamp: 'dgd 9/18/2004 15:07'! p16767 tp16768 a(g6 V\u000a tp16769 a(g48 VaddModelYellowButtonMenuItemsTo: p16770 tp16771 a(g6 V tp16772 a(g100 VaCustomMenu p16773 tp16774 a(g6 V tp16775 a(g48 VforMorph: p16776 tp16777 a(g6 V tp16778 a(g100 VaMorph p16779 tp16780 a(g6 V tp16781 a(g48 Vhand: p16782 tp16783 a(g6 V tp16784 a(g100 VaHandMorph p16785 tp16786 a(g6 V \u000a p16787 tp16788 a(g24 V"The receiver serves as the model for aMorph; a menu is being constructed for the morph, and here the receiver is able to add its own items" p16789 tp16790 a(g6 V\u000a p16791 tp16792 a(g133 VPreferences p16793 tp16794 a(g6 V tp16795 a(g48 VcmdGesturesEnabled p16796 tp16797 a(g6 V tp16798 a(g84 VifTrue: p16799 tp16800 a(g6 V tp16801 a(g6 V[ tp16802 a(g6 V tp16803 a(g24 V"build mode" p16804 tp16805 a(g6 V\u000a p16806 tp16807 a(g6 V tp16808 a(g100 VaCustomMenu p16809 tp16810 a(g6 V tp16811 a(g48 Vadd: p16812 tp16813 a(g6 V tp16814 a(g236 V'inspect model' p16815 tp16816 a(g6 V tp16817 a(g48 Vtranslated p16818 tp16819 a(g6 V tp16820 a(g48 Vtarget: p16821 tp16822 a(g6 V tp16823 a(g87 Vself p16824 tp16825 a(g6 V tp16826 a(g48 Vaction: p16827 tp16828 a(g6 V tp16829 a(g258 V#inspect p16830 tp16831 a(g212 V. tp16832 a(g6 V\u000a p16833 tp16834 a(g6 V] tp16835 a(g212 V. tp16836 a(g6 V\u000a\u000a p16837 tp16838 a(g353 V^ tp16839 a(g100 VaCustomMenu p16840 tp16841 a(g6 V\u000a tp16842 a(g138 V! ! p16843 tp16844 a(g6 V\u000a\u000a p16845 tp16846 a(g138 V! tp16847 a(g133 VObject p16848 tp16849 a(g138 V methodsFor: p16850 tp16851 a(g236 V'graph model' p16852 tp16853 a(g138 V stamp: 'nk 1/23/2004 14:35'! p16854 tp16855 a(g6 V\u000a tp16856 a(g48 VhasModelYellowButtonMenuItems p16857 tp16858 a(g6 V\u000a p16859 tp16860 a(g353 V^ tp16861 a(g133 VPreferences p16862 tp16863 a(g6 V tp16864 a(g48 VcmdGesturesEnabled p16865 tp16866 a(g138 V! ! p16867 tp16868 a(g6 V\u000a\u000a\u000a p16869 tp16870 a(g138 V! tp16871 a(g133 VObject p16872 tp16873 a(g138 V methodsFor: p16874 tp16875 a(g236 V'inspecting' p16876 tp16877 a(g138 V stamp: 'ar 9/27/2005 18:31'! p16878 tp16879 a(g6 V\u000a tp16880 a(g48 VbasicInspect p16881 tp16882 a(g6 V\u000a p16883 tp16884 a(g24 V"Create and schedule an Inspector in which the user can examine the \u000a receiver's variables. This method should not be overriden." p16885 tp16886 a(g6 V\u000a p16887 tp16888 a(g353 V^ tp16889 a(g133 VToolSet p16890 tp16891 a(g6 V tp16892 a(g48 VbasicInspect: p16893 tp16894 a(g6 V tp16895 a(g87 Vself p16896 tp16897 a(g138 V! ! p16898 tp16899 a(g6 V\u000a\u000a p16900 tp16901 a(g138 V! tp16902 a(g133 VObject p16903 tp16904 a(g138 V methodsFor: p16905 tp16906 a(g236 V'inspecting' p16907 tp16908 a(g138 V stamp: 'md 1/18/2006 19:09'! p16909 tp16910 a(g6 V\u000a tp16911 a(g48 Vinspect p16912 tp16913 a(g6 V\u000a p16914 tp16915 a(g24 V"Create and schedule an Inspector in which the user can examine the receiver's variables." p16916 tp16917 a(g6 V\u000a p16918 tp16919 a(g133 VToolSet p16920 tp16921 a(g6 V tp16922 a(g48 Vinspect: p16923 tp16924 a(g6 V tp16925 a(g87 Vself p16926 tp16927 a(g138 V! ! p16928 tp16929 a(g6 V\u000a\u000a p16930 tp16931 a(g138 V! tp16932 a(g133 VObject p16933 tp16934 a(g138 V methodsFor: p16935 tp16936 a(g236 V'inspecting' p16937 tp16938 a(g138 V stamp: 'apb 7/14/2004 12:19'! p16939 tp16940 a(g6 V\u000a tp16941 a(g48 VinspectorClass p16942 tp16943 a(g6 V\u000a p16944 tp16945 a(g24 V"Answer the class of the inspector to be used on the receiver. Called by inspect; \u000a use basicInspect to get a normal (less useful) type of inspector." p16946 tp16947 a(g6 V\u000a\u000a p16948 tp16949 a(g353 V^ tp16950 a(g6 V tp16951 a(g133 VInspector p16952 tp16953 a(g138 V! ! p16954 tp16955 a(g6 V\u000a\u000a\u000a p16956 tp16957 a(g138 V! tp16958 a(g133 VObject p16959 tp16960 a(g138 V methodsFor: p16961 tp16962 a(g236 V'locales' p16963 tp16964 a(g138 V stamp: 'tak 8/4/2005 14:55'! p16965 tp16966 a(g6 V\u000a tp16967 a(g48 VlocaleChanged p16968 tp16969 a(g6 V\u000a p16970 tp16971 a(g87 Vself p16972 tp16973 a(g6 V tp16974 a(g48 VshouldBeImplemented p16975 tp16976 a(g138 V! ! p16977 tp16978 a(g6 V\u000a\u000a\u000a p16979 tp16980 a(g138 V! tp16981 a(g133 VObject p16982 tp16983 a(g138 V methodsFor: p16984 tp16985 a(g236 V'macpal' p16986 tp16987 a(g138 V stamp: 'sw 5/7/1998 23:00'! p16988 tp16989 a(g6 V\u000a tp16990 a(g48 VcodeStrippedOut: p16991 tp16992 a(g6 V tp16993 a(g100 VmessageString p16994 tp16995 a(g6 V\u000a p16996 tp16997 a(g24 V"When a method is stripped out for external release, it is replaced by a method that calls this" p16998 tp16999 a(g6 V\u000a\u000a p17000 tp17001 a(g87 Vself p17002 tp17003 a(g6 V tp17004 a(g48 Vhalt: p17005 tp17006 a(g6 V tp17007 a(g236 V'Code stripped out -- ' p17008 tp17009 a(g48 V, tp17010 a(g6 V tp17011 a(g100 VmessageString p17012 tp17013 a(g48 V, tp17014 a(g6 V tp17015 a(g236 V'-- do not proceed.' p17016 tp17017 a(g138 V! ! p17018 tp17019 a(g6 V\u000a\u000a p17020 tp17021 a(g138 V! tp17022 a(g133 VObject p17023 tp17024 a(g138 V methodsFor: p17025 tp17026 a(g236 V'macpal' p17027 tp17028 a(g138 V stamp: 'sw 1/28/1999 17:31'! p17029 tp17030 a(g6 V\u000a tp17031 a(g48 VcontentsChanged p17032 tp17033 a(g6 V\u000a p17034 tp17035 a(g87 Vself p17036 tp17037 a(g6 V tp17038 a(g48 Vchanged: p17039 tp17040 a(g6 V tp17041 a(g258 V#contents p17042 tp17043 a(g138 V! ! p17044 tp17045 a(g6 V\u000a\u000a p17046 tp17047 a(g138 V! tp17048 a(g133 VObject p17049 tp17050 a(g138 V methodsFor: p17051 tp17052 a(g236 V'macpal' p17053 tp17054 a(g138 V stamp: 'ar 3/18/2001 00:03'! p17055 tp17056 a(g6 V\u000a tp17057 a(g48 VcurrentEvent p17058 tp17059 a(g6 V\u000a p17060 tp17061 a(g24 V"Answer the current Morphic event. This method never returns nil." p17062 tp17063 a(g6 V\u000a p17064 tp17065 a(g353 V^ tp17066 a(g133 VActiveEvent p17067 tp17068 a(g6 V tp17069 a(g48 VifNil: p17070 tp17071 a(g6 V[ tp17072 a(g6 V tp17073 a(g87 Vself p17074 tp17075 a(g6 V tp17076 a(g48 VcurrentHand p17077 tp17078 a(g6 V tp17079 a(g48 VlastEvent p17080 tp17081 a(g6 V] tp17082 a(g138 V! ! p17083 tp17084 a(g6 V\u000a\u000a p17085 tp17086 a(g138 V! tp17087 a(g133 VObject p17088 tp17089 a(g138 V methodsFor: p17090 tp17091 a(g236 V'macpal' p17092 tp17093 a(g138 V stamp: 'nk 9/1/2004 10:41'! p17094 tp17095 a(g6 V\u000a tp17096 a(g48 VcurrentHand p17097 tp17098 a(g6 V\u000a p17099 tp17100 a(g24 V"Return a usable HandMorph -- the one associated with the object's current environment. This method will always return a hand, even if it has to conjure one up as a last resort. If a particular hand is actually handling events at the moment (such as a remote hand or a ghost hand), it will be returned." p17101 tp17102 a(g6 V\u000a\u000a p17103 tp17104 a(g353 V^ tp17105 a(g133 VActiveHand p17106 tp17107 a(g6 V tp17108 a(g48 VifNil: p17109 tp17110 a(g6 V tp17111 a(g6 V[ tp17112 a(g6 V tp17113 a(g6 V tp17114 a(g87 Vself p17115 tp17116 a(g6 V tp17117 a(g48 VcurrentWorld p17118 tp17119 a(g6 V tp17120 a(g48 VprimaryHand p17121 tp17122 a(g6 V tp17123 a(g6 V] tp17124 a(g138 V! ! p17125 tp17126 a(g6 V\u000a\u000a p17127 tp17128 a(g138 V! tp17129 a(g133 VObject p17130 tp17131 a(g138 V methodsFor: p17132 tp17133 a(g236 V'macpal' p17134 tp17135 a(g138 V stamp: 'sw 5/17/2001 12:08'! p17136 tp17137 a(g6 V\u000a tp17138 a(g48 VcurrentVocabulary p17139 tp17140 a(g6 V\u000a p17141 tp17142 a(g24 V"Answer the currently-prevailing default vocabulary." p17143 tp17144 a(g6 V\u000a\u000a p17145 tp17146 a(g353 V^ tp17147 a(g6 V tp17148 a(g133 VSmalltalk p17149 tp17150 a(g6 V tp17151 a(g48 VisMorphic p17152 tp17153 a(g6 V tp17154 a(g84 VifTrue: p17155 tp17156 a(g6 V\u000a p17157 tp17158 a(g6 V[ tp17159 a(g6 V tp17160 a(g133 VActiveWorld p17161 tp17162 a(g6 V tp17163 a(g48 VcurrentVocabulary p17164 tp17165 a(g6 V] tp17166 a(g6 V\u000a p17167 tp17168 a(g84 VifFalse: p17169 tp17170 a(g6 V\u000a p17171 tp17172 a(g6 V[ tp17173 a(g6 V tp17174 a(g133 VVocabulary p17175 tp17176 a(g6 V tp17177 a(g48 VfullVocabulary p17178 tp17179 a(g6 V] tp17180 a(g138 V! ! p17181 tp17182 a(g6 V\u000a\u000a p17183 tp17184 a(g138 V! tp17185 a(g133 VObject p17186 tp17187 a(g138 V methodsFor: p17188 tp17189 a(g236 V'macpal' p17190 tp17191 a(g138 V stamp: 'ar 3/18/2001 00:08'! p17192 tp17193 a(g6 V\u000a tp17194 a(g48 VcurrentWorld p17195 tp17196 a(g6 V\u000a p17197 tp17198 a(g24 V"Answer a morphic world that is the current UI focus.\u000a If in an embedded world, it's that world.\u000a If in a morphic project, it's that project's world. \u000a If in an mvc project, it is the topmost morphic-mvc-window's worldMorph. \u000a If in an mvc project that has no morphic-mvc-windows, then it's just some existing worldmorph instance.\u000a If in an mvc project in a Squeak that has NO WorldMorph instances, one is created.\u000a\u000a This method will never return nil, it will always return its best effort at returning a relevant world morph, but if need be -- if there are no worlds anywhere, it will create a new one." p17199 tp17200 a(g6 V\u000a\u000a p17201 tp17202 a(g353 V| tp17203 a(g100 V aView aSubview p17204 tp17205 a(g353 V| tp17206 a(g6 V\u000a p17207 tp17208 a(g133 VActiveWorld p17209 tp17210 a(g6 V tp17211 a(g48 VifNotNil: p17212 tp17213 a(g6 V[ tp17214 a(g6 V tp17215 a(g353 V^ tp17216 a(g133 VActiveWorld p17217 tp17218 a(g6 V] tp17219 a(g212 V. tp17220 a(g6 V\u000a p17221 tp17222 a(g133 VWorld p17223 tp17224 a(g6 V tp17225 a(g48 VifNotNil: p17226 tp17227 a(g6 V[ tp17228 a(g6 V tp17229 a(g353 V^ tp17230 a(g133 VWorld p17231 tp17232 a(g6 V] tp17233 a(g212 V. tp17234 a(g6 V\u000a p17235 tp17236 a(g100 VaView p17237 tp17238 a(g6 V tp17239 a(g353 V_ tp17240 a(g6 V tp17241 a(g133 VScheduledControllers p17242 tp17243 a(g6 V tp17244 a(g48 VcontrollerSatisfying: p17245 tp17246 a(g6 V\u000a p17247 tp17248 a(g6 V[ tp17249 a(g353 V: tp17250 a(g100 Vctrl p17251 tp17252 a(g6 V tp17253 a(g353 V| tp17254 a(g6 V tp17255 a(g6 V( tp17256 a(g100 VaSubview p17257 tp17258 a(g6 V tp17259 a(g353 V_ tp17260 a(g6 V tp17261 a(g100 Vctrl p17262 tp17263 a(g6 V tp17264 a(g48 Vview p17265 tp17266 a(g6 V tp17267 a(g48 VfirstSubView p17268 tp17269 a(g6 V) tp17270 a(g6 V tp17271 a(g48 VnotNil p17272 tp17273 a(g6 V tp17274 a(g48 Vand: p17275 tp17276 a(g6 V\u000a p17277 tp17278 a(g6 V[ tp17279 a(g6 V tp17280 a(g100 VaSubview p17281 tp17282 a(g6 V tp17283 a(g48 Vmodel p17284 tp17285 a(g6 V tp17286 a(g48 VisMorph p17287 tp17288 a(g6 V tp17289 a(g48 Vand: p17290 tp17291 a(g6 V tp17292 a(g6 V[ tp17293 a(g6 V tp17294 a(g100 VaSubview p17295 tp17296 a(g6 V tp17297 a(g48 Vmodel p17298 tp17299 a(g6 V tp17300 a(g48 VisWorldMorph p17301 tp17302 a(g6 V] tp17303 a(g6 V] tp17304 a(g6 V] tp17305 a(g212 V. tp17306 a(g6 V\u000a p17307 tp17308 a(g353 V^ tp17309 a(g100 VaView p17310 tp17311 a(g6 V\u000a p17312 tp17313 a(g48 VifNotNil: p17314 tp17315 a(g6 V\u000a p17316 tp17317 a(g6 V[ tp17318 a(g6 V tp17319 a(g100 VaSubview p17320 tp17321 a(g6 V tp17322 a(g48 Vmodel p17323 tp17324 a(g6 V] tp17325 a(g6 V\u000a p17326 tp17327 a(g48 VifNil: p17328 tp17329 a(g6 V\u000a p17330 tp17331 a(g6 V[ tp17332 a(g6 V tp17333 a(g133 VMVCWiWPasteUpMorph p17334 tp17335 a(g6 V tp17336 a(g48 VnewWorldForProject: p17337 tp17338 a(g6 V tp17339 a(g87 Vnil p17340 tp17341 a(g6 V] tp17342 a(g212 V. tp17343 a(g138 V! ! p17344 tp17345 a(g6 V\u000a\u000a p17346 tp17347 a(g138 V! tp17348 a(g133 VObject p17349 tp17350 a(g138 V methodsFor: p17351 tp17352 a(g236 V'macpal' p17353 tp17354 a(g138 V stamp: 'jm 5/6/1998 22:35'! p17355 tp17356 a(g6 V\u000a tp17357 a(g48 Vflash p17358 tp17359 a(g6 V\u000a p17360 tp17361 a(g24 V"Do nothing." p17362 tp17363 a(g6 V\u000a tp17364 a(g138 V! ! p17365 tp17366 a(g6 V\u000a\u000a p17367 tp17368 a(g138 V! tp17369 a(g133 VObject p17370 tp17371 a(g138 V methodsFor: p17372 tp17373 a(g236 V'macpal' p17374 tp17375 a(g138 V stamp: 'sw 6/16/1998 15:07'! p17376 tp17377 a(g6 V\u000a tp17378 a(g48 VinstanceVariableValues p17379 tp17380 a(g6 V\u000a p17381 tp17382 a(g24 V"Answer a collection whose elements are the values of those instance variables of the receiver which were added by the receiver's class" p17383 tp17384 a(g6 V\u000a p17385 tp17386 a(g353 V| tp17387 a(g100 V c p17388 tp17389 a(g353 V| tp17390 a(g6 V\u000a p17391 tp17392 a(g100 Vc tp17393 a(g6 V tp17394 a(g353 V_ tp17395 a(g6 V tp17396 a(g133 VOrderedCollection p17397 tp17398 a(g6 V tp17399 a(g84 Vnew p17400 tp17401 a(g212 V. tp17402 a(g6 V\u000a p17403 tp17404 a(g87 Vself p17405 tp17406 a(g6 V tp17407 a(g48 Vclass p17408 tp17409 a(g6 V tp17410 a(g48 Vsuperclass p17411 tp17412 a(g6 V tp17413 a(g48 VinstSize p17414 tp17415 a(g6 V tp17416 a(g48 V+ tp17417 a(g6 V tp17418 a(g223 V1 tp17419 a(g6 V tp17420 a(g48 Vto: p17421 tp17422 a(g6 V tp17423 a(g87 Vself p17424 tp17425 a(g6 V tp17426 a(g48 Vclass p17427 tp17428 a(g6 V tp17429 a(g48 VinstSize p17430 tp17431 a(g6 V tp17432 a(g48 Vdo: p17433 tp17434 a(g6 V\u000a p17435 tp17436 a(g6 V[ tp17437 a(g353 V: tp17438 a(g100 Vi tp17439 a(g6 V tp17440 a(g353 V| tp17441 a(g6 V tp17442 a(g100 Vc tp17443 a(g6 V tp17444 a(g48 Vadd: p17445 tp17446 a(g6 V tp17447 a(g6 V( tp17448 a(g87 Vself p17449 tp17450 a(g6 V tp17451 a(g48 VinstVarAt: p17452 tp17453 a(g6 V tp17454 a(g100 Vi tp17455 a(g6 V) tp17456 a(g6 V] tp17457 a(g212 V. tp17458 a(g6 V\u000a p17459 tp17460 a(g353 V^ tp17461 a(g6 V tp17462 a(g100 Vc tp17463 a(g138 V! ! p17464 tp17465 a(g6 V\u000a\u000a p17466 tp17467 a(g138 V! tp17468 a(g133 VObject p17469 tp17470 a(g138 V methodsFor: p17471 tp17472 a(g236 V'macpal' p17473 tp17474 a(g138 V stamp: 'sw 3/20/2001 13:29'! p17475 tp17476 a(g6 V\u000a tp17477 a(g48 VisUniversalTiles p17478 tp17479 a(g6 V\u000a p17480 tp17481 a(g24 V"Return true if I (my world) uses universal tiles. This message can be called in places where the current World is not known, such as when writing out a project. For more information about the project-writing subtlety addressed by this protocol, kindly contact Ted Kaehler." p17482 tp17483 a(g6 V\u000a\u000a p17484 tp17485 a(g353 V^ tp17486 a(g6 V tp17487 a(g133 VPreferences p17488 tp17489 a(g6 V tp17490 a(g48 VuniversalTiles p17491 tp17492 a(g138 V! ! p17493 tp17494 a(g6 V\u000a\u000a p17495 tp17496 a(g138 V! tp17497 a(g133 VObject p17498 tp17499 a(g138 V methodsFor: p17500 tp17501 a(g236 V'macpal' p17502 tp17503 a(g138 V stamp: 'sw 10/24/2000 07:04'! p17504 tp17505 a(g6 V\u000a tp17506 a(g48 VobjectRepresented p17507 tp17508 a(g6 V\u000a p17509 tp17510 a(g24 V"most objects represent themselves; this provides a hook for aliases to grab on to" p17511 tp17512 a(g6 V\u000a\u000a p17513 tp17514 a(g353 V^ tp17515 a(g6 V tp17516 a(g87 Vself p17517 tp17518 a(g138 V! ! p17519 tp17520 a(g6 V\u000a\u000a p17521 tp17522 a(g138 V! tp17523 a(g133 VObject p17524 tp17525 a(g138 V methodsFor: p17526 tp17527 a(g236 V'macpal' p17528 tp17529 a(g138 V stamp: 'sw 5/22/2001 18:31'! p17530 tp17531 a(g6 V\u000a tp17532 a(g48 VrefusesToAcceptCode p17533 tp17534 a(g6 V\u000a p17535 tp17536 a(g24 V"Answer whether the receiver is a code-bearing instrument which at the moment refuses to allow its contents to be submitted" p17537 tp17538 a(g6 V\u000a\u000a p17539 tp17540 a(g353 V^ tp17541 a(g6 V tp17542 a(g87 Vfalse p17543 tp17544 a(g6 V\u000a p17545 tp17546 a(g138 V! ! p17547 tp17548 a(g6 V\u000a\u000a p17549 tp17550 a(g138 V! tp17551 a(g133 VObject p17552 tp17553 a(g138 V methodsFor: p17554 tp17555 a(g236 V'macpal' p17556 tp17557 a(g138 V stamp: 'jm 2/24/1999 12:40'! p17558 tp17559 a(g6 V\u000a tp17560 a(g48 VscriptPerformer p17561 tp17562 a(g6 V\u000a tp17563 a(g6 V\u000a p17564 tp17565 a(g353 V^ tp17566 a(g6 V tp17567 a(g87 Vself p17568 tp17569 a(g6 V\u000a tp17570 a(g138 V! ! p17571 tp17572 a(g6 V\u000a\u000a p17573 tp17574 a(g138 V! tp17575 a(g133 VObject p17576 tp17577 a(g138 V methodsFor: p17578 tp17579 a(g236 V'macpal' p17580 tp17581 a(g138 V stamp: 'sw 3/20/2001 13:40'! p17582 tp17583 a(g6 V\u000a tp17584 a(g48 VslotInfo p17585 tp17586 a(g6 V\u000a p17587 tp17588 a(g24 V"Answer a list of slot-information objects. Initally only provides useful info for players" p17589 tp17590 a(g6 V\u000a\u000a p17591 tp17592 a(g353 V^ tp17593 a(g6 V tp17594 a(g133 VDictionary p17595 tp17596 a(g6 V tp17597 a(g84 Vnew p17598 tp17599 a(g138 V! ! p17600 tp17601 a(g6 V\u000a\u000a\u000a p17602 tp17603 a(g138 V! tp17604 a(g133 VObject p17605 tp17606 a(g138 V methodsFor: p17607 tp17608 a(g236 V'message handling' p17609 tp17610 a(g138 V stamp: 'md 1/20/2006 16:28'! p17611 tp17612 a(g6 V\u000a tp17613 a(g48 VexecuteMethod: p17614 tp17615 a(g6 V tp17616 a(g100 VcompiledMethod p17617 tp17618 a(g6 V\u000a p17619 tp17620 a(g24 V"Execute compiledMethod against the receiver with no args" p17621 tp17622 a(g6 V\u000a\u000a p17623 tp17624 a(g24 V"" p17625 tp17626 a(g6 V tp17627 a(g24 V"uncomment once prim 189 is in VM" p17628 tp17629 a(g6 V\u000a p17630 tp17631 a(g353 V^ tp17632 a(g6 V tp17633 a(g87 Vself p17634 tp17635 a(g6 V tp17636 a(g48 VwithArgs: p17637 tp17638 a(g6 V tp17639 a(g258 V#( p17640 tp17641 a(g258 V) tp17642 a(g6 V tp17643 a(g48 VexecuteMethod: p17644 tp17645 a(g6 V tp17646 a(g100 VcompiledMethod p17647 tp17648 a(g138 V! ! p17649 tp17650 a(g6 V\u000a\u000a p17651 tp17652 a(g138 V! tp17653 a(g133 VObject p17654 tp17655 a(g138 V methodsFor: p17656 tp17657 a(g236 V'message handling' p17658 tp17659 a(g138 V stamp: 'di 3/26/1999 07:52'! p17660 tp17661 a(g6 V\u000a tp17662 a(g48 Vperform: p17663 tp17664 a(g6 V tp17665 a(g100 VaSymbol p17666 tp17667 a(g6 V \u000a p17668 tp17669 a(g24 V"Send the unary selector, aSymbol, to the receiver.\u000a Fail if the number of arguments expected by the selector is not zero.\u000a Primitive. Optional. See Object documentation whatIsAPrimitive." p17670 tp17671 a(g6 V\u000a\u000a p17672 tp17673 a(g6 V< tp17674 a(g138 Vprimitive: p17675 tp17676 a(g6 V 83 p17677 tp17678 a(g6 V> tp17679 a(g6 V\u000a p17680 tp17681 a(g353 V^ tp17682 a(g6 V tp17683 a(g87 Vself p17684 tp17685 a(g6 V tp17686 a(g48 Vperform: p17687 tp17688 a(g6 V tp17689 a(g100 VaSymbol p17690 tp17691 a(g6 V tp17692 a(g48 VwithArguments: p17693 tp17694 a(g6 V tp17695 a(g6 V( tp17696 a(g133 VArray p17697 tp17698 a(g6 V tp17699 a(g48 Vnew: p17700 tp17701 a(g6 V tp17702 a(g223 V0 tp17703 a(g6 V) tp17704 a(g138 V! ! p17705 tp17706 a(g6 V\u000a\u000a p17707 tp17708 a(g138 V! tp17709 a(g133 VObject p17710 tp17711 a(g138 V methodsFor: p17712 tp17713 a(g236 V'message handling' p17714 tp17715 a(g138 V stamp: 'st 11/5/2004 16:19'! p17716 tp17717 a(g6 V\u000a tp17718 a(g48 Vperform: p17719 tp17720 a(g6 V tp17721 a(g100 Vselector p17722 tp17723 a(g6 V tp17724 a(g48 VorSendTo: p17725 tp17726 a(g6 V tp17727 a(g100 VotherTarget p17728 tp17729 a(g6 V\u000a p17730 tp17731 a(g24 V"If I wish to intercept and handle selector myself, do it; else send it to otherTarget" p17732 tp17733 a(g6 V\u000a p17734 tp17735 a(g353 V^ tp17736 a(g6 V tp17737 a(g6 V( tp17738 a(g87 Vself p17739 tp17740 a(g6 V tp17741 a(g48 VrespondsTo: p17742 tp17743 a(g6 V tp17744 a(g100 Vselector p17745 tp17746 a(g6 V) tp17747 a(g6 V tp17748 a(g84 VifTrue: p17749 tp17750 a(g6 V tp17751 a(g6 V[ tp17752 a(g6 V tp17753 a(g87 Vself p17754 tp17755 a(g6 V tp17756 a(g48 Vperform: p17757 tp17758 a(g6 V tp17759 a(g100 Vselector p17760 tp17761 a(g6 V] tp17762 a(g6 V tp17763 a(g84 VifFalse: p17764 tp17765 a(g6 V tp17766 a(g6 V[ tp17767 a(g6 V tp17768 a(g100 VotherTarget p17769 tp17770 a(g6 V tp17771 a(g48 Vperform: p17772 tp17773 a(g6 V tp17774 a(g100 Vselector p17775 tp17776 a(g6 V] tp17777 a(g138 V! ! p17778 tp17779 a(g6 V\u000a\u000a p17780 tp17781 a(g138 V! tp17782 a(g133 VObject p17783 tp17784 a(g138 V methodsFor: p17785 tp17786 a(g236 V'message handling' p17787 tp17788 a(g138 V stamp: 'di 3/26/1999 07:55'! p17789 tp17790 a(g6 V\u000a tp17791 a(g48 Vperform: p17792 tp17793 a(g6 V tp17794 a(g100 Vselector p17795 tp17796 a(g6 V tp17797 a(g48 VwithArguments: p17798 tp17799 a(g6 V tp17800 a(g100 VargArray p17801 tp17802 a(g6 V \u000a p17803 tp17804 a(g24 V"Send the selector, aSymbol, to the receiver with arguments in argArray.\u000a Fail if the number of arguments expected by the selector \u000a does not match the size of argArray.\u000a Primitive. Optional. See Object documentation whatIsAPrimitive." p17805 tp17806 a(g6 V\u000a\u000a p17807 tp17808 a(g6 V< tp17809 a(g138 Vprimitive: p17810 tp17811 a(g6 V 84 p17812 tp17813 a(g6 V> tp17814 a(g6 V\u000a p17815 tp17816 a(g353 V^ tp17817 a(g6 V tp17818 a(g87 Vself p17819 tp17820 a(g6 V tp17821 a(g48 Vperform: p17822 tp17823 a(g6 V tp17824 a(g100 Vselector p17825 tp17826 a(g6 V tp17827 a(g48 VwithArguments: p17828 tp17829 a(g6 V tp17830 a(g100 VargArray p17831 tp17832 a(g6 V tp17833 a(g48 VinSuperclass: p17834 tp17835 a(g6 V tp17836 a(g87 Vself p17837 tp17838 a(g6 V tp17839 a(g48 Vclass p17840 tp17841 a(g138 V! ! p17842 tp17843 a(g6 V\u000a\u000a p17844 tp17845 a(g138 V! tp17846 a(g133 VObject p17847 tp17848 a(g138 V methodsFor: p17849 tp17850 a(g236 V'message handling' p17851 tp17852 a(g138 V stamp: 'ar 4/25/2005 13:35'! p17853 tp17854 a(g6 V\u000a tp17855 a(g48 Vperform: p17856 tp17857 a(g6 V tp17858 a(g100 Vselector p17859 tp17860 a(g6 V tp17861 a(g48 VwithArguments: p17862 tp17863 a(g6 V tp17864 a(g100 VargArray p17865 tp17866 a(g6 V tp17867 a(g48 VinSuperclass: p17868 tp17869 a(g6 V tp17870 a(g100 VlookupClass p17871 tp17872 a(g6 V\u000a p17873 tp17874 a(g24 V"NOTE: This is just like perform:withArguments:, except that\u000a the message lookup process begins, not with the receivers's class,\u000a but with the supplied superclass instead. It will fail if lookupClass\u000a cannot be found among the receiver's superclasses.\u000a Primitive. Essential. See Object documentation whatIsAPrimitive." p17875 tp17876 a(g6 V\u000a\u000a p17877 tp17878 a(g6 V< tp17879 a(g138 Vprimitive: p17880 tp17881 a(g6 V 100 p17882 tp17883 a(g6 V> tp17884 a(g6 V\u000a p17885 tp17886 a(g6 V( tp17887 a(g100 Vselector p17888 tp17889 a(g6 V tp17890 a(g48 VisSymbol p17891 tp17892 a(g6 V) tp17893 a(g6 V\u000a p17894 tp17895 a(g84 VifFalse: p17896 tp17897 a(g6 V tp17898 a(g6 V[ tp17899 a(g6 V tp17900 a(g353 V^ tp17901 a(g6 V tp17902 a(g87 Vself p17903 tp17904 a(g6 V tp17905 a(g48 Verror: p17906 tp17907 a(g6 V tp17908 a(g236 V'selector argument must be a Symbol' p17909 tp17910 a(g6 V] tp17911 a(g212 V. tp17912 a(g6 V\u000a p17913 tp17914 a(g6 V( tp17915 a(g100 Vselector p17916 tp17917 a(g6 V tp17918 a(g48 VnumArgs p17919 tp17920 a(g6 V tp17921 a(g48 V= tp17922 a(g6 V tp17923 a(g100 VargArray p17924 tp17925 a(g6 V tp17926 a(g48 Vsize p17927 tp17928 a(g6 V) tp17929 a(g6 V\u000a p17930 tp17931 a(g84 VifFalse: p17932 tp17933 a(g6 V tp17934 a(g6 V[ tp17935 a(g6 V tp17936 a(g353 V^ tp17937 a(g6 V tp17938 a(g87 Vself p17939 tp17940 a(g6 V tp17941 a(g48 Verror: p17942 tp17943 a(g6 V tp17944 a(g236 V'incorrect number of arguments' p17945 tp17946 a(g6 V] tp17947 a(g212 V. tp17948 a(g6 V\u000a p17949 tp17950 a(g6 V( tp17951 a(g87 Vself p17952 tp17953 a(g6 V tp17954 a(g48 Vclass p17955 tp17956 a(g6 V tp17957 a(g48 V== p17958 tp17959 a(g6 V tp17960 a(g100 VlookupClass p17961 tp17962 a(g6 V tp17963 a(g48 Vor: p17964 tp17965 a(g6 V tp17966 a(g6 V[ tp17967 a(g6 V tp17968 a(g87 Vself p17969 tp17970 a(g6 V tp17971 a(g48 Vclass p17972 tp17973 a(g6 V tp17974 a(g48 VinheritsFrom: p17975 tp17976 a(g6 V tp17977 a(g100 VlookupClass p17978 tp17979 a(g6 V] tp17980 a(g6 V) tp17981 a(g6 V\u000a p17982 tp17983 a(g84 VifFalse: p17984 tp17985 a(g6 V tp17986 a(g6 V[ tp17987 a(g6 V tp17988 a(g353 V^ tp17989 a(g6 V tp17990 a(g87 Vself p17991 tp17992 a(g6 V tp17993 a(g48 Verror: p17994 tp17995 a(g6 V tp17996 a(g236 V'lookupClass is not in my inheritance chain' p17997 tp17998 a(g6 V] tp17999 a(g212 V. tp18000 a(g6 V\u000a p18001 tp18002 a(g87 Vself p18003 tp18004 a(g6 V tp18005 a(g48 VprimitiveFailed p18006 tp18007 a(g138 V! ! p18008 tp18009 a(g6 V\u000a\u000a p18010 tp18011 a(g138 V! tp18012 a(g133 VObject p18013 tp18014 a(g138 V methodsFor: p18015 tp18016 a(g236 V'message handling' p18017 tp18018 a(g138 V stamp: 'nk 4/11/2002 14:13'! p18019 tp18020 a(g6 V\u000a tp18021 a(g48 Vperform: p18022 tp18023 a(g6 V tp18024 a(g100 Vselector p18025 tp18026 a(g6 V tp18027 a(g48 VwithEnoughArguments: p18028 tp18029 a(g6 V tp18030 a(g100 VanArray p18031 tp18032 a(g6 V\u000a p18033 tp18034 a(g24 V"Send the selector, aSymbol, to the receiver with arguments in argArray.\u000a Only use enough arguments for the arity of the selector; supply nils for missing ones." p18035 tp18036 a(g6 V\u000a p18037 tp18038 a(g353 V| tp18039 a(g100 V numArgs args p18040 tp18041 a(g353 V| tp18042 a(g6 V\u000a p18043 tp18044 a(g100 VnumArgs p18045 tp18046 a(g6 V tp18047 a(g353 V_ tp18048 a(g6 V tp18049 a(g100 Vselector p18050 tp18051 a(g6 V tp18052 a(g48 VnumArgs p18053 tp18054 a(g212 V. tp18055 a(g6 V\u000a p18056 tp18057 a(g100 VanArray p18058 tp18059 a(g6 V tp18060 a(g48 Vsize p18061 tp18062 a(g6 V tp18063 a(g48 V== p18064 tp18065 a(g6 V tp18066 a(g100 VnumArgs p18067 tp18068 a(g6 V\u000a p18069 tp18070 a(g84 VifTrue: p18071 tp18072 a(g6 V tp18073 a(g6 V[ tp18074 a(g6 V tp18075 a(g6 V tp18076 a(g353 V^ tp18077 a(g87 Vself p18078 tp18079 a(g6 V tp18080 a(g48 Vperform: p18081 tp18082 a(g6 V tp18083 a(g100 Vselector p18084 tp18085 a(g6 V tp18086 a(g48 VwithArguments: p18087 tp18088 a(g6 V tp18089 a(g100 VanArray p18090 tp18091 a(g6 V tp18092 a(g48 VasArray p18093 tp18094 a(g6 V tp18095 a(g6 V] tp18096 a(g212 V. tp18097 a(g6 V\u000a\u000a p18098 tp18099 a(g100 Vargs p18100 tp18101 a(g6 V tp18102 a(g353 V_ tp18103 a(g6 V tp18104 a(g133 VArray p18105 tp18106 a(g6 V tp18107 a(g48 Vnew: p18108 tp18109 a(g6 V tp18110 a(g100 VnumArgs p18111 tp18112 a(g212 V. tp18113 a(g6 V\u000a p18114 tp18115 a(g100 Vargs p18116 tp18117 a(g6 V tp18118 a(g48 VreplaceFrom: p18119 tp18120 a(g6 V tp18121 a(g223 V1 tp18122 a(g6 V\u000a p18123 tp18124 a(g48 Vto: p18125 tp18126 a(g6 V tp18127 a(g6 V( tp18128 a(g100 VanArray p18129 tp18130 a(g6 V tp18131 a(g48 Vsize p18132 tp18133 a(g6 V tp18134 a(g48 Vmin: p18135 tp18136 a(g6 V tp18137 a(g100 Vargs p18138 tp18139 a(g6 V tp18140 a(g48 Vsize p18141 tp18142 a(g6 V) tp18143 a(g6 V\u000a p18144 tp18145 a(g48 Vwith: p18146 tp18147 a(g6 V tp18148 a(g100 VanArray p18149 tp18150 a(g6 V\u000a p18151 tp18152 a(g48 VstartingAt: p18153 tp18154 a(g6 V tp18155 a(g223 V1 tp18156 a(g212 V. tp18157 a(g6 V\u000a\u000a p18158 tp18159 a(g353 V^ tp18160 a(g6 V tp18161 a(g87 Vself p18162 tp18163 a(g6 V tp18164 a(g48 Vperform: p18165 tp18166 a(g6 V tp18167 a(g100 Vselector p18168 tp18169 a(g6 V tp18170 a(g48 VwithArguments: p18171 tp18172 a(g6 V tp18173 a(g100 Vargs p18174 tp18175 a(g138 V! ! p18176 tp18177 a(g6 V\u000a\u000a p18178 tp18179 a(g138 V! tp18180 a(g133 VObject p18181 tp18182 a(g138 V methodsFor: p18183 tp18184 a(g236 V'message handling' p18185 tp18186 a(g138 V stamp: 'di 3/26/1999 07:52'! p18187 tp18188 a(g6 V\u000a tp18189 a(g48 Vperform: p18190 tp18191 a(g6 V tp18192 a(g100 VaSymbol p18193 tp18194 a(g6 V tp18195 a(g48 Vwith: p18196 tp18197 a(g6 V tp18198 a(g100 VanObject p18199 tp18200 a(g6 V \u000a p18201 tp18202 a(g24 V"Send the selector, aSymbol, to the receiver with anObject as its argument.\u000a Fail if the number of arguments expected by the selector is not one.\u000a Primitive. Optional. See Object documentation whatIsAPrimitive." p18203 tp18204 a(g6 V\u000a\u000a p18205 tp18206 a(g6 V< tp18207 a(g138 Vprimitive: p18208 tp18209 a(g6 V 83 p18210 tp18211 a(g6 V> tp18212 a(g6 V\u000a p18213 tp18214 a(g353 V^ tp18215 a(g6 V tp18216 a(g87 Vself p18217 tp18218 a(g6 V tp18219 a(g48 Vperform: p18220 tp18221 a(g6 V tp18222 a(g100 VaSymbol p18223 tp18224 a(g6 V tp18225 a(g48 VwithArguments: p18226 tp18227 a(g6 V tp18228 a(g6 V( tp18229 a(g133 VArray p18230 tp18231 a(g6 V tp18232 a(g48 Vwith: p18233 tp18234 a(g6 V tp18235 a(g100 VanObject p18236 tp18237 a(g6 V) tp18238 a(g138 V! ! p18239 tp18240 a(g6 V\u000a\u000a p18241 tp18242 a(g138 V! tp18243 a(g133 VObject p18244 tp18245 a(g138 V methodsFor: p18246 tp18247 a(g236 V'message handling' p18248 tp18249 a(g138 V stamp: 'di 3/26/1999 07:52'! p18250 tp18251 a(g6 V\u000a tp18252 a(g48 Vperform: p18253 tp18254 a(g6 V tp18255 a(g100 VaSymbol p18256 tp18257 a(g6 V tp18258 a(g48 Vwith: p18259 tp18260 a(g6 V tp18261 a(g100 VfirstObject p18262 tp18263 a(g6 V tp18264 a(g48 Vwith: p18265 tp18266 a(g6 V tp18267 a(g100 VsecondObject p18268 tp18269 a(g6 V \u000a p18270 tp18271 a(g24 V"Send the selector, aSymbol, to the receiver with the given arguments.\u000a Fail if the number of arguments expected by the selector is not two.\u000a Primitive. Optional. See Object documentation whatIsAPrimitive." p18272 tp18273 a(g6 V\u000a\u000a p18274 tp18275 a(g6 V< tp18276 a(g138 Vprimitive: p18277 tp18278 a(g6 V 83 p18279 tp18280 a(g6 V> tp18281 a(g6 V\u000a p18282 tp18283 a(g353 V^ tp18284 a(g6 V tp18285 a(g87 Vself p18286 tp18287 a(g6 V tp18288 a(g48 Vperform: p18289 tp18290 a(g6 V tp18291 a(g100 VaSymbol p18292 tp18293 a(g6 V tp18294 a(g48 VwithArguments: p18295 tp18296 a(g6 V tp18297 a(g6 V( tp18298 a(g133 VArray p18299 tp18300 a(g6 V tp18301 a(g48 Vwith: p18302 tp18303 a(g6 V tp18304 a(g100 VfirstObject p18305 tp18306 a(g6 V tp18307 a(g48 Vwith: p18308 tp18309 a(g6 V tp18310 a(g100 VsecondObject p18311 tp18312 a(g6 V) tp18313 a(g138 V! ! p18314 tp18315 a(g6 V\u000a\u000a p18316 tp18317 a(g138 V! tp18318 a(g133 VObject p18319 tp18320 a(g138 V methodsFor: p18321 tp18322 a(g236 V'message handling' p18323 tp18324 a(g138 V stamp: 'di 3/26/1999 07:51'! p18325 tp18326 a(g6 V\u000a tp18327 a(g48 Vperform: p18328 tp18329 a(g6 V tp18330 a(g100 VaSymbol p18331 tp18332 a(g6 V tp18333 a(g48 Vwith: p18334 tp18335 a(g6 V tp18336 a(g100 VfirstObject p18337 tp18338 a(g6 V tp18339 a(g48 Vwith: p18340 tp18341 a(g6 V tp18342 a(g100 VsecondObject p18343 tp18344 a(g6 V tp18345 a(g48 Vwith: p18346 tp18347 a(g6 V tp18348 a(g100 VthirdObject p18349 tp18350 a(g6 V \u000a p18351 tp18352 a(g24 V"Send the selector, aSymbol, to the receiver with the given arguments.\u000a Fail if the number of arguments expected by the selector is not three.\u000a Primitive. Optional. See Object documentation whatIsAPrimitive." p18353 tp18354 a(g6 V\u000a\u000a p18355 tp18356 a(g6 V< tp18357 a(g138 Vprimitive: p18358 tp18359 a(g6 V 83 p18360 tp18361 a(g6 V> tp18362 a(g6 V\u000a p18363 tp18364 a(g353 V^ tp18365 a(g6 V tp18366 a(g87 Vself p18367 tp18368 a(g6 V tp18369 a(g48 Vperform: p18370 tp18371 a(g6 V tp18372 a(g100 VaSymbol p18373 tp18374 a(g6 V\u000a p18375 tp18376 a(g48 VwithArguments: p18377 tp18378 a(g6 V tp18379 a(g6 V( tp18380 a(g133 VArray p18381 tp18382 a(g6 V tp18383 a(g48 Vwith: p18384 tp18385 a(g6 V tp18386 a(g100 VfirstObject p18387 tp18388 a(g6 V tp18389 a(g48 Vwith: p18390 tp18391 a(g6 V tp18392 a(g100 VsecondObject p18393 tp18394 a(g6 V tp18395 a(g48 Vwith: p18396 tp18397 a(g6 V tp18398 a(g100 VthirdObject p18399 tp18400 a(g6 V) tp18401 a(g138 V! ! p18402 tp18403 a(g6 V\u000a\u000a p18404 tp18405 a(g138 V! tp18406 a(g133 VObject p18407 tp18408 a(g138 V methodsFor: p18409 tp18410 a(g236 V'message handling' p18411 tp18412 a(g138 V stamp: 'NS 1/28/2004 11:19'! p18413 tp18414 a(g6 V\u000a tp18415 a(g48 VwithArgs: p18416 tp18417 a(g6 V tp18418 a(g100 VargArray p18419 tp18420 a(g6 V tp18421 a(g48 VexecuteMethod: p18422 tp18423 a(g6 V tp18424 a(g100 VcompiledMethod p18425 tp18426 a(g6 V\u000a p18427 tp18428 a(g24 V"Execute compiledMethod against the receiver and args in argArray" p18429 tp18430 a(g6 V\u000a\u000a p18431 tp18432 a(g353 V| tp18433 a(g100 V selector p18434 tp18435 a(g353 V| tp18436 a(g6 V\u000a p18437 tp18438 a(g6 V< tp18439 a(g138 Vprimitive: p18440 tp18441 a(g6 V 188 p18442 tp18443 a(g6 V> tp18444 a(g6 V\u000a p18445 tp18446 a(g100 Vselector p18447 tp18448 a(g6 V tp18449 a(g353 V_ tp18450 a(g6 V tp18451 a(g133 VSymbol p18452 tp18453 a(g6 V tp18454 a(g84 Vnew p18455 tp18456 a(g212 V. tp18457 a(g6 V\u000a p18458 tp18459 a(g87 Vself p18460 tp18461 a(g6 V tp18462 a(g48 Vclass p18463 tp18464 a(g6 V tp18465 a(g48 VaddSelectorSilently: p18466 tp18467 a(g6 V tp18468 a(g100 Vselector p18469 tp18470 a(g6 V tp18471 a(g48 VwithMethod: p18472 tp18473 a(g6 V tp18474 a(g100 VcompiledMethod p18475 tp18476 a(g212 V. tp18477 a(g6 V\u000a p18478 tp18479 a(g353 V^ tp18480 a(g6 V tp18481 a(g6 V[ tp18482 a(g6 V tp18483 a(g87 Vself p18484 tp18485 a(g6 V tp18486 a(g48 Vperform: p18487 tp18488 a(g6 V tp18489 a(g100 Vselector p18490 tp18491 a(g6 V tp18492 a(g48 VwithArguments: p18493 tp18494 a(g6 V tp18495 a(g100 VargArray p18496 tp18497 a(g6 V] tp18498 a(g6 V\u000a p18499 tp18500 a(g48 Vensure: p18501 tp18502 a(g6 V tp18503 a(g6 V[ tp18504 a(g6 V tp18505 a(g87 Vself p18506 tp18507 a(g6 V tp18508 a(g48 Vclass p18509 tp18510 a(g6 V tp18511 a(g48 VbasicRemoveSelector: p18512 tp18513 a(g6 V tp18514 a(g100 Vselector p18515 tp18516 a(g6 V] tp18517 a(g138 V! ! p18518 tp18519 a(g6 V\u000a\u000a p18520 tp18521 a(g138 V! tp18522 a(g133 VObject p18523 tp18524 a(g138 V methodsFor: p18525 tp18526 a(g236 V'message handling' p18527 tp18528 a(g138 V stamp: 'md 1/20/2006 16:28'! p18529 tp18530 a(g6 V\u000a tp18531 a(g48 Vwith: p18532 tp18533 a(g6 V tp18534 a(g100 Varg1 p18535 tp18536 a(g6 V tp18537 a(g48 VexecuteMethod: p18538 tp18539 a(g6 V tp18540 a(g100 VcompiledMethod p18541 tp18542 a(g6 V\u000a p18543 tp18544 a(g24 V"Execute compiledMethod against the receiver and arg1" p18545 tp18546 a(g6 V\u000a\u000a p18547 tp18548 a(g24 V"" p18549 tp18550 a(g6 V tp18551 a(g24 V"uncomment once prim 189 is in VM" p18552 tp18553 a(g6 V\u000a p18554 tp18555 a(g353 V^ tp18556 a(g6 V tp18557 a(g87 Vself p18558 tp18559 a(g6 V tp18560 a(g48 VwithArgs: p18561 tp18562 a(g6 V tp18563 a(g6 V{ tp18564 a(g100 Varg1 p18565 tp18566 a(g6 V} tp18567 a(g6 V tp18568 a(g48 VexecuteMethod: p18569 tp18570 a(g6 V tp18571 a(g100 VcompiledMethod p18572 tp18573 a(g138 V! ! p18574 tp18575 a(g6 V\u000a\u000a p18576 tp18577 a(g138 V! tp18578 a(g133 VObject p18579 tp18580 a(g138 V methodsFor: p18581 tp18582 a(g236 V'message handling' p18583 tp18584 a(g138 V stamp: 'md 1/20/2006 16:28'! p18585 tp18586 a(g6 V\u000a tp18587 a(g48 Vwith: p18588 tp18589 a(g6 V tp18590 a(g100 Varg1 p18591 tp18592 a(g6 V tp18593 a(g48 Vwith: p18594 tp18595 a(g6 V tp18596 a(g100 Varg2 p18597 tp18598 a(g6 V tp18599 a(g48 VexecuteMethod: p18600 tp18601 a(g6 V tp18602 a(g100 VcompiledMethod p18603 tp18604 a(g6 V\u000a p18605 tp18606 a(g24 V"Execute compiledMethod against the receiver and arg1 & arg2" p18607 tp18608 a(g6 V\u000a\u000a p18609 tp18610 a(g24 V"" p18611 tp18612 a(g6 V tp18613 a(g24 V"uncomment once prim 189 is in VM" p18614 tp18615 a(g6 V\u000a p18616 tp18617 a(g353 V^ tp18618 a(g6 V tp18619 a(g87 Vself p18620 tp18621 a(g6 V tp18622 a(g48 VwithArgs: p18623 tp18624 a(g6 V tp18625 a(g6 V{ tp18626 a(g100 Varg1 p18627 tp18628 a(g212 V. tp18629 a(g6 V tp18630 a(g100 Varg2 p18631 tp18632 a(g6 V} tp18633 a(g6 V tp18634 a(g48 VexecuteMethod: p18635 tp18636 a(g6 V tp18637 a(g100 VcompiledMethod p18638 tp18639 a(g138 V! ! p18640 tp18641 a(g6 V\u000a\u000a p18642 tp18643 a(g138 V! tp18644 a(g133 VObject p18645 tp18646 a(g138 V methodsFor: p18647 tp18648 a(g236 V'message handling' p18649 tp18650 a(g138 V stamp: 'md 1/20/2006 16:28'! p18651 tp18652 a(g6 V\u000a tp18653 a(g48 Vwith: p18654 tp18655 a(g6 V tp18656 a(g100 Varg1 p18657 tp18658 a(g6 V tp18659 a(g48 Vwith: p18660 tp18661 a(g6 V tp18662 a(g100 Varg2 p18663 tp18664 a(g6 V tp18665 a(g48 Vwith: p18666 tp18667 a(g6 V tp18668 a(g100 Varg3 p18669 tp18670 a(g6 V tp18671 a(g48 VexecuteMethod: p18672 tp18673 a(g6 V tp18674 a(g100 VcompiledMethod p18675 tp18676 a(g6 V\u000a p18677 tp18678 a(g24 V"Execute compiledMethod against the receiver and arg1, arg2, & arg3" p18679 tp18680 a(g6 V\u000a\u000a p18681 tp18682 a(g24 V"" p18683 tp18684 a(g6 V tp18685 a(g24 V"uncomment once prim 189 is in VM" p18686 tp18687 a(g6 V\u000a p18688 tp18689 a(g353 V^ tp18690 a(g6 V tp18691 a(g87 Vself p18692 tp18693 a(g6 V tp18694 a(g48 VwithArgs: p18695 tp18696 a(g6 V tp18697 a(g6 V{ tp18698 a(g100 Varg1 p18699 tp18700 a(g212 V. tp18701 a(g6 V tp18702 a(g100 Varg2 p18703 tp18704 a(g212 V. tp18705 a(g6 V tp18706 a(g100 Varg3 p18707 tp18708 a(g6 V} tp18709 a(g6 V tp18710 a(g48 VexecuteMethod: p18711 tp18712 a(g6 V tp18713 a(g100 VcompiledMethod p18714 tp18715 a(g138 V! ! p18716 tp18717 a(g6 V\u000a\u000a p18718 tp18719 a(g138 V! tp18720 a(g133 VObject p18721 tp18722 a(g138 V methodsFor: p18723 tp18724 a(g236 V'message handling' p18725 tp18726 a(g138 V stamp: 'md 1/20/2006 16:28'! p18727 tp18728 a(g6 V\u000a tp18729 a(g48 Vwith: p18730 tp18731 a(g6 V tp18732 a(g100 Varg1 p18733 tp18734 a(g6 V tp18735 a(g48 Vwith: p18736 tp18737 a(g6 V tp18738 a(g100 Varg2 p18739 tp18740 a(g6 V tp18741 a(g48 Vwith: p18742 tp18743 a(g6 V tp18744 a(g100 Varg3 p18745 tp18746 a(g6 V tp18747 a(g48 Vwith: p18748 tp18749 a(g6 V tp18750 a(g100 Varg4 p18751 tp18752 a(g6 V tp18753 a(g48 VexecuteMethod: p18754 tp18755 a(g6 V tp18756 a(g100 VcompiledMethod p18757 tp18758 a(g6 V\u000a p18759 tp18760 a(g24 V"Execute compiledMethod against the receiver and arg1, arg2, arg3, & arg4" p18761 tp18762 a(g6 V\u000a\u000a p18763 tp18764 a(g24 V"" p18765 tp18766 a(g6 V tp18767 a(g24 V"uncomment once prim 189 is in VM" p18768 tp18769 a(g6 V\u000a p18770 tp18771 a(g353 V^ tp18772 a(g6 V tp18773 a(g87 Vself p18774 tp18775 a(g6 V tp18776 a(g48 VwithArgs: p18777 tp18778 a(g6 V tp18779 a(g6 V{ tp18780 a(g100 Varg1 p18781 tp18782 a(g212 V. tp18783 a(g6 V tp18784 a(g100 Varg2 p18785 tp18786 a(g212 V. tp18787 a(g6 V tp18788 a(g100 Varg3 p18789 tp18790 a(g212 V. tp18791 a(g6 V tp18792 a(g100 Varg4 p18793 tp18794 a(g6 V} tp18795 a(g6 V tp18796 a(g48 VexecuteMethod: p18797 tp18798 a(g6 V tp18799 a(g100 VcompiledMethod p18800 tp18801 a(g138 V! ! p18802 tp18803 a(g6 V\u000a\u000a\u000a p18804 tp18805 a(g138 V! tp18806 a(g133 VObject p18807 tp18808 a(g138 V methodsFor: p18809 tp18810 a(g236 V'objects from disk' p18811 tp18812 a(g138 V stamp: 'tk 4/8/1999 12:46'! p18813 tp18814 a(g6 V\u000a tp18815 a(g48 VcomeFullyUpOnReload: p18816 tp18817 a(g6 V tp18818 a(g100 VsmartRefStream p18819 tp18820 a(g6 V\u000a p18821 tp18822 a(g24 V"Normally this read-in object is exactly what we want to store. 7/26/96 tk" p18823 tp18824 a(g6 V\u000a\u000a p18825 tp18826 a(g353 V^ tp18827 a(g6 V tp18828 a(g87 Vself p18829 tp18830 a(g138 V! ! p18831 tp18832 a(g6 V\u000a\u000a p18833 tp18834 a(g138 V! tp18835 a(g133 VObject p18836 tp18837 a(g138 V methodsFor: p18838 tp18839 a(g236 V'objects from disk' p18840 tp18841 a(g138 V stamp: 'RAA 12/20/2000 16:51'! p18842 tp18843 a(g6 V\u000a tp18844 a(g48 VconvertToCurrentVersion: p18845 tp18846 a(g6 V tp18847 a(g100 VvarDict p18848 tp18849 a(g6 V tp18850 a(g48 VrefStream: p18851 tp18852 a(g6 V tp18853 a(g100 VsmartRefStrm p18854 tp18855 a(g6 V\u000a\u000a p18856 tp18857 a(g24 V"subclasses should implement if they wish to convert old instances to modern ones" p18858 tp18859 a(g138 V! ! p18860 tp18861 a(g6 V\u000a\u000a p18862 tp18863 a(g138 V! tp18864 a(g133 VObject p18865 tp18866 a(g138 V methodsFor: p18867 tp18868 a(g236 V'objects from disk' p18869 tp18870 a(g138 V stamp: 'tk 11/29/2004 15:04'! p18871 tp18872 a(g6 V\u000a tp18873 a(g48 VfixUponLoad: p18874 tp18875 a(g6 V tp18876 a(g100 VaProject p18877 tp18878 a(g6 V tp18879 a(g48 Vseg: p18880 tp18881 a(g6 V tp18882 a(g100 VanImageSegment p18883 tp18884 a(g6 V\u000a p18885 tp18886 a(g24 V"change the object due to conventions that have changed on\u000athe project level. (sent to all objects in the incoming project).\u000aSpecific classes should reimplement this." p18887 tp18888 a(g138 V! ! p18889 tp18890 a(g6 V\u000a\u000a p18891 tp18892 a(g138 V! tp18893 a(g133 VObject p18894 tp18895 a(g138 V methodsFor: p18896 tp18897 a(g236 V'objects from disk' p18898 tp18899 a(g138 V stamp: 'RAA 1/10/2001 14:02'! p18900 tp18901 a(g6 V\u000a tp18902 a(g48 VindexIfCompact p18903 tp18904 a(g6 V\u000a tp18905 a(g6 V\u000a p18906 tp18907 a(g353 V^ tp18908 a(g223 V0 tp18909 a(g6 V p18910 tp18911 a(g24 V"helps avoid a #respondsTo: in publishing" p18912 tp18913 a(g138 V! ! p18914 tp18915 a(g6 V\u000a\u000a p18916 tp18917 a(g138 V! tp18918 a(g133 VObject p18919 tp18920 a(g138 V methodsFor: p18921 tp18922 a(g236 V'objects from disk' p18923 tp18924 a(g138 V stamp: 'tk 2/24/1999 11:08'! p18925 tp18926 a(g6 V\u000a tp18927 a(g48 VobjectForDataStream: p18928 tp18929 a(g6 V tp18930 a(g100 VrefStrm p18931 tp18932 a(g6 V\u000a p18933 tp18934 a(g24 V"Return an object to store on an external data stream." p18935 tp18936 a(g6 V\u000a\u000a p18937 tp18938 a(g353 V^ tp18939 a(g6 V tp18940 a(g87 Vself p18941 tp18942 a(g138 V! ! p18943 tp18944 a(g6 V\u000a\u000a p18945 tp18946 a(g138 V! tp18947 a(g133 VObject p18948 tp18949 a(g138 V methodsFor: p18950 tp18951 a(g236 V'objects from disk' p18952 tp18953 a(g138 V stamp: 'tk 4/8/1999 12:05'! p18954 tp18955 a(g6 V\u000a tp18956 a(g48 VreadDataFrom: p18957 tp18958 a(g6 V tp18959 a(g100 VaDataStream p18960 tp18961 a(g6 V tp18962 a(g48 Vsize: p18963 tp18964 a(g6 V tp18965 a(g100 VvarsOnDisk p18966 tp18967 a(g6 V\u000a p18968 tp18969 a(g24 V"Fill in the fields of self based on the contents of aDataStream. Return self.\u000a Read in the instance-variables written by Object>>storeDataOn:.\u000a NOTE: This method must send beginReference: before reading any objects from aDataStream that might reference it.\u000a Allow aDataStream to have fewer inst vars. See SmartRefStream." p18970 tp18971 a(g6 V\u000a p18972 tp18973 a(g353 V| tp18974 a(g100 V cntInstVars cntIndexedVars p18975 tp18976 a(g353 V| tp18977 a(g6 V\u000a\u000a p18978 tp18979 a(g100 VcntInstVars p18980 tp18981 a(g6 V tp18982 a(g353 V_ tp18983 a(g6 V tp18984 a(g87 Vself p18985 tp18986 a(g6 V tp18987 a(g48 Vclass p18988 tp18989 a(g6 V tp18990 a(g48 VinstSize p18991 tp18992 a(g212 V. tp18993 a(g6 V\u000a p18994 tp18995 a(g87 Vself p18996 tp18997 a(g6 V tp18998 a(g48 Vclass p18999 tp19000 a(g6 V tp19001 a(g48 VisVariable p19002 tp19003 a(g6 V\u000a p19004 tp19005 a(g84 VifTrue: p19006 tp19007 a(g6 V tp19008 a(g6 V[ tp19009 a(g6 V tp19010 a(g100 VcntIndexedVars p19011 tp19012 a(g6 V tp19013 a(g353 V_ tp19014 a(g6 V tp19015 a(g100 VvarsOnDisk p19016 tp19017 a(g6 V tp19018 a(g48 V- tp19019 a(g6 V tp19020 a(g100 VcntInstVars p19021 tp19022 a(g212 V. tp19023 a(g6 V\u000a p19024 tp19025 a(g100 VcntIndexedVars p19026 tp19027 a(g6 V tp19028 a(g48 V< tp19029 a(g6 V tp19030 a(g223 V0 tp19031 a(g6 V tp19032 a(g84 VifTrue: p19033 tp19034 a(g6 V tp19035 a(g6 V[ tp19036 a(g6 V\u000a p19037 tp19038 a(g6 V tp19039 a(g87 Vself p19040 tp19041 a(g6 V tp19042 a(g48 Verror: p19043 tp19044 a(g6 V tp19045 a(g236 V'Class has changed too much. Define a convertxxx method' p19046 tp19047 a(g6 V] tp19048 a(g6 V] tp19049 a(g6 V\u000a p19050 tp19051 a(g84 VifFalse: p19052 tp19053 a(g6 V tp19054 a(g6 V[ tp19055 a(g6 V tp19056 a(g100 VcntIndexedVars p19057 tp19058 a(g6 V tp19059 a(g353 V_ tp19060 a(g6 V tp19061 a(g223 V0 tp19062 a(g212 V. tp19063 a(g6 V\u000a p19064 tp19065 a(g100 VcntInstVars p19066 tp19067 a(g6 V tp19068 a(g353 V_ tp19069 a(g6 V tp19070 a(g100 VvarsOnDisk p19071 tp19072 a(g6 V] tp19073 a(g212 V. tp19074 a(g6 V p19075 tp19076 a(g24 V"OK if fewer than now" p19077 tp19078 a(g6 V\u000a\u000a p19079 tp19080 a(g100 VaDataStream p19081 tp19082 a(g6 V tp19083 a(g48 VbeginReference: p19084 tp19085 a(g6 V tp19086 a(g87 Vself p19087 tp19088 a(g212 V. tp19089 a(g6 V\u000a p19090 tp19091 a(g223 V1 tp19092 a(g6 V tp19093 a(g48 Vto: p19094 tp19095 a(g6 V tp19096 a(g100 VcntInstVars p19097 tp19098 a(g6 V tp19099 a(g48 Vdo: p19100 tp19101 a(g6 V\u000a p19102 tp19103 a(g6 V[ tp19104 a(g353 V: tp19105 a(g100 Vi tp19106 a(g6 V tp19107 a(g353 V| tp19108 a(g6 V tp19109 a(g87 Vself p19110 tp19111 a(g6 V tp19112 a(g48 VinstVarAt: p19113 tp19114 a(g6 V tp19115 a(g100 Vi tp19116 a(g6 V tp19117 a(g48 Vput: p19118 tp19119 a(g6 V tp19120 a(g100 VaDataStream p19121 tp19122 a(g6 V tp19123 a(g48 Vnext p19124 tp19125 a(g6 V] tp19126 a(g212 V. tp19127 a(g6 V\u000a p19128 tp19129 a(g223 V1 tp19130 a(g6 V tp19131 a(g48 Vto: p19132 tp19133 a(g6 V tp19134 a(g100 VcntIndexedVars p19135 tp19136 a(g6 V tp19137 a(g48 Vdo: p19138 tp19139 a(g6 V\u000a p19140 tp19141 a(g6 V[ tp19142 a(g353 V: tp19143 a(g100 Vi tp19144 a(g6 V tp19145 a(g353 V| tp19146 a(g6 V tp19147 a(g87 Vself p19148 tp19149 a(g6 V tp19150 a(g48 VbasicAt: p19151 tp19152 a(g6 V tp19153 a(g100 Vi tp19154 a(g6 V tp19155 a(g48 Vput: p19156 tp19157 a(g6 V tp19158 a(g100 VaDataStream p19159 tp19160 a(g6 V tp19161 a(g48 Vnext p19162 tp19163 a(g6 V] tp19164 a(g212 V. tp19165 a(g6 V\u000a p19166 tp19167 a(g24 V"Total number read MUST be equal to varsOnDisk!!" p19168 tp19169 a(g6 V\u000a p19170 tp19171 a(g353 V^ tp19172 a(g6 V tp19173 a(g87 Vself p19174 tp19175 a(g6 V tp19176 a(g24 V"If we ever return something other than self, fix calls \u000a on (super readDataFrom: aDataStream size: anInteger)" p19177 tp19178 a(g138 V! ! p19179 tp19180 a(g6 V\u000a\u000a p19181 tp19182 a(g138 V! tp19183 a(g133 VObject p19184 tp19185 a(g138 V methodsFor: p19186 tp19187 a(g236 V'objects from disk' p19188 tp19189 a(g138 V stamp: 'CdG 10/17/2005 20:32'! p19190 tp19191 a(g6 V\u000a tp19192 a(g48 VsaveOnFile p19193 tp19194 a(g6 V\u000a p19195 tp19196 a(g24 V"Ask the user for a filename and save myself on a SmartReferenceStream file. Writes out the version and class structure. The file is fileIn-able. Does not file out the class of the object. tk 6/26/97 13:48" p19197 tp19198 a(g6 V\u000a\u000a p19199 tp19200 a(g353 V| tp19201 a(g100 V aFileName fileStream p19202 tp19203 a(g353 V| tp19204 a(g6 V\u000a p19205 tp19206 a(g100 VaFileName p19207 tp19208 a(g6 V tp19209 a(g353 V:= p19210 tp19211 a(g6 V tp19212 a(g87 Vself p19213 tp19214 a(g6 V tp19215 a(g48 Vclass p19216 tp19217 a(g6 V tp19218 a(g48 Vname p19219 tp19220 a(g6 V tp19221 a(g48 VasFileName p19222 tp19223 a(g212 V. tp19224 a(g6 V tp19225 a(g24 V"do better?" p19226 tp19227 a(g6 V\u000a p19228 tp19229 a(g100 VaFileName p19230 tp19231 a(g6 V tp19232 a(g353 V:= p19233 tp19234 a(g6 V tp19235 a(g133 VUIManager p19236 tp19237 a(g6 V tp19238 a(g48 Vdefault p19239 tp19240 a(g6 V \u000a p19241 tp19242 a(g48 Vrequest: p19243 tp19244 a(g6 V tp19245 a(g236 V'File name?' p19246 tp19247 a(g6 V tp19248 a(g48 Vtranslated p19249 tp19250 a(g6 V tp19251 a(g48 VinitialAnswer: p19252 tp19253 a(g6 V tp19254 a(g100 VaFileName p19255 tp19256 a(g212 V. tp19257 a(g6 V\u000a p19258 tp19259 a(g100 VaFileName p19260 tp19261 a(g6 V tp19262 a(g48 Vsize p19263 tp19264 a(g6 V tp19265 a(g48 V== p19266 tp19267 a(g6 V tp19268 a(g223 V0 tp19269 a(g6 V tp19270 a(g84 VifTrue: p19271 tp19272 a(g6 V tp19273 a(g6 V[ tp19274 a(g6 V tp19275 a(g353 V^ tp19276 a(g6 V tp19277 a(g133 VBeeper p19278 tp19279 a(g6 V tp19280 a(g48 Vbeep p19281 tp19282 a(g6 V] tp19283 a(g212 V. tp19284 a(g6 V\u000a\u000a p19285 tp19286 a(g100 VfileStream p19287 tp19288 a(g6 V tp19289 a(g353 V:= p19290 tp19291 a(g6 V tp19292 a(g133 VFileStream p19293 tp19294 a(g6 V tp19295 a(g48 VnewFileNamed: p19296 tp19297 a(g6 V tp19298 a(g100 VaFileName p19299 tp19300 a(g6 V tp19301 a(g48 VasFileName p19302 tp19303 a(g212 V. tp19304 a(g6 V\u000a p19305 tp19306 a(g100 VfileStream p19307 tp19308 a(g6 V tp19309 a(g48 VfileOutClass: p19310 tp19311 a(g6 V tp19312 a(g87 Vnil p19313 tp19314 a(g6 V tp19315 a(g48 VandObject: p19316 tp19317 a(g6 V tp19318 a(g87 Vself p19319 tp19320 a(g212 V. tp19321 a(g138 V! ! p19322 tp19323 a(g6 V\u000a\u000a p19324 tp19325 a(g138 V! tp19326 a(g133 VObject p19327 tp19328 a(g138 V methodsFor: p19329 tp19330 a(g236 V'objects from disk' p19331 tp19332 a(g138 V stamp: 'tk 8/9/2001 15:40'! p19333 tp19334 a(g6 V\u000a tp19335 a(g48 VstoreDataOn: p19336 tp19337 a(g6 V tp19338 a(g100 VaDataStream p19339 tp19340 a(g6 V\u000a p19341 tp19342 a(g24 V"Store myself on a DataStream. Answer self. This is a low-level DataStream/ReferenceStream method. See also objectToStoreOnDataStream. NOTE: This method must send 'aDataStream beginInstance:size:' and then (nextPut:/nextPutWeak:) its subobjects. readDataFrom:size: reads back what we write here." p19343 tp19344 a(g6 V\u000a p19345 tp19346 a(g353 V| tp19347 a(g100 V cntInstVars cntIndexedVars p19348 tp19349 a(g353 V| tp19350 a(g6 V\u000a\u000a p19351 tp19352 a(g100 VcntInstVars p19353 tp19354 a(g6 V tp19355 a(g353 V_ tp19356 a(g6 V tp19357 a(g87 Vself p19358 tp19359 a(g6 V tp19360 a(g48 Vclass p19361 tp19362 a(g6 V tp19363 a(g48 VinstSize p19364 tp19365 a(g212 V. tp19366 a(g6 V\u000a p19367 tp19368 a(g100 VcntIndexedVars p19369 tp19370 a(g6 V tp19371 a(g353 V_ tp19372 a(g6 V tp19373 a(g87 Vself p19374 tp19375 a(g6 V tp19376 a(g48 VbasicSize p19377 tp19378 a(g212 V. tp19379 a(g6 V\u000a p19380 tp19381 a(g100 VaDataStream p19382 tp19383 a(g6 V\u000a p19384 tp19385 a(g48 VbeginInstance: p19386 tp19387 a(g6 V tp19388 a(g87 Vself p19389 tp19390 a(g6 V tp19391 a(g48 Vclass p19392 tp19393 a(g6 V\u000a p19394 tp19395 a(g48 Vsize: p19396 tp19397 a(g6 V tp19398 a(g100 VcntInstVars p19399 tp19400 a(g6 V tp19401 a(g48 V+ tp19402 a(g6 V tp19403 a(g100 VcntIndexedVars p19404 tp19405 a(g212 V. tp19406 a(g6 V\u000a p19407 tp19408 a(g223 V1 tp19409 a(g6 V tp19410 a(g48 Vto: p19411 tp19412 a(g6 V tp19413 a(g100 VcntInstVars p19414 tp19415 a(g6 V tp19416 a(g48 Vdo: p19417 tp19418 a(g6 V\u000a p19419 tp19420 a(g6 V[ tp19421 a(g353 V: tp19422 a(g100 Vi tp19423 a(g6 V tp19424 a(g353 V| tp19425 a(g6 V tp19426 a(g100 VaDataStream p19427 tp19428 a(g6 V tp19429 a(g48 VnextPut: p19430 tp19431 a(g6 V tp19432 a(g6 V( tp19433 a(g87 Vself p19434 tp19435 a(g6 V tp19436 a(g48 VinstVarAt: p19437 tp19438 a(g6 V tp19439 a(g100 Vi tp19440 a(g6 V) tp19441 a(g6 V] tp19442 a(g212 V. tp19443 a(g6 V\u000a\u000a p19444 tp19445 a(g24 V"Write fields of a variable length object. When writing to a dummy \u000a stream, don't bother to write the bytes" p19446 tp19447 a(g6 V\u000a p19448 tp19449 a(g6 V( tp19450 a(g6 V( tp19451 a(g100 VaDataStream p19452 tp19453 a(g6 V tp19454 a(g48 VbyteStream p19455 tp19456 a(g6 V tp19457 a(g48 Vclass p19458 tp19459 a(g6 V tp19460 a(g48 V== p19461 tp19462 a(g6 V tp19463 a(g133 VDummyStream p19464 tp19465 a(g6 V) tp19466 a(g6 V tp19467 a(g48 Vand: p19468 tp19469 a(g6 V tp19470 a(g6 V[ tp19471 a(g6 V tp19472 a(g87 Vself p19473 tp19474 a(g6 V tp19475 a(g48 Vclass p19476 tp19477 a(g6 V tp19478 a(g48 VisBits p19479 tp19480 a(g6 V] tp19481 a(g6 V) tp19482 a(g6 V tp19483 a(g84 VifFalse: p19484 tp19485 a(g6 V tp19486 a(g6 V[ tp19487 a(g6 V\u000a p19488 tp19489 a(g6 V tp19490 a(g223 V1 tp19491 a(g6 V tp19492 a(g48 Vto: p19493 tp19494 a(g6 V tp19495 a(g100 VcntIndexedVars p19496 tp19497 a(g6 V tp19498 a(g48 Vdo: p19499 tp19500 a(g6 V\u000a p19501 tp19502 a(g6 V[ tp19503 a(g353 V: tp19504 a(g100 Vi tp19505 a(g6 V tp19506 a(g353 V| tp19507 a(g6 V tp19508 a(g100 VaDataStream p19509 tp19510 a(g6 V tp19511 a(g48 VnextPut: p19512 tp19513 a(g6 V tp19514 a(g6 V( tp19515 a(g87 Vself p19516 tp19517 a(g6 V tp19518 a(g48 VbasicAt: p19519 tp19520 a(g6 V tp19521 a(g100 Vi tp19522 a(g6 V) tp19523 a(g6 V] tp19524 a(g6 V] tp19525 a(g212 V. tp19526 a(g6 V\u000a tp19527 a(g138 V! ! p19528 tp19529 a(g6 V\u000a\u000a\u000a p19530 tp19531 a(g138 V! tp19532 a(g133 VObject p19533 tp19534 a(g138 V methodsFor: p19535 tp19536 a(g236 V'parts bin' p19537 tp19538 a(g138 V stamp: 'sw 10/24/2001 16:34'! p19539 tp19540 a(g6 V\u000a tp19541 a(g48 VdescriptionForPartsBin p19542 tp19543 a(g6 V\u000a p19544 tp19545 a(g24 V"If the receiver is a member of a class that would like to be represented in a parts bin, answer the name by which it should be known, and a documentation string to be provided, for example, as balloon help. When the 'nativitySelector' is sent to the 'globalReceiver', it is expected that some kind of Morph will result. The parameters used in the implementation below are for documentation purposes only!!" p19546 tp19547 a(g6 V\u000a\u000a p19548 tp19549 a(g353 V^ tp19550 a(g6 V tp19551 a(g133 VDescriptionForPartsBin p19552 tp19553 a(g6 V\u000a p19554 tp19555 a(g48 VformalName: p19556 tp19557 a(g6 V tp19558 a(g236 V'PutFormalNameHere' p19559 tp19560 a(g6 V\u000a p19561 tp19562 a(g48 VcategoryList: p19563 tp19564 a(g6 V tp19565 a(g258 V#( p19566 tp19567 a(g258 VPutACategoryHere p19568 tp19569 a(g6 V tp19570 a(g258 VMaybePutAnotherCategoryHere p19571 tp19572 a(g258 V) tp19573 a(g6 V\u000a p19574 tp19575 a(g48 Vdocumentation: p19576 tp19577 a(g6 V tp19578 a(g236 V'Put the balloon help here' p19579 tp19580 a(g6 V\u000a p19581 tp19582 a(g48 VglobalReceiverSymbol: p19583 tp19584 a(g6 V tp19585 a(g258 V#PutAGlobalHere p19586 tp19587 a(g6 V\u000a p19588 tp19589 a(g48 VnativitySelector: p19590 tp19591 a(g6 V tp19592 a(g258 V#PutASelectorHere p19593 tp19594 a(g138 V! ! p19595 tp19596 a(g6 V\u000a\u000a\u000a p19597 tp19598 a(g138 V! tp19599 a(g133 VObject p19600 tp19601 a(g138 V methodsFor: p19602 tp19603 a(g236 V'printing' p19604 tp19605 a(g138 V stamp: 'di 6/20/97 08:57'! p19606 tp19607 a(g6 V\u000a tp19608 a(g48 VfullPrintString p19609 tp19610 a(g6 V\u000a p19611 tp19612 a(g24 V"Answer a String whose characters are a description of the receiver." p19613 tp19614 a(g6 V\u000a\u000a p19615 tp19616 a(g353 V^ tp19617 a(g6 V tp19618 a(g133 VString p19619 tp19620 a(g6 V tp19621 a(g48 VstreamContents: p19622 tp19623 a(g6 V tp19624 a(g6 V[ tp19625 a(g353 V: tp19626 a(g100 Vs tp19627 a(g6 V tp19628 a(g353 V| tp19629 a(g6 V tp19630 a(g87 Vself p19631 tp19632 a(g6 V tp19633 a(g48 VprintOn: p19634 tp19635 a(g6 V tp19636 a(g100 Vs tp19637 a(g6 V] tp19638 a(g138 V! ! p19639 tp19640 a(g6 V\u000a\u000a p19641 tp19642 a(g138 V! tp19643 a(g133 VObject p19644 tp19645 a(g138 V methodsFor: p19646 tp19647 a(g236 V'printing' p19648 tp19649 a(g138 V! tp19650 a(g6 V\u000a tp19651 a(g48 VisLiteral p19652 tp19653 a(g6 V\u000a p19654 tp19655 a(g24 V"Answer whether the receiver has a literal text form recognized by the \u000a compiler." p19656 tp19657 a(g6 V\u000a\u000a p19658 tp19659 a(g353 V^ tp19660 a(g87 Vfalse p19661 tp19662 a(g138 V! ! p19663 tp19664 a(g6 V\u000a\u000a p19665 tp19666 a(g138 V! tp19667 a(g133 VObject p19668 tp19669 a(g138 V methodsFor: p19670 tp19671 a(g236 V'printing' p19672 tp19673 a(g138 V stamp: 'sma 6/1/2000 09:28'! p19674 tp19675 a(g6 V\u000a tp19676 a(g48 VlongPrintOn: p19677 tp19678 a(g6 V tp19679 a(g100 VaStream p19680 tp19681 a(g6 V\u000a p19682 tp19683 a(g24 V"Append to the argument, aStream, the names and values of all \u000a of the receiver's instance variables." p19684 tp19685 a(g6 V\u000a\u000a p19686 tp19687 a(g87 Vself p19688 tp19689 a(g6 V tp19690 a(g48 Vclass p19691 tp19692 a(g6 V tp19693 a(g48 VallInstVarNames p19694 tp19695 a(g6 V tp19696 a(g48 VdoWithIndex: p19697 tp19698 a(g6 V\u000a p19699 tp19700 a(g6 V[ tp19701 a(g353 V: tp19702 a(g100 Vtitle p19703 tp19704 a(g6 V tp19705 a(g353 V: tp19706 a(g100 Vindex p19707 tp19708 a(g6 V tp19709 a(g353 V| tp19710 a(g6 V\u000a p19711 tp19712 a(g100 VaStream p19713 tp19714 a(g6 V tp19715 a(g48 VnextPutAll: p19716 tp19717 a(g6 V tp19718 a(g100 Vtitle p19719 tp19720 a(g212 V; tp19721 a(g6 V\u000a p19722 tp19723 a(g48 VnextPut: p19724 tp19725 a(g6 V tp19726 a(g278 V$: p19727 tp19728 a(g212 V; tp19729 a(g6 V\u000a p19730 tp19731 a(g48 Vspace p19732 tp19733 a(g212 V; tp19734 a(g6 V\u000a p19735 tp19736 a(g48 Vtab p19737 tp19738 a(g212 V; tp19739 a(g6 V\u000a p19740 tp19741 a(g48 Vprint: p19742 tp19743 a(g6 V tp19744 a(g6 V( tp19745 a(g87 Vself p19746 tp19747 a(g6 V tp19748 a(g48 VinstVarAt: p19749 tp19750 a(g6 V tp19751 a(g100 Vindex p19752 tp19753 a(g6 V) tp19754 a(g212 V; tp19755 a(g6 V\u000a p19756 tp19757 a(g48 Vcr p19758 tp19759 a(g6 V] tp19760 a(g138 V! ! p19761 tp19762 a(g6 V\u000a\u000a p19763 tp19764 a(g138 V! tp19765 a(g133 VObject p19766 tp19767 a(g138 V methodsFor: p19768 tp19769 a(g236 V'printing' p19770 tp19771 a(g138 V stamp: 'tk 10/19/2001 11:18'! p19772 tp19773 a(g6 V\u000a tp19774 a(g48 VlongPrintOn: p19775 tp19776 a(g6 V tp19777 a(g100 VaStream p19778 tp19779 a(g6 V tp19780 a(g48 VlimitedTo: p19781 tp19782 a(g6 V tp19783 a(g100 VsizeLimit p19784 tp19785 a(g6 V tp19786 a(g48 Vindent: p19787 tp19788 a(g6 V tp19789 a(g100 Vindent p19790 tp19791 a(g6 V\u000a p19792 tp19793 a(g24 V"Append to the argument, aStream, the names and values of all of the receiver's instance variables. Limit is the length limit for each inst var." p19794 tp19795 a(g6 V\u000a\u000a p19796 tp19797 a(g87 Vself p19798 tp19799 a(g6 V tp19800 a(g48 Vclass p19801 tp19802 a(g6 V tp19803 a(g48 VallInstVarNames p19804 tp19805 a(g6 V tp19806 a(g48 VdoWithIndex: p19807 tp19808 a(g6 V\u000a p19809 tp19810 a(g6 V[ tp19811 a(g353 V: tp19812 a(g100 Vtitle p19813 tp19814 a(g6 V tp19815 a(g353 V: tp19816 a(g100 Vindex p19817 tp19818 a(g6 V tp19819 a(g353 V| tp19820 a(g6 V\u000a p19821 tp19822 a(g100 Vindent p19823 tp19824 a(g6 V tp19825 a(g84 VtimesRepeat: p19826 tp19827 a(g6 V tp19828 a(g6 V[ tp19829 a(g6 V tp19830 a(g100 VaStream p19831 tp19832 a(g6 V tp19833 a(g48 Vtab p19834 tp19835 a(g6 V] tp19836 a(g212 V. tp19837 a(g6 V\u000a p19838 tp19839 a(g100 VaStream p19840 tp19841 a(g6 V tp19842 a(g48 VnextPutAll: p19843 tp19844 a(g6 V tp19845 a(g100 Vtitle p19846 tp19847 a(g212 V; tp19848 a(g6 V\u000a p19849 tp19850 a(g48 VnextPut: p19851 tp19852 a(g6 V tp19853 a(g278 V$: p19854 tp19855 a(g212 V; tp19856 a(g6 V\u000a p19857 tp19858 a(g48 Vspace p19859 tp19860 a(g212 V; tp19861 a(g6 V\u000a p19862 tp19863 a(g48 Vtab p19864 tp19865 a(g212 V; tp19866 a(g6 V\u000a p19867 tp19868 a(g48 VnextPutAll: p19869 tp19870 a(g6 V \u000a p19871 tp19872 a(g6 V( tp19873 a(g6 V( tp19874 a(g87 Vself p19875 tp19876 a(g6 V tp19877 a(g48 VinstVarAt: p19878 tp19879 a(g6 V tp19880 a(g100 Vindex p19881 tp19882 a(g6 V) tp19883 a(g6 V tp19884 a(g48 VprintStringLimitedTo: p19885 tp19886 a(g6 V tp19887 a(g6 V( tp19888 a(g100 VsizeLimit p19889 tp19890 a(g6 V tp19891 a(g48 V- tp19892 a(g223 V3 tp19893 a(g6 V tp19894 a(g48 V- tp19895 a(g100 Vtitle p19896 tp19897 a(g6 V tp19898 a(g48 Vsize p19899 tp19900 a(g6 V tp19901 a(g48 Vmax: p19902 tp19903 a(g6 V tp19904 a(g223 V1 tp19905 a(g6 V) tp19906 a(g6 V) tp19907 a(g212 V; tp19908 a(g6 V\u000a p19909 tp19910 a(g48 Vcr p19911 tp19912 a(g6 V] tp19913 a(g138 V! ! p19914 tp19915 a(g6 V\u000a\u000a p19916 tp19917 a(g138 V! tp19918 a(g133 VObject p19919 tp19920 a(g138 V methodsFor: p19921 tp19922 a(g236 V'printing' p19923 tp19924 a(g138 V stamp: 'tk 10/16/2001 19:41'! p19925 tp19926 a(g6 V\u000a tp19927 a(g48 VlongPrintString p19928 tp19929 a(g6 V\u000a p19930 tp19931 a(g24 V"Answer a String whose characters are a description of the receiver." p19932 tp19933 a(g6 V\u000a \u000a p19934 tp19935 a(g353 V| tp19936 a(g100 V str p19937 tp19938 a(g353 V| tp19939 a(g6 V\u000a p19940 tp19941 a(g100 Vstr p19942 tp19943 a(g6 V tp19944 a(g353 V_ tp19945 a(g6 V tp19946 a(g133 VString p19947 tp19948 a(g6 V tp19949 a(g48 VstreamContents: p19950 tp19951 a(g6 V tp19952 a(g6 V[ tp19953 a(g353 V: tp19954 a(g100 VaStream p19955 tp19956 a(g6 V tp19957 a(g353 V| tp19958 a(g6 V tp19959 a(g87 Vself p19960 tp19961 a(g6 V tp19962 a(g48 VlongPrintOn: p19963 tp19964 a(g6 V tp19965 a(g100 VaStream p19966 tp19967 a(g6 V] tp19968 a(g212 V. tp19969 a(g6 V\u000a p19970 tp19971 a(g24 V"Objects without inst vars should return something" p19972 tp19973 a(g6 V\u000a p19974 tp19975 a(g353 V^ tp19976 a(g6 V tp19977 a(g100 Vstr p19978 tp19979 a(g6 V tp19980 a(g48 VisEmpty p19981 tp19982 a(g6 V tp19983 a(g84 VifTrue: p19984 tp19985 a(g6 V tp19986 a(g6 V[ tp19987 a(g6 V tp19988 a(g87 Vself p19989 tp19990 a(g6 V tp19991 a(g48 VprintString p19992 tp19993 a(g48 V, tp19994 a(g6 V tp19995 a(g133 VString p19996 tp19997 a(g6 V tp19998 a(g48 Vcr p19999 tp20000 a(g6 V] tp20001 a(g6 V tp20002 a(g84 VifFalse: p20003 tp20004 a(g6 V tp20005 a(g6 V[ tp20006 a(g6 V tp20007 a(g100 Vstr p20008 tp20009 a(g6 V] tp20010 a(g138 V! ! p20011 tp20012 a(g6 V\u000a\u000a p20013 tp20014 a(g138 V! tp20015 a(g133 VObject p20016 tp20017 a(g138 V methodsFor: p20018 tp20019 a(g236 V'printing' p20020 tp20021 a(g138 V stamp: 'BG 11/7/2004 13:39'! p20022 tp20023 a(g6 V\u000a tp20024 a(g48 VlongPrintStringLimitedTo: p20025 tp20026 a(g6 V tp20027 a(g100 VaLimitValue p20028 tp20029 a(g6 V\u000a p20030 tp20031 a(g24 V"Answer a String whose characters are a description of the receiver." p20032 tp20033 a(g6 V\u000a \u000a p20034 tp20035 a(g353 V| tp20036 a(g100 V str p20037 tp20038 a(g353 V| tp20039 a(g6 V\u000a p20040 tp20041 a(g100 Vstr p20042 tp20043 a(g6 V tp20044 a(g353 V_ tp20045 a(g6 V tp20046 a(g133 VString p20047 tp20048 a(g6 V tp20049 a(g48 VstreamContents: p20050 tp20051 a(g6 V tp20052 a(g6 V[ tp20053 a(g353 V: tp20054 a(g100 VaStream p20055 tp20056 a(g6 V tp20057 a(g353 V| tp20058 a(g6 V tp20059 a(g87 Vself p20060 tp20061 a(g6 V tp20062 a(g48 VlongPrintOn: p20063 tp20064 a(g6 V tp20065 a(g100 VaStream p20066 tp20067 a(g6 V tp20068 a(g48 VlimitedTo: p20069 tp20070 a(g6 V tp20071 a(g100 VaLimitValue p20072 tp20073 a(g6 V tp20074 a(g48 Vindent: p20075 tp20076 a(g6 V tp20077 a(g223 V0 tp20078 a(g6 V] tp20079 a(g212 V. tp20080 a(g6 V\u000a p20081 tp20082 a(g24 V"Objects without inst vars should return something" p20083 tp20084 a(g6 V\u000a p20085 tp20086 a(g353 V^ tp20087 a(g6 V tp20088 a(g100 Vstr p20089 tp20090 a(g6 V tp20091 a(g48 VisEmpty p20092 tp20093 a(g6 V tp20094 a(g84 VifTrue: p20095 tp20096 a(g6 V tp20097 a(g6 V[ tp20098 a(g6 V tp20099 a(g87 Vself p20100 tp20101 a(g6 V tp20102 a(g48 VprintString p20103 tp20104 a(g48 V, tp20105 a(g6 V tp20106 a(g133 VString p20107 tp20108 a(g6 V tp20109 a(g48 Vcr p20110 tp20111 a(g6 V] tp20112 a(g6 V tp20113 a(g84 VifFalse: p20114 tp20115 a(g6 V tp20116 a(g6 V[ tp20117 a(g6 V tp20118 a(g100 Vstr p20119 tp20120 a(g6 V] tp20121 a(g138 V! ! p20122 tp20123 a(g6 V\u000a\u000a p20124 tp20125 a(g138 V! tp20126 a(g133 VObject p20127 tp20128 a(g138 V methodsFor: p20129 tp20130 a(g236 V'printing' p20131 tp20132 a(g138 V stamp: 'sw 3/7/2001 13:14'! p20133 tp20134 a(g6 V\u000a tp20135 a(g48 VnominallyUnsent: p20136 tp20137 a(g6 V tp20138 a(g100 VaSelectorSymbol p20139 tp20140 a(g6 V\u000a p20141 tp20142 a(g24 V"From within the body of a method which is not formally sent within the system, but which you intend to have remain in the system (for potential manual invocation, or for documentation, or perhaps because it's sent by commented-out-code that you anticipate uncommenting out someday, send this message, with the selector itself as the argument.\u000a\u000aThis will serve two purposes:\u000a\u000a (1) The method will not be returned by searches for unsent selectors (because it, in a manner of speaking, sends itself).\u000a (2) You can locate all such methods by browsing senders of #nominallyUnsent:" p20143 tp20144 a(g6 V\u000a\u000a p20145 tp20146 a(g87 Vfalse p20147 tp20148 a(g6 V tp20149 a(g84 VifTrue: p20150 tp20151 a(g6 V tp20152 a(g6 V[ tp20153 a(g6 V tp20154 a(g87 Vself p20155 tp20156 a(g6 V tp20157 a(g48 Vflag: p20158 tp20159 a(g6 V tp20160 a(g258 V#nominallyUnsent: p20161 tp20162 a(g6 V] tp20163 a(g6 V p20164 tp20165 a(g24 V"So that this method itself will appear to be sent" p20166 tp20167 a(g6 V\u000a tp20168 a(g138 V! ! p20169 tp20170 a(g6 V\u000a\u000a p20171 tp20172 a(g138 V! tp20173 a(g133 VObject p20174 tp20175 a(g138 V methodsFor: p20176 tp20177 a(g236 V'printing' p20178 tp20179 a(g138 V stamp: 'sma 6/1/2000 09:31'! p20180 tp20181 a(g6 V\u000a tp20182 a(g48 VprintOn: p20183 tp20184 a(g6 V tp20185 a(g100 VaStream p20186 tp20187 a(g6 V\u000a p20188 tp20189 a(g24 V"Append to the argument, aStream, a sequence of characters that \u000a identifies the receiver." p20190 tp20191 a(g6 V\u000a\u000a p20192 tp20193 a(g353 V| tp20194 a(g100 V title p20195 tp20196 a(g353 V| tp20197 a(g6 V\u000a p20198 tp20199 a(g100 Vtitle p20200 tp20201 a(g6 V tp20202 a(g353 V_ tp20203 a(g6 V tp20204 a(g87 Vself p20205 tp20206 a(g6 V tp20207 a(g48 Vclass p20208 tp20209 a(g6 V tp20210 a(g48 Vname p20211 tp20212 a(g212 V. tp20213 a(g6 V\u000a p20214 tp20215 a(g100 VaStream p20216 tp20217 a(g6 V\u000a p20218 tp20219 a(g48 VnextPutAll: p20220 tp20221 a(g6 V tp20222 a(g6 V( tp20223 a(g100 Vtitle p20224 tp20225 a(g6 V tp20226 a(g48 Vfirst p20227 tp20228 a(g6 V tp20229 a(g48 VisVowel p20230 tp20231 a(g6 V tp20232 a(g84 VifTrue: p20233 tp20234 a(g6 V tp20235 a(g6 V[ tp20236 a(g6 V tp20237 a(g236 V'an ' p20238 tp20239 a(g6 V] tp20240 a(g6 V tp20241 a(g84 VifFalse: p20242 tp20243 a(g6 V tp20244 a(g6 V[ tp20245 a(g6 V tp20246 a(g236 V'a ' p20247 tp20248 a(g6 V] tp20249 a(g6 V) tp20250 a(g212 V; tp20251 a(g6 V\u000a p20252 tp20253 a(g48 VnextPutAll: p20254 tp20255 a(g6 V tp20256 a(g100 Vtitle p20257 tp20258 a(g138 V! ! p20259 tp20260 a(g6 V\u000a\u000a p20261 tp20262 a(g138 V! tp20263 a(g133 VObject p20264 tp20265 a(g138 V methodsFor: p20266 tp20267 a(g236 V'printing' p20268 tp20269 a(g138 V stamp: 'sma 6/1/2000 09:22'! p20270 tp20271 a(g6 V\u000a tp20272 a(g48 VprintString p20273 tp20274 a(g6 V\u000a p20275 tp20276 a(g24 V"Answer a String whose characters are a description of the receiver. \u000a If you want to print without a character limit, use fullPrintString." p20277 tp20278 a(g6 V\u000a\u000a p20279 tp20280 a(g353 V^ tp20281 a(g6 V tp20282 a(g87 Vself p20283 tp20284 a(g6 V tp20285 a(g48 VprintStringLimitedTo: p20286 tp20287 a(g6 V tp20288 a(g223 V50000 p20289 tp20290 a(g138 V! ! p20291 tp20292 a(g6 V\u000a\u000a p20293 tp20294 a(g138 V! tp20295 a(g133 VObject p20296 tp20297 a(g138 V methodsFor: p20298 tp20299 a(g236 V'printing' p20300 tp20301 a(g138 V stamp: 'tk 5/7/1999 16:20'! p20302 tp20303 a(g6 V\u000a tp20304 a(g48 VprintStringLimitedTo: p20305 tp20306 a(g6 V tp20307 a(g100 Vlimit p20308 tp20309 a(g6 V\u000a p20310 tp20311 a(g24 V"Answer a String whose characters are a description of the receiver.\u000a If you want to print without a character limit, use fullPrintString." p20312 tp20313 a(g6 V\u000a p20314 tp20315 a(g353 V| tp20316 a(g100 V limitedString p20317 tp20318 a(g353 V| tp20319 a(g6 V\u000a p20320 tp20321 a(g100 VlimitedString p20322 tp20323 a(g6 V tp20324 a(g353 V_ tp20325 a(g6 V tp20326 a(g133 VString p20327 tp20328 a(g6 V tp20329 a(g48 VstreamContents: p20330 tp20331 a(g6 V tp20332 a(g6 V[ tp20333 a(g353 V: tp20334 a(g100 Vs tp20335 a(g6 V tp20336 a(g353 V| tp20337 a(g6 V tp20338 a(g87 Vself p20339 tp20340 a(g6 V tp20341 a(g48 VprintOn: p20342 tp20343 a(g6 V tp20344 a(g100 Vs tp20345 a(g6 V] tp20346 a(g6 V tp20347 a(g48 VlimitedTo: p20348 tp20349 a(g6 V tp20350 a(g100 Vlimit p20351 tp20352 a(g212 V. tp20353 a(g6 V\u000a p20354 tp20355 a(g100 VlimitedString p20356 tp20357 a(g6 V tp20358 a(g48 Vsize p20359 tp20360 a(g6 V tp20361 a(g48 V< tp20362 a(g6 V tp20363 a(g100 Vlimit p20364 tp20365 a(g6 V tp20366 a(g84 VifTrue: p20367 tp20368 a(g6 V tp20369 a(g6 V[ tp20370 a(g6 V tp20371 a(g353 V^ tp20372 a(g6 V tp20373 a(g100 VlimitedString p20374 tp20375 a(g6 V] tp20376 a(g212 V. tp20377 a(g6 V\u000a p20378 tp20379 a(g353 V^ tp20380 a(g6 V tp20381 a(g100 VlimitedString p20382 tp20383 a(g6 V tp20384 a(g48 V, tp20385 a(g6 V tp20386 a(g236 V'...etc...' p20387 tp20388 a(g138 V! ! p20389 tp20390 a(g6 V\u000a\u000a p20391 tp20392 a(g138 V! tp20393 a(g133 VObject p20394 tp20395 a(g138 V methodsFor: p20396 tp20397 a(g236 V'printing' p20398 tp20399 a(g138 V stamp: 'MPW 1/1/1901 00:30'! p20400 tp20401 a(g6 V\u000a tp20402 a(g48 VpropertyList p20403 tp20404 a(g6 V\u000a p20405 tp20406 a(g24 V"Answer a String whose characters are a property-list description of the receiver." p20407 tp20408 a(g6 V\u000a\u000a p20409 tp20410 a(g353 V^ tp20411 a(g6 V tp20412 a(g133 VPropertyListEncoder p20413 tp20414 a(g6 V tp20415 a(g48 Vprocess: p20416 tp20417 a(g87 Vself p20418 tp20419 a(g212 V. tp20420 a(g6 V\u000a tp20421 a(g138 V! ! p20422 tp20423 a(g6 V\u000a\u000a p20424 tp20425 a(g138 V! tp20426 a(g133 VObject p20427 tp20428 a(g138 V methodsFor: p20429 tp20430 a(g236 V'printing' p20431 tp20432 a(g138 V stamp: 'sw 10/17/2000 11:16'! p20433 tp20434 a(g6 V\u000a tp20435 a(g48 VreportableSize p20436 tp20437 a(g6 V\u000a p20438 tp20439 a(g24 V"Answer a string that reports the size of the receiver -- useful for showing in a list view, for example" p20440 tp20441 a(g6 V\u000a\u000a p20442 tp20443 a(g353 V^ tp20444 a(g6 V tp20445 a(g6 V( tp20446 a(g87 Vself p20447 tp20448 a(g6 V tp20449 a(g48 VbasicSize p20450 tp20451 a(g6 V tp20452 a(g48 V+ tp20453 a(g6 V tp20454 a(g87 Vself p20455 tp20456 a(g6 V tp20457 a(g48 Vclass p20458 tp20459 a(g6 V tp20460 a(g48 VinstSize p20461 tp20462 a(g6 V) tp20463 a(g6 V tp20464 a(g48 VprintString p20465 tp20466 a(g138 V! ! p20467 tp20468 a(g6 V\u000a\u000a p20469 tp20470 a(g138 V! tp20471 a(g133 VObject p20472 tp20473 a(g138 V methodsFor: p20474 tp20475 a(g236 V'printing' p20476 tp20477 a(g138 V! tp20478 a(g6 V\u000a tp20479 a(g48 VstoreOn: p20480 tp20481 a(g6 V tp20482 a(g100 VaStream p20483 tp20484 a(g6 V \u000a p20485 tp20486 a(g24 V"Append to the argument aStream a sequence of characters that is an \u000a expression whose evaluation creates an object similar to the receiver." p20487 tp20488 a(g6 V\u000a\u000a p20489 tp20490 a(g100 VaStream p20491 tp20492 a(g6 V tp20493 a(g48 VnextPut: p20494 tp20495 a(g6 V tp20496 a(g278 V$( p20497 tp20498 a(g212 V. tp20499 a(g6 V\u000a p20500 tp20501 a(g87 Vself p20502 tp20503 a(g6 V tp20504 a(g48 Vclass p20505 tp20506 a(g6 V tp20507 a(g48 VisVariable p20508 tp20509 a(g6 V\u000a p20510 tp20511 a(g84 VifTrue: p20512 tp20513 a(g6 V tp20514 a(g6 V[ tp20515 a(g6 V tp20516 a(g100 VaStream p20517 tp20518 a(g6 V tp20519 a(g48 VnextPutAll: p20520 tp20521 a(g6 V tp20522 a(g236 V'(' p20523 tp20524 a(g48 V, tp20525 a(g6 V tp20526 a(g87 Vself p20527 tp20528 a(g6 V tp20529 a(g48 Vclass p20530 tp20531 a(g6 V tp20532 a(g48 Vname p20533 tp20534 a(g48 V, tp20535 a(g6 V tp20536 a(g236 V' basicNew: ' p20537 tp20538 a(g212 V; tp20539 a(g6 V\u000a p20540 tp20541 a(g48 Vstore: p20542 tp20543 a(g6 V tp20544 a(g87 Vself p20545 tp20546 a(g6 V tp20547 a(g48 VbasicSize p20548 tp20549 a(g212 V; tp20550 a(g6 V\u000a p20551 tp20552 a(g48 VnextPutAll: p20553 tp20554 a(g6 V tp20555 a(g236 V') ' p20556 tp20557 a(g6 V] tp20558 a(g6 V\u000a p20559 tp20560 a(g84 VifFalse: p20561 tp20562 a(g6 V tp20563 a(g6 V[ tp20564 a(g6 V tp20565 a(g100 VaStream p20566 tp20567 a(g6 V tp20568 a(g48 VnextPutAll: p20569 tp20570 a(g6 V tp20571 a(g87 Vself p20572 tp20573 a(g6 V tp20574 a(g48 Vclass p20575 tp20576 a(g6 V tp20577 a(g48 Vname p20578 tp20579 a(g48 V, tp20580 a(g6 V tp20581 a(g236 V' basicNew' p20582 tp20583 a(g6 V] tp20584 a(g212 V. tp20585 a(g6 V\u000a p20586 tp20587 a(g223 V1 tp20588 a(g6 V tp20589 a(g48 Vto: p20590 tp20591 a(g6 V tp20592 a(g87 Vself p20593 tp20594 a(g6 V tp20595 a(g48 Vclass p20596 tp20597 a(g6 V tp20598 a(g48 VinstSize p20599 tp20600 a(g6 V tp20601 a(g48 Vdo: p20602 tp20603 a(g6 V\u000a p20604 tp20605 a(g6 V[ tp20606 a(g353 V: tp20607 a(g100 Vi tp20608 a(g6 V tp20609 a(g353 V| tp20610 a(g6 V\u000a p20611 tp20612 a(g100 VaStream p20613 tp20614 a(g6 V tp20615 a(g48 VnextPutAll: p20616 tp20617 a(g6 V tp20618 a(g236 V' instVarAt: ' p20619 tp20620 a(g212 V; tp20621 a(g6 V\u000a p20622 tp20623 a(g48 Vstore: p20624 tp20625 a(g6 V tp20626 a(g100 Vi tp20627 a(g212 V; tp20628 a(g6 V\u000a p20629 tp20630 a(g48 VnextPutAll: p20631 tp20632 a(g6 V tp20633 a(g236 V' put: ' p20634 tp20635 a(g212 V; tp20636 a(g6 V\u000a p20637 tp20638 a(g48 Vstore: p20639 tp20640 a(g6 V tp20641 a(g6 V( tp20642 a(g87 Vself p20643 tp20644 a(g6 V tp20645 a(g48 VinstVarAt: p20646 tp20647 a(g6 V tp20648 a(g100 Vi tp20649 a(g6 V) tp20650 a(g212 V; tp20651 a(g6 V\u000a p20652 tp20653 a(g48 VnextPut: p20654 tp20655 a(g6 V tp20656 a(g278 V$; p20657 tp20658 a(g6 V] tp20659 a(g212 V. tp20660 a(g6 V\u000a p20661 tp20662 a(g223 V1 tp20663 a(g6 V tp20664 a(g48 Vto: p20665 tp20666 a(g6 V tp20667 a(g87 Vself p20668 tp20669 a(g6 V tp20670 a(g48 VbasicSize p20671 tp20672 a(g6 V tp20673 a(g48 Vdo: p20674 tp20675 a(g6 V\u000a p20676 tp20677 a(g6 V[ tp20678 a(g353 V: tp20679 a(g100 Vi tp20680 a(g6 V tp20681 a(g353 V| tp20682 a(g6 V\u000a p20683 tp20684 a(g100 VaStream p20685 tp20686 a(g6 V tp20687 a(g48 VnextPutAll: p20688 tp20689 a(g6 V tp20690 a(g236 V' basicAt: ' p20691 tp20692 a(g212 V; tp20693 a(g6 V\u000a p20694 tp20695 a(g48 Vstore: p20696 tp20697 a(g6 V tp20698 a(g100 Vi tp20699 a(g212 V; tp20700 a(g6 V\u000a p20701 tp20702 a(g48 VnextPutAll: p20703 tp20704 a(g6 V tp20705 a(g236 V' put: ' p20706 tp20707 a(g212 V; tp20708 a(g6 V\u000a p20709 tp20710 a(g48 Vstore: p20711 tp20712 a(g6 V tp20713 a(g6 V( tp20714 a(g87 Vself p20715 tp20716 a(g6 V tp20717 a(g48 VbasicAt: p20718 tp20719 a(g6 V tp20720 a(g100 Vi tp20721 a(g6 V) tp20722 a(g212 V; tp20723 a(g6 V\u000a p20724 tp20725 a(g48 VnextPut: p20726 tp20727 a(g6 V tp20728 a(g278 V$; p20729 tp20730 a(g6 V] tp20731 a(g212 V. tp20732 a(g6 V\u000a p20733 tp20734 a(g100 VaStream p20735 tp20736 a(g6 V tp20737 a(g48 VnextPutAll: p20738 tp20739 a(g6 V tp20740 a(g236 V' yourself)' p20741 tp20742 a(g6 V\u000a tp20743 a(g138 V! ! p20744 tp20745 a(g6 V\u000a\u000a p20746 tp20747 a(g138 V! tp20748 a(g133 VObject p20749 tp20750 a(g138 V methodsFor: p20751 tp20752 a(g236 V'printing' p20753 tp20754 a(g138 V stamp: 'di 6/20/97 09:12'! p20755 tp20756 a(g6 V\u000a tp20757 a(g48 VstoreString p20758 tp20759 a(g6 V\u000a p20760 tp20761 a(g24 V"Answer a String representation of the receiver from which the receiver \u000a can be reconstructed." p20762 tp20763 a(g6 V\u000a\u000a p20764 tp20765 a(g353 V^ tp20766 a(g6 V tp20767 a(g133 VString p20768 tp20769 a(g6 V tp20770 a(g48 VstreamContents: p20771 tp20772 a(g6 V tp20773 a(g6 V[ tp20774 a(g353 V: tp20775 a(g100 Vs tp20776 a(g6 V tp20777 a(g353 V| tp20778 a(g6 V tp20779 a(g87 Vself p20780 tp20781 a(g6 V tp20782 a(g48 VstoreOn: p20783 tp20784 a(g6 V tp20785 a(g100 Vs tp20786 a(g6 V] tp20787 a(g138 V! ! p20788 tp20789 a(g6 V\u000a\u000a p20790 tp20791 a(g138 V! tp20792 a(g133 VObject p20793 tp20794 a(g138 V methodsFor: p20795 tp20796 a(g236 V'printing' p20797 tp20798 a(g138 V stamp: 'sw 5/2/1998 13:55'! p20799 tp20800 a(g6 V\u000a tp20801 a(g48 VstringForReadout p20802 tp20803 a(g6 V\u000a p20804 tp20805 a(g353 V^ tp20806 a(g6 V tp20807 a(g87 Vself p20808 tp20809 a(g6 V tp20810 a(g48 VstringRepresentation p20811 tp20812 a(g138 V! ! p20813 tp20814 a(g6 V\u000a\u000a p20815 tp20816 a(g138 V! tp20817 a(g133 VObject p20818 tp20819 a(g138 V methodsFor: p20820 tp20821 a(g236 V'printing' p20822 tp20823 a(g138 V! tp20824 a(g6 V\u000a tp20825 a(g48 VstringRepresentation p20826 tp20827 a(g6 V\u000a p20828 tp20829 a(g24 V"Answer a string that represents the receiver. For most objects this is simply its printString, but for strings themselves, it's themselves. 6/12/96 sw" p20830 tp20831 a(g6 V\u000a\u000a p20832 tp20833 a(g353 V^ tp20834 a(g6 V tp20835 a(g87 Vself p20836 tp20837 a(g6 V tp20838 a(g48 VprintString p20839 tp20840 a(g6 V tp20841 a(g138 V! ! p20842 tp20843 a(g6 V\u000a\u000a\u000a p20844 tp20845 a(g138 V! tp20846 a(g133 VObject p20847 tp20848 a(g138 V methodsFor: p20849 tp20850 a(g236 V'scripting' p20851 tp20852 a(g138 V stamp: 'ar 3/17/2001 20:11'! p20853 tp20854 a(g6 V\u000a tp20855 a(g48 VadaptedToWorld: p20856 tp20857 a(g6 V tp20858 a(g100 VaWorld p20859 tp20860 a(g6 V\u000a p20861 tp20862 a(g24 V"If I refer to a world or a hand, return the corresponding items in the new world." p20863 tp20864 a(g6 V\u000a p20865 tp20866 a(g353 V^ tp20867 a(g87 Vself p20868 tp20869 a(g138 V! ! p20870 tp20871 a(g6 V\u000a\u000a p20872 tp20873 a(g138 V! tp20874 a(g133 VObject p20875 tp20876 a(g138 V methodsFor: p20877 tp20878 a(g236 V'scripting' p20879 tp20880 a(g138 V stamp: 'sw 3/10/2000 13:57'! p20881 tp20882 a(g6 V\u000a tp20883 a(g48 VdefaultFloatPrecisionFor: p20884 tp20885 a(g6 V tp20886 a(g100 VaGetSelector p20887 tp20888 a(g6 V\u000a p20889 tp20890 a(g24 V"Answer a number indicating the default float precision to be used in a numeric readout for which the receiver is the model." p20891 tp20892 a(g6 V\u000a\u000a p20893 tp20894 a(g353 V^ tp20895 a(g6 V tp20896 a(g223 V1 tp20897 a(g138 V! ! p20898 tp20899 a(g6 V\u000a\u000a p20900 tp20901 a(g138 V! tp20902 a(g133 VObject p20903 tp20904 a(g138 V methodsFor: p20905 tp20906 a(g236 V'scripting' p20907 tp20908 a(g138 V stamp: 'RAA 3/9/2001 17:08'! p20909 tp20910 a(g6 V\u000a tp20911 a(g48 VevaluateUnloggedForSelf: p20912 tp20913 a(g6 V tp20914 a(g100 VaCodeString p20915 tp20916 a(g6 V\u000a\u000a p20917 tp20918 a(g353 V^ tp20919 a(g133 VCompiler p20920 tp20921 a(g6 V tp20922 a(g48 Vevaluate: p20923 tp20924 a(g6 V\u000a p20925 tp20926 a(g100 VaCodeString p20927 tp20928 a(g6 V\u000a p20929 tp20930 a(g48 Vfor: p20931 tp20932 a(g6 V tp20933 a(g87 Vself p20934 tp20935 a(g6 V\u000a p20936 tp20937 a(g48 Vlogged: p20938 tp20939 a(g6 V tp20940 a(g87 Vfalse p20941 tp20942 a(g138 V! ! p20943 tp20944 a(g6 V\u000a\u000a p20945 tp20946 a(g138 V! tp20947 a(g133 VObject p20948 tp20949 a(g138 V methodsFor: p20950 tp20951 a(g236 V'scripting' p20952 tp20953 a(g138 V stamp: 'yo 12/25/2003 16:43'! p20954 tp20955 a(g6 V\u000a tp20956 a(g48 VmethodInterfacesForCategory: p20957 tp20958 a(g6 V tp20959 a(g100 VaCategorySymbol p20960 tp20961 a(g6 V tp20962 a(g48 VinVocabulary: p20963 tp20964 a(g6 V tp20965 a(g100 VaVocabulary p20966 tp20967 a(g6 V tp20968 a(g48 VlimitClass: p20969 tp20970 a(g6 V tp20971 a(g100 VaLimitClass p20972 tp20973 a(g6 V\u000a p20974 tp20975 a(g24 V"Return a list of methodInterfaces for the receiver in the given category, given a vocabulary. aCategorySymbol is the inherent category symbol, not necessarily the wording as expressed in the vocabulary." p20976 tp20977 a(g6 V\u000a\u000a p20978 tp20979 a(g353 V| tp20980 a(g100 V categorySymbol p20981 tp20982 a(g353 V| tp20983 a(g6 V\u000a p20984 tp20985 a(g100 VcategorySymbol p20986 tp20987 a(g6 V tp20988 a(g353 V_ tp20989 a(g6 V tp20990 a(g100 VaCategorySymbol p20991 tp20992 a(g6 V tp20993 a(g48 VasSymbol p20994 tp20995 a(g212 V. tp20996 a(g6 V\u000a\u000a p20997 tp20998 a(g6 V( tp20999 a(g100 VcategorySymbol p21000 tp21001 a(g6 V tp21002 a(g48 V== p21003 tp21004 a(g6 V tp21005 a(g133 VScriptingSystem p21006 tp21007 a(g6 V tp21008 a(g48 VnameForInstanceVariablesCategory p21009 tp21010 a(g6 V) tp21011 a(g6 V tp21012 a(g84 VifTrue: p21013 tp21014 a(g6 V tp21015 a(g6 V[ tp21016 a(g6 V\u000a p21017 tp21018 a(g24 V"user-defined instance variables" p21019 tp21020 a(g6 V\u000a p21021 tp21022 a(g6 V tp21023 a(g353 V^ tp21024 a(g6 V tp21025 a(g87 Vself p21026 tp21027 a(g6 V tp21028 a(g48 VmethodInterfacesForInstanceVariablesCategoryIn: p21029 tp21030 a(g6 V tp21031 a(g100 VaVocabulary p21032 tp21033 a(g6 V] tp21034 a(g212 V. tp21035 a(g6 V\u000a p21036 tp21037 a(g6 V( tp21038 a(g100 VcategorySymbol p21039 tp21040 a(g6 V tp21041 a(g48 V== p21042 tp21043 a(g6 V tp21044 a(g133 VScriptingSystem p21045 tp21046 a(g6 V tp21047 a(g48 VnameForScriptsCategory p21048 tp21049 a(g6 V) tp21050 a(g6 V tp21051 a(g84 VifTrue: p21052 tp21053 a(g6 V tp21054 a(g6 V[ tp21055 a(g6 V\u000a p21056 tp21057 a(g24 V"user-defined scripts" p21058 tp21059 a(g6 V\u000a p21060 tp21061 a(g6 V tp21062 a(g353 V^ tp21063 a(g6 V tp21064 a(g87 Vself p21065 tp21066 a(g6 V tp21067 a(g48 VmethodInterfacesForScriptsCategoryIn: p21068 tp21069 a(g6 V tp21070 a(g100 VaVocabulary p21071 tp21072 a(g6 V] tp21073 a(g212 V. tp21074 a(g6 V\u000a p21075 tp21076 a(g24 V"all others" p21077 tp21078 a(g6 V\u000a p21079 tp21080 a(g353 V^ tp21081 a(g6 V tp21082 a(g87 Vself p21083 tp21084 a(g6 V tp21085 a(g48 VusableMethodInterfacesIn: p21086 tp21087 a(g6 V tp21088 a(g6 V( tp21089 a(g100 VaVocabulary p21090 tp21091 a(g6 V tp21092 a(g48 VmethodInterfacesInCategory: p21093 tp21094 a(g6 V tp21095 a(g100 VcategorySymbol p21096 tp21097 a(g6 V\u000a p21098 tp21099 a(g48 VforInstance: p21100 tp21101 a(g6 V tp21102 a(g87 Vself p21103 tp21104 a(g6 V\u000a p21105 tp21106 a(g48 VofClass: p21107 tp21108 a(g6 V tp21109 a(g87 Vself p21110 tp21111 a(g6 V tp21112 a(g48 Vclass p21113 tp21114 a(g6 V\u000a p21115 tp21116 a(g48 VlimitClass: p21117 tp21118 a(g6 V tp21119 a(g100 VaLimitClass p21120 tp21121 a(g6 V) tp21122 a(g6 V\u000a tp21123 a(g138 V! ! p21124 tp21125 a(g6 V\u000a\u000a p21126 tp21127 a(g138 V! tp21128 a(g133 VObject p21129 tp21130 a(g138 V methodsFor: p21131 tp21132 a(g236 V'scripting' p21133 tp21134 a(g138 V stamp: 'sw 8/3/2001 13:54'! p21135 tp21136 a(g6 V\u000a tp21137 a(g48 VmethodInterfacesForInstanceVariablesCategoryIn: p21138 tp21139 a(g6 V tp21140 a(g100 VaVocabulary p21141 tp21142 a(g6 V\u000a p21143 tp21144 a(g24 V"Return a collection of methodInterfaces for the instance-variables category. The vocabulary parameter, at present anyway, is not used. And for non-players, the method is at present vacuous in any case" p21145 tp21146 a(g6 V\u000a\u000a p21147 tp21148 a(g353 V^ tp21149 a(g6 V p21150 tp21151 a(g133 VOrderedCollection p21152 tp21153 a(g6 V tp21154 a(g84 Vnew p21155 tp21156 a(g138 V! ! p21157 tp21158 a(g6 V\u000a\u000a p21159 tp21160 a(g138 V! tp21161 a(g133 VObject p21162 tp21163 a(g138 V methodsFor: p21164 tp21165 a(g236 V'scripting' p21166 tp21167 a(g138 V stamp: 'sw 8/3/2001 13:53'! p21168 tp21169 a(g6 V\u000a tp21170 a(g48 VmethodInterfacesForScriptsCategoryIn: p21171 tp21172 a(g6 V tp21173 a(g100 VaVocabulary p21174 tp21175 a(g6 V\u000a p21176 tp21177 a(g24 V"Answer a list of method interfaces for the category #scripts, as seen in a viewer or other tool. The vocabulary argument is not presently used. Also, at present, only Players really do anyting interesting here." p21178 tp21179 a(g6 V\u000a\u000a p21180 tp21181 a(g353 V^ tp21182 a(g6 V tp21183 a(g133 VOrderedCollection p21184 tp21185 a(g6 V tp21186 a(g84 Vnew p21187 tp21188 a(g138 V! ! p21189 tp21190 a(g6 V\u000a\u000a p21191 tp21192 a(g138 V! tp21193 a(g133 VObject p21194 tp21195 a(g138 V methodsFor: p21196 tp21197 a(g236 V'scripting' p21198 tp21199 a(g138 V stamp: 'RAA 2/16/2001 19:37'! p21200 tp21201 a(g6 V\u000a tp21202 a(g48 VselfWrittenAsIll p21203 tp21204 a(g6 V\u000a tp21205 a(g6 V\u000a p21206 tp21207 a(g353 V^ tp21208 a(g87 Vself p21209 tp21210 a(g138 V! ! p21211 tp21212 a(g6 V\u000a\u000a p21213 tp21214 a(g138 V! tp21215 a(g133 VObject p21216 tp21217 a(g138 V methodsFor: p21218 tp21219 a(g236 V'scripting' p21220 tp21221 a(g138 V stamp: 'RAA 2/16/2001 19:38'! p21222 tp21223 a(g6 V\u000a tp21224 a(g48 VselfWrittenAsIm p21225 tp21226 a(g6 V\u000a tp21227 a(g6 V\u000a p21228 tp21229 a(g353 V^ tp21230 a(g87 Vself p21231 tp21232 a(g138 V! ! p21233 tp21234 a(g6 V\u000a\u000a p21235 tp21236 a(g138 V! tp21237 a(g133 VObject p21238 tp21239 a(g138 V methodsFor: p21240 tp21241 a(g236 V'scripting' p21242 tp21243 a(g138 V stamp: 'RAA 2/16/2001 19:37'! p21244 tp21245 a(g6 V\u000a tp21246 a(g48 VselfWrittenAsMe p21247 tp21248 a(g6 V\u000a tp21249 a(g6 V\u000a p21250 tp21251 a(g353 V^ tp21252 a(g87 Vself p21253 tp21254 a(g138 V! ! p21255 tp21256 a(g6 V\u000a\u000a p21257 tp21258 a(g138 V! tp21259 a(g133 VObject p21260 tp21261 a(g138 V methodsFor: p21262 tp21263 a(g236 V'scripting' p21264 tp21265 a(g138 V stamp: 'RAA 2/16/2001 19:37'! p21266 tp21267 a(g6 V\u000a tp21268 a(g48 VselfWrittenAsMy p21269 tp21270 a(g6 V\u000a tp21271 a(g6 V\u000a p21272 tp21273 a(g353 V^ tp21274 a(g87 Vself p21275 tp21276 a(g138 V! ! p21277 tp21278 a(g6 V\u000a\u000a p21279 tp21280 a(g138 V! tp21281 a(g133 VObject p21282 tp21283 a(g138 V methodsFor: p21284 tp21285 a(g236 V'scripting' p21286 tp21287 a(g138 V stamp: 'RAA 2/16/2001 19:38'! p21288 tp21289 a(g6 V\u000a tp21290 a(g48 VselfWrittenAsThis p21291 tp21292 a(g6 V\u000a tp21293 a(g6 V\u000a p21294 tp21295 a(g353 V^ tp21296 a(g87 Vself p21297 tp21298 a(g138 V! ! p21299 tp21300 a(g6 V\u000a\u000a\u000a p21301 tp21302 a(g138 V! tp21303 a(g133 VObject p21304 tp21305 a(g138 V methodsFor: p21306 tp21307 a(g236 V'scripts-kernel' p21308 tp21309 a(g138 V stamp: 'nk 10/14/2004 10:55'! p21310 tp21311 a(g6 V\u000a tp21312 a(g48 VuniversalTilesForGetterOf: p21313 tp21314 a(g6 V tp21315 a(g100 VaMethodInterface p21316 tp21317 a(g6 V\u000a p21318 tp21319 a(g24 V"Return universal tiles for a getter on the given method interface." p21320 tp21321 a(g6 V\u000a\u000a p21322 tp21323 a(g353 V| tp21324 a(g100 V ms argTile argArray itsSelector p21325 tp21326 a(g353 V| tp21327 a(g6 V\u000a p21328 tp21329 a(g100 VitsSelector p21330 tp21331 a(g6 V tp21332 a(g353 V_ tp21333 a(g6 V tp21334 a(g100 VaMethodInterface p21335 tp21336 a(g6 V tp21337 a(g48 Vselector p21338 tp21339 a(g212 V. tp21340 a(g6 V\u000a p21341 tp21342 a(g100 VargArray p21343 tp21344 a(g6 V tp21345 a(g353 V_ tp21346 a(g6 V tp21347 a(g258 V#( p21348 tp21349 a(g258 V) tp21350 a(g212 V. tp21351 a(g6 V\u000a\u000a p21352 tp21353 a(g24 V"Four gratuituous special cases..." p21354 tp21355 a(g6 V\u000a\u000a p21356 tp21357 a(g6 V( tp21358 a(g100 VitsSelector p21359 tp21360 a(g6 V tp21361 a(g48 V== p21362 tp21363 a(g6 V tp21364 a(g258 V#color:sees: p21365 tp21366 a(g6 V) tp21367 a(g6 V tp21368 a(g84 VifTrue: p21369 tp21370 a(g6 V\u000a p21371 tp21372 a(g6 V[ tp21373 a(g6 V tp21374 a(g100 VargTile p21375 tp21376 a(g6 V tp21377 a(g353 V_ tp21378 a(g6 V tp21379 a(g133 VScriptingSystem p21380 tp21381 a(g6 V tp21382 a(g48 VtileForArgType: p21383 tp21384 a(g6 V tp21385 a(g258 V#Color p21386 tp21387 a(g212 V. tp21388 a(g6 V\u000a p21389 tp21390 a(g100 VargArray p21391 tp21392 a(g6 V tp21393 a(g353 V_ tp21394 a(g6 V tp21395 a(g133 VArray p21396 tp21397 a(g6 V tp21398 a(g48 Vwith: p21399 tp21400 a(g6 V tp21401 a(g100 VargTile p21402 tp21403 a(g6 V tp21404 a(g48 VcolorSwatch p21405 tp21406 a(g6 V tp21407 a(g48 Vcolor p21408 tp21409 a(g6 V tp21410 a(g48 Vwith: p21411 tp21412 a(g6 V tp21413 a(g100 VargTile p21414 tp21415 a(g6 V tp21416 a(g48 VcolorSwatch p21417 tp21418 a(g6 V tp21419 a(g48 Vcolor p21420 tp21421 a(g6 V tp21422 a(g48 Vcopy p21423 tp21424 a(g6 V] tp21425 a(g212 V. tp21426 a(g6 V\u000a\u000a p21427 tp21428 a(g100 VitsSelector p21429 tp21430 a(g6 V tp21431 a(g48 V== p21432 tp21433 a(g6 V tp21434 a(g258 V#seesColor: p21435 tp21436 a(g6 V tp21437 a(g84 VifTrue: p21438 tp21439 a(g6 V\u000a p21440 tp21441 a(g6 V[ tp21442 a(g6 V tp21443 a(g100 VargTile p21444 tp21445 a(g6 V tp21446 a(g353 V_ tp21447 a(g6 V tp21448 a(g133 VScriptingSystem p21449 tp21450 a(g6 V tp21451 a(g48 VtileForArgType: p21452 tp21453 a(g6 V tp21454 a(g258 V#Color p21455 tp21456 a(g212 V. tp21457 a(g6 V\u000a p21458 tp21459 a(g100 VargArray p21460 tp21461 a(g6 V tp21462 a(g353 V_ tp21463 a(g6 V p21464 tp21465 a(g133 VArray p21466 tp21467 a(g6 V tp21468 a(g48 Vwith: p21469 tp21470 a(g6 V tp21471 a(g100 VargTile p21472 tp21473 a(g6 V tp21474 a(g48 VcolorSwatch p21475 tp21476 a(g6 V tp21477 a(g48 Vcolor p21478 tp21479 a(g6 V] tp21480 a(g212 V. tp21481 a(g6 V\u000a\u000a p21482 tp21483 a(g6 V( tp21484 a(g258 V#( p21485 tp21486 a(g258 VtouchesA: p21487 tp21488 a(g6 V tp21489 a(g258 Voverlaps: p21490 tp21491 a(g6 V tp21492 a(g258 VoverlapsAny: p21493 tp21494 a(g258 V) tp21495 a(g6 V tp21496 a(g48 Vincludes: p21497 tp21498 a(g6 V tp21499 a(g100 VitsSelector p21500 tp21501 a(g6 V) tp21502 a(g6 V tp21503 a(g84 VifTrue: p21504 tp21505 a(g6 V\u000a p21506 tp21507 a(g6 V[ tp21508 a(g6 V tp21509 a(g100 VargTile p21510 tp21511 a(g6 V tp21512 a(g353 V_ tp21513 a(g6 V tp21514 a(g133 VScriptingSystem p21515 tp21516 a(g6 V tp21517 a(g48 VtileForArgType: p21518 tp21519 a(g6 V tp21520 a(g258 V#Player p21521 tp21522 a(g212 V. tp21523 a(g6 V\u000a p21524 tp21525 a(g100 VargArray p21526 tp21527 a(g6 V tp21528 a(g353 V_ tp21529 a(g6 V tp21530 a(g133 VArray p21531 tp21532 a(g6 V tp21533 a(g48 Vwith: p21534 tp21535 a(g6 V tp21536 a(g100 VargTile p21537 tp21538 a(g6 V tp21539 a(g48 VactualObject p21540 tp21541 a(g6 V] tp21542 a(g212 V. tp21543 a(g6 V\u000a\u000a p21544 tp21545 a(g100 Vms p21546 tp21547 a(g6 V tp21548 a(g353 V_ tp21549 a(g6 V tp21550 a(g133 VMessageSend p21551 tp21552 a(g6 V tp21553 a(g48 Vreceiver: p21554 tp21555 a(g6 V tp21556 a(g87 Vself p21557 tp21558 a(g6 V tp21559 a(g48 Vselector: p21560 tp21561 a(g6 V tp21562 a(g100 VitsSelector p21563 tp21564 a(g6 V tp21565 a(g48 Varguments: p21566 tp21567 a(g6 V tp21568 a(g100 VargArray p21569 tp21570 a(g212 V. tp21571 a(g6 V\u000a p21572 tp21573 a(g353 V^ tp21574 a(g6 V tp21575 a(g100 Vms p21576 tp21577 a(g6 V tp21578 a(g48 VasTilesIn: p21579 tp21580 a(g6 V tp21581 a(g87 Vself p21582 tp21583 a(g6 V tp21584 a(g48 Vclass p21585 tp21586 a(g6 V tp21587 a(g48 VglobalNames: p21588 tp21589 a(g6 V tp21590 a(g6 V( tp21591 a(g87 Vself p21592 tp21593 a(g6 V tp21594 a(g48 Vclass p21595 tp21596 a(g6 V tp21597 a(g48 VofficialClass p21598 tp21599 a(g6 V tp21600 a(g48 V~~ p21601 tp21602 a(g6 V tp21603 a(g133 VCardPlayer p21604 tp21605 a(g6 V) tp21606 a(g6 V\u000a p21607 tp21608 a(g24 V"For CardPlayers, use 'self'. For others, name it, and use its name." p21609 tp21610 a(g138 V! ! p21611 tp21612 a(g6 V\u000a\u000a p21613 tp21614 a(g138 V! tp21615 a(g133 VObject p21616 tp21617 a(g138 V methodsFor: p21618 tp21619 a(g236 V'scripts-kernel' p21620 tp21621 a(g138 V stamp: 'tk 9/28/2001 13:30'! p21622 tp21623 a(g6 V\u000a tp21624 a(g48 VuniversalTilesForInterface: p21625 tp21626 a(g6 V tp21627 a(g100 VaMethodInterface p21628 tp21629 a(g6 V\u000a p21630 tp21631 a(g24 V"Return universal tiles for the given method interface. Record who self is." p21632 tp21633 a(g6 V\u000a\u000a p21634 tp21635 a(g353 V| tp21636 a(g100 V ms argTile itsSelector aType argList p21637 tp21638 a(g353 V| tp21639 a(g6 V\u000a p21640 tp21641 a(g100 VitsSelector p21642 tp21643 a(g6 V tp21644 a(g353 V_ tp21645 a(g6 V tp21646 a(g100 VaMethodInterface p21647 tp21648 a(g6 V tp21649 a(g48 Vselector p21650 tp21651 a(g212 V. tp21652 a(g6 V\u000a p21653 tp21654 a(g100 VargList p21655 tp21656 a(g6 V tp21657 a(g353 V_ tp21658 a(g6 V tp21659 a(g133 VOrderedCollection p21660 tp21661 a(g6 V tp21662 a(g84 Vnew p21663 tp21664 a(g212 V. tp21665 a(g6 V\u000a p21666 tp21667 a(g100 VaMethodInterface p21668 tp21669 a(g6 V tp21670 a(g48 VargumentVariables p21671 tp21672 a(g6 V tp21673 a(g48 VdoWithIndex: p21674 tp21675 a(g6 V\u000a p21676 tp21677 a(g6 V[ tp21678 a(g353 V: tp21679 a(g100 VanArgumentVariable p21680 tp21681 a(g6 V tp21682 a(g353 V: tp21683 a(g100 VanIndex p21684 tp21685 a(g6 V tp21686 a(g353 V| tp21687 a(g6 V \u000a p21688 tp21689 a(g100 VargTile p21690 tp21691 a(g6 V tp21692 a(g353 V_ tp21693 a(g6 V tp21694 a(g133 VScriptingSystem p21695 tp21696 a(g6 V tp21697 a(g48 VtileForArgType: p21698 tp21699 a(g6 V tp21700 a(g6 V( tp21701 a(g100 VaType p21702 tp21703 a(g6 V tp21704 a(g353 V_ tp21705 a(g6 V tp21706 a(g100 VaMethodInterface p21707 tp21708 a(g6 V tp21709 a(g48 VtypeForArgumentNumber: p21710 tp21711 a(g6 V tp21712 a(g100 VanIndex p21713 tp21714 a(g6 V) tp21715 a(g212 V. tp21716 a(g6 V\u000a p21717 tp21718 a(g100 VargList p21719 tp21720 a(g6 V tp21721 a(g48 Vadd: p21722 tp21723 a(g6 V tp21724 a(g6 V( tp21725 a(g100 VaType p21726 tp21727 a(g6 V tp21728 a(g48 V== p21729 tp21730 a(g6 V tp21731 a(g258 V#Player p21732 tp21733 a(g6 V \u000a p21734 tp21735 a(g84 VifTrue: p21736 tp21737 a(g6 V tp21738 a(g6 V[ tp21739 a(g6 V tp21740 a(g100 VargTile p21741 tp21742 a(g6 V tp21743 a(g48 VactualObject p21744 tp21745 a(g6 V] tp21746 a(g6 V\u000a p21747 tp21748 a(g84 VifFalse: p21749 tp21750 a(g6 V tp21751 a(g6 V[ tp21752 a(g6 V tp21753 a(g100 VargTile p21754 tp21755 a(g6 V tp21756 a(g48 Vliteral p21757 tp21758 a(g6 V] tp21759 a(g6 V) tp21760 a(g212 V. tp21761 a(g6 V tp21762 a(g24 V"default value for each type" p21763 tp21764 a(g6 V] tp21765 a(g212 V. tp21766 a(g6 V\u000a\u000a p21767 tp21768 a(g100 Vms p21769 tp21770 a(g6 V tp21771 a(g353 V_ tp21772 a(g6 V tp21773 a(g133 VMessageSend p21774 tp21775 a(g6 V tp21776 a(g48 Vreceiver: p21777 tp21778 a(g6 V tp21779 a(g87 Vself p21780 tp21781 a(g6 V tp21782 a(g48 Vselector: p21783 tp21784 a(g6 V tp21785 a(g100 VitsSelector p21786 tp21787 a(g6 V tp21788 a(g48 Varguments: p21789 tp21790 a(g6 V tp21791 a(g100 VargList p21792 tp21793 a(g6 V tp21794 a(g48 VasArray p21795 tp21796 a(g212 V. tp21797 a(g6 V\u000a p21798 tp21799 a(g353 V^ tp21800 a(g6 V tp21801 a(g100 Vms p21802 tp21803 a(g6 V tp21804 a(g48 VasTilesIn: p21805 tp21806 a(g6 V tp21807 a(g87 Vself p21808 tp21809 a(g6 V tp21810 a(g48 Vclass p21811 tp21812 a(g6 V tp21813 a(g48 VglobalNames: p21814 tp21815 a(g6 V tp21816 a(g6 V( tp21817 a(g87 Vself p21818 tp21819 a(g6 V tp21820 a(g48 Vclass p21821 tp21822 a(g6 V tp21823 a(g48 VofficialClass p21824 tp21825 a(g6 V tp21826 a(g48 V~~ p21827 tp21828 a(g6 V tp21829 a(g133 VCardPlayer p21830 tp21831 a(g6 V) tp21832 a(g6 V\u000a p21833 tp21834 a(g24 V"For CardPlayers, use 'self'. For others, name it, and use its name." p21835 tp21836 a(g138 V! ! p21837 tp21838 a(g6 V\u000a\u000a\u000a p21839 tp21840 a(g138 V! tp21841 a(g133 VObject p21842 tp21843 a(g138 V methodsFor: p21844 tp21845 a(g236 V'self evaluating' p21846 tp21847 a(g138 V stamp: 'sd 7/31/2005 21:47'! p21848 tp21849 a(g6 V\u000a tp21850 a(g48 VisSelfEvaluating p21851 tp21852 a(g6 V\u000a p21853 tp21854 a(g353 V^ tp21855 a(g6 V tp21856 a(g87 Vself p21857 tp21858 a(g6 V tp21859 a(g48 VisLiteral p21860 tp21861 a(g138 V! ! p21862 tp21863 a(g6 V\u000a\u000a\u000a p21864 tp21865 a(g138 V! tp21866 a(g133 VObject p21867 tp21868 a(g138 V methodsFor: p21869 tp21870 a(g236 V'system primitives' p21871 tp21872 a(g138 V! tp21873 a(g6 V\u000a tp21874 a(g48 VasOop p21875 tp21876 a(g6 V\u000a p21877 tp21878 a(g24 V"Primitive. Answer a SmallInteger whose value is half of the receiver's \u000a object pointer (interpreting object pointers as 16-bit signed quantities). \u000a Fail if the receiver is a SmallInteger. Essential. See Object documentation \u000a whatIsAPrimitive." p21879 tp21880 a(g6 V\u000a\u000a p21881 tp21882 a(g6 V< tp21883 a(g138 Vprimitive: p21884 tp21885 a(g6 V 75 p21886 tp21887 a(g6 V> tp21888 a(g6 V\u000a p21889 tp21890 a(g87 Vself p21891 tp21892 a(g6 V tp21893 a(g48 VprimitiveFailed p21894 tp21895 a(g138 V! ! p21896 tp21897 a(g6 V\u000a\u000a p21898 tp21899 a(g138 V! tp21900 a(g133 VObject p21901 tp21902 a(g138 V methodsFor: p21903 tp21904 a(g236 V'system primitives' p21905 tp21906 a(g138 V stamp: 'di 1/9/1999 15:19'! p21907 tp21908 a(g6 V\u000a tp21909 a(g48 VbecomeForward: p21910 tp21911 a(g6 V tp21912 a(g100 VotherObject p21913 tp21914 a(g6 V \u000a p21915 tp21916 a(g24 V"Primitive. All variables in the entire system that used to point\u000a to the receiver now point to the argument.\u000a Fails if either argument is a SmallInteger." p21917 tp21918 a(g6 V\u000a\u000a p21919 tp21920 a(g6 V( tp21921 a(g133 VArray p21922 tp21923 a(g6 V tp21924 a(g48 Vwith: p21925 tp21926 a(g6 V tp21927 a(g87 Vself p21928 tp21929 a(g6 V) tp21930 a(g6 V\u000a p21931 tp21932 a(g48 VelementsForwardIdentityTo: p21933 tp21934 a(g6 V\u000a p21935 tp21936 a(g6 V( tp21937 a(g133 VArray p21938 tp21939 a(g6 V tp21940 a(g48 Vwith: p21941 tp21942 a(g6 V tp21943 a(g100 VotherObject p21944 tp21945 a(g6 V) tp21946 a(g138 V! ! p21947 tp21948 a(g6 V\u000a\u000a p21949 tp21950 a(g138 V! tp21951 a(g133 VObject p21952 tp21953 a(g138 V methodsFor: p21954 tp21955 a(g236 V'system primitives' p21956 tp21957 a(g138 V stamp: 'zz 3/3/2004 23:53'! p21958 tp21959 a(g6 V\u000a tp21960 a(g48 VbecomeForward: p21961 tp21962 a(g6 V tp21963 a(g100 VotherObject p21964 tp21965 a(g6 V tp21966 a(g48 VcopyHash: p21967 tp21968 a(g6 V tp21969 a(g100 VcopyHash p21970 tp21971 a(g6 V\u000a p21972 tp21973 a(g24 V"Primitive. All variables in the entire system that used to point to the receiver now point to the argument.\u000a If copyHash is true, the argument's identity hash bits will be set to those of the receiver.\u000a Fails if either argument is a SmallInteger." p21974 tp21975 a(g6 V\u000a\u000a p21976 tp21977 a(g6 V( tp21978 a(g133 VArray p21979 tp21980 a(g6 V tp21981 a(g48 Vwith: p21982 tp21983 a(g6 V tp21984 a(g87 Vself p21985 tp21986 a(g6 V) tp21987 a(g6 V\u000a p21988 tp21989 a(g48 VelementsForwardIdentityTo: p21990 tp21991 a(g6 V\u000a p21992 tp21993 a(g6 V( tp21994 a(g133 VArray p21995 tp21996 a(g6 V tp21997 a(g48 Vwith: p21998 tp21999 a(g6 V tp22000 a(g100 VotherObject p22001 tp22002 a(g6 V) tp22003 a(g6 V\u000a p22004 tp22005 a(g48 VcopyHash: p22006 tp22007 a(g6 V tp22008 a(g100 VcopyHash p22009 tp22010 a(g138 V! ! p22011 tp22012 a(g6 V\u000a\u000a p22013 tp22014 a(g138 V! tp22015 a(g133 VObject p22016 tp22017 a(g138 V methodsFor: p22018 tp22019 a(g236 V'system primitives' p22020 tp22021 a(g138 V stamp: 'sw 10/16/2000 10:59'! p22022 tp22023 a(g6 V\u000a tp22024 a(g48 VclassName p22025 tp22026 a(g6 V\u000a p22027 tp22028 a(g24 V"Answer a string characterizing the receiver's class, for use in list views for example" p22029 tp22030 a(g6 V\u000a\u000a p22031 tp22032 a(g353 V^ tp22033 a(g6 V tp22034 a(g87 Vself p22035 tp22036 a(g6 V tp22037 a(g48 Vclass p22038 tp22039 a(g6 V tp22040 a(g48 Vname p22041 tp22042 a(g6 V tp22043 a(g48 VasString p22044 tp22045 a(g138 V! ! p22046 tp22047 a(g6 V\u000a\u000a p22048 tp22049 a(g138 V! tp22050 a(g133 VObject p22051 tp22052 a(g138 V methodsFor: p22053 tp22054 a(g236 V'system primitives' p22055 tp22056 a(g138 V stamp: 'sw 10/16/2000 11:04'! p22057 tp22058 a(g6 V\u000a tp22059 a(g48 VcreationStamp p22060 tp22061 a(g6 V\u000a p22062 tp22063 a(g24 V"Answer a string which reports the creation particulars of the receiver. Intended perhaps for list views, but this is presently a feature not easily accessible" p22064 tp22065 a(g6 V\u000a\u000a p22066 tp22067 a(g353 V^ tp22068 a(g6 V tp22069 a(g236 V'' p22070 tp22071 a(g138 V! ! p22072 tp22073 a(g6 V\u000a\u000a p22074 tp22075 a(g138 V! tp22076 a(g133 VObject p22077 tp22078 a(g138 V methodsFor: p22079 tp22080 a(g236 V'system primitives' p22081 tp22082 a(g138 V! tp22083 a(g6 V\u000a tp22084 a(g48 VinstVarAt: p22085 tp22086 a(g6 V tp22087 a(g100 Vindex p22088 tp22089 a(g6 V \u000a p22090 tp22091 a(g24 V"Primitive. Answer a fixed variable in an object. The numbering of the \u000a variables corresponds to the named instance variables. Fail if the index \u000a is not an Integer or is not the index of a fixed variable. Essential. See \u000a Object documentation whatIsAPrimitive." p22092 tp22093 a(g6 V\u000a\u000a p22094 tp22095 a(g6 V< tp22096 a(g138 Vprimitive: p22097 tp22098 a(g6 V 73 p22099 tp22100 a(g6 V> tp22101 a(g6 V\u000a p22102 tp22103 a(g24 V"Access beyond fixed variables." p22104 tp22105 a(g6 V\u000a p22106 tp22107 a(g353 V^ tp22108 a(g87 Vself p22109 tp22110 a(g6 V tp22111 a(g48 VbasicAt: p22112 tp22113 a(g6 V tp22114 a(g100 Vindex p22115 tp22116 a(g6 V tp22117 a(g48 V- tp22118 a(g6 V tp22119 a(g87 Vself p22120 tp22121 a(g6 V tp22122 a(g48 Vclass p22123 tp22124 a(g6 V tp22125 a(g48 VinstSize p22126 tp22127 a(g6 V p22128 tp22129 a(g138 V! ! p22130 tp22131 a(g6 V\u000a\u000a p22132 tp22133 a(g138 V! tp22134 a(g133 VObject p22135 tp22136 a(g138 V methodsFor: p22137 tp22138 a(g236 V'system primitives' p22139 tp22140 a(g138 V! tp22141 a(g6 V\u000a tp22142 a(g48 VinstVarAt: p22143 tp22144 a(g6 V tp22145 a(g100 VanInteger p22146 tp22147 a(g6 V tp22148 a(g48 Vput: p22149 tp22150 a(g6 V tp22151 a(g100 VanObject p22152 tp22153 a(g6 V \u000a p22154 tp22155 a(g24 V"Primitive. Store a value into a fixed variable in the receiver. The \u000a numbering of the variables corresponds to the named instance variables. \u000a Fail if the index is not an Integer or is not the index of a fixed variable. \u000a Answer the value stored as the result. Using this message violates the \u000a principle that each object has sovereign control over the storing of \u000a values into its instance variables. Essential. See Object documentation \u000a whatIsAPrimitive." p22156 tp22157 a(g6 V\u000a\u000a p22158 tp22159 a(g6 V< tp22160 a(g138 Vprimitive: p22161 tp22162 a(g6 V 74 p22163 tp22164 a(g6 V> tp22165 a(g6 V\u000a p22166 tp22167 a(g24 V"Access beyond fixed fields" p22168 tp22169 a(g6 V\u000a p22170 tp22171 a(g353 V^ tp22172 a(g87 Vself p22173 tp22174 a(g6 V tp22175 a(g48 VbasicAt: p22176 tp22177 a(g6 V tp22178 a(g100 VanInteger p22179 tp22180 a(g6 V tp22181 a(g48 V- tp22182 a(g6 V tp22183 a(g87 Vself p22184 tp22185 a(g6 V tp22186 a(g48 Vclass p22187 tp22188 a(g6 V tp22189 a(g48 VinstSize p22190 tp22191 a(g6 V tp22192 a(g48 Vput: p22193 tp22194 a(g6 V tp22195 a(g100 VanObject p22196 tp22197 a(g138 V! ! p22198 tp22199 a(g6 V\u000a\u000a p22200 tp22201 a(g138 V! tp22202 a(g133 VObject p22203 tp22204 a(g138 V methodsFor: p22205 tp22206 a(g236 V'system primitives' p22207 tp22208 a(g138 V stamp: 'sw 10/16/2000 11:09'! p22209 tp22210 a(g6 V\u000a tp22211 a(g48 VinstVarNamed: p22212 tp22213 a(g6 V tp22214 a(g100 VaString p22215 tp22216 a(g6 V\u000a p22217 tp22218 a(g24 V"Return the value of the instance variable in me with that name. Slow and unclean, but very useful. " p22219 tp22220 a(g6 V\u000a\u000a p22221 tp22222 a(g353 V^ tp22223 a(g6 V tp22224 a(g87 Vself p22225 tp22226 a(g6 V tp22227 a(g48 VinstVarAt: p22228 tp22229 a(g6 V tp22230 a(g6 V( tp22231 a(g87 Vself p22232 tp22233 a(g6 V tp22234 a(g48 Vclass p22235 tp22236 a(g6 V tp22237 a(g48 VallInstVarNames p22238 tp22239 a(g6 V tp22240 a(g48 VindexOf: p22241 tp22242 a(g6 V tp22243 a(g100 VaString p22244 tp22245 a(g6 V tp22246 a(g48 VasString p22247 tp22248 a(g6 V) tp22249 a(g6 V\u000a\u000a\u000a p22250 tp22251 a(g138 V! ! p22252 tp22253 a(g6 V\u000a\u000a p22254 tp22255 a(g138 V! tp22256 a(g133 VObject p22257 tp22258 a(g138 V methodsFor: p22259 tp22260 a(g236 V'system primitives' p22261 tp22262 a(g138 V stamp: 'sw 10/16/2000 11:10'! p22263 tp22264 a(g6 V\u000a tp22265 a(g48 VinstVarNamed: p22266 tp22267 a(g6 V tp22268 a(g100 VaString p22269 tp22270 a(g6 V tp22271 a(g48 Vput: p22272 tp22273 a(g6 V tp22274 a(g100 VaValue p22275 tp22276 a(g6 V\u000a p22277 tp22278 a(g24 V"Store into the value of the instance variable in me of that name. Slow and unclean, but very useful. " p22279 tp22280 a(g6 V\u000a\u000a p22281 tp22282 a(g353 V^ tp22283 a(g6 V tp22284 a(g87 Vself p22285 tp22286 a(g6 V tp22287 a(g48 VinstVarAt: p22288 tp22289 a(g6 V tp22290 a(g6 V( tp22291 a(g87 Vself p22292 tp22293 a(g6 V tp22294 a(g48 Vclass p22295 tp22296 a(g6 V tp22297 a(g48 VallInstVarNames p22298 tp22299 a(g6 V tp22300 a(g48 VindexOf: p22301 tp22302 a(g6 V tp22303 a(g100 VaString p22304 tp22305 a(g6 V tp22306 a(g48 VasString p22307 tp22308 a(g6 V) tp22309 a(g6 V tp22310 a(g48 Vput: p22311 tp22312 a(g6 V tp22313 a(g100 VaValue p22314 tp22315 a(g6 V\u000a tp22316 a(g138 V! ! p22317 tp22318 a(g6 V\u000a\u000a p22319 tp22320 a(g138 V! tp22321 a(g133 VObject p22322 tp22323 a(g138 V methodsFor: p22324 tp22325 a(g236 V'system primitives' p22326 tp22327 a(g138 V stamp: 'sw 10/17/2000 11:12'! p22328 tp22329 a(g6 V\u000a tp22330 a(g48 VoopString p22331 tp22332 a(g6 V\u000a p22333 tp22334 a(g24 V"Answer a string that represents the oop of the receiver" p22335 tp22336 a(g6 V\u000a\u000a p22337 tp22338 a(g353 V^ tp22339 a(g6 V tp22340 a(g87 Vself p22341 tp22342 a(g6 V tp22343 a(g48 VasOop p22344 tp22345 a(g6 V tp22346 a(g48 VprintString p22347 tp22348 a(g138 V! ! p22349 tp22350 a(g6 V\u000a\u000a p22351 tp22352 a(g138 V! tp22353 a(g133 VObject p22354 tp22355 a(g138 V methodsFor: p22356 tp22357 a(g236 V'system primitives' p22358 tp22359 a(g138 V stamp: 'ar 3/2/2001 01:34'! p22360 tp22361 a(g6 V\u000a tp22362 a(g48 VprimitiveChangeClassTo: p22363 tp22364 a(g6 V tp22365 a(g100 VanObject p22366 tp22367 a(g6 V\u000a p22368 tp22369 a(g24 V"Primitive. Change the class of the receiver into the class of the argument given that the format of the receiver matches the format of the argument's class. Fail if receiver or argument are SmallIntegers, or the receiver is an instance of a compact class and the argument isn't, or when the argument's class is compact and the receiver isn't, or when the format of the receiver is different from the format of the argument's class, or when the arguments class is fixed and the receiver's size differs from the size that an instance of the argument's class should have.\u000a Note: The primitive will fail in most cases that you think might work. This is mostly because of a) the difference between compact and non-compact classes, and b) because of differences in the format. As an example, '(Array new: 3) primitiveChangeClassTo: Morph basicNew' would fail for three of the reasons mentioned above. Array is compact, Morph is not (failure #1). Array is variable and Morph is fixed (different format - failure #2). Morph is a fixed-field-only object and the array is too short (failure #3).\u000a The facility is really provided for certain, very specific applications (mostly related to classes changing shape) and not for casual use." p22370 tp22371 a(g6 V\u000a\u000a p22372 tp22373 a(g6 V< tp22374 a(g138 Vprimitive: p22375 tp22376 a(g6 V 115 p22377 tp22378 a(g6 V> tp22379 a(g6 V\u000a p22380 tp22381 a(g87 Vself p22382 tp22383 a(g6 V tp22384 a(g48 VprimitiveFailed p22385 tp22386 a(g138 V! ! p22387 tp22388 a(g6 V\u000a\u000a p22389 tp22390 a(g138 V! tp22391 a(g133 VObject p22392 tp22393 a(g138 V methodsFor: p22394 tp22395 a(g236 V'system primitives' p22396 tp22397 a(g138 V stamp: 'di 3/27/1999 12:21'! p22398 tp22399 a(g6 V\u000a tp22400 a(g48 VrootStubInImageSegment: p22401 tp22402 a(g6 V tp22403 a(g100 VimageSegment p22404 tp22405 a(g6 V\u000a\u000a p22406 tp22407 a(g353 V^ tp22408 a(g6 V tp22409 a(g133 VImageSegmentRootStub p22410 tp22411 a(g6 V tp22412 a(g84 Vnew p22413 tp22414 a(g6 V\u000a p22415 tp22416 a(g48 VxxSuperclass: p22417 tp22418 a(g6 V tp22419 a(g87 Vnil p22420 tp22421 a(g6 V\u000a p22422 tp22423 a(g48 Vformat: p22424 tp22425 a(g6 V tp22426 a(g87 Vnil p22427 tp22428 a(g6 V\u000a p22429 tp22430 a(g48 Vsegment: p22431 tp22432 a(g6 V tp22433 a(g100 VimageSegment p22434 tp22435 a(g138 V! ! p22436 tp22437 a(g6 V\u000a\u000a p22438 tp22439 a(g138 V! tp22440 a(g133 VObject p22441 tp22442 a(g138 V methodsFor: p22443 tp22444 a(g236 V'system primitives' p22445 tp22446 a(g138 V! tp22447 a(g6 V\u000a tp22448 a(g48 VsomeObject p22449 tp22450 a(g6 V\u000a p22451 tp22452 a(g24 V"Primitive. Answer the first object in the enumeration of all\u000a objects." p22453 tp22454 a(g6 V\u000a\u000a p22455 tp22456 a(g6 V< tp22457 a(g138 Vprimitive: p22458 tp22459 a(g6 V 138 p22460 tp22461 a(g6 V> tp22462 a(g6 V\u000a p22463 tp22464 a(g87 Vself p22465 tp22466 a(g6 V tp22467 a(g48 VprimitiveFailed p22468 tp22469 a(g212 V. tp22470 a(g138 V! ! p22471 tp22472 a(g6 V\u000a\u000a\u000a p22473 tp22474 a(g138 V! tp22475 a(g133 VObject p22476 tp22477 a(g138 V methodsFor: p22478 tp22479 a(g236 V'testing' p22480 tp22481 a(g138 V stamp: 'sw 9/26/2001 11:58'! p22482 tp22483 a(g6 V\u000a tp22484 a(g48 VbasicType p22485 tp22486 a(g6 V\u000a p22487 tp22488 a(g24 V"Answer a symbol representing the inherent type of the receiver" p22489 tp22490 a(g6 V\u000a\u000a p22491 tp22492 a(g353 V^ tp22493 a(g6 V tp22494 a(g258 V#Object p22495 tp22496 a(g138 V! ! p22497 tp22498 a(g6 V\u000a\u000a p22499 tp22500 a(g138 V! tp22501 a(g133 VObject p22502 tp22503 a(g138 V methodsFor: p22504 tp22505 a(g236 V'testing' p22506 tp22507 a(g138 V stamp: 'sw 5/3/2001 16:19'! p22508 tp22509 a(g6 V\u000a tp22510 a(g48 VbeViewed p22511 tp22512 a(g6 V\u000a p22513 tp22514 a(g24 V"Open up a viewer on the receiver. The Presenter is invited to decide just how to present this viewer" p22515 tp22516 a(g6 V\u000a\u000a p22517 tp22518 a(g87 Vself p22519 tp22520 a(g6 V tp22521 a(g48 VuniqueNameForReference p22522 tp22523 a(g212 V. tp22524 a(g6 V p22525 tp22526 a(g24 V"So the viewer will have something nice to refer to" p22527 tp22528 a(g6 V\u000a p22529 tp22530 a(g87 Vself p22531 tp22532 a(g6 V tp22533 a(g48 Vpresenter p22534 tp22535 a(g6 V tp22536 a(g48 VviewObject: p22537 tp22538 a(g6 V tp22539 a(g87 Vself p22540 tp22541 a(g138 V! ! p22542 tp22543 a(g6 V\u000a\u000a p22544 tp22545 a(g138 V! tp22546 a(g133 VObject p22547 tp22548 a(g138 V methodsFor: p22549 tp22550 a(g236 V'testing' p22551 tp22552 a(g138 V stamp: 'sw 10/16/2000 11:01'! p22553 tp22554 a(g6 V\u000a tp22555 a(g48 Vcostumes p22556 tp22557 a(g6 V\u000a p22558 tp22559 a(g24 V"Answer a list of costumes associated with the receiver. The appearance of this method in class Object serves only as a backstop, probably only transitionally" p22560 tp22561 a(g6 V\u000a\u000a p22562 tp22563 a(g353 V^ tp22564 a(g6 V tp22565 a(g87 Vnil p22566 tp22567 a(g138 V! ! p22568 tp22569 a(g6 V\u000a\u000a p22570 tp22571 a(g138 V! tp22572 a(g133 VObject p22573 tp22574 a(g138 V methodsFor: p22575 tp22576 a(g236 V'testing' p22577 tp22578 a(g138 V stamp: 'sw 1/12/98 18:09'! p22579 tp22580 a(g6 V\u000a tp22581 a(g100 VhaltIfNil p22582 tp22583 a(g138 V! ! p22584 tp22585 a(g6 V\u000a\u000a p22586 tp22587 a(g138 V! tp22588 a(g133 VObject p22589 tp22590 a(g138 V methodsFor: p22591 tp22592 a(g236 V'testing' p22593 tp22594 a(g138 V stamp: 'md 1/20/2006 17:09'! p22595 tp22596 a(g6 V\u000a tp22597 a(g48 VhasLiteralSuchThat: p22598 tp22599 a(g6 V tp22600 a(g100 VtestBlock p22601 tp22602 a(g6 V\u000a p22603 tp22604 a(g24 V"This is the end of the imbedded structure path so return false." p22605 tp22606 a(g6 V\u000a\u000a p22607 tp22608 a(g353 V^ tp22609 a(g6 V tp22610 a(g87 Vfalse p22611 tp22612 a(g138 V! ! p22613 tp22614 a(g6 V\u000a\u000a p22615 tp22616 a(g138 V! tp22617 a(g133 VObject p22618 tp22619 a(g138 V methodsFor: p22620 tp22621 a(g236 V'testing' p22622 tp22623 a(g138 V stamp: 'md 1/20/2006 17:10'! p22624 tp22625 a(g6 V\u000a tp22626 a(g48 VhasLiteralThorough: p22627 tp22628 a(g6 V tp22629 a(g100 Vliteral p22630 tp22631 a(g6 V\u000a p22632 tp22633 a(g24 V"Answer true if literal is identical to any literal in this array, even if imbedded in further structures. This is the end of the imbedded structure path so return false." p22634 tp22635 a(g6 V\u000a\u000a p22636 tp22637 a(g353 V^ tp22638 a(g6 V tp22639 a(g87 Vfalse p22640 tp22641 a(g138 V! ! p22642 tp22643 a(g6 V\u000a\u000a p22644 tp22645 a(g138 V! tp22646 a(g133 VObject p22647 tp22648 a(g138 V methodsFor: p22649 tp22650 a(g236 V'testing' p22651 tp22652 a(g138 V stamp: 'sw 1/30/2001 22:24'! p22653 tp22654 a(g6 V\u000a tp22655 a(g48 VhaveFullProtocolBrowsed p22656 tp22657 a(g6 V\u000a p22658 tp22659 a(g24 V"Open up a Lexicon on the receiver" p22660 tp22661 a(g6 V\u000a\u000a p22662 tp22663 a(g353 V^ tp22664 a(g6 V tp22665 a(g87 Vself p22666 tp22667 a(g6 V tp22668 a(g48 VhaveFullProtocolBrowsedShowingSelector: p22669 tp22670 a(g6 V tp22671 a(g87 Vnil p22672 tp22673 a(g6 V\u000a\u000a p22674 tp22675 a(g24 V"(2@3) haveFullProtocolBrowsed" p22676 tp22677 a(g6 V\u000a tp22678 a(g138 V! ! p22679 tp22680 a(g6 V\u000a\u000a p22681 tp22682 a(g138 V! tp22683 a(g133 VObject p22684 tp22685 a(g138 V methodsFor: p22686 tp22687 a(g236 V'testing' p22688 tp22689 a(g138 V stamp: 'ar 9/27/2005 21:04'! p22690 tp22691 a(g6 V\u000a tp22692 a(g48 VhaveFullProtocolBrowsedShowingSelector: p22693 tp22694 a(g6 V tp22695 a(g100 VaSelector p22696 tp22697 a(g6 V\u000a p22698 tp22699 a(g24 V"Open up a Lexicon on the receiver, having it open up showing aSelector, which may be nil" p22700 tp22701 a(g6 V\u000a\u000a p22702 tp22703 a(g353 V| tp22704 a(g100 V aBrowser p22705 tp22706 a(g353 V| tp22707 a(g6 V\u000a p22708 tp22709 a(g100 VaBrowser p22710 tp22711 a(g6 V tp22712 a(g353 V:= p22713 tp22714 a(g6 V tp22715 a(g6 V( tp22716 a(g133 VSmalltalk p22717 tp22718 a(g6 V tp22719 a(g48 Vat: p22720 tp22721 a(g6 V tp22722 a(g258 V#InstanceBrowser p22723 tp22724 a(g6 V tp22725 a(g48 VifAbsent: p22726 tp22727 a(g6 V[ tp22728 a(g6 V tp22729 a(g353 V^ tp22730 a(g87 Vnil p22731 tp22732 a(g6 V] tp22733 a(g6 V) tp22734 a(g6 V tp22735 a(g84 Vnew p22736 tp22737 a(g6 V tp22738 a(g48 VuseVocabulary: p22739 tp22740 a(g6 V tp22741 a(g133 VVocabulary p22742 tp22743 a(g6 V tp22744 a(g48 VfullVocabulary p22745 tp22746 a(g212 V. tp22747 a(g6 V\u000a p22748 tp22749 a(g100 VaBrowser p22750 tp22751 a(g6 V tp22752 a(g48 VopenOnObject: p22753 tp22754 a(g6 V tp22755 a(g87 Vself p22756 tp22757 a(g6 V tp22758 a(g48 VinWorld: p22759 tp22760 a(g6 V tp22761 a(g133 VActiveWorld p22762 tp22763 a(g6 V tp22764 a(g48 VshowingSelector: p22765 tp22766 a(g6 V tp22767 a(g100 VaSelector p22768 tp22769 a(g6 V\u000a\u000a p22770 tp22771 a(g24 V"(2@3) haveFullProtocolBrowsed" p22772 tp22773 a(g138 V! ! p22774 tp22775 a(g6 V\u000a\u000a p22776 tp22777 a(g138 V! tp22778 a(g133 VObject p22779 tp22780 a(g138 V methodsFor: p22781 tp22782 a(g236 V'testing' p22783 tp22784 a(g138 V stamp: 'md 7/30/2005 21:21'! p22785 tp22786 a(g6 V\u000a tp22787 a(g48 VisArray p22788 tp22789 a(g6 V\u000a p22790 tp22791 a(g353 V^ tp22792 a(g87 Vfalse p22793 tp22794 a(g138 V! ! p22795 tp22796 a(g6 V\u000a\u000a p22797 tp22798 a(g138 V! tp22799 a(g133 VObject p22800 tp22801 a(g138 V methodsFor: p22802 tp22803 a(g236 V'testing' p22804 tp22805 a(g138 V stamp: 'ar 7/9/1999 18:18'! p22806 tp22807 a(g6 V\u000a tp22808 a(g48 VisBehavior p22809 tp22810 a(g6 V\u000a p22811 tp22812 a(g24 V"Return true if the receiver is a behavior.\u000a Note: Do not override in any class except behavior." p22813 tp22814 a(g6 V\u000a p22815 tp22816 a(g353 V^ tp22817 a(g87 Vfalse p22818 tp22819 a(g138 V! ! p22820 tp22821 a(g6 V\u000a\u000a p22822 tp22823 a(g138 V! tp22824 a(g133 VObject p22825 tp22826 a(g138 V methodsFor: p22827 tp22828 a(g236 V'testing' p22829 tp22830 a(g138 V stamp: 'ajh 1/21/2003 13:15'! p22831 tp22832 a(g6 V\u000a tp22833 a(g48 VisBlock p22834 tp22835 a(g6 V\u000a tp22836 a(g6 V\u000a p22837 tp22838 a(g353 V^ tp22839 a(g6 V tp22840 a(g87 Vfalse p22841 tp22842 a(g138 V! ! p22843 tp22844 a(g6 V\u000a\u000a p22845 tp22846 a(g138 V! tp22847 a(g133 VObject p22848 tp22849 a(g138 V methodsFor: p22850 tp22851 a(g236 V'testing' p22852 tp22853 a(g138 V stamp: 'md 11/21/2003 12:14'! p22854 tp22855 a(g6 V\u000a tp22856 a(g48 VisBlockClosure p22857 tp22858 a(g6 V\u000a tp22859 a(g6 V\u000a p22860 tp22861 a(g353 V^ tp22862 a(g6 V tp22863 a(g87 Vfalse p22864 tp22865 a(g138 V! ! p22866 tp22867 a(g6 V\u000a\u000a p22868 tp22869 a(g138 V! tp22870 a(g133 VObject p22871 tp22872 a(g138 V methodsFor: p22873 tp22874 a(g236 V'testing' p22875 tp22876 a(g138 V stamp: 'yo 8/28/2002 13:41'! p22877 tp22878 a(g6 V\u000a tp22879 a(g48 VisCharacter p22880 tp22881 a(g6 V\u000a tp22882 a(g6 V\u000a p22883 tp22884 a(g353 V^ tp22885 a(g6 V tp22886 a(g87 Vfalse p22887 tp22888 a(g212 V. tp22889 a(g6 V\u000a tp22890 a(g138 V! ! p22891 tp22892 a(g6 V\u000a\u000a p22893 tp22894 a(g138 V! tp22895 a(g133 VObject p22896 tp22897 a(g138 V methodsFor: p22898 tp22899 a(g236 V'testing' p22900 tp22901 a(g138 V stamp: 'ar 8/17/1999 19:43'! p22902 tp22903 a(g6 V\u000a tp22904 a(g48 VisCollection p22905 tp22906 a(g6 V\u000a p22907 tp22908 a(g24 V"Return true if the receiver is some sort of Collection and responds to basic collection messages such as #size and #do:" p22909 tp22910 a(g6 V\u000a p22911 tp22912 a(g353 V^ tp22913 a(g87 Vfalse p22914 tp22915 a(g138 V! ! p22916 tp22917 a(g6 V\u000a\u000a p22918 tp22919 a(g138 V! tp22920 a(g133 VObject p22921 tp22922 a(g138 V methodsFor: p22923 tp22924 a(g236 V'testing' p22925 tp22926 a(g138 V! tp22927 a(g6 V\u000a tp22928 a(g48 VisColor p22929 tp22930 a(g6 V\u000a p22931 tp22932 a(g24 V"Answer true if receiver is a Color. False by default." p22933 tp22934 a(g6 V\u000a\u000a p22935 tp22936 a(g353 V^ tp22937 a(g6 V tp22938 a(g87 Vfalse p22939 tp22940 a(g6 V\u000a tp22941 a(g138 V! ! p22942 tp22943 a(g6 V\u000a\u000a p22944 tp22945 a(g138 V! tp22946 a(g133 VObject p22947 tp22948 a(g138 V methodsFor: p22949 tp22950 a(g236 V'testing' p22951 tp22952 a(g138 V stamp: 'nk 4/17/2004 19:43'! p22953 tp22954 a(g6 V\u000a tp22955 a(g48 VisColorForm p22956 tp22957 a(g6 V\u000a p22958 tp22959 a(g353 V^ tp22960 a(g87 Vfalse p22961 tp22962 a(g138 V! ! p22963 tp22964 a(g6 V\u000a\u000a p22965 tp22966 a(g138 V! tp22967 a(g133 VObject p22968 tp22969 a(g138 V methodsFor: p22970 tp22971 a(g236 V'testing' p22972 tp22973 a(g138 V stamp: 'md 11/21/2003 12:14'! p22974 tp22975 a(g6 V\u000a tp22976 a(g48 VisCompiledMethod p22977 tp22978 a(g6 V\u000a tp22979 a(g6 V\u000a p22980 tp22981 a(g353 V^ tp22982 a(g6 V tp22983 a(g87 Vfalse p22984 tp22985 a(g138 V! ! p22986 tp22987 a(g6 V\u000a\u000a p22988 tp22989 a(g138 V! tp22990 a(g133 VObject p22991 tp22992 a(g138 V methodsFor: p22993 tp22994 a(g236 V'testing' p22995 tp22996 a(g138 V stamp: 'mk 10/27/2003 17:33'! p22997 tp22998 a(g6 V\u000a tp22999 a(g48 VisComplex p23000 tp23001 a(g6 V\u000a p23002 tp23003 a(g24 V"Answer true if receiver is a Complex number. False by default." p23004 tp23005 a(g6 V\u000a\u000a p23006 tp23007 a(g353 V^ tp23008 a(g6 V tp23009 a(g87 Vfalse p23010 tp23011 a(g6 V\u000a tp23012 a(g138 V! ! p23013 tp23014 a(g6 V\u000a\u000a p23015 tp23016 a(g138 V! tp23017 a(g133 VObject p23018 tp23019 a(g138 V methodsFor: p23020 tp23021 a(g236 V'testing' p23022 tp23023 a(g138 V stamp: 'md 8/11/2005 16:45'! p23024 tp23025 a(g6 V\u000a tp23026 a(g48 VisDictionary p23027 tp23028 a(g6 V\u000a p23029 tp23030 a(g353 V^ tp23031 a(g87 Vfalse p23032 tp23033 a(g138 V! ! p23034 tp23035 a(g6 V\u000a\u000a p23036 tp23037 a(g138 V! tp23038 a(g133 VObject p23039 tp23040 a(g138 V methodsFor: p23041 tp23042 a(g236 V'testing' p23043 tp23044 a(g138 V stamp: 'di 11/9/1998 09:38'! p23045 tp23046 a(g6 V\u000a tp23047 a(g48 VisFloat p23048 tp23049 a(g6 V\u000a p23050 tp23051 a(g24 V"Overridden to return true in Float, natch" p23052 tp23053 a(g6 V\u000a p23054 tp23055 a(g353 V^ tp23056 a(g6 V tp23057 a(g87 Vfalse p23058 tp23059 a(g138 V! ! p23060 tp23061 a(g6 V\u000a\u000a p23062 tp23063 a(g138 V! tp23064 a(g133 VObject p23065 tp23066 a(g138 V methodsFor: p23067 tp23068 a(g236 V'testing' p23069 tp23070 a(g138 V stamp: 'ar 10/30/2000 23:22'! p23071 tp23072 a(g6 V\u000a tp23073 a(g48 VisForm p23074 tp23075 a(g6 V\u000a p23076 tp23077 a(g353 V^ tp23078 a(g87 Vfalse p23079 tp23080 a(g138 V! ! p23081 tp23082 a(g6 V\u000a\u000a p23083 tp23084 a(g138 V! tp23085 a(g133 VObject p23086 tp23087 a(g138 V methodsFor: p23088 tp23089 a(g236 V'testing' p23090 tp23091 a(g138 V stamp: 'len 1/13/98 21:18'! p23092 tp23093 a(g6 V\u000a tp23094 a(g48 VisFraction p23095 tp23096 a(g6 V\u000a p23097 tp23098 a(g24 V"Answer true if the receiver is a Fraction." p23099 tp23100 a(g6 V\u000a\u000a p23101 tp23102 a(g353 V^ tp23103 a(g6 V tp23104 a(g87 Vfalse p23105 tp23106 a(g138 V! ! p23107 tp23108 a(g6 V\u000a\u000a p23109 tp23110 a(g138 V! tp23111 a(g133 VObject p23112 tp23113 a(g138 V methodsFor: p23114 tp23115 a(g236 V'testing' p23116 tp23117 a(g138 V stamp: 'rhi 8/14/2003 08:51'! p23118 tp23119 a(g6 V\u000a tp23120 a(g48 VisHeap p23121 tp23122 a(g6 V\u000a tp23123 a(g6 V\u000a p23124 tp23125 a(g353 V^ tp23126 a(g6 V tp23127 a(g87 Vfalse p23128 tp23129 a(g138 V! ! p23130 tp23131 a(g6 V\u000a\u000a p23132 tp23133 a(g138 V! tp23134 a(g133 VObject p23135 tp23136 a(g138 V methodsFor: p23137 tp23138 a(g236 V'testing' p23139 tp23140 a(g138 V! tp23141 a(g6 V\u000a tp23142 a(g48 VisInteger p23143 tp23144 a(g6 V\u000a p23145 tp23146 a(g24 V"Overridden to return true in Integer." p23147 tp23148 a(g6 V\u000a\u000a p23149 tp23150 a(g353 V^ tp23151 a(g6 V tp23152 a(g87 Vfalse p23153 tp23154 a(g138 V! ! p23155 tp23156 a(g6 V\u000a\u000a p23157 tp23158 a(g138 V! tp23159 a(g133 VObject p23160 tp23161 a(g138 V methodsFor: p23162 tp23163 a(g236 V'testing' p23164 tp23165 a(g138 V stamp: 'rhi 8/12/2003 09:52'! p23166 tp23167 a(g6 V\u000a tp23168 a(g48 VisInterval p23169 tp23170 a(g6 V\u000a tp23171 a(g6 V\u000a p23172 tp23173 a(g353 V^ tp23174 a(g6 V tp23175 a(g87 Vfalse p23176 tp23177 a(g138 V! ! p23178 tp23179 a(g6 V\u000a\u000a p23180 tp23181 a(g138 V! tp23182 a(g133 VObject p23183 tp23184 a(g138 V methodsFor: p23185 tp23186 a(g236 V'testing' p23187 tp23188 a(g138 V stamp: 'nk 4/25/2002 08:04'! p23189 tp23190 a(g6 V\u000a tp23191 a(g48 VisMessageSend p23192 tp23193 a(g6 V\u000a p23194 tp23195 a(g353 V^ tp23196 a(g87 Vfalse p23197 tp23198 a(g6 V\u000a tp23199 a(g138 V! ! p23200 tp23201 a(g6 V\u000a\u000a p23202 tp23203 a(g138 V! tp23204 a(g133 VObject p23205 tp23206 a(g138 V methodsFor: p23207 tp23208 a(g236 V'testing' p23209 tp23210 a(g138 V stamp: 'md 2/19/2006 11:24'! p23211 tp23212 a(g6 V\u000a tp23213 a(g48 VisMethodProperties p23214 tp23215 a(g6 V\u000a p23216 tp23217 a(g353 V^ tp23218 a(g87 Vfalse p23219 tp23220 a(g138 V! ! p23221 tp23222 a(g6 V\u000a\u000a p23223 tp23224 a(g138 V! tp23225 a(g133 VObject p23226 tp23227 a(g138 V methodsFor: p23228 tp23229 a(g236 V'testing' p23230 tp23231 a(g138 V! tp23232 a(g6 V\u000a tp23233 a(g48 VisMorph p23234 tp23235 a(g6 V\u000a tp23236 a(g6 V\u000a p23237 tp23238 a(g353 V^ tp23239 a(g6 V tp23240 a(g87 Vfalse p23241 tp23242 a(g138 V! ! p23243 tp23244 a(g6 V\u000a\u000a p23245 tp23246 a(g138 V! tp23247 a(g133 VObject p23248 tp23249 a(g138 V methodsFor: p23250 tp23251 a(g236 V'testing' p23252 tp23253 a(g138 V stamp: 'ar 9/13/2000 15:37'! p23254 tp23255 a(g6 V\u000a tp23256 a(g48 VisMorphicEvent p23257 tp23258 a(g6 V\u000a p23259 tp23260 a(g353 V^ tp23261 a(g87 Vfalse p23262 tp23263 a(g138 V! ! p23264 tp23265 a(g6 V\u000a\u000a p23266 tp23267 a(g138 V! tp23268 a(g133 VObject p23269 tp23270 a(g138 V methodsFor: p23271 tp23272 a(g236 V'testing' p23273 tp23274 a(g138 V stamp: 'gm 2/22/2003 12:56'! p23275 tp23276 a(g6 V\u000a tp23277 a(g48 VisMorphicModel p23278 tp23279 a(g6 V\u000a p23280 tp23281 a(g24 V"Return true if the receiver is a morphic model" p23282 tp23283 a(g6 V\u000a p23284 tp23285 a(g353 V^ tp23286 a(g87 Vfalse p23287 tp23288 a(g6 V\u000a tp23289 a(g138 V! ! p23290 tp23291 a(g6 V\u000a\u000a p23292 tp23293 a(g138 V! tp23294 a(g133 VObject p23295 tp23296 a(g138 V methodsFor: p23297 tp23298 a(g236 V'testing' p23299 tp23300 a(g138 V! tp23301 a(g6 V\u000a tp23302 a(g48 VisNumber p23303 tp23304 a(g6 V\u000a p23305 tp23306 a(g24 V"Overridden to return true in Number, natch" p23307 tp23308 a(g6 V\u000a p23309 tp23310 a(g353 V^ tp23311 a(g6 V tp23312 a(g87 Vfalse p23313 tp23314 a(g138 V! ! p23315 tp23316 a(g6 V\u000a\u000a p23317 tp23318 a(g138 V! tp23319 a(g133 VObject p23320 tp23321 a(g138 V methodsFor: p23322 tp23323 a(g236 V'testing' p23324 tp23325 a(g138 V stamp: 'di 11/6/1998 08:04'! p23326 tp23327 a(g6 V\u000a tp23328 a(g48 VisPoint p23329 tp23330 a(g6 V\u000a p23331 tp23332 a(g24 V"Overridden to return true in Point." p23333 tp23334 a(g6 V\u000a\u000a p23335 tp23336 a(g353 V^ tp23337 a(g6 V tp23338 a(g87 Vfalse p23339 tp23340 a(g138 V! ! p23341 tp23342 a(g6 V\u000a\u000a p23343 tp23344 a(g138 V! tp23345 a(g133 VObject p23346 tp23347 a(g138 V methodsFor: p23348 tp23349 a(g236 V'testing' p23350 tp23351 a(g138 V stamp: 'ikp 9/26/97 14:45'! p23352 tp23353 a(g6 V\u000a tp23354 a(g48 VisPseudoContext p23355 tp23356 a(g6 V\u000a p23357 tp23358 a(g353 V^ tp23359 a(g87 Vfalse p23360 tp23361 a(g138 V! ! p23362 tp23363 a(g6 V\u000a\u000a p23364 tp23365 a(g138 V! tp23366 a(g133 VObject p23367 tp23368 a(g138 V methodsFor: p23369 tp23370 a(g236 V'testing' p23371 tp23372 a(g138 V stamp: 'md 10/2/2005 21:52'! p23373 tp23374 a(g6 V\u000a tp23375 a(g48 VisRectangle p23376 tp23377 a(g6 V\u000a p23378 tp23379 a(g353 V^ tp23380 a(g87 Vfalse p23381 tp23382 a(g138 V! ! p23383 tp23384 a(g6 V\u000a\u000a p23385 tp23386 a(g138 V! tp23387 a(g133 VObject p23388 tp23389 a(g138 V methodsFor: p23390 tp23391 a(g236 V'testing' p23392 tp23393 a(g138 V stamp: 'nk 6/14/2004 16:49'! p23394 tp23395 a(g6 V\u000a tp23396 a(g48 VisSketchMorph p23397 tp23398 a(g6 V\u000a p23399 tp23400 a(g353 V^ tp23401 a(g87 Vfalse p23402 tp23403 a(g138 V! ! p23404 tp23405 a(g6 V\u000a\u000a p23406 tp23407 a(g138 V! tp23408 a(g133 VObject p23409 tp23410 a(g138 V methodsFor: p23411 tp23412 a(g236 V'testing' p23413 tp23414 a(g138 V stamp: 'ar 12/23/1999 15:43'! p23415 tp23416 a(g6 V\u000a tp23417 a(g48 VisStream p23418 tp23419 a(g6 V\u000a p23420 tp23421 a(g24 V"Return true if the receiver responds to the stream protocol" p23422 tp23423 a(g6 V\u000a p23424 tp23425 a(g353 V^ tp23426 a(g87 Vfalse p23427 tp23428 a(g6 V\u000a tp23429 a(g138 V! ! p23430 tp23431 a(g6 V\u000a\u000a p23432 tp23433 a(g138 V! tp23434 a(g133 VObject p23435 tp23436 a(g138 V methodsFor: p23437 tp23438 a(g236 V'testing' p23439 tp23440 a(g138 V stamp: 'sma 6/15/2000 15:48'! p23441 tp23442 a(g6 V\u000a tp23443 a(g48 VisString p23444 tp23445 a(g6 V\u000a p23446 tp23447 a(g24 V"Overridden to return true in String, natch" p23448 tp23449 a(g6 V\u000a p23450 tp23451 a(g353 V^ tp23452 a(g6 V tp23453 a(g87 Vfalse p23454 tp23455 a(g138 V! ! p23456 tp23457 a(g6 V\u000a\u000a p23458 tp23459 a(g138 V! tp23460 a(g133 VObject p23461 tp23462 a(g138 V methodsFor: p23463 tp23464 a(g236 V'testing' p23465 tp23466 a(g138 V stamp: 'md 4/30/2003 15:30'! p23467 tp23468 a(g6 V\u000a tp23469 a(g48 VisSymbol p23470 tp23471 a(g6 V\u000a p23472 tp23473 a(g353 V^ tp23474 a(g6 V tp23475 a(g87 Vfalse p23476 tp23477 a(g6 V tp23478 a(g138 V! ! p23479 tp23480 a(g6 V\u000a\u000a p23481 tp23482 a(g138 V! tp23483 a(g133 VObject p23484 tp23485 a(g138 V methodsFor: p23486 tp23487 a(g236 V'testing' p23488 tp23489 a(g138 V stamp: 'jam 3/9/2003 15:10'! p23490 tp23491 a(g6 V\u000a tp23492 a(g48 VisSystemWindow p23493 tp23494 a(g6 V\u000a tp23495 a(g24 V"answer whatever the receiver is a SystemWindow" p23496 tp23497 a(g6 V\u000a p23498 tp23499 a(g353 V^ tp23500 a(g6 V tp23501 a(g87 Vfalse p23502 tp23503 a(g138 V! ! p23504 tp23505 a(g6 V\u000a\u000a p23506 tp23507 a(g138 V! tp23508 a(g133 VObject p23509 tp23510 a(g138 V methodsFor: p23511 tp23512 a(g236 V'testing' p23513 tp23514 a(g138 V! tp23515 a(g6 V\u000a tp23516 a(g48 VisText p23517 tp23518 a(g6 V\u000a p23519 tp23520 a(g353 V^ tp23521 a(g6 V tp23522 a(g87 Vfalse p23523 tp23524 a(g138 V! ! p23525 tp23526 a(g6 V\u000a\u000a p23527 tp23528 a(g138 V! tp23529 a(g133 VObject p23530 tp23531 a(g138 V methodsFor: p23532 tp23533 a(g236 V'testing' p23534 tp23535 a(g138 V stamp: 'pmm 7/6/2006 20:46'! p23536 tp23537 a(g6 V\u000a tp23538 a(g48 VisTrait p23539 tp23540 a(g6 V\u000a p23541 tp23542 a(g24 V"Return true if the receiver is a trait.\u000a Note: Do not override in any class except TraitBehavior." p23543 tp23544 a(g6 V\u000a p23545 tp23546 a(g353 V^ tp23547 a(g87 Vfalse p23548 tp23549 a(g138 V! ! p23550 tp23551 a(g6 V\u000a\u000a p23552 tp23553 a(g138 V! tp23554 a(g133 VObject p23555 tp23556 a(g138 V methodsFor: p23557 tp23558 a(g236 V'testing' p23559 tp23560 a(g138 V stamp: 'tk 10/21/97 12:45'! p23561 tp23562 a(g6 V\u000a tp23563 a(g48 VisTransparent p23564 tp23565 a(g6 V\u000a p23566 tp23567 a(g353 V^ tp23568 a(g6 V tp23569 a(g87 Vfalse p23570 tp23571 a(g138 V! ! p23572 tp23573 a(g6 V\u000a\u000a p23574 tp23575 a(g138 V! tp23576 a(g133 VObject p23577 tp23578 a(g138 V methodsFor: p23579 tp23580 a(g236 V'testing' p23581 tp23582 a(g138 V stamp: 'ar 8/14/2001 23:19'! p23583 tp23584 a(g6 V\u000a tp23585 a(g48 VisVariableBinding p23586 tp23587 a(g6 V\u000a p23588 tp23589 a(g24 V"Return true if I represent a literal variable binding" p23590 tp23591 a(g6 V\u000a p23592 tp23593 a(g353 V^ tp23594 a(g87 Vfalse p23595 tp23596 a(g6 V\u000a p23597 tp23598 a(g138 V! ! p23599 tp23600 a(g6 V\u000a\u000a p23601 tp23602 a(g138 V! tp23603 a(g133 VObject p23604 tp23605 a(g138 V methodsFor: p23606 tp23607 a(g236 V'testing' p23608 tp23609 a(g138 V stamp: 'ls 7/14/1998 21:45'! p23610 tp23611 a(g6 V\u000a tp23612 a(g48 VisWebBrowser p23613 tp23614 a(g6 V\u000a p23615 tp23616 a(g24 V"whether this object is a web browser. See class: Scamper" p23617 tp23618 a(g6 V\u000a p23619 tp23620 a(g353 V^ tp23621 a(g87 Vfalse p23622 tp23623 a(g138 V! ! p23624 tp23625 a(g6 V\u000a\u000a p23626 tp23627 a(g138 V! tp23628 a(g133 VObject p23629 tp23630 a(g138 V methodsFor: p23631 tp23632 a(g236 V'testing' p23633 tp23634 a(g138 V stamp: 'sw 10/27/2000 06:58'! p23635 tp23636 a(g6 V\u000a tp23637 a(g48 VknownName p23638 tp23639 a(g6 V\u000a p23640 tp23641 a(g24 V"If a formal name has been handed out for this object, answer it, else nil" p23642 tp23643 a(g6 V\u000a \u000a p23644 tp23645 a(g353 V^ tp23646 a(g6 V tp23647 a(g133 VPreferences p23648 tp23649 a(g6 V tp23650 a(g48 VcapitalizedReferences p23651 tp23652 a(g6 V\u000a p23653 tp23654 a(g84 VifTrue: p23655 tp23656 a(g6 V\u000a p23657 tp23658 a(g6 V[ tp23659 a(g6 V tp23660 a(g133 VReferences p23661 tp23662 a(g6 V tp23663 a(g48 VkeyAtValue: p23664 tp23665 a(g6 V tp23666 a(g87 Vself p23667 tp23668 a(g6 V tp23669 a(g48 VifAbsent: p23670 tp23671 a(g6 V tp23672 a(g6 V[ tp23673 a(g6 V tp23674 a(g87 Vnil p23675 tp23676 a(g6 V] tp23677 a(g6 V] tp23678 a(g6 V\u000a p23679 tp23680 a(g84 VifFalse: p23681 tp23682 a(g6 V\u000a p23683 tp23684 a(g6 V[ tp23685 a(g6 V tp23686 a(g87 Vnil p23687 tp23688 a(g6 V] tp23689 a(g138 V! ! p23690 tp23691 a(g6 V\u000a\u000a p23692 tp23693 a(g138 V! tp23694 a(g133 VObject p23695 tp23696 a(g138 V methodsFor: p23697 tp23698 a(g236 V'testing' p23699 tp23700 a(g138 V stamp: 'sw 9/27/96'! p23701 tp23702 a(g6 V\u000a tp23703 a(g48 Vname p23704 tp23705 a(g6 V\u000a p23706 tp23707 a(g24 V"Answer a name for the receiver. This is used generically in the title of certain inspectors, such as the referred-to inspector, and specificially by various subsystems. By default, we let the object just print itself out.. " p23708 tp23709 a(g6 V\u000a\u000a p23710 tp23711 a(g353 V^ tp23712 a(g6 V tp23713 a(g87 Vself p23714 tp23715 a(g6 V tp23716 a(g48 VprintString p23717 tp23718 a(g138 V! ! p23719 tp23720 a(g6 V\u000a\u000a p23721 tp23722 a(g138 V! tp23723 a(g133 VObject p23724 tp23725 a(g138 V methodsFor: p23726 tp23727 a(g236 V'testing' p23728 tp23729 a(g138 V stamp: 'sw 11/19/2001 13:28'! p23730 tp23731 a(g6 V\u000a tp23732 a(g48 VnameForViewer p23733 tp23734 a(g6 V\u000a p23735 tp23736 a(g24 V"Answer a name to be shown in a Viewer that is viewing the receiver" p23737 tp23738 a(g6 V\u000a\u000a p23739 tp23740 a(g353 V| tp23741 a(g100 V aName p23742 tp23743 a(g353 V| tp23744 a(g6 V\u000a p23745 tp23746 a(g6 V( tp23747 a(g100 VaName p23748 tp23749 a(g6 V tp23750 a(g353 V_ tp23751 a(g6 V tp23752 a(g87 Vself p23753 tp23754 a(g6 V tp23755 a(g48 VuniqueNameForReferenceOrNil p23756 tp23757 a(g6 V) tp23758 a(g6 V tp23759 a(g48 VifNotNil: p23760 tp23761 a(g6 V tp23762 a(g6 V[ tp23763 a(g6 V tp23764 a(g353 V^ tp23765 a(g6 V tp23766 a(g100 VaName p23767 tp23768 a(g6 V] tp23769 a(g212 V. tp23770 a(g6 V\u000a p23771 tp23772 a(g6 V( tp23773 a(g100 VaName p23774 tp23775 a(g6 V tp23776 a(g353 V_ tp23777 a(g6 V tp23778 a(g87 Vself p23779 tp23780 a(g6 V tp23781 a(g48 VknownName p23782 tp23783 a(g6 V) tp23784 a(g6 V tp23785 a(g48 VifNotNil: p23786 tp23787 a(g6 V tp23788 a(g6 V[ tp23789 a(g6 V tp23790 a(g353 V^ tp23791 a(g6 V tp23792 a(g100 VaName p23793 tp23794 a(g6 V] tp23795 a(g212 V. tp23796 a(g6 V\u000a\u000a p23797 tp23798 a(g353 V^ tp23799 a(g6 V tp23800 a(g6 V[ tp23801 a(g6 V tp23802 a(g6 V( tp23803 a(g87 Vself p23804 tp23805 a(g6 V tp23806 a(g48 VasString p23807 tp23808 a(g6 V tp23809 a(g48 VcopyWithout: p23810 tp23811 a(g6 V tp23812 a(g133 VCharacter p23813 tp23814 a(g6 V tp23815 a(g48 Vcr p23816 tp23817 a(g6 V) tp23818 a(g6 V tp23819 a(g48 VtruncateTo: p23820 tp23821 a(g6 V p23822 tp23823 a(g223 V27 p23824 tp23825 a(g6 V] tp23826 a(g6 V tp23827 a(g48 VifError: p23828 tp23829 a(g6 V\u000a p23830 tp23831 a(g6 V[ tp23832 a(g353 V: tp23833 a(g100 Vmsg p23834 tp23835 a(g6 V tp23836 a(g353 V: tp23837 a(g100 Vrcvr p23838 tp23839 a(g6 V tp23840 a(g353 V| tp23841 a(g6 V tp23842 a(g353 V^ tp23843 a(g6 V tp23844 a(g87 Vself p23845 tp23846 a(g6 V tp23847 a(g48 Vclass p23848 tp23849 a(g6 V tp23850 a(g48 Vname p23851 tp23852 a(g6 V tp23853 a(g48 VprintString p23854 tp23855 a(g6 V] tp23856 a(g138 V! ! p23857 tp23858 a(g6 V\u000a\u000a p23859 tp23860 a(g138 V! tp23861 a(g133 VObject p23862 tp23863 a(g138 V methodsFor: p23864 tp23865 a(g236 V'testing' p23866 tp23867 a(g138 V! tp23868 a(g6 V\u000a tp23869 a(g48 VnotNil p23870 tp23871 a(g6 V\u000a p23872 tp23873 a(g24 V"Coerces nil to false and everything else to true." p23874 tp23875 a(g6 V\u000a\u000a p23876 tp23877 a(g353 V^ tp23878 a(g87 Vtrue p23879 tp23880 a(g138 V! ! p23881 tp23882 a(g6 V\u000a\u000a p23883 tp23884 a(g138 V! tp23885 a(g133 VObject p23886 tp23887 a(g138 V methodsFor: p23888 tp23889 a(g236 V'testing' p23890 tp23891 a(g138 V stamp: 'tk 9/6/2001 19:15'! p23892 tp23893 a(g6 V\u000a tp23894 a(g48 VopenInstanceBrowserWithTiles p23895 tp23896 a(g6 V\u000a p23897 tp23898 a(g24 V"Open up an instance browser on me with tiles as the code type, and with the search level as desired." p23899 tp23900 a(g6 V\u000a\u000a p23901 tp23902 a(g353 V| tp23903 a(g100 V aBrowser p23904 tp23905 a(g353 V| tp23906 a(g6 V\u000a p23907 tp23908 a(g100 VaBrowser p23909 tp23910 a(g6 V tp23911 a(g353 V_ tp23912 a(g6 V tp23913 a(g133 VInstanceBrowser p23914 tp23915 a(g6 V tp23916 a(g84 Vnew p23917 tp23918 a(g212 V. tp23919 a(g6 V\u000a p23920 tp23921 a(g100 VaBrowser p23922 tp23923 a(g6 V tp23924 a(g48 VuseVocabulary: p23925 tp23926 a(g6 V tp23927 a(g133 VVocabulary p23928 tp23929 a(g6 V tp23930 a(g48 VfullVocabulary p23931 tp23932 a(g212 V. tp23933 a(g6 V\u000a p23934 tp23935 a(g100 VaBrowser p23936 tp23937 a(g6 V tp23938 a(g48 VlimitClass: p23939 tp23940 a(g6 V tp23941 a(g87 Vself p23942 tp23943 a(g6 V tp23944 a(g48 Vclass p23945 tp23946 a(g212 V. tp23947 a(g6 V\u000a p23948 tp23949 a(g100 VaBrowser p23950 tp23951 a(g6 V tp23952 a(g48 VcontentsSymbol: p23953 tp23954 a(g6 V tp23955 a(g258 V#tiles p23956 tp23957 a(g212 V. tp23958 a(g6 V p23959 tp23960 a(g24 V"preset it to make extra buttons (tile menus)" p23961 tp23962 a(g6 V\u000a p23963 tp23964 a(g100 VaBrowser p23965 tp23966 a(g6 V tp23967 a(g48 VopenOnObject: p23968 tp23969 a(g6 V tp23970 a(g87 Vself p23971 tp23972 a(g6 V tp23973 a(g48 VinWorld: p23974 tp23975 a(g6 V tp23976 a(g133 VActiveWorld p23977 tp23978 a(g6 V tp23979 a(g48 VshowingSelector: p23980 tp23981 a(g6 V tp23982 a(g87 Vnil p23983 tp23984 a(g212 V. tp23985 a(g6 V\u000a p23986 tp23987 a(g100 VaBrowser p23988 tp23989 a(g6 V tp23990 a(g48 VcontentsSymbol: p23991 tp23992 a(g6 V tp23993 a(g258 V#source p23994 tp23995 a(g212 V. tp23996 a(g6 V\u000a p23997 tp23998 a(g100 VaBrowser p23999 tp24000 a(g6 V tp24001 a(g48 VtoggleShowingTiles p24002 tp24003 a(g212 V. tp24004 a(g6 V\u000a\u000a p24005 tp24006 a(g24 V"\u000a(2@3) openInstanceBrowserWithTiles.\u000aWatchMorph new openInstanceBrowserWithTiles\u000a" p24007 tp24008 a(g138 V! ! p24009 tp24010 a(g6 V\u000a\u000a p24011 tp24012 a(g138 V! tp24013 a(g133 VObject p24014 tp24015 a(g138 V methodsFor: p24016 tp24017 a(g236 V'testing' p24018 tp24019 a(g138 V stamp: 'tk 7/28/2005 04:50'! p24020 tp24021 a(g6 V\u000a tp24022 a(g48 VrenameInternal: p24023 tp24024 a(g6 V tp24025 a(g100 VnewName p24026 tp24027 a(g6 V \u000a p24028 tp24029 a(g24 V"Change the internal name (because of a conflict) but leave the external name unchanged. Change Player class name, but do not change the names that appear in tiles. Any object that might be pointed to in the References dictionary might get this message sent to it upon reload" p24030 tp24031 a(g6 V\u000a\u000a p24032 tp24033 a(g353 V^ tp24034 a(g6 V tp24035 a(g87 Vnil p24036 tp24037 a(g6 V tp24038 a(g24 V"caller will renameTo:. new name may be different" p24039 tp24040 a(g138 V! ! p24041 tp24042 a(g6 V\u000a\u000a p24043 tp24044 a(g138 V! tp24045 a(g133 VObject p24046 tp24047 a(g138 V methodsFor: p24048 tp24049 a(g236 V'testing' p24050 tp24051 a(g138 V stamp: 'sw 2/27/2002 14:55'! p24052 tp24053 a(g6 V\u000a tp24054 a(g48 VrenameTo: p24055 tp24056 a(g6 V tp24057 a(g100 VnewName p24058 tp24059 a(g6 V\u000a p24060 tp24061 a(g24 V"If the receiver has an inherent idea about its own name, it should take action here. Any object that might be pointed to in the References dictionary might get this message sent to it upon reload" p24062 tp24063 a(g138 V! ! p24064 tp24065 a(g6 V\u000a\u000a p24066 tp24067 a(g138 V! tp24068 a(g133 VObject p24069 tp24070 a(g138 V methodsFor: p24071 tp24072 a(g236 V'testing' p24073 tp24074 a(g138 V stamp: 'sw 1/18/2001 13:43'! p24075 tp24076 a(g6 V\u000a tp24077 a(g48 VshowDiffs p24078 tp24079 a(g6 V\u000a p24080 tp24081 a(g24 V"Answer whether the receiver, serving as the model of a text-bearing entity, is 'showing differences' -- if it is, the editor may wish to show special feedback" p24082 tp24083 a(g6 V\u000a\u000a p24084 tp24085 a(g353 V^ tp24086 a(g6 V tp24087 a(g87 Vfalse p24088 tp24089 a(g138 V! ! p24090 tp24091 a(g6 V\u000a\u000a p24092 tp24093 a(g138 V! tp24094 a(g133 VObject p24095 tp24096 a(g138 V methodsFor: p24097 tp24098 a(g236 V'testing' p24099 tp24100 a(g138 V stamp: 'sw 10/20/1999 14:52'! p24101 tp24102 a(g6 V\u000a tp24103 a(g48 VstepAt: p24104 tp24105 a(g6 V tp24106 a(g100 VmillisecondClockValue p24107 tp24108 a(g6 V tp24109 a(g48 Vin: p24110 tp24111 a(g6 V tp24112 a(g100 VaWindow p24113 tp24114 a(g6 V\u000a\u000a p24115 tp24116 a(g353 V^ tp24117 a(g6 V tp24118 a(g87 Vself p24119 tp24120 a(g6 V tp24121 a(g48 VstepIn: p24122 tp24123 a(g6 V tp24124 a(g100 VaWindow p24125 tp24126 a(g138 V! ! p24127 tp24128 a(g6 V\u000a\u000a p24129 tp24130 a(g138 V! tp24131 a(g133 VObject p24132 tp24133 a(g138 V methodsFor: p24134 tp24135 a(g236 V'testing' p24136 tp24137 a(g138 V stamp: 'sw 10/19/1999 08:16'! p24138 tp24139 a(g6 V\u000a tp24140 a(g48 VstepIn: p24141 tp24142 a(g6 V tp24143 a(g100 VaWindow p24144 tp24145 a(g6 V\u000a\u000a p24146 tp24147 a(g353 V^ tp24148 a(g6 V tp24149 a(g87 Vself p24150 tp24151 a(g6 V tp24152 a(g48 Vstep p24153 tp24154 a(g138 V! ! p24155 tp24156 a(g6 V\u000a\u000a p24157 tp24158 a(g138 V! tp24159 a(g133 VObject p24160 tp24161 a(g138 V methodsFor: p24162 tp24163 a(g236 V'testing' p24164 tp24165 a(g138 V stamp: 'sw 10/19/1999 08:21'! p24166 tp24167 a(g6 V\u000a tp24168 a(g48 VstepTime p24169 tp24170 a(g6 V\u000a p24171 tp24172 a(g6 V\u000a p24173 tp24174 a(g353 V^ tp24175 a(g6 V tp24176 a(g223 V1000 p24177 tp24178 a(g6 V tp24179 a(g24 V"milliseconds -- default backstop for objects serving as models of system windows" p24180 tp24181 a(g138 V! ! p24182 tp24183 a(g6 V\u000a\u000a p24184 tp24185 a(g138 V! tp24186 a(g133 VObject p24187 tp24188 a(g138 V methodsFor: p24189 tp24190 a(g236 V'testing' p24191 tp24192 a(g138 V stamp: 'sw 10/19/1999 08:22'! p24193 tp24194 a(g6 V\u000a tp24195 a(g48 VstepTimeIn: p24196 tp24197 a(g6 V tp24198 a(g100 VaSystemWindow p24199 tp24200 a(g6 V\u000a \u000a p24201 tp24202 a(g353 V^ tp24203 a(g6 V tp24204 a(g223 V1000 p24205 tp24206 a(g6 V tp24207 a(g24 V"milliseconds -- default backstop for objects serving as models of system windows" p24208 tp24209 a(g138 V! ! p24210 tp24211 a(g6 V\u000a\u000a p24212 tp24213 a(g138 V! tp24214 a(g133 VObject p24215 tp24216 a(g138 V methodsFor: p24217 tp24218 a(g236 V'testing' p24219 tp24220 a(g138 V stamp: 'sw 5/3/2001 18:22'! p24221 tp24222 a(g6 V\u000a tp24223 a(g48 VvocabularyDemanded p24224 tp24225 a(g6 V\u000a p24226 tp24227 a(g24 V"Answer a vocabulary that the receiver insists be used when it is looked at in a Viewer. This allows specific classes to insist on specific custom vocabularies" p24228 tp24229 a(g6 V\u000a\u000a p24230 tp24231 a(g353 V^ tp24232 a(g6 V tp24233 a(g87 Vnil p24234 tp24235 a(g138 V! ! p24236 tp24237 a(g6 V\u000a\u000a p24238 tp24239 a(g138 V! tp24240 a(g133 VObject p24241 tp24242 a(g138 V methodsFor: p24243 tp24244 a(g236 V'testing' p24245 tp24246 a(g138 V stamp: 'sw 11/13/2001 07:26'! p24247 tp24248 a(g6 V\u000a tp24249 a(g48 VwantsDiffFeedback p24250 tp24251 a(g6 V\u000a p24252 tp24253 a(g24 V"Answer whether the receiver, serving as the model of a text-bearing entity, would like for 'diffs' green pane-border feedback to be shown" p24254 tp24255 a(g6 V\u000a\u000a p24256 tp24257 a(g353 V^ tp24258 a(g6 V tp24259 a(g87 Vfalse p24260 tp24261 a(g138 V! ! p24262 tp24263 a(g6 V\u000a\u000a p24264 tp24265 a(g138 V! tp24266 a(g133 VObject p24267 tp24268 a(g138 V methodsFor: p24269 tp24270 a(g236 V'testing' p24271 tp24272 a(g138 V stamp: 'di 1/8/1999 15:04'! p24273 tp24274 a(g6 V\u000a tp24275 a(g48 VwantsSteps p24276 tp24277 a(g6 V\u000a p24278 tp24279 a(g24 V"Overridden by morphic classes whose instances want to be stepped,\u000a or by model classes who want their morphic views to be stepped." p24280 tp24281 a(g6 V\u000a\u000a p24282 tp24283 a(g353 V^ tp24284 a(g6 V tp24285 a(g87 Vfalse p24286 tp24287 a(g138 V! ! p24288 tp24289 a(g6 V\u000a\u000a p24290 tp24291 a(g138 V! tp24292 a(g133 VObject p24293 tp24294 a(g138 V methodsFor: p24295 tp24296 a(g236 V'testing' p24297 tp24298 a(g138 V stamp: 'sw 10/19/1999 08:26'! p24299 tp24300 a(g6 V\u000a tp24301 a(g48 VwantsStepsIn: p24302 tp24303 a(g6 V tp24304 a(g100 VaSystemWindow p24305 tp24306 a(g6 V\u000a \u000a p24307 tp24308 a(g353 V^ tp24309 a(g6 V tp24310 a(g87 Vself p24311 tp24312 a(g6 V tp24313 a(g48 VwantsSteps p24314 tp24315 a(g138 V! ! p24316 tp24317 a(g6 V\u000a\u000a\u000a p24318 tp24319 a(g138 V! tp24320 a(g133 VObject p24321 tp24322 a(g138 V methodsFor: p24323 tp24324 a(g236 V'thumbnail' p24325 tp24326 a(g138 V stamp: 'dgd 9/25/2004 23:17'! p24327 tp24328 a(g6 V\u000a tp24329 a(g48 ViconOrThumbnailOfSize: p24330 tp24331 a(g6 V tp24332 a(g100 VaNumberOrPoint p24333 tp24334 a(g6 V \u000a p24335 tp24336 a(g24 V"Answer an appropiate form to represent the receiver" p24337 tp24338 a(g6 V\u000a p24339 tp24340 a(g353 V^ tp24341 a(g6 V tp24342 a(g87 Vnil p24343 tp24344 a(g138 V! ! p24345 tp24346 a(g6 V\u000a\u000a\u000a p24347 tp24348 a(g138 V! tp24349 a(g133 VObject p24350 tp24351 a(g138 V methodsFor: p24352 tp24353 a(g236 V'translation support' p24354 tp24355 a(g138 V! tp24356 a(g6 V\u000a tp24357 a(g48 Vinline: p24358 tp24359 a(g6 V tp24360 a(g100 VinlineFlag p24361 tp24362 a(g6 V\u000a p24363 tp24364 a(g24 V"For translation only; noop when running in Smalltalk." p24365 tp24366 a(g138 V! ! p24367 tp24368 a(g6 V\u000a\u000a p24369 tp24370 a(g138 V! tp24371 a(g133 VObject p24372 tp24373 a(g138 V methodsFor: p24374 tp24375 a(g236 V'translation support' p24376 tp24377 a(g138 V! tp24378 a(g6 V\u000a tp24379 a(g48 Vvar: p24380 tp24381 a(g6 V tp24382 a(g100 VvarSymbol p24383 tp24384 a(g6 V tp24385 a(g48 VdeclareC: p24386 tp24387 a(g6 V tp24388 a(g100 VdeclString p24389 tp24390 a(g6 V\u000a p24391 tp24392 a(g24 V"For translation only; noop when running in Smalltalk." p24393 tp24394 a(g138 V! ! p24395 tp24396 a(g6 V\u000a\u000a\u000a p24397 tp24398 a(g138 V! tp24399 a(g133 VObject p24400 tp24401 a(g138 V methodsFor: p24402 tp24403 a(g236 V'undo' p24404 tp24405 a(g138 V stamp: 'di 9/11/2000 20:32'! p24406 tp24407 a(g6 V\u000a tp24408 a(g48 VcapturedState p24409 tp24410 a(g6 V\u000a p24411 tp24412 a(g24 V"May be overridden in subclasses." p24413 tp24414 a(g6 V\u000a\u000a p24415 tp24416 a(g353 V^ tp24417 a(g6 V tp24418 a(g87 Vself p24419 tp24420 a(g6 V tp24421 a(g48 VshallowCopy p24422 tp24423 a(g6 V\u000a tp24424 a(g138 V! ! p24425 tp24426 a(g6 V\u000a\u000a p24427 tp24428 a(g138 V! tp24429 a(g133 VObject p24430 tp24431 a(g138 V methodsFor: p24432 tp24433 a(g236 V'undo' p24434 tp24435 a(g138 V stamp: 'di 9/11/2000 20:29'! p24436 tp24437 a(g6 V\u000a tp24438 a(g48 VcommandHistory p24439 tp24440 a(g6 V\u000a p24441 tp24442 a(g24 V"Return the command history for the receiver" p24443 tp24444 a(g6 V\u000a p24445 tp24446 a(g353 V| tp24447 a(g100 V w p24448 tp24449 a(g353 V| tp24450 a(g6 V\u000a p24451 tp24452 a(g6 V( tp24453 a(g100 Vw tp24454 a(g6 V tp24455 a(g353 V_ tp24456 a(g6 V tp24457 a(g87 Vself p24458 tp24459 a(g6 V tp24460 a(g48 VcurrentWorld p24461 tp24462 a(g6 V) tp24463 a(g6 V tp24464 a(g48 VifNotNil: p24465 tp24466 a(g6 V tp24467 a(g6 V[ tp24468 a(g6 V tp24469 a(g353 V^ tp24470 a(g6 V tp24471 a(g100 Vw tp24472 a(g6 V tp24473 a(g48 VcommandHistory p24474 tp24475 a(g6 V] tp24476 a(g212 V. tp24477 a(g6 V\u000a p24478 tp24479 a(g353 V^ tp24480 a(g6 V tp24481 a(g133 VCommandHistory p24482 tp24483 a(g6 V tp24484 a(g84 Vnew p24485 tp24486 a(g212 V. tp24487 a(g6 V tp24488 a(g24 V"won't really record anything but prevent breaking things" p24489 tp24490 a(g138 V! ! p24491 tp24492 a(g6 V\u000a\u000a p24493 tp24494 a(g138 V! tp24495 a(g133 VObject p24496 tp24497 a(g138 V methodsFor: p24498 tp24499 a(g236 V'undo' p24500 tp24501 a(g138 V stamp: 'di 12/12/2000 15:01'! p24502 tp24503 a(g6 V\u000a tp24504 a(g48 VpurgeAllCommands p24505 tp24506 a(g6 V\u000a p24507 tp24508 a(g24 V"Purge all commands for this object" p24509 tp24510 a(g6 V\u000a p24511 tp24512 a(g133 VPreferences p24513 tp24514 a(g6 V tp24515 a(g48 VuseUndo p24516 tp24517 a(g6 V tp24518 a(g84 VifFalse: p24519 tp24520 a(g6 V tp24521 a(g6 V[ tp24522 a(g6 V tp24523 a(g353 V^ tp24524 a(g6 V tp24525 a(g87 Vself p24526 tp24527 a(g6 V] tp24528 a(g212 V. tp24529 a(g6 V tp24530 a(g24 V"get out quickly" p24531 tp24532 a(g6 V\u000a p24533 tp24534 a(g87 Vself p24535 tp24536 a(g6 V tp24537 a(g48 VcommandHistory p24538 tp24539 a(g6 V tp24540 a(g48 VpurgeAllCommandsSuchThat: p24541 tp24542 a(g6 V tp24543 a(g6 V[ tp24544 a(g353 V: tp24545 a(g100 Vcmd p24546 tp24547 a(g6 V tp24548 a(g353 V| tp24549 a(g6 V tp24550 a(g100 Vcmd p24551 tp24552 a(g6 V tp24553 a(g48 VundoTarget p24554 tp24555 a(g6 V tp24556 a(g48 V== p24557 tp24558 a(g6 V tp24559 a(g87 Vself p24560 tp24561 a(g6 V] tp24562 a(g212 V. tp24563 a(g6 V\u000a tp24564 a(g138 V! ! p24565 tp24566 a(g6 V\u000a\u000a p24567 tp24568 a(g138 V! tp24569 a(g133 VObject p24570 tp24571 a(g138 V methodsFor: p24572 tp24573 a(g236 V'undo' p24574 tp24575 a(g138 V stamp: 'di 9/12/2000 08:15'! p24576 tp24577 a(g6 V\u000a tp24578 a(g48 VredoFromCapturedState: p24579 tp24580 a(g6 V tp24581 a(g100 Vst p24582 tp24583 a(g6 V \u000a p24584 tp24585 a(g24 V"May be overridden in subclasses. See also capturedState" p24586 tp24587 a(g6 V\u000a\u000a p24588 tp24589 a(g87 Vself p24590 tp24591 a(g6 V tp24592 a(g48 VundoFromCapturedState: p24593 tp24594 a(g6 V tp24595 a(g100 Vst p24596 tp24597 a(g6 V p24598 tp24599 a(g24 V"Simple cases are symmetric" p24600 tp24601 a(g6 V\u000a tp24602 a(g138 V! ! p24603 tp24604 a(g6 V\u000a\u000a p24605 tp24606 a(g138 V! tp24607 a(g133 VObject p24608 tp24609 a(g138 V methodsFor: p24610 tp24611 a(g236 V'undo' p24612 tp24613 a(g138 V stamp: 'sw 11/16/2000 14:42'! p24614 tp24615 a(g6 V\u000a tp24616 a(g48 VrefineRedoTarget: p24617 tp24618 a(g6 V tp24619 a(g100 Vtarget p24620 tp24621 a(g6 V tp24622 a(g48 Vselector: p24623 tp24624 a(g6 V tp24625 a(g100 VaSymbol p24626 tp24627 a(g6 V tp24628 a(g48 Varguments: p24629 tp24630 a(g6 V tp24631 a(g100 Varguments p24632 tp24633 a(g6 V tp24634 a(g48 Vin: p24635 tp24636 a(g6 V tp24637 a(g100 VrefineBlock p24638 tp24639 a(g6 V \u000a p24640 tp24641 a(g24 V"Any object can override this method to refine its redo specification" p24642 tp24643 a(g6 V\u000a\u000a p24644 tp24645 a(g353 V^ tp24646 a(g6 V tp24647 a(g100 VrefineBlock p24648 tp24649 a(g6 V\u000a p24650 tp24651 a(g48 Vvalue: p24652 tp24653 a(g6 V tp24654 a(g100 Vtarget p24655 tp24656 a(g6 V\u000a p24657 tp24658 a(g48 Vvalue: p24659 tp24660 a(g6 V tp24661 a(g100 VaSymbol p24662 tp24663 a(g6 V\u000a p24664 tp24665 a(g48 Vvalue: p24666 tp24667 a(g6 V tp24668 a(g100 Varguments p24669 tp24670 a(g138 V! ! p24671 tp24672 a(g6 V\u000a\u000a p24673 tp24674 a(g138 V! tp24675 a(g133 VObject p24676 tp24677 a(g138 V methodsFor: p24678 tp24679 a(g236 V'undo' p24680 tp24681 a(g138 V stamp: 'sw 11/16/2000 14:42'! p24682 tp24683 a(g6 V\u000a tp24684 a(g48 VrefineUndoTarget: p24685 tp24686 a(g6 V tp24687 a(g100 Vtarget p24688 tp24689 a(g6 V tp24690 a(g48 Vselector: p24691 tp24692 a(g6 V tp24693 a(g100 VaSymbol p24694 tp24695 a(g6 V tp24696 a(g48 Varguments: p24697 tp24698 a(g6 V tp24699 a(g100 Varguments p24700 tp24701 a(g6 V tp24702 a(g48 Vin: p24703 tp24704 a(g6 V tp24705 a(g100 VrefineBlock p24706 tp24707 a(g6 V \u000a p24708 tp24709 a(g24 V"Any object can override this method to refine its undo specification" p24710 tp24711 a(g6 V\u000a\u000a p24712 tp24713 a(g353 V^ tp24714 a(g6 V tp24715 a(g100 VrefineBlock p24716 tp24717 a(g6 V\u000a p24718 tp24719 a(g48 Vvalue: p24720 tp24721 a(g6 V tp24722 a(g100 Vtarget p24723 tp24724 a(g6 V\u000a p24725 tp24726 a(g48 Vvalue: p24727 tp24728 a(g6 V tp24729 a(g100 VaSymbol p24730 tp24731 a(g6 V\u000a p24732 tp24733 a(g48 Vvalue: p24734 tp24735 a(g6 V tp24736 a(g100 Varguments p24737 tp24738 a(g138 V! ! p24739 tp24740 a(g6 V\u000a\u000a p24741 tp24742 a(g138 V! tp24743 a(g133 VObject p24744 tp24745 a(g138 V methodsFor: p24746 tp24747 a(g236 V'undo' p24748 tp24749 a(g138 V stamp: 'di 9/11/2000 20:30'! p24750 tp24751 a(g6 V\u000a tp24752 a(g48 VrememberCommand: p24753 tp24754 a(g6 V tp24755 a(g100 VaCommand p24756 tp24757 a(g6 V\u000a p24758 tp24759 a(g24 V"Remember the given command for undo" p24760 tp24761 a(g6 V\u000a p24762 tp24763 a(g133 VPreferences p24764 tp24765 a(g6 V tp24766 a(g48 VuseUndo p24767 tp24768 a(g6 V tp24769 a(g84 VifFalse: p24770 tp24771 a(g6 V tp24772 a(g6 V[ tp24773 a(g6 V tp24774 a(g353 V^ tp24775 a(g6 V tp24776 a(g87 Vself p24777 tp24778 a(g6 V] tp24779 a(g212 V. tp24780 a(g6 V tp24781 a(g24 V"get out quickly" p24782 tp24783 a(g6 V\u000a p24784 tp24785 a(g353 V^ tp24786 a(g6 V tp24787 a(g87 Vself p24788 tp24789 a(g6 V tp24790 a(g48 VcommandHistory p24791 tp24792 a(g6 V tp24793 a(g48 VrememberCommand: p24794 tp24795 a(g6 V tp24796 a(g100 VaCommand p24797 tp24798 a(g138 V! ! p24799 tp24800 a(g6 V\u000a\u000a p24801 tp24802 a(g138 V! tp24803 a(g133 VObject p24804 tp24805 a(g138 V methodsFor: p24806 tp24807 a(g236 V'undo' p24808 tp24809 a(g138 V stamp: 'di 9/11/2000 20:30'! p24810 tp24811 a(g6 V\u000a tp24812 a(g48 VrememberUndoableAction: p24813 tp24814 a(g6 V tp24815 a(g100 VactionBlock p24816 tp24817 a(g6 V tp24818 a(g48 Vnamed: p24819 tp24820 a(g6 V tp24821 a(g100 Vcaption p24822 tp24823 a(g6 V\u000a p24824 tp24825 a(g353 V| tp24826 a(g100 V cmd result p24827 tp24828 a(g353 V| tp24829 a(g6 V\u000a p24830 tp24831 a(g100 Vcmd p24832 tp24833 a(g6 V tp24834 a(g353 V_ tp24835 a(g6 V tp24836 a(g133 VCommand p24837 tp24838 a(g6 V tp24839 a(g84 Vnew p24840 tp24841 a(g6 V tp24842 a(g48 VcmdWording: p24843 tp24844 a(g6 V tp24845 a(g100 Vcaption p24846 tp24847 a(g212 V. tp24848 a(g6 V\u000a p24849 tp24850 a(g100 Vcmd p24851 tp24852 a(g6 V tp24853 a(g48 VundoTarget: p24854 tp24855 a(g6 V tp24856 a(g87 Vself p24857 tp24858 a(g6 V tp24859 a(g48 Vselector: p24860 tp24861 a(g6 V tp24862 a(g258 V#undoFromCapturedState: p24863 tp24864 a(g6 V tp24865 a(g48 Vargument: p24866 tp24867 a(g6 V tp24868 a(g87 Vself p24869 tp24870 a(g6 V tp24871 a(g48 VcapturedState p24872 tp24873 a(g212 V. tp24874 a(g6 V\u000a p24875 tp24876 a(g100 Vresult p24877 tp24878 a(g6 V tp24879 a(g353 V_ tp24880 a(g6 V tp24881 a(g100 VactionBlock p24882 tp24883 a(g6 V tp24884 a(g48 Vvalue p24885 tp24886 a(g212 V. tp24887 a(g6 V\u000a p24888 tp24889 a(g100 Vcmd p24890 tp24891 a(g6 V tp24892 a(g48 VredoTarget: p24893 tp24894 a(g6 V tp24895 a(g87 Vself p24896 tp24897 a(g6 V tp24898 a(g48 Vselector: p24899 tp24900 a(g6 V tp24901 a(g258 V#redoFromCapturedState: p24902 tp24903 a(g6 V tp24904 a(g48 Vargument: p24905 tp24906 a(g6 V tp24907 a(g87 Vself p24908 tp24909 a(g6 V tp24910 a(g48 VcapturedState p24911 tp24912 a(g212 V. tp24913 a(g6 V\u000a p24914 tp24915 a(g87 Vself p24916 tp24917 a(g6 V tp24918 a(g48 VrememberCommand: p24919 tp24920 a(g6 V tp24921 a(g100 Vcmd p24922 tp24923 a(g212 V. tp24924 a(g6 V\u000a p24925 tp24926 a(g353 V^ tp24927 a(g6 V tp24928 a(g100 Vresult p24929 tp24930 a(g138 V! ! p24931 tp24932 a(g6 V\u000a\u000a p24933 tp24934 a(g138 V! tp24935 a(g133 VObject p24936 tp24937 a(g138 V methodsFor: p24938 tp24939 a(g236 V'undo' p24940 tp24941 a(g138 V stamp: 'di 9/11/2000 20:32'! p24942 tp24943 a(g6 V\u000a tp24944 a(g48 VundoFromCapturedState: p24945 tp24946 a(g6 V tp24947 a(g100 Vst p24948 tp24949 a(g6 V \u000a p24950 tp24951 a(g24 V"May be overridden in subclasses. See also capturedState" p24952 tp24953 a(g6 V\u000a\u000a p24954 tp24955 a(g87 Vself p24956 tp24957 a(g6 V tp24958 a(g48 VcopyFrom: p24959 tp24960 a(g6 V tp24961 a(g100 Vst p24962 tp24963 a(g6 V\u000a tp24964 a(g138 V! ! p24965 tp24966 a(g6 V\u000a\u000a\u000a p24967 tp24968 a(g138 V! tp24969 a(g133 VObject p24970 tp24971 a(g138 V methodsFor: p24972 tp24973 a(g236 V'updating' p24974 tp24975 a(g138 V! tp24976 a(g6 V\u000a tp24977 a(g48 Vchanged p24978 tp24979 a(g6 V\u000a p24980 tp24981 a(g24 V"Receiver changed in a general way; inform all the dependents by \u000a sending each dependent an update: message." p24982 tp24983 a(g6 V\u000a\u000a p24984 tp24985 a(g87 Vself p24986 tp24987 a(g6 V tp24988 a(g48 Vchanged: p24989 tp24990 a(g6 V tp24991 a(g87 Vself p24992 tp24993 a(g138 V! ! p24994 tp24995 a(g6 V\u000a\u000a p24996 tp24997 a(g138 V! tp24998 a(g133 VObject p24999 tp25000 a(g138 V methodsFor: p25001 tp25002 a(g236 V'updating' p25003 tp25004 a(g138 V! tp25005 a(g6 V\u000a tp25006 a(g48 Vchanged: p25007 tp25008 a(g6 V tp25009 a(g100 VaParameter p25010 tp25011 a(g6 V \u000a p25012 tp25013 a(g24 V"Receiver changed. The change is denoted by the argument aParameter. \u000a Usually the argument is a Symbol that is part of the dependent's change \u000a protocol. Inform all of the dependents." p25014 tp25015 a(g6 V\u000a\u000a p25016 tp25017 a(g87 Vself p25018 tp25019 a(g6 V tp25020 a(g48 Vdependents p25021 tp25022 a(g6 V tp25023 a(g48 Vdo: p25024 tp25025 a(g6 V tp25026 a(g6 V[ tp25027 a(g353 V: tp25028 a(g100 VaDependent p25029 tp25030 a(g6 V tp25031 a(g353 V| tp25032 a(g6 V tp25033 a(g100 VaDependent p25034 tp25035 a(g6 V tp25036 a(g48 Vupdate: p25037 tp25038 a(g6 V tp25039 a(g100 VaParameter p25040 tp25041 a(g6 V] tp25042 a(g138 V! ! p25043 tp25044 a(g6 V\u000a\u000a p25045 tp25046 a(g138 V! tp25047 a(g133 VObject p25048 tp25049 a(g138 V methodsFor: p25050 tp25051 a(g236 V'updating' p25052 tp25053 a(g138 V stamp: 'nk 2/17/2004 11:12'! p25054 tp25055 a(g6 V\u000a tp25056 a(g48 Vchanged: p25057 tp25058 a(g6 V tp25059 a(g100 VanAspect p25060 tp25061 a(g6 V tp25062 a(g48 Vwith: p25063 tp25064 a(g6 V tp25065 a(g100 VanObject p25066 tp25067 a(g6 V\u000a p25068 tp25069 a(g24 V"Receiver changed. The change is denoted by the argument anAspect. \u000a Usually the argument is a Symbol that is part of the dependent's change \u000a protocol. Inform all of the dependents. Also pass anObject for additional information." p25070 tp25071 a(g6 V\u000a\u000a p25072 tp25073 a(g87 Vself p25074 tp25075 a(g6 V tp25076 a(g48 Vdependents p25077 tp25078 a(g6 V tp25079 a(g48 Vdo: p25080 tp25081 a(g6 V tp25082 a(g6 V[ tp25083 a(g353 V: tp25084 a(g100 VaDependent p25085 tp25086 a(g6 V tp25087 a(g353 V| tp25088 a(g6 V tp25089 a(g100 VaDependent p25090 tp25091 a(g6 V tp25092 a(g48 Vupdate: p25093 tp25094 a(g6 V tp25095 a(g100 VanAspect p25096 tp25097 a(g6 V tp25098 a(g48 Vwith: p25099 tp25100 a(g6 V tp25101 a(g100 VanObject p25102 tp25103 a(g6 V] tp25104 a(g138 V! ! p25105 tp25106 a(g6 V\u000a\u000a p25107 tp25108 a(g138 V! tp25109 a(g133 VObject p25110 tp25111 a(g138 V methodsFor: p25112 tp25113 a(g236 V'updating' p25114 tp25115 a(g138 V stamp: 'sw 10/12/1999 18:15'! p25116 tp25117 a(g6 V\u000a tp25118 a(g48 VhandledListVerification p25119 tp25120 a(g6 V\u000a p25121 tp25122 a(g24 V"When a self-updating PluggableListMorph lazily checks to see the state of affairs, it first gives its model an opportunity to handle the list verification itself (this is appropriate for some models, such as VersionsBrowser); if a list's model has indeed handled things itself, it returns true here" p25123 tp25124 a(g6 V\u000a\u000a p25125 tp25126 a(g353 V^ tp25127 a(g6 V tp25128 a(g87 Vfalse p25129 tp25130 a(g138 V! ! p25131 tp25132 a(g6 V\u000a\u000a p25133 tp25134 a(g138 V! tp25135 a(g133 VObject p25136 tp25137 a(g138 V methodsFor: p25138 tp25139 a(g236 V'updating' p25140 tp25141 a(g138 V stamp: 'sw 10/31/1999 00:15'! p25142 tp25143 a(g6 V\u000a tp25144 a(g48 VnoteSelectionIndex: p25145 tp25146 a(g6 V tp25147 a(g100 VanInteger p25148 tp25149 a(g6 V tp25150 a(g48 Vfor: p25151 tp25152 a(g6 V tp25153 a(g100 VaSymbol p25154 tp25155 a(g6 V\u000a p25156 tp25157 a(g24 V"backstop" p25158 tp25159 a(g138 V! ! p25160 tp25161 a(g6 V\u000a\u000a p25162 tp25163 a(g138 V! tp25164 a(g133 VObject p25165 tp25166 a(g138 V methodsFor: p25167 tp25168 a(g236 V'updating' p25169 tp25170 a(g138 V! tp25171 a(g6 V\u000a tp25172 a(g48 VokToChange p25173 tp25174 a(g6 V\u000a p25175 tp25176 a(g24 V"Allows a controller to ask this of any model" p25177 tp25178 a(g6 V\u000a p25179 tp25180 a(g353 V^ tp25181 a(g6 V tp25182 a(g87 Vtrue p25183 tp25184 a(g138 V! ! p25185 tp25186 a(g6 V\u000a\u000a p25187 tp25188 a(g138 V! tp25189 a(g133 VObject p25190 tp25191 a(g138 V methodsFor: p25192 tp25193 a(g236 V'updating' p25194 tp25195 a(g138 V stamp: 'sw 10/19/1999 14:39'! p25196 tp25197 a(g6 V\u000a tp25198 a(g48 VupdateListsAndCodeIn: p25199 tp25200 a(g6 V tp25201 a(g100 VaWindow p25202 tp25203 a(g6 V\u000a p25204 tp25205 a(g87 Vself p25206 tp25207 a(g6 V tp25208 a(g48 VcanDiscardEdits p25209 tp25210 a(g6 V tp25211 a(g84 VifFalse: p25212 tp25213 a(g6 V tp25214 a(g6 V[ tp25215 a(g6 V tp25216 a(g353 V^ tp25217 a(g6 V tp25218 a(g87 Vself p25219 tp25220 a(g6 V] tp25221 a(g212 V. tp25222 a(g6 V\u000a p25223 tp25224 a(g100 VaWindow p25225 tp25226 a(g6 V tp25227 a(g48 VupdatablePanes p25228 tp25229 a(g6 V tp25230 a(g48 Vdo: p25231 tp25232 a(g6 V tp25233 a(g6 V[ tp25234 a(g353 V: tp25235 a(g100 VaPane p25236 tp25237 a(g6 V tp25238 a(g353 V| tp25239 a(g6 V tp25240 a(g100 VaPane p25241 tp25242 a(g6 V tp25243 a(g48 VverifyContents p25244 tp25245 a(g6 V] tp25246 a(g138 V! ! p25247 tp25248 a(g6 V\u000a\u000a p25249 tp25250 a(g138 V! tp25251 a(g133 VObject p25252 tp25253 a(g138 V methodsFor: p25254 tp25255 a(g236 V'updating' p25256 tp25257 a(g138 V stamp: 'sma 2/29/2000 20:05'! p25258 tp25259 a(g6 V\u000a tp25260 a(g48 Vupdate: p25261 tp25262 a(g6 V tp25263 a(g100 VaParameter p25264 tp25265 a(g6 V \u000a p25266 tp25267 a(g24 V"Receive a change notice from an object of whom the receiver is a \u000a dependent. The default behavior is to do nothing; a subclass might want \u000a to change itself in some way." p25268 tp25269 a(g6 V\u000a\u000a p25270 tp25271 a(g353 V^ tp25272 a(g6 V tp25273 a(g87 Vself p25274 tp25275 a(g138 V! ! p25276 tp25277 a(g6 V\u000a\u000a p25278 tp25279 a(g138 V! tp25280 a(g133 VObject p25281 tp25282 a(g138 V methodsFor: p25283 tp25284 a(g236 V'updating' p25285 tp25286 a(g138 V stamp: 'nk 2/17/2004 11:13'! p25287 tp25288 a(g6 V\u000a tp25289 a(g48 Vupdate: p25290 tp25291 a(g6 V tp25292 a(g100 VanAspect p25293 tp25294 a(g6 V tp25295 a(g48 Vwith: p25296 tp25297 a(g6 V tp25298 a(g100 VanObject p25299 tp25300 a(g6 V\u000a p25301 tp25302 a(g24 V"Receive a change notice from an object of whom the receiver is a \u000a dependent. The default behavior is to call update:,\u000a which by default does nothing; a subclass might want \u000a to change itself in some way." p25303 tp25304 a(g6 V\u000a\u000a p25305 tp25306 a(g353 V^ tp25307 a(g6 V tp25308 a(g87 Vself p25309 tp25310 a(g6 V tp25311 a(g48 Vupdate: p25312 tp25313 a(g6 V tp25314 a(g100 VanAspect p25315 tp25316 a(g138 V! ! p25317 tp25318 a(g6 V\u000a\u000a p25319 tp25320 a(g138 V! tp25321 a(g133 VObject p25322 tp25323 a(g138 V methodsFor: p25324 tp25325 a(g236 V'updating' p25326 tp25327 a(g138 V stamp: 'jm 8/20/1998 18:26'! p25328 tp25329 a(g6 V\u000a tp25330 a(g48 VwindowIsClosing p25331 tp25332 a(g6 V\u000a p25333 tp25334 a(g24 V"This message is used to inform a models that its window is closing. Most models do nothing, but some, such as the Debugger, must do some cleanup. Note that this mechanism must be used with care by models that support multiple views, since one view may be closed while others left open." p25335 tp25336 a(g6 V\u000a tp25337 a(g138 V! ! p25338 tp25339 a(g6 V\u000a\u000a\u000a p25340 tp25341 a(g138 V! tp25342 a(g133 VObject p25343 tp25344 a(g138 V methodsFor: p25345 tp25346 a(g236 V'user interface' p25347 tp25348 a(g138 V stamp: 'sw 10/4/1999 08:13'! p25349 tp25350 a(g6 V\u000a tp25351 a(g48 VaddModelItemsToWindowMenu: p25352 tp25353 a(g6 V tp25354 a(g100 VaMenu p25355 tp25356 a(g6 V\u000a p25357 tp25358 a(g24 V"aMenu is being constructed to be presented to the user in response to the user's pressing on the menu widget in the title bar of a morphic window. Here, the model is given the opportunity to add any model-specific items to the menu, whose default target is the SystemWindow itself." p25359 tp25360 a(g138 V! ! p25361 tp25362 a(g6 V\u000a\u000a p25363 tp25364 a(g138 V! tp25365 a(g133 VObject p25366 tp25367 a(g138 V methodsFor: p25368 tp25369 a(g236 V'user interface' p25370 tp25371 a(g138 V stamp: 'sw 10/5/1998 14:39'! p25372 tp25373 a(g6 V\u000a tp25374 a(g48 VaddModelMenuItemsTo: p25375 tp25376 a(g6 V tp25377 a(g100 VaCustomMenu p25378 tp25379 a(g6 V tp25380 a(g48 VforMorph: p25381 tp25382 a(g6 V tp25383 a(g100 VaMorph p25384 tp25385 a(g6 V tp25386 a(g48 Vhand: p25387 tp25388 a(g6 V tp25389 a(g100 VaHandMorph p25390 tp25391 a(g6 V \u000a p25392 tp25393 a(g24 V"The receiver serves as the model for aMorph; a menu is being constructed for the morph, and here the receiver is able to add its own items" p25394 tp25395 a(g6 V\u000a tp25396 a(g138 V! ! p25397 tp25398 a(g6 V\u000a\u000a p25399 tp25400 a(g138 V! tp25401 a(g133 VObject p25402 tp25403 a(g138 V methodsFor: p25404 tp25405 a(g236 V'user interface' p25406 tp25407 a(g138 V stamp: 'sma 11/12/2000 11:43'! p25408 tp25409 a(g6 V\u000a tp25410 a(g48 VasExplorerString p25411 tp25412 a(g6 V\u000a p25413 tp25414 a(g353 V^ tp25415 a(g6 V tp25416 a(g87 Vself p25417 tp25418 a(g6 V tp25419 a(g48 VprintString p25420 tp25421 a(g138 V! ! p25422 tp25423 a(g6 V\u000a\u000a p25424 tp25425 a(g138 V! tp25426 a(g133 VObject p25427 tp25428 a(g138 V methodsFor: p25429 tp25430 a(g236 V'user interface' p25431 tp25432 a(g138 V stamp: 'sw 7/13/1999 15:53'! p25433 tp25434 a(g6 V\u000a tp25435 a(g48 VdefaultBackgroundColor p25436 tp25437 a(g6 V\u000a p25438 tp25439 a(g24 V"Answer the color to be used as the base window color for a window whose model is an object of the receiver's class" p25440 tp25441 a(g6 V\u000a \u000a p25442 tp25443 a(g353 V^ tp25444 a(g6 V tp25445 a(g133 VPreferences p25446 tp25447 a(g6 V tp25448 a(g48 VwindowColorFor: p25449 tp25450 a(g6 V tp25451 a(g87 Vself p25452 tp25453 a(g6 V tp25454 a(g48 Vclass p25455 tp25456 a(g6 V tp25457 a(g48 Vname p25458 tp25459 a(g138 V! ! p25460 tp25461 a(g6 V\u000a\u000a p25462 tp25463 a(g138 V! tp25464 a(g133 VObject p25465 tp25466 a(g138 V methodsFor: p25467 tp25468 a(g236 V'user interface' p25469 tp25470 a(g138 V! tp25471 a(g6 V\u000a tp25472 a(g48 VdefaultLabelForInspector p25473 tp25474 a(g6 V\u000a p25475 tp25476 a(g24 V"Answer the default label to be used for an Inspector window on the receiver." p25477 tp25478 a(g6 V\u000a\u000a p25479 tp25480 a(g353 V^ tp25481 a(g6 V tp25482 a(g87 Vself p25483 tp25484 a(g6 V tp25485 a(g48 Vclass p25486 tp25487 a(g6 V tp25488 a(g48 Vname p25489 tp25490 a(g138 V! ! p25491 tp25492 a(g6 V\u000a\u000a p25493 tp25494 a(g138 V! tp25495 a(g133 VObject p25496 tp25497 a(g138 V methodsFor: p25498 tp25499 a(g236 V'user interface' p25500 tp25501 a(g138 V stamp: 'RAA 7/10/2000 08:11'! p25502 tp25503 a(g6 V\u000a tp25504 a(g48 VeToyStreamedRepresentationNotifying: p25505 tp25506 a(g6 V tp25507 a(g100 VaWidget p25508 tp25509 a(g6 V\u000a\u000a p25510 tp25511 a(g353 V| tp25512 a(g100 V outData p25513 tp25514 a(g353 V| tp25515 a(g6 V\u000a p25516 tp25517 a(g6 V[ tp25518 a(g6 V tp25519 a(g6 V tp25520 a(g100 VoutData p25521 tp25522 a(g6 V tp25523 a(g353 V_ tp25524 a(g6 V tp25525 a(g133 VSmartRefStream p25526 tp25527 a(g6 V tp25528 a(g48 VstreamedRepresentationOf: p25529 tp25530 a(g6 V tp25531 a(g87 Vself p25532 tp25533 a(g6 V tp25534 a(g6 V] tp25535 a(g6 V \u000a p25536 tp25537 a(g48 Von: p25538 tp25539 a(g6 V tp25540 a(g133 VProgressInitiationException p25541 tp25542 a(g6 V\u000a p25543 tp25544 a(g48 Vdo: p25545 tp25546 a(g6 V tp25547 a(g6 V[ tp25548 a(g6 V tp25549 a(g353 V: tp25550 a(g100 Vex p25551 tp25552 a(g6 V tp25553 a(g353 V| tp25554 a(g6 V \u000a p25555 tp25556 a(g100 Vex p25557 tp25558 a(g6 V tp25559 a(g48 VsendNotificationsTo: p25560 tp25561 a(g6 V tp25562 a(g6 V[ tp25563 a(g6 V tp25564 a(g353 V: tp25565 a(g100 Vmin p25566 tp25567 a(g6 V tp25568 a(g353 V: tp25569 a(g100 Vmax p25570 tp25571 a(g6 V tp25572 a(g353 V: tp25573 a(g100 Vcurr p25574 tp25575 a(g6 V tp25576 a(g353 V| tp25577 a(g6 V\u000a p25578 tp25579 a(g100 VaWidget p25580 tp25581 a(g6 V tp25582 a(g48 VifNotNil: p25583 tp25584 a(g6 V tp25585 a(g6 V[ tp25586 a(g6 V tp25587 a(g100 VaWidget p25588 tp25589 a(g6 V tp25590 a(g48 VflashIndicator: p25591 tp25592 a(g6 V tp25593 a(g258 V#working p25594 tp25595 a(g6 V] tp25596 a(g212 V. tp25597 a(g6 V\u000a p25598 tp25599 a(g6 V] tp25600 a(g212 V. tp25601 a(g6 V\u000a p25602 tp25603 a(g6 V] tp25604 a(g212 V. tp25605 a(g6 V\u000a p25606 tp25607 a(g353 V^ tp25608 a(g100 VoutData p25609 tp25610 a(g6 V\u000a tp25611 a(g138 V! ! p25612 tp25613 a(g6 V\u000a\u000a p25614 tp25615 a(g138 V! tp25616 a(g133 VObject p25617 tp25618 a(g138 V methodsFor: p25619 tp25620 a(g236 V'user interface' p25621 tp25622 a(g138 V stamp: 'ar 9/27/2005 20:29'! p25623 tp25624 a(g6 V\u000a tp25625 a(g48 Vexplore p25626 tp25627 a(g6 V\u000a p25628 tp25629 a(g353 V^ tp25630 a(g133 VToolSet p25631 tp25632 a(g6 V tp25633 a(g48 Vexplore: p25634 tp25635 a(g6 V tp25636 a(g87 Vself p25637 tp25638 a(g138 V! ! p25639 tp25640 a(g6 V\u000a\u000a p25641 tp25642 a(g138 V! tp25643 a(g133 VObject p25644 tp25645 a(g138 V methodsFor: p25646 tp25647 a(g236 V'user interface' p25648 tp25649 a(g138 V stamp: 'sw 8/15/97 17:25'! p25650 tp25651 a(g6 V\u000a tp25652 a(g48 VfullScreenSize p25653 tp25654 a(g6 V\u000a p25655 tp25656 a(g24 V"Answer the size to which a window displaying the receiver should be set" p25657 tp25658 a(g6 V\u000a p25659 tp25660 a(g353 V| tp25661 a(g100 V adj p25662 tp25663 a(g353 V| tp25664 a(g6 V\u000a p25665 tp25666 a(g100 Vadj p25667 tp25668 a(g6 V tp25669 a(g353 V_ tp25670 a(g6 V tp25671 a(g6 V( tp25672 a(g223 V3 tp25673 a(g6 V tp25674 a(g48 V* tp25675 a(g6 V tp25676 a(g133 VPreferences p25677 tp25678 a(g6 V tp25679 a(g48 VscrollBarWidth p25680 tp25681 a(g6 V) tp25682 a(g6 V tp25683 a(g48 V@ tp25684 a(g6 V tp25685 a(g223 V0 tp25686 a(g212 V. tp25687 a(g6 V\u000a p25688 tp25689 a(g353 V^ tp25690 a(g6 V tp25691 a(g133 VRectangle p25692 tp25693 a(g6 V tp25694 a(g48 Vorigin: p25695 tp25696 a(g6 V tp25697 a(g100 Vadj p25698 tp25699 a(g6 V tp25700 a(g48 Vextent: p25701 tp25702 a(g6 V tp25703 a(g6 V( tp25704 a(g133 VDisplayScreen p25705 tp25706 a(g6 V tp25707 a(g48 VactualScreenSize p25708 tp25709 a(g6 V tp25710 a(g48 V- tp25711 a(g6 V tp25712 a(g100 Vadj p25713 tp25714 a(g6 V) tp25715 a(g138 V! ! p25716 tp25717 a(g6 V\u000a\u000a p25718 tp25719 a(g138 V! tp25720 a(g133 VObject p25721 tp25722 a(g138 V methodsFor: p25723 tp25724 a(g236 V'user interface' p25725 tp25726 a(g138 V stamp: 'RAA 6/21/1999 11:27'! p25727 tp25728 a(g6 V\u000a tp25729 a(g48 VhasContentsInExplorer p25730 tp25731 a(g6 V\u000a tp25732 a(g6 V\u000a p25733 tp25734 a(g353 V^ tp25735 a(g87 Vself p25736 tp25737 a(g6 V tp25738 a(g48 VbasicSize p25739 tp25740 a(g6 V tp25741 a(g48 V> tp25742 a(g6 V tp25743 a(g223 V0 tp25744 a(g6 V tp25745 a(g48 Vor: p25746 tp25747 a(g6 V tp25748 a(g6 V[ tp25749 a(g6 V tp25750 a(g87 Vself p25751 tp25752 a(g6 V tp25753 a(g48 Vclass p25754 tp25755 a(g6 V tp25756 a(g48 VallInstVarNames p25757 tp25758 a(g6 V tp25759 a(g48 VisEmpty p25760 tp25761 a(g6 V tp25762 a(g48 Vnot p25763 tp25764 a(g6 V] tp25765 a(g6 V\u000a tp25766 a(g138 V! ! p25767 tp25768 a(g6 V\u000a\u000a p25769 tp25770 a(g138 V! tp25771 a(g133 VObject p25772 tp25773 a(g138 V methodsFor: p25774 tp25775 a(g236 V'user interface' p25776 tp25777 a(g138 V stamp: 'rbb 3/1/2005 09:28'! p25778 tp25779 a(g6 V\u000a tp25780 a(g48 Vinform: p25781 tp25782 a(g6 V tp25783 a(g100 VaString p25784 tp25785 a(g6 V\u000a p25786 tp25787 a(g24 V"Display a message for the user to read and then dismiss. 6/9/96 sw" p25788 tp25789 a(g6 V\u000a\u000a p25790 tp25791 a(g100 VaString p25792 tp25793 a(g6 V tp25794 a(g48 VisEmptyOrNil p25795 tp25796 a(g6 V tp25797 a(g84 VifFalse: p25798 tp25799 a(g6 V tp25800 a(g6 V[ tp25801 a(g6 V tp25802 a(g133 VUIManager p25803 tp25804 a(g6 V tp25805 a(g48 Vdefault p25806 tp25807 a(g6 V tp25808 a(g48 Vinform: p25809 tp25810 a(g6 V tp25811 a(g100 VaString p25812 tp25813 a(g6 V] tp25814 a(g138 V! ! p25815 tp25816 a(g6 V\u000a\u000a p25817 tp25818 a(g138 V! tp25819 a(g133 VObject p25820 tp25821 a(g138 V methodsFor: p25822 tp25823 a(g236 V'user interface' p25824 tp25825 a(g138 V! tp25826 a(g6 V\u000a tp25827 a(g48 VinitialExtent p25828 tp25829 a(g6 V\u000a p25830 tp25831 a(g24 V"Answer the desired extent for the receiver when a view on it is first opened on the screen. \u000a 5/22/96 sw: in the absence of any override, obtain from RealEstateAgent" p25832 tp25833 a(g6 V\u000a\u000a p25834 tp25835 a(g353 V^ tp25836 a(g6 V tp25837 a(g133 VRealEstateAgent p25838 tp25839 a(g6 V tp25840 a(g48 VstandardWindowExtent p25841 tp25842 a(g138 V! ! p25843 tp25844 a(g6 V\u000a\u000a p25845 tp25846 a(g138 V! tp25847 a(g133 VObject p25848 tp25849 a(g138 V methodsFor: p25850 tp25851 a(g236 V'user interface' p25852 tp25853 a(g138 V stamp: 'ar 9/27/2005 20:30'! p25854 tp25855 a(g6 V\u000a tp25856 a(g48 VinspectWithLabel: p25857 tp25858 a(g6 V tp25859 a(g100 VaLabel p25860 tp25861 a(g6 V\u000a p25862 tp25863 a(g24 V"Create and schedule an Inspector in which the user can examine the receiver's variables." p25864 tp25865 a(g6 V\u000a p25866 tp25867 a(g353 V^ tp25868 a(g133 VToolSet p25869 tp25870 a(g6 V tp25871 a(g48 Vinspect: p25872 tp25873 a(g6 V tp25874 a(g87 Vself p25875 tp25876 a(g6 V tp25877 a(g48 Vlabel: p25878 tp25879 a(g6 V tp25880 a(g100 VaLabel p25881 tp25882 a(g138 V! ! p25883 tp25884 a(g6 V\u000a\u000a p25885 tp25886 a(g138 V! tp25887 a(g133 VObject p25888 tp25889 a(g138 V methodsFor: p25890 tp25891 a(g236 V'user interface' p25892 tp25893 a(g138 V stamp: 'sw 6/12/2001 11:09'! p25894 tp25895 a(g6 V\u000a tp25896 a(g48 VlaunchPartVia: p25897 tp25898 a(g6 V tp25899 a(g100 VaSelector p25900 tp25901 a(g6 V\u000a p25902 tp25903 a(g24 V"Obtain a morph by sending aSelector to self, and attach it to the morphic hand. This provides a general protocol for parts bins" p25904 tp25905 a(g6 V\u000a\u000a p25906 tp25907 a(g353 V| tp25908 a(g100 V aMorph p25909 tp25910 a(g353 V| tp25911 a(g6 V\u000a p25912 tp25913 a(g100 VaMorph p25914 tp25915 a(g6 V tp25916 a(g353 V_ tp25917 a(g6 V tp25918 a(g87 Vself p25919 tp25920 a(g6 V tp25921 a(g48 Vperform: p25922 tp25923 a(g6 V tp25924 a(g100 VaSelector p25925 tp25926 a(g212 V. tp25927 a(g6 V\u000a p25928 tp25929 a(g100 VaMorph p25930 tp25931 a(g6 V tp25932 a(g48 VsetProperty: p25933 tp25934 a(g6 V tp25935 a(g258 V#beFullyVisibleAfterDrop p25936 tp25937 a(g6 V tp25938 a(g48 VtoValue: p25939 tp25940 a(g6 V tp25941 a(g87 Vtrue p25942 tp25943 a(g212 V. tp25944 a(g6 V\u000a p25945 tp25946 a(g100 VaMorph p25947 tp25948 a(g6 V tp25949 a(g48 VopenInHand p25950 tp25951 a(g138 V! ! p25952 tp25953 a(g6 V\u000a\u000a p25954 tp25955 a(g138 V! tp25956 a(g133 VObject p25957 tp25958 a(g138 V methodsFor: p25959 tp25960 a(g236 V'user interface' p25961 tp25962 a(g138 V stamp: 'sw 6/17/2004 01:47'! p25963 tp25964 a(g6 V\u000a tp25965 a(g48 VlaunchPartVia: p25966 tp25967 a(g6 V tp25968 a(g100 VaSelector p25969 tp25970 a(g6 V tp25971 a(g48 Vlabel: p25972 tp25973 a(g6 V tp25974 a(g100 VaString p25975 tp25976 a(g6 V\u000a p25977 tp25978 a(g24 V"Obtain a morph by sending aSelector to self, and attach it to the morphic hand. This provides a general protocol for parts bins" p25979 tp25980 a(g6 V\u000a\u000a p25981 tp25982 a(g353 V| tp25983 a(g100 V aMorph p25984 tp25985 a(g353 V| tp25986 a(g6 V\u000a p25987 tp25988 a(g100 VaMorph p25989 tp25990 a(g6 V tp25991 a(g353 V_ tp25992 a(g6 V tp25993 a(g87 Vself p25994 tp25995 a(g6 V tp25996 a(g48 Vperform: p25997 tp25998 a(g6 V tp25999 a(g100 VaSelector p26000 tp26001 a(g212 V. tp26002 a(g6 V\u000a p26003 tp26004 a(g100 VaMorph p26005 tp26006 a(g6 V tp26007 a(g48 VsetNameTo: p26008 tp26009 a(g6 V tp26010 a(g6 V( tp26011 a(g133 VActiveWorld p26012 tp26013 a(g6 V tp26014 a(g48 VunusedMorphNameLike: p26015 tp26016 a(g6 V tp26017 a(g100 VaString p26018 tp26019 a(g6 V) tp26020 a(g212 V. tp26021 a(g6 V\u000a p26022 tp26023 a(g100 VaMorph p26024 tp26025 a(g6 V tp26026 a(g48 VsetProperty: p26027 tp26028 a(g6 V tp26029 a(g258 V#beFullyVisibleAfterDrop p26030 tp26031 a(g6 V tp26032 a(g48 VtoValue: p26033 tp26034 a(g6 V tp26035 a(g87 Vtrue p26036 tp26037 a(g212 V. tp26038 a(g6 V\u000a p26039 tp26040 a(g100 VaMorph p26041 tp26042 a(g6 V tp26043 a(g48 VopenInHand p26044 tp26045 a(g138 V! ! p26046 tp26047 a(g6 V\u000a\u000a p26048 tp26049 a(g138 V! tp26050 a(g133 VObject p26051 tp26052 a(g138 V methodsFor: p26053 tp26054 a(g236 V'user interface' p26055 tp26056 a(g138 V stamp: 'sw 10/16/2000 11:11'! p26057 tp26058 a(g6 V\u000a tp26059 a(g48 VlaunchTileToRefer p26060 tp26061 a(g6 V\u000a p26062 tp26063 a(g24 V"Create a tile to reference the receiver, and attach it to the hand" p26064 tp26065 a(g6 V\u000a\u000a p26066 tp26067 a(g87 Vself p26068 tp26069 a(g6 V tp26070 a(g48 VcurrentHand p26071 tp26072 a(g6 V tp26073 a(g48 VattachMorph: p26074 tp26075 a(g6 V tp26076 a(g87 Vself p26077 tp26078 a(g6 V tp26079 a(g48 VtileToRefer p26080 tp26081 a(g138 V! ! p26082 tp26083 a(g6 V\u000a\u000a p26084 tp26085 a(g138 V! tp26086 a(g133 VObject p26087 tp26088 a(g138 V methodsFor: p26089 tp26090 a(g236 V'user interface' p26091 tp26092 a(g138 V stamp: 'di 5/11/1999 22:26'! p26093 tp26094 a(g6 V\u000a tp26095 a(g48 VmodelSleep p26096 tp26097 a(g6 V\u000a p26098 tp26099 a(g24 V"A window with me as model is being exited or collapsed or closed.\u000a Default response is no-op" p26100 tp26101 a(g6 V tp26102 a(g138 V! ! p26103 tp26104 a(g6 V\u000a\u000a p26105 tp26106 a(g138 V! tp26107 a(g133 VObject p26108 tp26109 a(g138 V methodsFor: p26110 tp26111 a(g236 V'user interface' p26112 tp26113 a(g138 V stamp: 'di 5/11/1999 22:01'! p26114 tp26115 a(g6 V\u000a tp26116 a(g48 VmodelWakeUp p26117 tp26118 a(g6 V\u000a p26119 tp26120 a(g24 V"A window with me as model is being entered or expanded. Default response is no-op" p26121 tp26122 a(g6 V tp26123 a(g138 V! ! p26124 tp26125 a(g6 V\u000a\u000a p26126 tp26127 a(g138 V! tp26128 a(g133 VObject p26129 tp26130 a(g138 V methodsFor: p26131 tp26132 a(g236 V'user interface' p26133 tp26134 a(g138 V stamp: 'sw 10/16/1999 22:45'! p26135 tp26136 a(g6 V\u000a tp26137 a(g48 VmodelWakeUpIn: p26138 tp26139 a(g6 V tp26140 a(g100 VaWindow p26141 tp26142 a(g6 V\u000a p26143 tp26144 a(g24 V"A window with me as model is being entered or expanded. Default response is no-op" p26145 tp26146 a(g6 V \u000a p26147 tp26148 a(g87 Vself p26149 tp26150 a(g6 V tp26151 a(g48 VmodelWakeUp p26152 tp26153 a(g138 V! ! p26154 tp26155 a(g6 V\u000a\u000a p26156 tp26157 a(g138 V! tp26158 a(g133 VObject p26159 tp26160 a(g138 V methodsFor: p26161 tp26162 a(g236 V'user interface' p26163 tp26164 a(g138 V stamp: 'sw 3/8/1999 15:27'! p26165 tp26166 a(g6 V\u000a tp26167 a(g48 VmouseUpBalk: p26168 tp26169 a(g6 V tp26170 a(g100 Vevt p26171 tp26172 a(g6 V\u000a p26173 tp26174 a(g24 V"A button I own got a mouseDown, but the user moved out before letting up. Certain kinds of objects (so-called 'radio buttons', for example, and other structures that must always have some selection, e.g. PaintBoxMorph) wish to take special action in this case; this default does nothing." p26175 tp26176 a(g6 V\u000a tp26177 a(g138 V! ! p26178 tp26179 a(g6 V\u000a\u000a p26180 tp26181 a(g138 V! tp26182 a(g133 VObject p26183 tp26184 a(g138 V methodsFor: p26185 tp26186 a(g236 V'user interface' p26187 tp26188 a(g138 V stamp: 'sw 8/22/97 13:14'! p26189 tp26190 a(g6 V\u000a tp26191 a(g48 VnewTileMorphRepresentative p26192 tp26193 a(g6 V\u000a p26194 tp26195 a(g353 V^ tp26196 a(g6 V tp26197 a(g133 VTileMorph p26198 tp26199 a(g6 V tp26200 a(g84 Vnew p26201 tp26202 a(g6 V tp26203 a(g48 VsetLiteral: p26204 tp26205 a(g6 V tp26206 a(g87 Vself p26207 tp26208 a(g138 V! ! p26209 tp26210 a(g6 V\u000a\u000a p26211 tp26212 a(g138 V! tp26213 a(g133 VObject p26214 tp26215 a(g138 V methodsFor: p26216 tp26217 a(g236 V'user interface' p26218 tp26219 a(g138 V stamp: 'jcg 11/1/2001 13:13'! p26220 tp26221 a(g6 V\u000a tp26222 a(g48 VnotYetImplemented p26223 tp26224 a(g6 V\u000a p26225 tp26226 a(g87 Vself p26227 tp26228 a(g6 V tp26229 a(g48 Vinform: p26230 tp26231 a(g6 V tp26232 a(g236 V'Not yet implemented (' p26233 tp26234 a(g48 V, tp26235 a(g6 V tp26236 a(g87 VthisContext p26237 tp26238 a(g6 V tp26239 a(g48 Vsender p26240 tp26241 a(g6 V tp26242 a(g48 VprintString p26243 tp26244 a(g48 V, tp26245 a(g6 V tp26246 a(g236 V')' p26247 tp26248 a(g138 V! ! p26249 tp26250 a(g6 V\u000a\u000a p26251 tp26252 a(g138 V! tp26253 a(g133 VObject p26254 tp26255 a(g138 V methodsFor: p26256 tp26257 a(g236 V'user interface' p26258 tp26259 a(g138 V stamp: 'di 6/10/1998 15:06'! p26260 tp26261 a(g6 V\u000a tp26262 a(g48 VwindowReqNewLabel: p26263 tp26264 a(g6 V tp26265 a(g100 VlabelString p26266 tp26267 a(g6 V\u000a p26268 tp26269 a(g24 V"My window's title has been edited.\u000a Return true if this is OK, and override for further behavior." p26270 tp26271 a(g6 V\u000a\u000a p26272 tp26273 a(g353 V^ tp26274 a(g6 V tp26275 a(g87 Vtrue p26276 tp26277 a(g138 V! ! p26278 tp26279 a(g6 V\u000a\u000a\u000a p26280 tp26281 a(g138 V! tp26282 a(g133 VObject p26283 tp26284 a(g138 V methodsFor: p26285 tp26286 a(g236 V'viewer' p26287 tp26288 a(g138 V stamp: 'sw 10/16/2000 10:35'! p26289 tp26290 a(g6 V\u000a tp26291 a(g48 VassureUniClass p26292 tp26293 a(g6 V\u000a p26294 tp26295 a(g24 V"If the receiver is not yet an instance of a uniclass, create a uniclass for it and make the receiver become an instance of that class." p26296 tp26297 a(g6 V\u000a\u000a p26298 tp26299 a(g353 V| tp26300 a(g100 V anInstance p26301 tp26302 a(g353 V| tp26303 a(g6 V\u000a p26304 tp26305 a(g87 Vself p26306 tp26307 a(g6 V tp26308 a(g48 VbelongsToUniClass p26309 tp26310 a(g6 V tp26311 a(g84 VifTrue: p26312 tp26313 a(g6 V tp26314 a(g6 V[ tp26315 a(g6 V tp26316 a(g353 V^ tp26317 a(g6 V tp26318 a(g87 Vself p26319 tp26320 a(g6 V] tp26321 a(g212 V. tp26322 a(g6 V\u000a p26323 tp26324 a(g100 VanInstance p26325 tp26326 a(g6 V tp26327 a(g353 V_ tp26328 a(g6 V tp26329 a(g87 Vself p26330 tp26331 a(g6 V tp26332 a(g48 Vclass p26333 tp26334 a(g6 V tp26335 a(g48 VinstanceOfUniqueClass p26336 tp26337 a(g212 V. tp26338 a(g6 V\u000a p26339 tp26340 a(g87 Vself p26341 tp26342 a(g6 V tp26343 a(g48 Vbecome: p26344 tp26345 a(g6 V tp26346 a(g6 V( tp26347 a(g87 Vself p26348 tp26349 a(g6 V tp26350 a(g48 Vas: p26351 tp26352 a(g6 V tp26353 a(g100 VanInstance p26354 tp26355 a(g6 V tp26356 a(g48 Vclass p26357 tp26358 a(g6 V) tp26359 a(g212 V. tp26360 a(g6 V\u000a p26361 tp26362 a(g353 V^ tp26363 a(g6 V tp26364 a(g100 VanInstance p26365 tp26366 a(g138 V! ! p26367 tp26368 a(g6 V\u000a\u000a p26369 tp26370 a(g138 V! tp26371 a(g133 VObject p26372 tp26373 a(g138 V methodsFor: p26374 tp26375 a(g236 V'viewer' p26376 tp26377 a(g138 V stamp: 'sw 10/16/2000 10:41'! p26378 tp26379 a(g6 V\u000a tp26380 a(g48 VbelongsToUniClass p26381 tp26382 a(g6 V\u000a p26383 tp26384 a(g24 V"Answer whether the receiver belongs to a uniclass. For the moment (this is not entirely satisfactory) this is precisely equated with the classname ending in a digit" p26385 tp26386 a(g6 V\u000a\u000a p26387 tp26388 a(g353 V^ tp26389 a(g6 V tp26390 a(g87 Vself p26391 tp26392 a(g6 V tp26393 a(g48 Vclass p26394 tp26395 a(g6 V tp26396 a(g48 Vname p26397 tp26398 a(g6 V tp26399 a(g48 VendsWithDigit p26400 tp26401 a(g138 V! ! p26402 tp26403 a(g6 V\u000a\u000a p26404 tp26405 a(g138 V! tp26406 a(g133 VObject p26407 tp26408 a(g138 V methodsFor: p26409 tp26410 a(g236 V'viewer' p26411 tp26412 a(g138 V stamp: 'sw 12/11/2000 15:37'! p26413 tp26414 a(g6 V\u000a tp26415 a(g48 VbrowseOwnClassSubProtocol p26416 tp26417 a(g6 V\u000a p26418 tp26419 a(g24 V"Open up a ProtocolBrowser on the subprotocol of the receiver" p26420 tp26421 a(g6 V\u000a\u000a p26422 tp26423 a(g133 VProtocolBrowser p26424 tp26425 a(g6 V tp26426 a(g48 VopenSubProtocolForClass: p26427 tp26428 a(g6 V tp26429 a(g87 Vself p26430 tp26431 a(g6 V tp26432 a(g48 Vclass p26433 tp26434 a(g6 V\u000a tp26435 a(g138 V! ! p26436 tp26437 a(g6 V\u000a\u000a p26438 tp26439 a(g138 V! tp26440 a(g133 VObject p26441 tp26442 a(g138 V methodsFor: p26443 tp26444 a(g236 V'viewer' p26445 tp26446 a(g138 V stamp: 'sw 8/4/2001 00:51'! p26447 tp26448 a(g6 V\u000a tp26449 a(g48 VcategoriesForViewer: p26450 tp26451 a(g6 V tp26452 a(g100 VaViewer p26453 tp26454 a(g6 V\u000a p26455 tp26456 a(g24 V"Answer a list of categories to offer in the given viewer" p26457 tp26458 a(g6 V\u000a\u000a p26459 tp26460 a(g353 V^ tp26461 a(g6 V tp26462 a(g100 VaViewer p26463 tp26464 a(g6 V tp26465 a(g48 VcurrentVocabulary p26466 tp26467 a(g6 V tp26468 a(g48 VcategoryListForInstance: p26469 tp26470 a(g6 V tp26471 a(g87 Vself p26472 tp26473 a(g6 V tp26474 a(g48 VofClass: p26475 tp26476 a(g6 V tp26477 a(g87 Vself p26478 tp26479 a(g6 V tp26480 a(g48 Vclass p26481 tp26482 a(g6 V tp26483 a(g48 VlimitClass: p26484 tp26485 a(g6 V tp26486 a(g100 VaViewer p26487 tp26488 a(g6 V tp26489 a(g48 VlimitClass p26490 tp26491 a(g138 V! ! p26492 tp26493 a(g6 V\u000a\u000a p26494 tp26495 a(g138 V! tp26496 a(g133 VObject p26497 tp26498 a(g138 V methodsFor: p26499 tp26500 a(g236 V'viewer' p26501 tp26502 a(g138 V stamp: 'sw 8/3/2001 22:08'! p26503 tp26504 a(g6 V\u000a tp26505 a(g48 VcategoriesForVocabulary: p26506 tp26507 a(g6 V tp26508 a(g100 VaVocabulary p26509 tp26510 a(g6 V tp26511 a(g48 VlimitClass: p26512 tp26513 a(g6 V tp26514 a(g100 VaLimitClass p26515 tp26516 a(g6 V\u000a p26517 tp26518 a(g24 V"Answer a list of categories of methods for the receiver when using the given vocabulary, given that one considers only methods that are implemented not further away than aLimitClass" p26519 tp26520 a(g6 V\u000a\u000a p26521 tp26522 a(g353 V^ tp26523 a(g6 V tp26524 a(g100 VaVocabulary p26525 tp26526 a(g6 V tp26527 a(g48 VcategoryListForInstance: p26528 tp26529 a(g6 V tp26530 a(g87 Vself p26531 tp26532 a(g6 V tp26533 a(g48 VofClass: p26534 tp26535 a(g6 V tp26536 a(g87 Vself p26537 tp26538 a(g6 V tp26539 a(g48 Vclass p26540 tp26541 a(g6 V tp26542 a(g48 VlimitClass: p26543 tp26544 a(g6 V tp26545 a(g100 VaLimitClass p26546 tp26547 a(g138 V! ! p26548 tp26549 a(g6 V\u000a\u000a p26550 tp26551 a(g138 V! tp26552 a(g133 VObject p26553 tp26554 a(g138 V methodsFor: p26555 tp26556 a(g236 V'viewer' p26557 tp26558 a(g138 V stamp: 'sw 10/25/2000 07:20'! p26559 tp26560 a(g6 V\u000a tp26561 a(g48 VchooseNewNameForReference p26562 tp26563 a(g6 V\u000a p26564 tp26565 a(g24 V"Offer an opportunity for the receiver, presumed already to be known in the References registry, to be renamed" p26566 tp26567 a(g6 V\u000a\u000a p26568 tp26569 a(g353 V| tp26570 a(g100 V nameSym current newName p26571 tp26572 a(g353 V| tp26573 a(g6 V\u000a p26574 tp26575 a(g100 Vcurrent p26576 tp26577 a(g6 V tp26578 a(g353 V_ tp26579 a(g6 V tp26580 a(g133 VReferences p26581 tp26582 a(g6 V tp26583 a(g48 VkeyAtValue: p26584 tp26585 a(g6 V tp26586 a(g87 Vself p26587 tp26588 a(g6 V tp26589 a(g48 VifAbsent: p26590 tp26591 a(g6 V tp26592 a(g6 V[ tp26593 a(g6 V tp26594 a(g353 V^ tp26595 a(g6 V tp26596 a(g87 Vself p26597 tp26598 a(g6 V tp26599 a(g48 Verror: p26600 tp26601 a(g6 V tp26602 a(g236 V'not found in References' p26603 tp26604 a(g6 V] tp26605 a(g212 V. tp26606 a(g6 V\u000a\u000a p26607 tp26608 a(g100 VnewName p26609 tp26610 a(g6 V tp26611 a(g353 V_ tp26612 a(g6 V tp26613 a(g133 VFillInTheBlank p26614 tp26615 a(g6 V tp26616 a(g48 Vrequest: p26617 tp26618 a(g6 V tp26619 a(g236 V'Please enter new name' p26620 tp26621 a(g6 V tp26622 a(g48 VinitialAnswer: p26623 tp26624 a(g6 V tp26625 a(g100 Vcurrent p26626 tp26627 a(g212 V. tp26628 a(g6 V\u000a p26629 tp26630 a(g24 V"Want to user some better way of determining the validity of the chosen identifier, and also want to give more precise diagnostic if the string the user types in is not acceptable. Work to be done here." p26631 tp26632 a(g6 V\u000a\u000a p26633 tp26634 a(g100 VnewName p26635 tp26636 a(g6 V tp26637 a(g48 VisEmpty p26638 tp26639 a(g6 V tp26640 a(g84 VifTrue: p26641 tp26642 a(g6 V tp26643 a(g6 V[ tp26644 a(g6 V tp26645 a(g353 V^ tp26646 a(g6 V tp26647 a(g87 Vnil p26648 tp26649 a(g6 V] tp26650 a(g212 V. tp26651 a(g6 V\u000a p26652 tp26653 a(g6 V( tp26654 a(g6 V( tp26655 a(g133 VScanner p26656 tp26657 a(g6 V tp26658 a(g48 VisLiteralSymbol: p26659 tp26660 a(g6 V tp26661 a(g100 VnewName p26662 tp26663 a(g6 V) tp26664 a(g6 V tp26665 a(g48 Vand: p26666 tp26667 a(g6 V tp26668 a(g6 V[ tp26669 a(g6 V tp26670 a(g6 V( tp26671 a(g100 VnewName p26672 tp26673 a(g6 V tp26674 a(g48 Vincludes: p26675 tp26676 a(g6 V tp26677 a(g278 V$: p26678 tp26679 a(g6 V) tp26680 a(g6 V tp26681 a(g48 Vnot p26682 tp26683 a(g6 V] tp26684 a(g6 V) tp26685 a(g6 V\u000a p26686 tp26687 a(g84 VifTrue: p26688 tp26689 a(g6 V\u000a p26690 tp26691 a(g6 V[ tp26692 a(g6 V tp26693 a(g100 VnameSym p26694 tp26695 a(g6 V tp26696 a(g353 V_ tp26697 a(g6 V tp26698 a(g100 VnewName p26699 tp26700 a(g6 V tp26701 a(g48 Vcapitalized p26702 tp26703 a(g6 V tp26704 a(g48 VasSymbol p26705 tp26706 a(g212 V. tp26707 a(g6 V\u000a p26708 tp26709 a(g6 V( tp26710 a(g6 V( tp26711 a(g6 V( tp26712 a(g133 VReferences p26713 tp26714 a(g6 V tp26715 a(g48 VincludesKey: p26716 tp26717 a(g6 V p26718 tp26719 a(g100 VnameSym p26720 tp26721 a(g6 V) tp26722 a(g6 V tp26723 a(g48 Vnot p26724 tp26725 a(g6 V tp26726 a(g48 Vand: p26727 tp26728 a(g6 V\u000a p26729 tp26730 a(g6 V[ tp26731 a(g6 V tp26732 a(g6 V( tp26733 a(g133 VSmalltalk p26734 tp26735 a(g6 V tp26736 a(g48 VincludesKey: p26737 tp26738 a(g6 V tp26739 a(g100 VnameSym p26740 tp26741 a(g6 V) tp26742 a(g6 V tp26743 a(g48 Vnot p26744 tp26745 a(g6 V] tp26746 a(g6 V) tp26747 a(g6 V tp26748 a(g48 Vand: p26749 tp26750 a(g6 V\u000a p26751 tp26752 a(g6 V[ tp26753 a(g6 V tp26754 a(g6 V( tp26755 a(g133 VScriptingSystem p26756 tp26757 a(g6 V tp26758 a(g48 VallKnownClassVariableNames p26759 tp26760 a(g6 V tp26761 a(g48 Vincludes: p26762 tp26763 a(g6 V tp26764 a(g100 VnameSym p26765 tp26766 a(g6 V) tp26767 a(g6 V tp26768 a(g48 Vnot p26769 tp26770 a(g6 V] tp26771 a(g6 V) tp26772 a(g6 V\u000a p26773 tp26774 a(g84 VifTrue: p26775 tp26776 a(g6 V\u000a p26777 tp26778 a(g6 V[ tp26779 a(g6 V tp26780 a(g6 V( tp26781 a(g133 VReferences p26782 tp26783 a(g6 V tp26784 a(g48 VassociationAt: p26785 tp26786 a(g6 V tp26787 a(g100 Vcurrent p26788 tp26789 a(g6 V) tp26790 a(g6 V tp26791 a(g48 Vkey: p26792 tp26793 a(g6 V tp26794 a(g100 VnameSym p26795 tp26796 a(g212 V. tp26797 a(g6 V\u000a p26798 tp26799 a(g133 VReferences p26800 tp26801 a(g6 V tp26802 a(g48 Vrehash p26803 tp26804 a(g212 V. tp26805 a(g6 V\u000a p26806 tp26807 a(g353 V^ tp26808 a(g6 V tp26809 a(g100 VnameSym p26810 tp26811 a(g6 V] tp26812 a(g6 V] tp26813 a(g212 V. tp26814 a(g6 V\u000a p26815 tp26816 a(g87 Vself p26817 tp26818 a(g6 V tp26819 a(g48 Vinform: p26820 tp26821 a(g6 V tp26822 a(g236 V'Sorry, that name is not available.' p26823 tp26824 a(g212 V. tp26825 a(g6 V\u000a p26826 tp26827 a(g353 V^ tp26828 a(g6 V tp26829 a(g87 Vnil p26830 tp26831 a(g138 V! ! p26832 tp26833 a(g6 V\u000a\u000a p26834 tp26835 a(g138 V! tp26836 a(g133 VObject p26837 tp26838 a(g138 V methodsFor: p26839 tp26840 a(g236 V'viewer' p26841 tp26842 a(g138 V stamp: 'sw 8/3/2001 21:22'! p26843 tp26844 a(g6 V\u000a tp26845 a(g48 VdefaultLimitClassForVocabulary: p26846 tp26847 a(g6 V tp26848 a(g100 VaVocabulary p26849 tp26850 a(g6 V\u000a p26851 tp26852 a(g24 V"Answer the class to use, by default, as the limit class on a protocol browser or viewer opened up on the receiver, within the purview of the Vocabulary provided" p26853 tp26854 a(g6 V\u000a\u000a p26855 tp26856 a(g353 V^ tp26857 a(g6 V tp26858 a(g6 V( tp26859 a(g100 VaVocabulary p26860 tp26861 a(g6 V tp26862 a(g48 VisKindOf: p26863 tp26864 a(g6 V tp26865 a(g133 VFullVocabulary p26866 tp26867 a(g6 V) tp26868 a(g6 V\u000a p26869 tp26870 a(g84 VifTrue: p26871 tp26872 a(g6 V\u000a p26873 tp26874 a(g6 V[ tp26875 a(g6 V tp26876 a(g87 Vself p26877 tp26878 a(g6 V tp26879 a(g48 Vclass p26880 tp26881 a(g6 V tp26882 a(g48 Vsuperclass p26883 tp26884 a(g6 V tp26885 a(g48 V== p26886 tp26887 a(g6 V tp26888 a(g133 VObject p26889 tp26890 a(g6 V\u000a p26891 tp26892 a(g84 VifTrue: p26893 tp26894 a(g6 V\u000a p26895 tp26896 a(g6 V[ tp26897 a(g6 V tp26898 a(g87 Vself p26899 tp26900 a(g6 V tp26901 a(g48 Vclass p26902 tp26903 a(g6 V] tp26904 a(g6 V\u000a p26905 tp26906 a(g84 VifFalse: p26907 tp26908 a(g6 V\u000a p26909 tp26910 a(g6 V[ tp26911 a(g6 V tp26912 a(g87 Vself p26913 tp26914 a(g6 V tp26915 a(g48 Vclass p26916 tp26917 a(g6 V tp26918 a(g48 Vsuperclass p26919 tp26920 a(g6 V] tp26921 a(g6 V] tp26922 a(g6 V\u000a p26923 tp26924 a(g84 VifFalse: p26925 tp26926 a(g6 V\u000a p26927 tp26928 a(g6 V[ tp26929 a(g6 V tp26930 a(g133 VProtoObject p26931 tp26932 a(g6 V] tp26933 a(g138 V! ! p26934 tp26935 a(g6 V\u000a\u000a p26936 tp26937 a(g138 V! tp26938 a(g133 VObject p26939 tp26940 a(g138 V methodsFor: p26941 tp26942 a(g236 V'viewer' p26943 tp26944 a(g138 V stamp: 'sw 2/14/2000 14:24'! p26945 tp26946 a(g6 V\u000a tp26947 a(g48 VdefaultNameStemForInstances p26948 tp26949 a(g6 V\u000a p26950 tp26951 a(g24 V"Answer a basis for names of default instances of the receiver. The default is to let the class specify, but certain instances will want to override. (PasteUpMorphs serving as Worlds come to mind" p26952 tp26953 a(g6 V\u000a\u000a p26954 tp26955 a(g353 V^ tp26956 a(g6 V tp26957 a(g87 Vself p26958 tp26959 a(g6 V tp26960 a(g48 Vclass p26961 tp26962 a(g6 V tp26963 a(g48 VdefaultNameStemForInstances p26964 tp26965 a(g138 V! ! p26966 tp26967 a(g6 V\u000a\u000a p26968 tp26969 a(g138 V! tp26970 a(g133 VObject p26971 tp26972 a(g138 V methodsFor: p26973 tp26974 a(g236 V'viewer' p26975 tp26976 a(g138 V stamp: 'sw 5/22/2001 16:53'! p26977 tp26978 a(g6 V\u000a tp26979 a(g48 VelementTypeFor: p26980 tp26981 a(g6 V tp26982 a(g100 VaStringOrSymbol p26983 tp26984 a(g6 V tp26985 a(g48 Vvocabulary: p26986 tp26987 a(g6 V tp26988 a(g100 VaVocabulary p26989 tp26990 a(g6 V\u000a p26991 tp26992 a(g24 V"Answer a symbol characterizing what kind of element aStringOrSymbol represents. Realistically, at present, this always just returns #systemScript; a prototyped but not-incorporated architecture supported use of a leading colon to characterize an inst var of a system class, and for the moment we still see its remnant here." p26993 tp26994 a(g6 V\u000a\u000a p26995 tp26996 a(g87 Vself p26997 tp26998 a(g6 V tp26999 a(g48 Vflag: p27000 tp27001 a(g6 V tp27002 a(g258 V#deferred p27003 tp27004 a(g212 V. tp27005 a(g6 V p27006 tp27007 a(g24 V"a loose end in the non-player case" p27008 tp27009 a(g6 V\u000a p27010 tp27011 a(g353 V^ tp27012 a(g6 V tp27013 a(g258 V#systemScript p27014 tp27015 a(g138 V! ! p27016 tp27017 a(g6 V\u000a\u000a p27018 tp27019 a(g138 V! tp27020 a(g133 VObject p27021 tp27022 a(g138 V methodsFor: p27023 tp27024 a(g236 V'viewer' p27025 tp27026 a(g138 V stamp: 'sw 5/4/2001 07:04'! p27027 tp27028 a(g6 V\u000a tp27029 a(g48 VexternalName p27030 tp27031 a(g6 V\u000a p27032 tp27033 a(g24 V"Answer an external name by which the receiver is known. Generic implementation here is a transitional backstop. probably" p27034 tp27035 a(g6 V\u000a\u000a p27036 tp27037 a(g353 V^ tp27038 a(g6 V tp27039 a(g87 Vself p27040 tp27041 a(g6 V tp27042 a(g48 VnameForViewer p27043 tp27044 a(g138 V! ! p27045 tp27046 a(g6 V\u000a\u000a p27047 tp27048 a(g138 V! tp27049 a(g133 VObject p27050 tp27051 a(g138 V methodsFor: p27052 tp27053 a(g236 V'viewer' p27054 tp27055 a(g138 V stamp: 'sw 5/4/2001 07:06'! p27056 tp27057 a(g6 V\u000a tp27058 a(g48 VgraphicForViewerTab p27059 tp27060 a(g6 V\u000a p27061 tp27062 a(g24 V"When a Viewer is open on the receiver, its tab needs some graphic to show to the user. Answer a form or a morph to serve that purpose. A generic image is used for arbitrary objects, but note my reimplementors" p27063 tp27064 a(g6 V\u000a \u000a p27065 tp27066 a(g353 V^ tp27067 a(g6 V tp27068 a(g133 VScriptingSystem p27069 tp27070 a(g6 V tp27071 a(g48 VformAtKey: p27072 tp27073 a(g6 V tp27074 a(g236 V'Image' p27075 tp27076 a(g138 V! ! p27077 tp27078 a(g6 V\u000a\u000a p27079 tp27080 a(g138 V! tp27081 a(g133 VObject p27082 tp27083 a(g138 V methodsFor: p27084 tp27085 a(g236 V'viewer' p27086 tp27087 a(g138 V stamp: 'sw 5/4/2001 07:08'! p27088 tp27089 a(g6 V\u000a tp27090 a(g48 VhasUserDefinedSlots p27091 tp27092 a(g6 V\u000a p27093 tp27094 a(g24 V"Answer whether the receiver has any user-defined slots, in the omniuser sense of the term. This is needed to allow Viewers to look at any object, not just at Players." p27095 tp27096 a(g6 V\u000a\u000a p27097 tp27098 a(g353 V^ tp27099 a(g6 V tp27100 a(g87 Vfalse p27101 tp27102 a(g138 V! ! p27103 tp27104 a(g6 V\u000a\u000a p27105 tp27106 a(g138 V! tp27107 a(g133 VObject p27108 tp27109 a(g138 V methodsFor: p27110 tp27111 a(g236 V'viewer' p27112 tp27113 a(g138 V stamp: 'sw 8/22/2002 14:07'! p27114 tp27115 a(g6 V\u000a tp27116 a(g48 VinfoFor: p27117 tp27118 a(g6 V tp27119 a(g100 VanElement p27120 tp27121 a(g6 V tp27122 a(g48 VinViewer: p27123 tp27124 a(g6 V tp27125 a(g100 VaViewer p27126 tp27127 a(g6 V\u000a p27128 tp27129 a(g24 V"The user made a gesture asking for info/menu relating to me. Some of the messages dispatched here are not yet available in this image" p27130 tp27131 a(g6 V\u000a\u000a p27132 tp27133 a(g353 V| tp27134 a(g100 V aMenu elementType p27135 tp27136 a(g353 V| tp27137 a(g6 V\u000a p27138 tp27139 a(g100 VelementType p27140 tp27141 a(g6 V tp27142 a(g353 V_ tp27143 a(g6 V tp27144 a(g87 Vself p27145 tp27146 a(g6 V tp27147 a(g48 VelementTypeFor: p27148 tp27149 a(g6 V tp27150 a(g100 VanElement p27151 tp27152 a(g6 V tp27153 a(g48 Vvocabulary: p27154 tp27155 a(g6 V tp27156 a(g100 VaViewer p27157 tp27158 a(g6 V tp27159 a(g48 VcurrentVocabulary p27160 tp27161 a(g212 V. tp27162 a(g6 V\u000a p27163 tp27164 a(g6 V( tp27165 a(g6 V( tp27166 a(g100 VelementType p27167 tp27168 a(g6 V tp27169 a(g48 V= tp27170 a(g6 V tp27171 a(g258 V#systemSlot p27172 tp27173 a(g6 V) tp27174 a(g6 V tp27175 a(g48 V| tp27176 a(g6 V tp27177 a(g6 V( tp27178 a(g100 VelementType p27179 tp27180 a(g6 V tp27181 a(g48 V== p27182 tp27183 a(g6 V tp27184 a(g258 V#userSlot p27185 tp27186 a(g6 V) tp27187 a(g6 V) tp27188 a(g6 V\u000a p27189 tp27190 a(g84 VifTrue: p27191 tp27192 a(g6 V tp27193 a(g6 V[ tp27194 a(g6 V tp27195 a(g353 V^ tp27196 a(g6 V tp27197 a(g87 Vself p27198 tp27199 a(g6 V tp27200 a(g48 VslotInfoButtonHitFor: p27201 tp27202 a(g6 V tp27203 a(g100 VanElement p27204 tp27205 a(g6 V tp27206 a(g48 VinViewer: p27207 tp27208 a(g6 V tp27209 a(g100 VaViewer p27210 tp27211 a(g6 V] tp27212 a(g212 V. tp27213 a(g6 V\u000a p27214 tp27215 a(g87 Vself p27216 tp27217 a(g6 V tp27218 a(g48 Vflag: p27219 tp27220 a(g6 V tp27221 a(g258 V#deferred p27222 tp27223 a(g212 V. tp27224 a(g6 V p27225 tp27226 a(g24 V"Use a traditional MenuMorph, and reinstate the pacify thing" p27227 tp27228 a(g6 V\u000a p27229 tp27230 a(g100 VaMenu p27231 tp27232 a(g6 V tp27233 a(g353 V_ tp27234 a(g6 V tp27235 a(g133 VMenuMorph p27236 tp27237 a(g6 V tp27238 a(g84 Vnew p27239 tp27240 a(g6 V tp27241 a(g48 VdefaultTarget: p27242 tp27243 a(g6 V tp27244 a(g100 VaViewer p27245 tp27246 a(g212 V. tp27247 a(g6 V\u000a p27248 tp27249 a(g258 V#( p27250 tp27251 a(g6 V tp27252 a(g258 V( tp27253 a(g236 V'implementors' p27254 tp27255 a(g6 V p27256 tp27257 a(g258 VbrowseImplementorsOf: p27258 tp27259 a(g258 V) tp27260 a(g6 V\u000a p27261 tp27262 a(g258 V( tp27263 a(g236 V'senders' p27264 tp27265 a(g6 V p27266 tp27267 a(g258 VbrowseSendersOf: p27268 tp27269 a(g258 V) tp27270 a(g6 V\u000a p27271 tp27272 a(g258 V( tp27273 a(g236 V'versions' p27274 tp27275 a(g6 V p27276 tp27277 a(g258 VbrowseVersionsOf: p27278 tp27279 a(g258 V) tp27280 a(g6 V\u000a p27281 tp27282 a(g258 V- tp27283 a(g6 V\u000a p27284 tp27285 a(g258 V( tp27286 a(g236 V'browse full' p27287 tp27288 a(g6 V p27289 tp27290 a(g258 VbrowseMethodFull: p27291 tp27292 a(g258 V) tp27293 a(g6 V\u000a p27294 tp27295 a(g258 V( tp27296 a(g236 V'inheritance' p27297 tp27298 a(g6 V p27299 tp27300 a(g258 VbrowseMethodInheritance: p27301 tp27302 a(g258 V) tp27303 a(g6 V\u000a p27304 tp27305 a(g258 V- tp27306 a(g6 V\u000a p27307 tp27308 a(g258 V( tp27309 a(g236 V'about this method' p27310 tp27311 a(g6 V p27312 tp27313 a(g258 VaboutMethod: p27314 tp27315 a(g258 V) tp27316 a(g258 V) tp27317 a(g6 V tp27318 a(g48 Vdo: p27319 tp27320 a(g6 V\u000a\u000a p27321 tp27322 a(g6 V[ tp27323 a(g353 V: tp27324 a(g100 Vpair p27325 tp27326 a(g6 V tp27327 a(g353 V| tp27328 a(g6 V\u000a p27329 tp27330 a(g100 Vpair p27331 tp27332 a(g6 V tp27333 a(g48 V= tp27334 a(g6 V tp27335 a(g236 V'-' p27336 tp27337 a(g6 V\u000a p27338 tp27339 a(g84 VifTrue: p27340 tp27341 a(g6 V\u000a p27342 tp27343 a(g6 V[ tp27344 a(g6 V tp27345 a(g100 VaMenu p27346 tp27347 a(g6 V tp27348 a(g48 VaddLine p27349 tp27350 a(g6 V] tp27351 a(g6 V\u000a p27352 tp27353 a(g84 VifFalse: p27354 tp27355 a(g6 V\u000a p27356 tp27357 a(g6 V[ tp27358 a(g6 V tp27359 a(g100 VaMenu p27360 tp27361 a(g6 V tp27362 a(g48 Vadd: p27363 tp27364 a(g6 V tp27365 a(g100 Vpair p27366 tp27367 a(g6 V tp27368 a(g48 Vfirst p27369 tp27370 a(g6 V tp27371 a(g48 Vtarget: p27372 tp27373 a(g6 V tp27374 a(g100 VaViewer p27375 tp27376 a(g6 V tp27377 a(g48 Vselector: p27378 tp27379 a(g6 V tp27380 a(g100 Vpair p27381 tp27382 a(g6 V tp27383 a(g48 Vsecond p27384 tp27385 a(g6 V tp27386 a(g48 Vargument: p27387 tp27388 a(g6 V tp27389 a(g100 VanElement p27390 tp27391 a(g6 V] tp27392 a(g6 V] tp27393 a(g212 V. tp27394 a(g6 V\u000a p27395 tp27396 a(g100 VaMenu p27397 tp27398 a(g6 V tp27399 a(g48 VaddLine p27400 tp27401 a(g212 V. tp27402 a(g6 V\u000a p27403 tp27404 a(g100 VaMenu p27405 tp27406 a(g6 V tp27407 a(g48 VdefaultTarget: p27408 tp27409 a(g6 V tp27410 a(g87 Vself p27411 tp27412 a(g212 V. tp27413 a(g6 V\u000a p27414 tp27415 a(g258 V#( p27416 tp27417 a(g6 V tp27418 a(g258 V( tp27419 a(g236 V'destroy script' p27420 tp27421 a(g6 V p27422 tp27423 a(g258 VremoveScript: p27424 tp27425 a(g258 V) tp27426 a(g6 V\u000a p27427 tp27428 a(g258 V( tp27429 a(g236 V'rename script' p27430 tp27431 a(g6 V p27432 tp27433 a(g258 VrenameScript: p27434 tp27435 a(g258 V) tp27436 a(g6 V\u000a p27437 tp27438 a(g258 V( tp27439 a(g236 V'pacify script' p27440 tp27441 a(g6 V p27442 tp27443 a(g258 VpacifyScript: p27444 tp27445 a(g258 V) tp27446 a(g258 V) tp27447 a(g6 V tp27448 a(g48 Vdo: p27449 tp27450 a(g6 V\u000a p27451 tp27452 a(g6 V[ tp27453 a(g353 V: tp27454 a(g100 Vpair p27455 tp27456 a(g6 V tp27457 a(g353 V| tp27458 a(g6 V\u000a p27459 tp27460 a(g100 VaMenu p27461 tp27462 a(g6 V tp27463 a(g48 Vadd: p27464 tp27465 a(g6 V tp27466 a(g100 Vpair p27467 tp27468 a(g6 V tp27469 a(g48 Vfirst p27470 tp27471 a(g6 V tp27472 a(g48 Vtarget: p27473 tp27474 a(g6 V tp27475 a(g87 Vself p27476 tp27477 a(g6 V tp27478 a(g48 Vselector: p27479 tp27480 a(g6 V tp27481 a(g100 Vpair p27482 tp27483 a(g6 V tp27484 a(g48 Vsecond p27485 tp27486 a(g6 V tp27487 a(g48 Vargument: p27488 tp27489 a(g6 V tp27490 a(g100 VanElement p27491 tp27492 a(g6 V] tp27493 a(g212 V. tp27494 a(g6 V\u000a\u000a p27495 tp27496 a(g100 VaMenu p27497 tp27498 a(g6 V tp27499 a(g48 VaddLine p27500 tp27501 a(g212 V. tp27502 a(g6 V\u000a p27503 tp27504 a(g100 VaMenu p27505 tp27506 a(g6 V p27507 tp27508 a(g48 Vadd: p27509 tp27510 a(g6 V tp27511 a(g236 V'show categories....' p27512 tp27513 a(g6 V tp27514 a(g48 Vtarget: p27515 tp27516 a(g6 V tp27517 a(g100 VaViewer p27518 tp27519 a(g6 V tp27520 a(g48 Vselector: p27521 tp27522 a(g6 V tp27523 a(g258 V#showCategoriesFor: p27524 tp27525 a(g6 V tp27526 a(g48 Vargument: p27527 tp27528 a(g6 V tp27529 a(g100 VanElement p27530 tp27531 a(g212 V. tp27532 a(g6 V\u000a p27533 tp27534 a(g100 VaMenu p27535 tp27536 a(g6 V tp27537 a(g48 Vitems p27538 tp27539 a(g6 V tp27540 a(g48 Vsize p27541 tp27542 a(g6 V tp27543 a(g48 V== p27544 tp27545 a(g6 V tp27546 a(g223 V0 tp27547 a(g6 V tp27548 a(g84 VifTrue: p27549 tp27550 a(g6 V p27551 tp27552 a(g24 V"won't happen at the moment a/c the above" p27553 tp27554 a(g6 V\u000a p27555 tp27556 a(g6 V[ tp27557 a(g6 V tp27558 a(g100 VaMenu p27559 tp27560 a(g6 V tp27561 a(g48 Vadd: p27562 tp27563 a(g6 V tp27564 a(g236 V'ok' p27565 tp27566 a(g6 V tp27567 a(g48 Vaction: p27568 tp27569 a(g6 V tp27570 a(g87 Vnil p27571 tp27572 a(g6 V] tp27573 a(g212 V. tp27574 a(g6 V p27575 tp27576 a(g24 V"in case it was a slot -- weird, transitional" p27577 tp27578 a(g6 V\u000a\u000a p27579 tp27580 a(g100 VaMenu p27581 tp27582 a(g6 V tp27583 a(g48 VaddTitle: p27584 tp27585 a(g6 V tp27586 a(g100 VanElement p27587 tp27588 a(g6 V tp27589 a(g48 VasString p27590 tp27591 a(g48 V, tp27592 a(g6 V tp27593 a(g236 V' (' p27594 tp27595 a(g48 V, tp27596 a(g6 V tp27597 a(g100 VelementType p27598 tp27599 a(g48 V, tp27600 a(g6 V tp27601 a(g236 V')' p27602 tp27603 a(g212 V. tp27604 a(g6 V\u000a\u000a p27605 tp27606 a(g100 VaMenu p27607 tp27608 a(g6 V tp27609 a(g48 VpopUpInWorld: p27610 tp27611 a(g6 V tp27612 a(g87 Vself p27613 tp27614 a(g6 V tp27615 a(g48 VcurrentWorld p27616 tp27617 a(g212 V. tp27618 a(g6 V\u000a p27619 tp27620 a(g138 V! ! p27621 tp27622 a(g6 V\u000a\u000a p27623 tp27624 a(g138 V! tp27625 a(g133 VObject p27626 tp27627 a(g138 V methodsFor: p27628 tp27629 a(g236 V'viewer' p27630 tp27631 a(g138 V stamp: 'sw 9/26/2001 11:58'! p27632 tp27633 a(g6 V\u000a tp27634 a(g48 VinitialTypeForSlotNamed: p27635 tp27636 a(g6 V tp27637 a(g100 VaName p27638 tp27639 a(g6 V\u000a p27640 tp27641 a(g24 V"Answer the initial type to be ascribed to the given instance variable" p27642 tp27643 a(g6 V\u000a\u000a p27644 tp27645 a(g353 V^ tp27646 a(g6 V tp27647 a(g258 V#Object p27648 tp27649 a(g138 V! ! p27650 tp27651 a(g6 V\u000a\u000a p27652 tp27653 a(g138 V! tp27654 a(g133 VObject p27655 tp27656 a(g138 V methodsFor: p27657 tp27658 a(g236 V'viewer' p27659 tp27660 a(g138 V stamp: 'ar 5/26/2001 16:13'! p27661 tp27662 a(g6 V\u000a tp27663 a(g48 VisPlayerLike p27664 tp27665 a(g6 V\u000a p27666 tp27667 a(g24 V"Return true if the receiver is a player-like object" p27668 tp27669 a(g6 V\u000a p27670 tp27671 a(g353 V^ tp27672 a(g87 Vfalse p27673 tp27674 a(g138 V! ! p27675 tp27676 a(g6 V\u000a\u000a p27677 tp27678 a(g138 V! tp27679 a(g133 VObject p27680 tp27681 a(g138 V methodsFor: p27682 tp27683 a(g236 V'viewer' p27684 tp27685 a(g138 V stamp: 'nk 9/11/2004 16:53'! p27686 tp27687 a(g6 V\u000a tp27688 a(g48 VmethodInterfacesInPresentationOrderFrom: p27689 tp27690 a(g6 V tp27691 a(g100 VinterfaceList p27692 tp27693 a(g6 V tp27694 a(g48 VforCategory: p27695 tp27696 a(g6 V tp27697 a(g100 VaCategory p27698 tp27699 a(g6 V \u000a p27700 tp27701 a(g24 V"Answer the interface list sorted in desired presentation order, using a \u000a static master-ordering list, q.v. The category parameter allows an \u000a escape in case one wants to apply different order strategies in different \u000a categories, but for now a single master-priority-ordering is used -- see \u000a the comment in method EToyVocabulary.masterOrderingOfPhraseSymbols" p27702 tp27703 a(g6 V\u000a\u000a p27704 tp27705 a(g353 V| tp27706 a(g100 V masterOrder ordered unordered index p27707 tp27708 a(g353 V| tp27709 a(g6 V\u000a p27710 tp27711 a(g100 VmasterOrder p27712 tp27713 a(g6 V tp27714 a(g353 V:= p27715 tp27716 a(g6 V tp27717 a(g133 VVocabulary p27718 tp27719 a(g6 V tp27720 a(g48 VeToyVocabulary p27721 tp27722 a(g6 V tp27723 a(g48 VmasterOrderingOfPhraseSymbols p27724 tp27725 a(g212 V. tp27726 a(g6 V\u000a p27727 tp27728 a(g100 Vordered p27729 tp27730 a(g6 V tp27731 a(g353 V:= p27732 tp27733 a(g6 V tp27734 a(g133 VSortedCollection p27735 tp27736 a(g6 V tp27737 a(g48 VsortBlock: p27738 tp27739 a(g6 V tp27740 a(g6 V[ tp27741 a(g353 V: tp27742 a(g100 Va tp27743 a(g6 V tp27744 a(g353 V: tp27745 a(g100 Vb tp27746 a(g6 V tp27747 a(g353 V| tp27748 a(g6 V tp27749 a(g100 Va tp27750 a(g6 V tp27751 a(g48 Vkey p27752 tp27753 a(g6 V tp27754 a(g48 V< tp27755 a(g6 V tp27756 a(g100 Vb tp27757 a(g6 V tp27758 a(g48 Vkey p27759 tp27760 a(g6 V] tp27761 a(g212 V. tp27762 a(g6 V\u000a p27763 tp27764 a(g100 Vunordered p27765 tp27766 a(g6 V tp27767 a(g353 V:= p27768 tp27769 a(g6 V tp27770 a(g133 VSortedCollection p27771 tp27772 a(g6 V tp27773 a(g48 VsortBlock: p27774 tp27775 a(g6 V tp27776 a(g6 V[ tp27777 a(g353 V: tp27778 a(g100 Va tp27779 a(g6 V tp27780 a(g353 V: tp27781 a(g100 Vb tp27782 a(g6 V tp27783 a(g353 V| tp27784 a(g6 V tp27785 a(g100 Va tp27786 a(g6 V tp27787 a(g48 Vwording p27788 tp27789 a(g6 V tp27790 a(g48 V< tp27791 a(g6 V tp27792 a(g100 Vb tp27793 a(g6 V tp27794 a(g48 Vwording p27795 tp27796 a(g6 V] tp27797 a(g212 V. tp27798 a(g6 V\u000a\u000a p27799 tp27800 a(g100 VinterfaceList p27801 tp27802 a(g6 V tp27803 a(g48 Vdo: p27804 tp27805 a(g6 V tp27806 a(g6 V[ tp27807 a(g353 V: tp27808 a(g100 Vinterface p27809 tp27810 a(g6 V tp27811 a(g353 V| tp27812 a(g6 V \u000a p27813 tp27814 a(g100 Vindex p27815 tp27816 a(g6 V tp27817 a(g353 V:= p27818 tp27819 a(g6 V tp27820 a(g100 VmasterOrder p27821 tp27822 a(g6 V tp27823 a(g48 VindexOf: p27824 tp27825 a(g6 V tp27826 a(g100 Vinterface p27827 tp27828 a(g6 V tp27829 a(g48 VelementSymbol p27830 tp27831 a(g212 V. tp27832 a(g6 V\u000a p27833 tp27834 a(g100 Vindex p27835 tp27836 a(g6 V tp27837 a(g48 VisZero p27838 tp27839 a(g6 V\u000a p27840 tp27841 a(g84 VifTrue: p27842 tp27843 a(g6 V tp27844 a(g6 V[ tp27845 a(g6 V tp27846 a(g100 Vunordered p27847 tp27848 a(g6 V tp27849 a(g48 Vadd: p27850 tp27851 a(g6 V tp27852 a(g100 Vinterface p27853 tp27854 a(g6 V] tp27855 a(g6 V\u000a p27856 tp27857 a(g84 VifFalse: p27858 tp27859 a(g6 V tp27860 a(g6 V[ tp27861 a(g6 V tp27862 a(g100 Vordered p27863 tp27864 a(g6 V tp27865 a(g48 Vadd: p27866 tp27867 a(g6 V tp27868 a(g100 Vindex p27869 tp27870 a(g6 V tp27871 a(g48 V-> p27872 tp27873 a(g6 V tp27874 a(g100 Vinterface p27875 tp27876 a(g6 V] tp27877 a(g6 V] tp27878 a(g212 V. tp27879 a(g6 V\u000a\u000a p27880 tp27881 a(g353 V^ tp27882 a(g6 V tp27883 a(g133 VArray p27884 tp27885 a(g6 V\u000a p27886 tp27887 a(g48 VstreamContents: p27888 tp27889 a(g6 V tp27890 a(g6 V[ tp27891 a(g353 V: tp27892 a(g100 Vstream p27893 tp27894 a(g6 V tp27895 a(g353 V| tp27896 a(g6 V \u000a p27897 tp27898 a(g100 Vordered p27899 tp27900 a(g6 V tp27901 a(g48 Vdo: p27902 tp27903 a(g6 V tp27904 a(g6 V[ tp27905 a(g353 V: tp27906 a(g100 Vassoc p27907 tp27908 a(g6 V tp27909 a(g353 V| tp27910 a(g6 V tp27911 a(g100 Vstream p27912 tp27913 a(g6 V tp27914 a(g48 VnextPut: p27915 tp27916 a(g6 V tp27917 a(g100 Vassoc p27918 tp27919 a(g6 V tp27920 a(g48 Vvalue p27921 tp27922 a(g6 V] tp27923 a(g212 V. tp27924 a(g6 V\u000a p27925 tp27926 a(g100 Vstream p27927 tp27928 a(g6 V tp27929 a(g48 VnextPutAll: p27930 tp27931 a(g6 V tp27932 a(g100 Vunordered p27933 tp27934 a(g6 V] tp27935 a(g138 V! ! p27936 tp27937 a(g6 V\u000a\u000a p27938 tp27939 a(g138 V! tp27940 a(g133 VObject p27941 tp27942 a(g138 V methodsFor: p27943 tp27944 a(g236 V'viewer' p27945 tp27946 a(g138 V stamp: 'sw 10/24/2000 11:36'! p27947 tp27948 a(g6 V\u000a tp27949 a(g48 VnewScriptorAround: p27950 tp27951 a(g6 V tp27952 a(g100 VaPhraseTileMorph p27953 tp27954 a(g6 V\u000a p27955 tp27956 a(g24 V"Sprout a scriptor around aPhraseTileMorph, thus making a new script. This is where generalized scriptors will be threaded in" p27957 tp27958 a(g6 V\u000a\u000a p27959 tp27960 a(g353 V^ tp27961 a(g6 V tp27962 a(g87 Vnil p27963 tp27964 a(g138 V! ! p27965 tp27966 a(g6 V\u000a\u000a p27967 tp27968 a(g138 V! tp27969 a(g133 VObject p27970 tp27971 a(g138 V methodsFor: p27972 tp27973 a(g236 V'viewer' p27974 tp27975 a(g138 V stamp: 'sw 10/25/2000 17:42'! p27976 tp27977 a(g6 V\u000a tp27978 a(g48 VofferViewerMenuForEvt: p27979 tp27980 a(g6 V tp27981 a(g100 VanEvent p27982 tp27983 a(g6 V tp27984 a(g48 Vmorph: p27985 tp27986 a(g6 V tp27987 a(g100 VaMorph p27988 tp27989 a(g6 V\u000a p27990 tp27991 a(g24 V"Offer the viewer's primary menu to the user. aMorph is some morph within the viewer itself, the one within which a mousedown triggered the need for this menu, and it is used only to retrieve the Viewer itself" p27992 tp27993 a(g6 V\u000a\u000a p27994 tp27995 a(g87 Vself p27996 tp27997 a(g6 V tp27998 a(g48 VofferViewerMenuFor: p27999 tp28000 a(g6 V tp28001 a(g6 V( tp28002 a(g100 VaMorph p28003 tp28004 a(g6 V tp28005 a(g48 VownerThatIsA: p28006 tp28007 a(g6 V tp28008 a(g133 VStandardViewer p28009 tp28010 a(g6 V) tp28011 a(g6 V tp28012 a(g48 Vevent: p28013 tp28014 a(g6 V tp28015 a(g100 VanEvent p28016 tp28017 a(g138 V! ! p28018 tp28019 a(g6 V\u000a\u000a p28020 tp28021 a(g138 V! tp28022 a(g133 VObject p28023 tp28024 a(g138 V methodsFor: p28025 tp28026 a(g236 V'viewer' p28027 tp28028 a(g138 V stamp: 'sw 8/11/2002 02:03'! p28029 tp28030 a(g6 V\u000a tp28031 a(g48 VofferViewerMenuFor: p28032 tp28033 a(g6 V tp28034 a(g100 VaViewer p28035 tp28036 a(g6 V tp28037 a(g48 Vevent: p28038 tp28039 a(g6 V tp28040 a(g100 Vevt p28041 tp28042 a(g6 V\u000a p28043 tp28044 a(g24 V"Offer the primary Viewer menu to the user. Copied up from Player code, but most of the functions suggested here don't work for non-Player objects, many aren't even defined, some relate to exploratory sw work not yet reflected in the current corpus. We are early in the life cycle of this method..." p28045 tp28046 a(g6 V\u000a\u000a p28047 tp28048 a(g353 V| tp28049 a(g100 V aMenu p28050 tp28051 a(g353 V| tp28052 a(g6 V\u000a p28053 tp28054 a(g100 VaMenu p28055 tp28056 a(g6 V tp28057 a(g353 V_ tp28058 a(g6 V tp28059 a(g133 VMenuMorph p28060 tp28061 a(g6 V tp28062 a(g84 Vnew p28063 tp28064 a(g6 V tp28065 a(g48 VdefaultTarget: p28066 tp28067 a(g6 V tp28068 a(g87 Vself p28069 tp28070 a(g212 V. tp28071 a(g6 V\u000a p28072 tp28073 a(g100 VaMenu p28074 tp28075 a(g6 V tp28076 a(g48 VaddStayUpItem p28077 tp28078 a(g212 V. tp28079 a(g6 V\u000a p28080 tp28081 a(g100 VaMenu p28082 tp28083 a(g6 V tp28084 a(g48 Vtitle: p28085 tp28086 a(g6 V tp28087 a(g236 V'**CAUTION -- UNDER CONSTRUCTION!!**\u000aMany things may not work!!\u000a' p28088 tp28089 a(g48 V, tp28090 a(g6 V tp28091 a(g87 Vself p28092 tp28093 a(g6 V tp28094 a(g48 VnameForViewer p28095 tp28096 a(g212 V. tp28097 a(g6 V\u000a p28098 tp28099 a(g6 V( tp28100 a(g100 VaViewer p28101 tp28102 a(g6 V tp28103 a(g48 VaffordsUniclass p28104 tp28105 a(g6 V tp28106 a(g48 Vand: p28107 tp28108 a(g6 V tp28109 a(g6 V[ tp28110 a(g6 V tp28111 a(g87 Vself p28112 tp28113 a(g6 V tp28114 a(g48 VbelongsToUniClass p28115 tp28116 a(g6 V tp28117 a(g48 Vnot p28118 tp28119 a(g6 V] tp28120 a(g6 V) tp28121 a(g6 V tp28122 a(g84 VifTrue: p28123 tp28124 a(g6 V\u000a p28125 tp28126 a(g6 V[ tp28127 a(g6 V tp28128 a(g100 VaMenu p28129 tp28130 a(g6 V tp28131 a(g48 Vadd: p28132 tp28133 a(g6 V tp28134 a(g236 V'give me a Uniclass' p28135 tp28136 a(g6 V tp28137 a(g48 Vaction: p28138 tp28139 a(g6 V tp28140 a(g258 V#assureUniClass p28141 tp28142 a(g212 V. tp28143 a(g6 V\u000a p28144 tp28145 a(g100 VaMenu p28146 tp28147 a(g6 V tp28148 a(g48 VaddLine p28149 tp28150 a(g6 V] tp28151 a(g212 V. tp28152 a(g6 V\u000a p28153 tp28154 a(g100 VaMenu p28155 tp28156 a(g6 V tp28157 a(g48 Vadd: p28158 tp28159 a(g6 V tp28160 a(g236 V'choose vocabulary...' p28161 tp28162 a(g6 V tp28163 a(g48 Vtarget: p28164 tp28165 a(g6 V tp28166 a(g100 VaViewer p28167 tp28168 a(g6 V tp28169 a(g48 Vaction: p28170 tp28171 a(g6 V tp28172 a(g258 V#chooseVocabulary p28173 tp28174 a(g212 V. tp28175 a(g6 V\u000a p28176 tp28177 a(g100 VaMenu p28178 tp28179 a(g6 V tp28180 a(g48 Vadd: p28181 tp28182 a(g6 V tp28183 a(g236 V'choose limit class...' p28184 tp28185 a(g6 V tp28186 a(g48 Vtarget: p28187 tp28188 a(g6 V tp28189 a(g100 VaViewer p28190 tp28191 a(g6 V tp28192 a(g48 Vaction: p28193 tp28194 a(g6 V tp28195 a(g258 V#chooseLimitClass p28196 tp28197 a(g212 V. tp28198 a(g6 V\u000a p28199 tp28200 a(g100 VaMenu p28201 tp28202 a(g6 V tp28203 a(g48 Vadd: p28204 tp28205 a(g6 V tp28206 a(g236 V'add search pane' p28207 tp28208 a(g6 V tp28209 a(g48 Vtarget: p28210 tp28211 a(g6 V tp28212 a(g100 VaViewer p28213 tp28214 a(g6 V tp28215 a(g48 Vaction: p28216 tp28217 a(g6 V tp28218 a(g258 V#addSearchPane p28219 tp28220 a(g212 V. tp28221 a(g6 V\u000a p28222 tp28223 a(g100 VaMenu p28224 tp28225 a(g6 V tp28226 a(g48 VballoonTextForLastItem: p28227 tp28228 a(g6 V tp28229 a(g236 V'Specify which class should be the most generic one to have its methods shown in this Viewer' p28230 tp28231 a(g212 V. tp28232 a(g6 V\u000a p28233 tp28234 a(g100 VaMenu p28235 tp28236 a(g6 V tp28237 a(g48 VaddLine p28238 tp28239 a(g212 V. tp28240 a(g6 V\u000a\u000a p28241 tp28242 a(g87 Vself p28243 tp28244 a(g6 V tp28245 a(g48 VbelongsToUniClass p28246 tp28247 a(g6 V tp28248 a(g84 VifTrue: p28249 tp28250 a(g6 V\u000a p28251 tp28252 a(g6 V[ tp28253 a(g6 V tp28254 a(g100 VaMenu p28255 tp28256 a(g6 V tp28257 a(g48 Vadd: p28258 tp28259 a(g6 V tp28260 a(g236 V'add a new instance variable' p28261 tp28262 a(g6 V tp28263 a(g48 Vtarget: p28264 tp28265 a(g6 V tp28266 a(g87 Vself p28267 tp28268 a(g6 V tp28269 a(g48 Vselector: p28270 tp28271 a(g6 V tp28272 a(g258 V#addInstanceVariableIn: p28273 tp28274 a(g6 V tp28275 a(g48 Vargument: p28276 tp28277 a(g6 V tp28278 a(g100 VaViewer p28279 tp28280 a(g212 V. tp28281 a(g6 V\u000a p28282 tp28283 a(g100 VaMenu p28284 tp28285 a(g6 V tp28286 a(g48 Vadd: p28287 tp28288 a(g6 V tp28289 a(g236 V'add a new script' p28290 tp28291 a(g6 V tp28292 a(g48 Vtarget: p28293 tp28294 a(g6 V tp28295 a(g100 VaViewer p28296 tp28297 a(g6 V tp28298 a(g48 Vselector: p28299 tp28300 a(g6 V tp28301 a(g258 V#newPermanentScriptIn: p28302 tp28303 a(g6 V tp28304 a(g48 Vargument: p28305 tp28306 a(g6 V tp28307 a(g100 VaViewer p28308 tp28309 a(g212 V. tp28310 a(g6 V\u000a p28311 tp28312 a(g100 VaMenu p28313 tp28314 a(g6 V tp28315 a(g48 VaddLine p28316 tp28317 a(g212 V. tp28318 a(g6 V\u000a p28319 tp28320 a(g100 VaMenu p28321 tp28322 a(g6 V tp28323 a(g48 Vadd: p28324 tp28325 a(g6 V tp28326 a(g236 V'make my class be first-class' p28327 tp28328 a(g6 V tp28329 a(g48 Vtarget: p28330 tp28331 a(g6 V tp28332 a(g87 Vself p28333 tp28334 a(g6 V tp28335 a(g48 Vselector: p28336 tp28337 a(g6 V tp28338 a(g258 V#makeFirstClassClassIn: p28339 tp28340 a(g6 V tp28341 a(g48 Vargument: p28342 tp28343 a(g6 V tp28344 a(g100 VaViewer p28345 tp28346 a(g212 V. tp28347 a(g6 V\u000a p28348 tp28349 a(g100 VaMenu p28350 tp28351 a(g6 V tp28352 a(g48 Vadd: p28353 tp28354 a(g6 V tp28355 a(g236 V'move my changes up to my superclass' p28356 tp28357 a(g6 V tp28358 a(g48 Vtarget: p28359 tp28360 a(g6 V tp28361 a(g87 Vself p28362 tp28363 a(g6 V tp28364 a(g48 Vaction: p28365 tp28366 a(g6 V tp28367 a(g258 V#promoteChangesToSuperclass p28368 tp28369 a(g212 V. tp28370 a(g6 V\u000a p28371 tp28372 a(g100 VaMenu p28373 tp28374 a(g6 V tp28375 a(g48 VaddLine p28376 tp28377 a(g6 V] tp28378 a(g212 V. tp28379 a(g6 V\u000a\u000a p28380 tp28381 a(g100 VaMenu p28382 tp28383 a(g6 V tp28384 a(g48 Vadd: p28385 tp28386 a(g6 V tp28387 a(g236 V'tear off a tile' p28388 tp28389 a(g6 V tp28390 a(g48 Vtarget: p28391 tp28392 a(g6 V tp28393 a(g87 Vself p28394 tp28395 a(g6 V tp28396 a(g48 Vselector: p28397 tp28398 a(g6 V tp28399 a(g258 V#launchTileToRefer p28400 tp28401 a(g212 V. tp28402 a(g6 V\u000a p28403 tp28404 a(g100 VaMenu p28405 tp28406 a(g6 V tp28407 a(g48 VaddLine p28408 tp28409 a(g212 V. tp28410 a(g6 V\u000a\u000a p28411 tp28412 a(g100 VaMenu p28413 tp28414 a(g6 V tp28415 a(g48 Vadd: p28416 tp28417 a(g6 V tp28418 a(g236 V'inspect me' p28419 tp28420 a(g6 V tp28421 a(g48 Vtarget: p28422 tp28423 a(g6 V tp28424 a(g87 Vself p28425 tp28426 a(g6 V tp28427 a(g48 Vselector: p28428 tp28429 a(g6 V tp28430 a(g258 V#inspect p28431 tp28432 a(g212 V. tp28433 a(g6 V\u000a p28434 tp28435 a(g100 VaMenu p28436 tp28437 a(g6 V tp28438 a(g48 Vadd: p28439 tp28440 a(g6 V tp28441 a(g236 V'inspect my class' p28442 tp28443 a(g6 V tp28444 a(g48 Vtarget: p28445 tp28446 a(g6 V tp28447 a(g87 Vself p28448 tp28449 a(g6 V tp28450 a(g48 Vclass p28451 tp28452 a(g6 V tp28453 a(g48 Vaction: p28454 tp28455 a(g6 V tp28456 a(g258 V#inspect p28457 tp28458 a(g212 V. tp28459 a(g6 V\u000a p28460 tp28461 a(g100 VaMenu p28462 tp28463 a(g6 V tp28464 a(g48 VaddLine p28465 tp28466 a(g212 V. tp28467 a(g6 V\u000a\u000a p28468 tp28469 a(g100 VaMenu p28470 tp28471 a(g6 V tp28472 a(g48 Vadd: p28473 tp28474 a(g6 V tp28475 a(g236 V'browse vocabulary' p28476 tp28477 a(g6 V tp28478 a(g48 Vaction: p28479 tp28480 a(g6 V tp28481 a(g258 V#haveFullProtocolBrowsed p28482 tp28483 a(g212 V. tp28484 a(g6 V\u000a p28485 tp28486 a(g100 VaMenu p28487 tp28488 a(g6 V tp28489 a(g48 Vadd: p28490 tp28491 a(g6 V tp28492 a(g236 V'inspect this Viewer' p28493 tp28494 a(g6 V tp28495 a(g48 Vtarget: p28496 tp28497 a(g6 V tp28498 a(g100 VaViewer p28499 tp28500 a(g6 V tp28501 a(g48 Vaction: p28502 tp28503 a(g6 V tp28504 a(g258 V#inspect p28505 tp28506 a(g212 V. tp28507 a(g6 V\u000a\u000a p28508 tp28509 a(g100 VaMenu p28510 tp28511 a(g6 V tp28512 a(g48 VpopUpEvent: p28513 tp28514 a(g6 V tp28515 a(g100 Vevt p28516 tp28517 a(g6 V tp28518 a(g48 Vin: p28519 tp28520 a(g6 V tp28521 a(g100 VaViewer p28522 tp28523 a(g6 V tp28524 a(g48 VcurrentWorld p28525 tp28526 a(g6 V\u000a\u000a p28527 tp28528 a(g24 V"\u000a aMenu add: 'references to me' target: aViewer action: #browseReferencesToObject.\u000a aMenu add: 'toggle scratch pane' target: aViewer selector: #toggleScratchPane.\u000a aMenu add: 'make a nascent script for me' target: aViewer selector: #makeNascentScript.\u000a aMenu add: 'rename me' target: aViewer selector: #chooseNewNameForReference.\u000a aMenu add: 'browse full' action: #browseOwnClassFull.\u000a aMenu add: 'browse hierarchy' action: #browseOwnClassHierarchy.\u000a aMenu add: 'set user level...' target: aViewer action: #setUserLevel.\u000a aMenu add: 'browse sub-protocol' action: #browseOwnClassSubProtocol.\u000a aMenu addLine.\u000a\u000a" p28529 tp28530 a(g138 V! ! p28531 tp28532 a(g6 V\u000a\u000a p28533 tp28534 a(g138 V! tp28535 a(g133 VObject p28536 tp28537 a(g138 V methodsFor: p28538 tp28539 a(g236 V'viewer' p28540 tp28541 a(g138 V stamp: 'sw 1/22/2001 15:20'! p28542 tp28543 a(g6 V\u000a tp28544 a(g48 VrenameScript: p28545 tp28546 a(g6 V tp28547 a(g100 VoldSelector p28548 tp28549 a(g6 V\u000a p28550 tp28551 a(g24 V"prompt the user for a new selector and apply it. Presently only works for players" p28552 tp28553 a(g6 V\u000a\u000a p28554 tp28555 a(g87 Vself p28556 tp28557 a(g6 V tp28558 a(g48 VnotYetImplemented p28559 tp28560 a(g138 V! ! p28561 tp28562 a(g6 V\u000a\u000a p28563 tp28564 a(g138 V! tp28565 a(g133 VObject p28566 tp28567 a(g138 V methodsFor: p28568 tp28569 a(g236 V'viewer' p28570 tp28571 a(g138 V stamp: 'sw 8/10/2004 11:53'! p28572 tp28573 a(g6 V\u000a tp28574 a(g48 VtilePhrasesForCategory: p28575 tp28576 a(g6 V tp28577 a(g100 VaCategorySymbol p28578 tp28579 a(g6 V tp28580 a(g48 VinViewer: p28581 tp28582 a(g6 V tp28583 a(g100 VaViewer p28584 tp28585 a(g6 V\u000a p28586 tp28587 a(g24 V"Return a collection of phrases for the category." p28588 tp28589 a(g6 V\u000a\u000a p28590 tp28591 a(g353 V| tp28592 a(g100 V interfaces p28593 tp28594 a(g353 V| tp28595 a(g6 V\u000a p28596 tp28597 a(g100 Vinterfaces p28598 tp28599 a(g6 V tp28600 a(g353 V_ tp28601 a(g6 V tp28602 a(g87 Vself p28603 tp28604 a(g6 V tp28605 a(g48 VmethodInterfacesForCategory: p28606 tp28607 a(g6 V tp28608 a(g100 VaCategorySymbol p28609 tp28610 a(g6 V tp28611 a(g48 VinVocabulary: p28612 tp28613 a(g6 V tp28614 a(g100 VaViewer p28615 tp28616 a(g6 V tp28617 a(g48 VcurrentVocabulary p28618 tp28619 a(g6 V tp28620 a(g48 VlimitClass: p28621 tp28622 a(g6 V tp28623 a(g100 VaViewer p28624 tp28625 a(g6 V tp28626 a(g48 VlimitClass p28627 tp28628 a(g212 V. tp28629 a(g6 V\u000a p28630 tp28631 a(g100 Vinterfaces p28632 tp28633 a(g6 V tp28634 a(g353 V_ tp28635 a(g6 V tp28636 a(g87 Vself p28637 tp28638 a(g6 V tp28639 a(g48 VmethodInterfacesInPresentationOrderFrom: p28640 tp28641 a(g6 V tp28642 a(g100 Vinterfaces p28643 tp28644 a(g6 V tp28645 a(g48 VforCategory: p28646 tp28647 a(g6 V tp28648 a(g100 VaCategorySymbol p28649 tp28650 a(g212 V. tp28651 a(g6 V\u000a p28652 tp28653 a(g353 V^ tp28654 a(g6 V tp28655 a(g87 Vself p28656 tp28657 a(g6 V tp28658 a(g48 VtilePhrasesForMethodInterfaces: p28659 tp28660 a(g6 V tp28661 a(g100 Vinterfaces p28662 tp28663 a(g6 V tp28664 a(g48 VinViewer: p28665 tp28666 a(g6 V tp28667 a(g100 VaViewer p28668 tp28669 a(g138 V! ! p28670 tp28671 a(g6 V\u000a\u000a p28672 tp28673 a(g138 V! tp28674 a(g133 VObject p28675 tp28676 a(g138 V methodsFor: p28677 tp28678 a(g236 V'viewer' p28679 tp28680 a(g138 V stamp: 'sw 8/10/2004 11:53'! p28681 tp28682 a(g6 V\u000a tp28683 a(g48 VtilePhrasesForMethodInterfaces: p28684 tp28685 a(g6 V tp28686 a(g100 VmethodInterfaceList p28687 tp28688 a(g6 V tp28689 a(g48 VinViewer: p28690 tp28691 a(g6 V tp28692 a(g100 VaViewer p28693 tp28694 a(g6 V\u000a p28695 tp28696 a(g24 V"Return a collection of ViewerLine objects corresponding to the method-interface list provided. The resulting list will be in the same order as the incoming list, but may be smaller if the viewer's vocbulary suppresses some of the methods, or if, in classic tiles mode, the selector requires more arguments than can be handled." p28697 tp28698 a(g6 V\u000a\u000a p28699 tp28700 a(g353 V| tp28701 a(g100 V toSuppress interfaces resultType itsSelector p28702 tp28703 a(g353 V| tp28704 a(g6 V\u000a p28705 tp28706 a(g100 VtoSuppress p28707 tp28708 a(g6 V tp28709 a(g353 V_ tp28710 a(g6 V tp28711 a(g100 VaViewer p28712 tp28713 a(g6 V tp28714 a(g48 VcurrentVocabulary p28715 tp28716 a(g6 V tp28717 a(g48 VphraseSymbolsToSuppress p28718 tp28719 a(g212 V. tp28720 a(g6 V\u000a p28721 tp28722 a(g100 Vinterfaces p28723 tp28724 a(g6 V tp28725 a(g353 V_ tp28726 a(g6 V tp28727 a(g100 VmethodInterfaceList p28728 tp28729 a(g6 V tp28730 a(g48 Vreject: p28731 tp28732 a(g6 V tp28733 a(g6 V[ tp28734 a(g353 V: tp28735 a(g100 Vint p28736 tp28737 a(g6 V tp28738 a(g353 V| tp28739 a(g6 V tp28740 a(g100 VtoSuppress p28741 tp28742 a(g6 V tp28743 a(g48 Vincludes: p28744 tp28745 a(g6 V tp28746 a(g100 Vint p28747 tp28748 a(g6 V tp28749 a(g48 Vselector p28750 tp28751 a(g6 V] tp28752 a(g212 V. tp28753 a(g6 V\u000a p28754 tp28755 a(g133 VPreferences p28756 tp28757 a(g6 V tp28758 a(g48 VuniversalTiles p28759 tp28760 a(g6 V tp28761 a(g84 VifFalse: p28762 tp28763 a(g6 V p28764 tp28765 a(g24 V"Classic tiles have their limitations..." p28766 tp28767 a(g6 V\u000a p28768 tp28769 a(g6 V[ tp28770 a(g6 V tp28771 a(g100 Vinterfaces p28772 tp28773 a(g6 V tp28774 a(g353 V_ tp28775 a(g6 V tp28776 a(g100 Vinterfaces p28777 tp28778 a(g6 V tp28779 a(g48 Vselect: p28780 tp28781 a(g6 V\u000a p28782 tp28783 a(g6 V[ tp28784 a(g353 V: tp28785 a(g100 Vint p28786 tp28787 a(g6 V tp28788 a(g353 V| tp28789 a(g6 V\u000a p28790 tp28791 a(g100 VitsSelector p28792 tp28793 a(g6 V tp28794 a(g353 V_ tp28795 a(g6 V tp28796 a(g100 Vint p28797 tp28798 a(g6 V tp28799 a(g48 Vselector p28800 tp28801 a(g212 V. tp28802 a(g6 V\u000a p28803 tp28804 a(g100 VitsSelector p28805 tp28806 a(g6 V tp28807 a(g48 VnumArgs p28808 tp28809 a(g6 V tp28810 a(g48 V< tp28811 a(g6 V tp28812 a(g223 V2 tp28813 a(g6 V tp28814 a(g48 Vor: p28815 tp28816 a(g6 V\u000a p28817 tp28818 a(g24 V"The lone two-arg loophole in classic tiles" p28819 tp28820 a(g6 V\u000a p28821 tp28822 a(g6 V[ tp28823 a(g6 V tp28824 a(g258 V#( p28825 tp28826 a(g258 Vcolor:sees: p28827 tp28828 a(g258 V) tp28829 a(g6 V tp28830 a(g48 Vincludes: p28831 tp28832 a(g6 V tp28833 a(g100 VitsSelector p28834 tp28835 a(g6 V] tp28836 a(g6 V] tp28837 a(g6 V] tp28838 a(g212 V. tp28839 a(g6 V\u000a\u000a p28840 tp28841 a(g353 V^ tp28842 a(g6 V tp28843 a(g100 Vinterfaces p28844 tp28845 a(g6 V tp28846 a(g48 Vcollect: p28847 tp28848 a(g6 V\u000a p28849 tp28850 a(g6 V[ tp28851 a(g353 V: tp28852 a(g100 VaMethodInterface p28853 tp28854 a(g6 V tp28855 a(g353 V| tp28856 a(g6 V\u000a p28857 tp28858 a(g6 V( tp28859 a(g6 V( tp28860 a(g100 VresultType p28861 tp28862 a(g6 V tp28863 a(g353 V_ tp28864 a(g6 V tp28865 a(g100 VaMethodInterface p28866 tp28867 a(g6 V tp28868 a(g48 VresultType p28869 tp28870 a(g6 V) tp28871 a(g6 V tp28872 a(g48 VnotNil p28873 tp28874 a(g6 V tp28875 a(g48 Vand: p28876 tp28877 a(g6 V tp28878 a(g6 V[ tp28879 a(g6 V tp28880 a(g100 VresultType p28881 tp28882 a(g6 V tp28883 a(g48 V~~ p28884 tp28885 a(g6 V tp28886 a(g258 V#unknown p28887 tp28888 a(g6 V] tp28889 a(g6 V) tp28890 a(g6 V \u000a p28891 tp28892 a(g84 VifTrue: p28893 tp28894 a(g6 V\u000a p28895 tp28896 a(g6 V[ tp28897 a(g6 V tp28898 a(g100 VaViewer p28899 tp28900 a(g6 V tp28901 a(g48 VphraseForVariableFrom: p28902 tp28903 a(g6 V tp28904 a(g100 VaMethodInterface p28905 tp28906 a(g6 V] tp28907 a(g6 V\u000a p28908 tp28909 a(g84 VifFalse: p28910 tp28911 a(g6 V\u000a p28912 tp28913 a(g6 V[ tp28914 a(g6 V tp28915 a(g100 VaViewer p28916 tp28917 a(g6 V tp28918 a(g48 VphraseForCommandFrom: p28919 tp28920 a(g6 V tp28921 a(g100 VaMethodInterface p28922 tp28923 a(g6 V] tp28924 a(g6 V] tp28925 a(g138 V! ! p28926 tp28927 a(g6 V\u000a\u000a p28928 tp28929 a(g138 V! tp28930 a(g133 VObject p28931 tp28932 a(g138 V methodsFor: p28933 tp28934 a(g236 V'viewer' p28935 tp28936 a(g138 V stamp: 'sw 8/10/2004 12:23'! p28937 tp28938 a(g6 V\u000a tp28939 a(g48 VtilePhrasesForSelectorList: p28940 tp28941 a(g6 V tp28942 a(g100 VaList p28943 tp28944 a(g6 V tp28945 a(g48 VinViewer: p28946 tp28947 a(g6 V tp28948 a(g100 VaViewer p28949 tp28950 a(g6 V\u000a p28951 tp28952 a(g24 V"Particular to the search facility in viewers. Answer a list, in appropriate order, of ViewerLine objects to put into the viewer." p28953 tp28954 a(g6 V\u000a\u000a p28955 tp28956 a(g353 V| tp28957 a(g100 V interfaces aVocab p28958 tp28959 a(g353 V| tp28960 a(g6 V\u000a p28961 tp28962 a(g100 VaVocab p28963 tp28964 a(g6 V tp28965 a(g353 V_ tp28966 a(g6 V tp28967 a(g100 VaViewer p28968 tp28969 a(g6 V tp28970 a(g48 VcurrentVocabulary p28971 tp28972 a(g212 V. tp28973 a(g6 V\u000a p28974 tp28975 a(g100 Vinterfaces p28976 tp28977 a(g6 V tp28978 a(g353 V_ tp28979 a(g6 V tp28980 a(g87 Vself p28981 tp28982 a(g6 V\u000a p28983 tp28984 a(g48 VmethodInterfacesInPresentationOrderFrom: p28985 tp28986 a(g6 V\u000a p28987 tp28988 a(g6 V( tp28989 a(g100 VaList p28990 tp28991 a(g6 V tp28992 a(g48 Vcollect: p28993 tp28994 a(g6 V tp28995 a(g6 V[ tp28996 a(g353 V: tp28997 a(g100 VaSel p28998 tp28999 a(g6 V tp29000 a(g353 V| tp29001 a(g6 V tp29002 a(g100 VaVocab p29003 tp29004 a(g6 V tp29005 a(g48 VmethodInterfaceForSelector: p29006 tp29007 a(g6 V tp29008 a(g100 VaSel p29009 tp29010 a(g6 V tp29011 a(g48 Vclass: p29012 tp29013 a(g6 V tp29014 a(g87 Vself p29015 tp29016 a(g6 V tp29017 a(g48 Vclass p29018 tp29019 a(g6 V] tp29020 a(g6 V) tp29021 a(g6 V\u000a p29022 tp29023 a(g48 VforCategory: p29024 tp29025 a(g6 V tp29026 a(g258 V#search p29027 tp29028 a(g212 V. tp29029 a(g6 V\u000a p29030 tp29031 a(g353 V^ tp29032 a(g6 V tp29033 a(g87 Vself p29034 tp29035 a(g6 V tp29036 a(g48 VtilePhrasesForMethodInterfaces: p29037 tp29038 a(g6 V tp29039 a(g100 Vinterfaces p29040 tp29041 a(g6 V tp29042 a(g48 VinViewer: p29043 tp29044 a(g6 V tp29045 a(g100 VaViewer p29046 tp29047 a(g138 V! ! p29048 tp29049 a(g6 V\u000a\u000a p29050 tp29051 a(g138 V! tp29052 a(g133 VObject p29053 tp29054 a(g138 V methodsFor: p29055 tp29056 a(g236 V'viewer' p29057 tp29058 a(g138 V stamp: 'sw 5/4/2001 04:51'! p29059 tp29060 a(g6 V\u000a tp29061 a(g48 VtileToRefer p29062 tp29063 a(g6 V\u000a p29064 tp29065 a(g24 V"Answer a reference tile that comprises an alias to me" p29066 tp29067 a(g6 V\u000a\u000a p29068 tp29069 a(g353 V^ tp29070 a(g6 V tp29071 a(g133 VTileMorph p29072 tp29073 a(g6 V tp29074 a(g84 Vnew p29075 tp29076 a(g6 V tp29077 a(g48 VsetToReferTo: p29078 tp29079 a(g6 V tp29080 a(g87 Vself p29081 tp29082 a(g138 V! ! p29083 tp29084 a(g6 V\u000a\u000a p29085 tp29086 a(g138 V! tp29087 a(g133 VObject p29088 tp29089 a(g138 V methodsFor: p29090 tp29091 a(g236 V'viewer' p29092 tp29093 a(g138 V stamp: 'sd 3/30/2005 22:04'! p29094 tp29095 a(g6 V\u000a tp29096 a(g48 VuniqueInstanceVariableNameLike: p29097 tp29098 a(g6 V tp29099 a(g100 VaString p29100 tp29101 a(g6 V tp29102 a(g48 Vexcluding: p29103 tp29104 a(g6 V tp29105 a(g100 VtakenNames p29106 tp29107 a(g6 V\u000a p29108 tp29109 a(g24 V"Answer a nice instance-variable name to be added to the receiver which resembles aString, making sure it does not coincide with any element in takenNames" p29110 tp29111 a(g6 V\u000a\u000a p29112 tp29113 a(g353 V| tp29114 a(g100 V okBase uniqueName usedNames p29115 tp29116 a(g353 V| tp29117 a(g6 V\u000a p29118 tp29119 a(g100 VusedNames p29120 tp29121 a(g6 V tp29122 a(g353 V_ tp29123 a(g6 V tp29124 a(g87 Vself p29125 tp29126 a(g6 V tp29127 a(g48 Vclass p29128 tp29129 a(g6 V tp29130 a(g48 VallInstVarNamesEverywhere p29131 tp29132 a(g212 V. tp29133 a(g6 V\u000a p29134 tp29135 a(g100 VusedNames p29136 tp29137 a(g6 V tp29138 a(g48 VremoveAllFoundIn: p29139 tp29140 a(g6 V tp29141 a(g87 Vself p29142 tp29143 a(g6 V tp29144 a(g48 Vclass p29145 tp29146 a(g6 V tp29147 a(g48 VinstVarNames p29148 tp29149 a(g212 V. tp29150 a(g6 V\u000a p29151 tp29152 a(g100 VusedNames p29153 tp29154 a(g6 V tp29155 a(g48 VaddAll: p29156 tp29157 a(g6 V tp29158 a(g100 VtakenNames p29159 tp29160 a(g212 V. tp29161 a(g6 V\u000a p29162 tp29163 a(g100 VokBase p29164 tp29165 a(g6 V tp29166 a(g353 V_ tp29167 a(g6 V tp29168 a(g133 VScanner p29169 tp29170 a(g6 V tp29171 a(g48 VwellFormedInstanceVariableNameFrom: p29172 tp29173 a(g6 V tp29174 a(g100 VaString p29175 tp29176 a(g212 V. tp29177 a(g6 V\u000a\u000a p29178 tp29179 a(g100 VuniqueName p29180 tp29181 a(g6 V tp29182 a(g353 V_ tp29183 a(g6 V tp29184 a(g133 VUtilities p29185 tp29186 a(g6 V tp29187 a(g48 VkeyLike: p29188 tp29189 a(g6 V tp29190 a(g100 VokBase p29191 tp29192 a(g6 V tp29193 a(g48 Vsatisfying: p29194 tp29195 a(g6 V \u000a p29196 tp29197 a(g6 V[ tp29198 a(g353 V: tp29199 a(g100 VaKey p29200 tp29201 a(g6 V tp29202 a(g353 V| tp29203 a(g6 V tp29204 a(g6 V( tp29205 a(g100 VusedNames p29206 tp29207 a(g6 V tp29208 a(g48 Vincludes: p29209 tp29210 a(g6 V tp29211 a(g100 VaKey p29212 tp29213 a(g6 V) tp29214 a(g6 V tp29215 a(g48 Vnot p29216 tp29217 a(g6 V] tp29218 a(g212 V. tp29219 a(g6 V\u000a\u000a p29220 tp29221 a(g353 V^ tp29222 a(g6 V tp29223 a(g100 VuniqueName p29224 tp29225 a(g138 V! ! p29226 tp29227 a(g6 V\u000a\u000a p29228 tp29229 a(g138 V! tp29230 a(g133 VObject p29231 tp29232 a(g138 V methodsFor: p29233 tp29234 a(g236 V'viewer' p29235 tp29236 a(g138 V stamp: 'sw 11/21/2001 15:16'! p29237 tp29238 a(g6 V\u000a tp29239 a(g48 VuniqueNameForReference p29240 tp29241 a(g6 V\u000a p29242 tp29243 a(g24 V"Answer a nice name by which the receiver can be referred to by other objects. At present this uses a global References dictionary to hold the database of references, but in due course this will need to acquire some locality" p29244 tp29245 a(g6 V\u000a\u000a p29246 tp29247 a(g353 V| tp29248 a(g100 V aName nameSym stem knownClassVars p29249 tp29250 a(g353 V| tp29251 a(g6 V\u000a p29252 tp29253 a(g6 V( tp29254 a(g100 VaName p29255 tp29256 a(g6 V tp29257 a(g353 V_ tp29258 a(g6 V tp29259 a(g87 Vself p29260 tp29261 a(g6 V tp29262 a(g48 VuniqueNameForReferenceOrNil p29263 tp29264 a(g6 V) tp29265 a(g6 V tp29266 a(g48 VifNotNil: p29267 tp29268 a(g6 V tp29269 a(g6 V[ tp29270 a(g6 V tp29271 a(g353 V^ tp29272 a(g6 V tp29273 a(g100 VaName p29274 tp29275 a(g6 V] tp29276 a(g212 V. tp29277 a(g6 V\u000a p29278 tp29279 a(g6 V( tp29280 a(g100 Vstem p29281 tp29282 a(g6 V tp29283 a(g353 V_ tp29284 a(g6 V tp29285 a(g87 Vself p29286 tp29287 a(g6 V tp29288 a(g48 VknownName p29289 tp29290 a(g6 V) tp29291 a(g6 V tp29292 a(g48 VifNil: p29293 tp29294 a(g6 V\u000a p29295 tp29296 a(g6 V[ tp29297 a(g6 V tp29298 a(g100 Vstem p29299 tp29300 a(g6 V tp29301 a(g353 V_ tp29302 a(g6 V tp29303 a(g87 Vself p29304 tp29305 a(g6 V tp29306 a(g48 VdefaultNameStemForInstances p29307 tp29308 a(g6 V tp29309 a(g48 VasString p29310 tp29311 a(g6 V] tp29312 a(g212 V. tp29313 a(g6 V\u000a p29314 tp29315 a(g100 Vstem p29316 tp29317 a(g6 V tp29318 a(g353 V_ tp29319 a(g6 V tp29320 a(g100 Vstem p29321 tp29322 a(g6 V tp29323 a(g48 Vselect: p29324 tp29325 a(g6 V tp29326 a(g6 V[ tp29327 a(g353 V: tp29328 a(g100 Vch p29329 tp29330 a(g6 V tp29331 a(g353 V| tp29332 a(g6 V tp29333 a(g100 Vch p29334 tp29335 a(g6 V tp29336 a(g48 VisLetter p29337 tp29338 a(g6 V tp29339 a(g48 Vor: p29340 tp29341 a(g6 V tp29342 a(g6 V[ tp29343 a(g6 V tp29344 a(g100 Vch p29345 tp29346 a(g6 V tp29347 a(g48 VisDigit p29348 tp29349 a(g6 V] tp29350 a(g6 V] tp29351 a(g212 V. tp29352 a(g6 V\u000a p29353 tp29354 a(g100 Vstem p29355 tp29356 a(g6 V tp29357 a(g48 Vsize p29358 tp29359 a(g6 V tp29360 a(g48 V== p29361 tp29362 a(g6 V tp29363 a(g223 V0 tp29364 a(g6 V tp29365 a(g84 VifTrue: p29366 tp29367 a(g6 V tp29368 a(g6 V[ tp29369 a(g6 V tp29370 a(g100 Vstem p29371 tp29372 a(g6 V tp29373 a(g353 V_ tp29374 a(g6 V tp29375 a(g236 V'A' p29376 tp29377 a(g6 V] tp29378 a(g212 V. tp29379 a(g6 V\u000a p29380 tp29381 a(g100 Vstem p29382 tp29383 a(g6 V tp29384 a(g48 Vfirst p29385 tp29386 a(g6 V tp29387 a(g48 VisLetter p29388 tp29389 a(g6 V tp29390 a(g84 VifFalse: p29391 tp29392 a(g6 V\u000a p29393 tp29394 a(g6 V[ tp29395 a(g6 V tp29396 a(g100 Vstem p29397 tp29398 a(g6 V tp29399 a(g353 V_ tp29400 a(g6 V tp29401 a(g236 V'A' p29402 tp29403 a(g48 V, tp29404 a(g6 V tp29405 a(g100 Vstem p29406 tp29407 a(g6 V] tp29408 a(g212 V. tp29409 a(g6 V\u000a p29410 tp29411 a(g100 Vstem p29412 tp29413 a(g6 V tp29414 a(g353 V_ tp29415 a(g6 V tp29416 a(g100 Vstem p29417 tp29418 a(g6 V tp29419 a(g48 Vcapitalized p29420 tp29421 a(g212 V. tp29422 a(g6 V\u000a p29423 tp29424 a(g100 VknownClassVars p29425 tp29426 a(g6 V tp29427 a(g353 V_ tp29428 a(g6 V tp29429 a(g133 VScriptingSystem p29430 tp29431 a(g6 V tp29432 a(g48 VallKnownClassVariableNames p29433 tp29434 a(g212 V. tp29435 a(g6 V\u000a p29436 tp29437 a(g100 VaName p29438 tp29439 a(g6 V tp29440 a(g353 V_ tp29441 a(g6 V tp29442 a(g133 VUtilities p29443 tp29444 a(g6 V tp29445 a(g48 VkeyLike: p29446 tp29447 a(g6 V p29448 tp29449 a(g100 Vstem p29450 tp29451 a(g6 V tp29452 a(g48 Vsatisfying: p29453 tp29454 a(g6 V\u000a p29455 tp29456 a(g6 V[ tp29457 a(g353 V: tp29458 a(g100 VjinaLake p29459 tp29460 a(g6 V tp29461 a(g353 V| tp29462 a(g6 V\u000a p29463 tp29464 a(g100 VnameSym p29465 tp29466 a(g6 V tp29467 a(g353 V_ tp29468 a(g6 V tp29469 a(g100 VjinaLake p29470 tp29471 a(g6 V tp29472 a(g48 VasSymbol p29473 tp29474 a(g212 V. tp29475 a(g6 V\u000a p29476 tp29477 a(g6 V( tp29478 a(g6 V( tp29479 a(g133 VReferences p29480 tp29481 a(g6 V tp29482 a(g48 VincludesKey: p29483 tp29484 a(g6 V p29485 tp29486 a(g100 VnameSym p29487 tp29488 a(g6 V) tp29489 a(g6 V tp29490 a(g48 Vnot p29491 tp29492 a(g6 V tp29493 a(g48 Vand: p29494 tp29495 a(g6 V\u000a p29496 tp29497 a(g6 V[ tp29498 a(g6 V tp29499 a(g6 V( tp29500 a(g133 VSmalltalk p29501 tp29502 a(g6 V tp29503 a(g48 VincludesKey: p29504 tp29505 a(g6 V tp29506 a(g100 VnameSym p29507 tp29508 a(g6 V) tp29509 a(g6 V tp29510 a(g48 Vnot p29511 tp29512 a(g6 V] tp29513 a(g6 V) tp29514 a(g6 V tp29515 a(g48 Vand: p29516 tp29517 a(g6 V\u000a p29518 tp29519 a(g6 V[ tp29520 a(g6 V tp29521 a(g6 V( tp29522 a(g100 VknownClassVars p29523 tp29524 a(g6 V tp29525 a(g48 Vincludes: p29526 tp29527 a(g6 V tp29528 a(g100 VnameSym p29529 tp29530 a(g6 V) tp29531 a(g6 V tp29532 a(g48 Vnot p29533 tp29534 a(g6 V] tp29535 a(g6 V] tp29536 a(g212 V. tp29537 a(g6 V\u000a\u000a p29538 tp29539 a(g133 VReferences p29540 tp29541 a(g6 V tp29542 a(g48 Vat: p29543 tp29544 a(g6 V tp29545 a(g6 V( tp29546 a(g100 VaName p29547 tp29548 a(g6 V tp29549 a(g353 V_ tp29550 a(g6 V tp29551 a(g100 VaName p29552 tp29553 a(g6 V tp29554 a(g48 VasSymbol p29555 tp29556 a(g6 V) tp29557 a(g6 V tp29558 a(g48 Vput: p29559 tp29560 a(g6 V tp29561 a(g87 Vself p29562 tp29563 a(g212 V. tp29564 a(g6 V\u000a p29565 tp29566 a(g353 V^ tp29567 a(g6 V tp29568 a(g100 VaName p29569 tp29570 a(g138 V! ! p29571 tp29572 a(g6 V\u000a\u000a p29573 tp29574 a(g138 V! tp29575 a(g133 VObject p29576 tp29577 a(g138 V methodsFor: p29578 tp29579 a(g236 V'viewer' p29580 tp29581 a(g138 V stamp: 'md 1/17/2006 17:58'! p29582 tp29583 a(g6 V\u000a tp29584 a(g48 VuniqueNameForReferenceFrom: p29585 tp29586 a(g6 V tp29587 a(g100 VproposedName p29588 tp29589 a(g6 V\u000a p29590 tp29591 a(g24 V"Answer a satisfactory symbol, similar to the proposedName but obeying the rules, to represent the receiver" p29592 tp29593 a(g6 V\u000a\u000a p29594 tp29595 a(g353 V| tp29596 a(g100 V aName nameSym stem okay p29597 tp29598 a(g353 V| tp29599 a(g6 V\u000a p29600 tp29601 a(g100 VproposedName p29602 tp29603 a(g6 V tp29604 a(g48 V= tp29605 a(g6 V tp29606 a(g87 Vself p29607 tp29608 a(g6 V tp29609 a(g48 VuniqueNameForReferenceOrNil p29610 tp29611 a(g6 V \u000a p29612 tp29613 a(g84 VifTrue: p29614 tp29615 a(g6 V tp29616 a(g6 V[ tp29617 a(g6 V tp29618 a(g353 V^ tp29619 a(g6 V tp29620 a(g100 VproposedName p29621 tp29622 a(g6 V] tp29623 a(g212 V. tp29624 a(g6 V p29625 tp29626 a(g24 V"No change" p29627 tp29628 a(g6 V\u000a\u000a p29629 tp29630 a(g100 Vstem p29631 tp29632 a(g6 V tp29633 a(g353 V_ tp29634 a(g6 V tp29635 a(g100 VproposedName p29636 tp29637 a(g6 V tp29638 a(g48 Vselect: p29639 tp29640 a(g6 V tp29641 a(g6 V[ tp29642 a(g353 V: tp29643 a(g100 Vch p29644 tp29645 a(g6 V tp29646 a(g353 V| tp29647 a(g6 V tp29648 a(g100 Vch p29649 tp29650 a(g6 V tp29651 a(g48 VisLetter p29652 tp29653 a(g6 V tp29654 a(g48 Vor: p29655 tp29656 a(g6 V tp29657 a(g6 V[ tp29658 a(g6 V tp29659 a(g100 Vch p29660 tp29661 a(g6 V tp29662 a(g48 VisDigit p29663 tp29664 a(g6 V] tp29665 a(g6 V] tp29666 a(g212 V. tp29667 a(g6 V\u000a p29668 tp29669 a(g100 Vstem p29670 tp29671 a(g6 V tp29672 a(g48 Vsize p29673 tp29674 a(g6 V tp29675 a(g48 V== p29676 tp29677 a(g6 V tp29678 a(g223 V0 tp29679 a(g6 V tp29680 a(g84 VifTrue: p29681 tp29682 a(g6 V tp29683 a(g6 V[ tp29684 a(g6 V tp29685 a(g100 Vstem p29686 tp29687 a(g6 V tp29688 a(g353 V_ tp29689 a(g6 V tp29690 a(g236 V'A' p29691 tp29692 a(g6 V] tp29693 a(g212 V. tp29694 a(g6 V\u000a p29695 tp29696 a(g100 Vstem p29697 tp29698 a(g6 V tp29699 a(g48 Vfirst p29700 tp29701 a(g6 V tp29702 a(g48 VisLetter p29703 tp29704 a(g6 V tp29705 a(g84 VifFalse: p29706 tp29707 a(g6 V\u000a p29708 tp29709 a(g6 V[ tp29710 a(g6 V tp29711 a(g100 Vstem p29712 tp29713 a(g6 V tp29714 a(g353 V_ tp29715 a(g6 V tp29716 a(g236 V'A' p29717 tp29718 a(g48 V, tp29719 a(g6 V tp29720 a(g100 Vstem p29721 tp29722 a(g6 V] tp29723 a(g212 V. tp29724 a(g6 V\u000a p29725 tp29726 a(g100 Vstem p29727 tp29728 a(g6 V tp29729 a(g353 V_ tp29730 a(g6 V tp29731 a(g100 Vstem p29732 tp29733 a(g6 V tp29734 a(g48 Vcapitalized p29735 tp29736 a(g212 V. tp29737 a(g6 V\u000a p29738 tp29739 a(g100 VaName p29740 tp29741 a(g6 V tp29742 a(g353 V_ tp29743 a(g6 V tp29744 a(g133 VUtilities p29745 tp29746 a(g6 V tp29747 a(g48 VkeyLike: p29748 tp29749 a(g6 V tp29750 a(g100 Vstem p29751 tp29752 a(g6 V tp29753 a(g48 Vsatisfying: p29754 tp29755 a(g6 V\u000a p29756 tp29757 a(g6 V[ tp29758 a(g353 V: tp29759 a(g100 VjinaLake p29760 tp29761 a(g6 V tp29762 a(g353 V| tp29763 a(g6 V\u000a p29764 tp29765 a(g100 VnameSym p29766 tp29767 a(g6 V tp29768 a(g353 V_ tp29769 a(g6 V tp29770 a(g100 VjinaLake p29771 tp29772 a(g6 V tp29773 a(g48 VasSymbol p29774 tp29775 a(g212 V. tp29776 a(g6 V\u000a p29777 tp29778 a(g100 Vokay p29779 tp29780 a(g6 V tp29781 a(g353 V_ tp29782 a(g6 V tp29783 a(g87 Vtrue p29784 tp29785 a(g212 V. tp29786 a(g6 V\u000a p29787 tp29788 a(g6 V( tp29789 a(g87 Vself p29790 tp29791 a(g6 V tp29792 a(g48 Vclass p29793 tp29794 a(g6 V tp29795 a(g48 VbindingOf: p29796 tp29797 a(g6 V tp29798 a(g100 VnameSym p29799 tp29800 a(g6 V) tp29801 a(g6 V tp29802 a(g48 VifNotNil: p29803 tp29804 a(g6 V tp29805 a(g6 V[ tp29806 a(g6 V tp29807 a(g100 Vokay p29808 tp29809 a(g6 V tp29810 a(g353 V_ tp29811 a(g6 V tp29812 a(g87 Vfalse p29813 tp29814 a(g6 V tp29815 a(g24 V"don't use it" p29816 tp29817 a(g6 V] tp29818 a(g212 V. tp29819 a(g6 V\u000a p29820 tp29821 a(g100 Vokay p29822 tp29823 a(g6 V] tp29824 a(g212 V. tp29825 a(g6 V\u000a p29826 tp29827 a(g353 V^ tp29828 a(g6 V tp29829 a(g100 VaName p29830 tp29831 a(g6 V tp29832 a(g48 VasSymbol p29833 tp29834 a(g138 V! ! p29835 tp29836 a(g6 V\u000a\u000a p29837 tp29838 a(g138 V! tp29839 a(g133 VObject p29840 tp29841 a(g138 V methodsFor: p29842 tp29843 a(g236 V'viewer' p29844 tp29845 a(g138 V stamp: 'sw 3/15/2004 23:01'! p29846 tp29847 a(g6 V\u000a tp29848 a(g48 VuniqueNameForReferenceOrNil p29849 tp29850 a(g6 V\u000a p29851 tp29852 a(g24 V"If the receiver has a unique name for reference, return it here, else return nil" p29853 tp29854 a(g6 V\u000a\u000a p29855 tp29856 a(g353 V^ tp29857 a(g6 V tp29858 a(g133 VReferences p29859 tp29860 a(g6 V tp29861 a(g48 VkeyAtValue: p29862 tp29863 a(g6 V tp29864 a(g87 Vself p29865 tp29866 a(g6 V tp29867 a(g48 VifAbsent: p29868 tp29869 a(g6 V tp29870 a(g6 V[ tp29871 a(g6 V tp29872 a(g87 Vnil p29873 tp29874 a(g6 V] tp29875 a(g138 V! ! p29876 tp29877 a(g6 V\u000a\u000a p29878 tp29879 a(g138 V! tp29880 a(g133 VObject p29881 tp29882 a(g138 V methodsFor: p29883 tp29884 a(g236 V'viewer' p29885 tp29886 a(g138 V stamp: 'ar 5/16/2001 01:40'! p29887 tp29888 a(g6 V\u000a tp29889 a(g48 VupdateThresholdForGraphicInViewerTab p29890 tp29891 a(g6 V\u000a p29892 tp29893 a(g24 V"When a Viewer is open on the receiver, its tab needs some graphic to show to the user. Computing this graphic can take quite some time so we want to make the update frequency depending on how long it takes to compute the thumbnail. The threshold returned by this method defines that the viewer will update at most every 'threshold * timeItTakesToDraw' milliseconds. Thus, if the time for computing the receiver's thumbnail is 200 msecs and the the threshold is 10, the viewer will update at most every two seconds." p29894 tp29895 a(g6 V\u000a p29896 tp29897 a(g353 V^ tp29898 a(g223 V20 p29899 tp29900 a(g6 V tp29901 a(g24 V"seems to be a pretty good general choice" p29902 tp29903 a(g138 V! ! p29904 tp29905 a(g6 V\u000a\u000a p29906 tp29907 a(g138 V! tp29908 a(g133 VObject p29909 tp29910 a(g138 V methodsFor: p29911 tp29912 a(g236 V'viewer' p29913 tp29914 a(g138 V stamp: 'sw 3/9/2001 13:48'! p29915 tp29916 a(g6 V\u000a tp29917 a(g48 VusableMethodInterfacesIn: p29918 tp29919 a(g6 V tp29920 a(g100 VaListOfMethodInterfaces p29921 tp29922 a(g6 V\u000a p29923 tp29924 a(g24 V"Filter aList, returning a subset list of apt phrases" p29925 tp29926 a(g6 V\u000a\u000a p29927 tp29928 a(g353 V^ tp29929 a(g6 V tp29930 a(g100 VaListOfMethodInterfaces p29931 tp29932 a(g6 V\u000a tp29933 a(g138 V! ! p29934 tp29935 a(g6 V\u000a\u000a\u000a p29936 tp29937 a(g138 V! tp29938 a(g133 VObject p29939 tp29940 a(g138 V methodsFor: p29941 tp29942 a(g236 V'world hacking' p29943 tp29944 a(g138 V stamp: 'ar 3/17/2001 23:45'! p29945 tp29946 a(g6 V\u000a tp29947 a(g48 VcouldOpenInMorphic p29948 tp29949 a(g6 V\u000a tp29950 a(g6 V\u000a p29951 tp29952 a(g24 V"is there an obvious morphic world in which to open a new morph?" p29953 tp29954 a(g6 V\u000a\u000a p29955 tp29956 a(g353 V^ tp29957 a(g133 VWorld p29958 tp29959 a(g6 V tp29960 a(g48 VnotNil p29961 tp29962 a(g6 V tp29963 a(g48 Vor: p29964 tp29965 a(g6 V tp29966 a(g6 V[ tp29967 a(g6 V tp29968 a(g133 VActiveWorld p29969 tp29970 a(g6 V tp29971 a(g48 VnotNil p29972 tp29973 a(g6 V] tp29974 a(g138 V! ! p29975 tp29976 a(g6 V\u000a\u000a\u000a p29977 tp29978 a(g138 V! tp29979 a(g133 VObject p29980 tp29981 a(g138 V methodsFor: p29982 tp29983 a(g236 V'private' p29984 tp29985 a(g138 V! tp29986 a(g6 V\u000a tp29987 a(g48 VerrorImproperStore p29988 tp29989 a(g6 V\u000a p29990 tp29991 a(g24 V"Create an error notification that an improper store was attempted." p29992 tp29993 a(g6 V\u000a\u000a p29994 tp29995 a(g87 Vself p29996 tp29997 a(g6 V tp29998 a(g48 Verror: p29999 tp30000 a(g6 V tp30001 a(g236 V'Improper store into indexable object' p30002 tp30003 a(g138 V! ! p30004 tp30005 a(g6 V\u000a\u000a p30006 tp30007 a(g138 V! tp30008 a(g133 VObject p30009 tp30010 a(g138 V methodsFor: p30011 tp30012 a(g236 V'private' p30013 tp30014 a(g138 V! tp30015 a(g6 V\u000a tp30016 a(g48 VerrorNonIntegerIndex p30017 tp30018 a(g6 V\u000a p30019 tp30020 a(g24 V"Create an error notification that an improper object was used as an index." p30021 tp30022 a(g6 V\u000a\u000a p30023 tp30024 a(g87 Vself p30025 tp30026 a(g6 V tp30027 a(g48 Verror: p30028 tp30029 a(g6 V tp30030 a(g236 V'only integers should be used as indices' p30031 tp30032 a(g138 V! ! p30033 tp30034 a(g6 V\u000a\u000a p30035 tp30036 a(g138 V! tp30037 a(g133 VObject p30038 tp30039 a(g138 V methodsFor: p30040 tp30041 a(g236 V'private' p30042 tp30043 a(g138 V stamp: 'yo 6/29/2004 11:37'! p30044 tp30045 a(g6 V\u000a tp30046 a(g48 VerrorNotIndexable p30047 tp30048 a(g6 V\u000a p30049 tp30050 a(g24 V"Create an error notification that the receiver is not indexable." p30051 tp30052 a(g6 V\u000a\u000a p30053 tp30054 a(g87 Vself p30055 tp30056 a(g6 V tp30057 a(g48 Verror: p30058 tp30059 a(g6 V tp30060 a(g6 V( tp30061 a(g236 V'Instances of {1} are not indexable' p30062 tp30063 a(g6 V tp30064 a(g48 Vtranslated p30065 tp30066 a(g6 V tp30067 a(g48 Vformat: p30068 tp30069 a(g6 V tp30070 a(g6 V{ tp30071 a(g87 Vself p30072 tp30073 a(g6 V tp30074 a(g48 Vclass p30075 tp30076 a(g6 V tp30077 a(g48 Vname p30078 tp30079 a(g6 V} tp30080 a(g6 V) tp30081 a(g138 V! ! p30082 tp30083 a(g6 V\u000a\u000a p30084 tp30085 a(g138 V! tp30086 a(g133 VObject p30087 tp30088 a(g138 V methodsFor: p30089 tp30090 a(g236 V'private' p30091 tp30092 a(g138 V! tp30093 a(g6 V\u000a tp30094 a(g48 VerrorSubscriptBounds: p30095 tp30096 a(g6 V tp30097 a(g100 Vindex p30098 tp30099 a(g6 V \u000a p30100 tp30101 a(g24 V"Create an error notification that an improper integer was used as an index." p30102 tp30103 a(g6 V\u000a\u000a p30104 tp30105 a(g87 Vself p30106 tp30107 a(g6 V tp30108 a(g48 Verror: p30109 tp30110 a(g6 V tp30111 a(g236 V'subscript is out of bounds: ' p30112 tp30113 a(g6 V tp30114 a(g48 V, tp30115 a(g6 V tp30116 a(g100 Vindex p30117 tp30118 a(g6 V tp30119 a(g48 VprintString p30120 tp30121 a(g138 V! ! p30122 tp30123 a(g6 V\u000a\u000a p30124 tp30125 a(g138 V! tp30126 a(g133 VObject p30127 tp30128 a(g138 V methodsFor: p30129 tp30130 a(g236 V'private' p30131 tp30132 a(g138 V stamp: 'ar 2/6/2004 14:47'! p30133 tp30134 a(g6 V\u000a tp30135 a(g48 VprimitiveError: p30136 tp30137 a(g6 V tp30138 a(g100 VaString p30139 tp30140 a(g6 V \u000a p30141 tp30142 a(g24 V"This method is called when the error handling results in a recursion in \u000a calling on error: or halt or halt:." p30143 tp30144 a(g6 V\u000a\u000a p30145 tp30146 a(g353 V| tp30147 a(g100 V context p30148 tp30149 a(g353 V| tp30150 a(g6 V\u000a p30151 tp30152 a(g6 V( tp30153 a(g133 VString p30154 tp30155 a(g6 V\u000a p30156 tp30157 a(g48 VstreamContents: p30158 tp30159 a(g6 V \u000a p30160 tp30161 a(g6 V[ tp30162 a(g353 V: tp30163 a(g100 Vs tp30164 a(g6 V tp30165 a(g353 V| tp30166 a(g6 V\u000a p30167 tp30168 a(g100 Vs tp30169 a(g6 V tp30170 a(g48 VnextPutAll: p30171 tp30172 a(g6 V tp30173 a(g236 V'***System error handling failed***' p30174 tp30175 a(g212 V. tp30176 a(g6 V\u000a p30177 tp30178 a(g100 Vs tp30179 a(g6 V tp30180 a(g48 Vcr p30181 tp30182 a(g212 V; tp30183 a(g6 V tp30184 a(g48 VnextPutAll: p30185 tp30186 a(g6 V tp30187 a(g100 VaString p30188 tp30189 a(g212 V. tp30190 a(g6 V\u000a p30191 tp30192 a(g100 Vcontext p30193 tp30194 a(g6 V tp30195 a(g353 V_ tp30196 a(g6 V tp30197 a(g87 VthisContext p30198 tp30199 a(g6 V tp30200 a(g48 Vsender p30201 tp30202 a(g6 V tp30203 a(g48 Vsender p30204 tp30205 a(g212 V. tp30206 a(g6 V\u000a p30207 tp30208 a(g223 V20 p30209 tp30210 a(g6 V tp30211 a(g84 VtimesRepeat: p30212 tp30213 a(g6 V tp30214 a(g6 V[ tp30215 a(g6 V tp30216 a(g100 Vcontext p30217 tp30218 a(g6 V tp30219 a(g48 V== p30220 tp30221 a(g6 V tp30222 a(g87 Vnil p30223 tp30224 a(g6 V tp30225 a(g84 VifFalse: p30226 tp30227 a(g6 V tp30228 a(g6 V[ tp30229 a(g6 V tp30230 a(g100 Vs tp30231 a(g6 V tp30232 a(g48 Vcr p30233 tp30234 a(g212 V; tp30235 a(g6 V tp30236 a(g48 Vprint: p30237 tp30238 a(g6 V tp30239 a(g6 V( tp30240 a(g100 Vcontext p30241 tp30242 a(g6 V tp30243 a(g353 V_ tp30244 a(g6 V tp30245 a(g100 Vcontext p30246 tp30247 a(g6 V tp30248 a(g48 Vsender p30249 tp30250 a(g6 V) tp30251 a(g6 V] tp30252 a(g6 V] tp30253 a(g212 V. tp30254 a(g6 V\u000a p30255 tp30256 a(g100 Vs tp30257 a(g6 V tp30258 a(g48 Vcr p30259 tp30260 a(g212 V; tp30261 a(g6 V tp30262 a(g48 VnextPutAll: p30263 tp30264 a(g6 V tp30265 a(g236 V'-------------------------------' p30266 tp30267 a(g212 V. tp30268 a(g6 V\u000a p30269 tp30270 a(g100 Vs tp30271 a(g6 V tp30272 a(g48 Vcr p30273 tp30274 a(g212 V; tp30275 a(g6 V tp30276 a(g48 VnextPutAll: p30277 tp30278 a(g6 V tp30279 a(g236 V'Type CR to enter an emergency evaluator.' p30280 tp30281 a(g212 V. tp30282 a(g6 V\u000a p30283 tp30284 a(g100 Vs tp30285 a(g6 V tp30286 a(g48 Vcr p30287 tp30288 a(g212 V; tp30289 a(g6 V tp30290 a(g48 VnextPutAll: p30291 tp30292 a(g6 V tp30293 a(g236 V'Type any other character to restart.' p30294 tp30295 a(g6 V] tp30296 a(g6 V) tp30297 a(g6 V\u000a p30298 tp30299 a(g48 VdisplayAt: p30300 tp30301 a(g6 V tp30302 a(g223 V0 tp30303 a(g6 V tp30304 a(g48 V@ tp30305 a(g6 V tp30306 a(g223 V0 tp30307 a(g212 V. tp30308 a(g6 V\u000a p30309 tp30310 a(g6 V[ tp30311 a(g6 V tp30312 a(g133 VSensor p30313 tp30314 a(g6 V tp30315 a(g48 VkeyboardPressed p30316 tp30317 a(g6 V] tp30318 a(g6 V tp30319 a(g48 VwhileFalse p30320 tp30321 a(g212 V. tp30322 a(g6 V\u000a p30323 tp30324 a(g133 VSensor p30325 tp30326 a(g6 V tp30327 a(g48 Vkeyboard p30328 tp30329 a(g6 V tp30330 a(g48 V= tp30331 a(g6 V tp30332 a(g133 VCharacter p30333 tp30334 a(g6 V tp30335 a(g48 Vcr p30336 tp30337 a(g6 V tp30338 a(g84 VifTrue: p30339 tp30340 a(g6 V tp30341 a(g6 V[ tp30342 a(g6 V tp30343 a(g133 VTranscripter p30344 tp30345 a(g6 V tp30346 a(g48 VemergencyEvaluator p30347 tp30348 a(g6 V] tp30349 a(g212 V. tp30350 a(g6 V\u000a p30351 tp30352 a(g133 VSmalltalk p30353 tp30354 a(g6 V tp30355 a(g48 VisMorphic p30356 tp30357 a(g6 V\u000a p30358 tp30359 a(g84 VifTrue: p30360 tp30361 a(g6 V tp30362 a(g6 V[ tp30363 a(g6 V tp30364 a(g133 VWorld p30365 tp30366 a(g6 V tp30367 a(g48 Vinstall p30368 tp30369 a(g6 V tp30370 a(g24 V"init hands and redisplay" p30371 tp30372 a(g6 V] tp30373 a(g6 V\u000a p30374 tp30375 a(g84 VifFalse: p30376 tp30377 a(g6 V tp30378 a(g6 V[ tp30379 a(g6 V tp30380 a(g133 VScheduledControllers p30381 tp30382 a(g6 V tp30383 a(g48 VsearchForActiveController p30384 tp30385 a(g6 V] tp30386 a(g138 V! ! p30387 tp30388 a(g6 V\u000a\u000a p30389 tp30390 a(g138 V! tp30391 a(g133 VObject p30392 tp30393 a(g138 V methodsFor: p30394 tp30395 a(g236 V'private' p30396 tp30397 a(g138 V! tp30398 a(g6 V\u000a tp30399 a(g48 Vspecies p30400 tp30401 a(g6 V\u000a p30402 tp30403 a(g24 V"Answer the preferred class for reconstructing the receiver. For example, \u000a collections create new collections whenever enumeration messages such as \u000a collect: or select: are invoked. The new kind of collection is determined by \u000a the species of the original collection. Species and class are not always the \u000a same. For example, the species of Interval is Array." p30404 tp30405 a(g6 V\u000a\u000a p30406 tp30407 a(g353 V^ tp30408 a(g87 Vself p30409 tp30410 a(g6 V tp30411 a(g48 Vclass p30412 tp30413 a(g138 V! ! p30414 tp30415 a(g6 V\u000a\u000a p30416 tp30417 a(g138 V! tp30418 a(g133 VObject p30419 tp30420 a(g138 V methodsFor: p30421 tp30422 a(g236 V'private' p30423 tp30424 a(g138 V! tp30425 a(g6 V\u000a tp30426 a(g48 VstoreAt: p30427 tp30428 a(g6 V tp30429 a(g100 Voffset p30430 tp30431 a(g6 V tp30432 a(g48 VinTempFrame: p30433 tp30434 a(g6 V tp30435 a(g100 VaContext p30436 tp30437 a(g6 V\u000a p30438 tp30439 a(g24 V"This message had to get sent to an expression already on the stack\u000a as a Block argument being accessed by the debugger.\u000a Just re-route it to the temp frame." p30440 tp30441 a(g6 V\u000a p30442 tp30443 a(g353 V^ tp30444 a(g6 V tp30445 a(g100 VaContext p30446 tp30447 a(g6 V tp30448 a(g48 VtempAt: p30449 tp30450 a(g6 V tp30451 a(g100 Voffset p30452 tp30453 a(g6 V tp30454 a(g48 Vput: p30455 tp30456 a(g6 V tp30457 a(g87 Vself p30458 tp30459 a(g138 V! ! p30460 tp30461 a(g6 V\u000a\u000a p30462 tp30463 a(g138 V"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! p30464 tp30465 a(g6 V\u000a\u000a p30466 tp30467 a(g133 VObject class p30468 tp30469 a(g138 V\u000a instanceVariableNames: p30470 tp30471 a(g236 V'' p30472 tp30473 a(g138 V! tp30474 a(g6 V\u000a\u000a p30475 tp30476 a(g138 V! tp30477 a(g133 VObject class p30478 tp30479 a(g138 V methodsFor: p30480 tp30481 a(g236 V'*Pinesoft-Widgets' p30482 tp30483 a(g138 V stamp: 'gvc 4/17/2007 17:40'! p30484 tp30485 a(g6 V\u000a tp30486 a(g48 VtaskbarIcon p30487 tp30488 a(g6 V\u000a p30489 tp30490 a(g24 V"Answer the icon for an instance of the receiver in a task bar\u000a or nil for the default." p30491 tp30492 a(g6 V\u000a\u000a p30493 tp30494 a(g353 V^ tp30495 a(g87 Vnil p30496 tp30497 a(g138 V! ! p30498 tp30499 a(g6 V\u000a\u000a\u000a p30500 tp30501 a(g138 V! tp30502 a(g133 VObject class p30503 tp30504 a(g138 V methodsFor: p30505 tp30506 a(g236 V'*magritte-model-accessing' p30507 tp30508 a(g138 V stamp: 'lr 3/27/2006 15:47'! p30509 tp30510 a(g6 V\u000a tp30511 a(g48 Vdescription p30512 tp30513 a(g6 V\u000a p30514 tp30515 a(g353 V^ tp30516 a(g6 V tp30517 a(g133 VMADescriptionBuilder p30518 tp30519 a(g6 V tp30520 a(g48 Vfor: p30521 tp30522 a(g6 V tp30523 a(g87 Vself p30524 tp30525 a(g138 V! ! p30526 tp30527 a(g6 V\u000a\u000a\u000a p30528 tp30529 a(g138 V! tp30530 a(g133 VObject class p30531 tp30532 a(g138 V methodsFor: p30533 tp30534 a(g236 V'class initialization' p30535 tp30536 a(g138 V stamp: 'ar 2/11/2001 02:00'! p30537 tp30538 a(g6 V\u000a tp30539 a(g48 VflushDependents p30540 tp30541 a(g6 V\u000a p30542 tp30543 a(g133 VDependentsFields p30544 tp30545 a(g6 V tp30546 a(g48 VkeysAndValuesDo: p30547 tp30548 a(g6 V[ tp30549 a(g353 V: tp30550 a(g100 Vkey p30551 tp30552 a(g6 V tp30553 a(g353 V: tp30554 a(g100 Vdep p30555 tp30556 a(g353 V| tp30557 a(g6 V\u000a p30558 tp30559 a(g100 Vkey p30560 tp30561 a(g6 V tp30562 a(g48 VifNotNil: p30563 tp30564 a(g6 V[ tp30565 a(g6 V tp30566 a(g100 Vkey p30567 tp30568 a(g6 V tp30569 a(g48 VremoveDependent: p30570 tp30571 a(g6 V tp30572 a(g87 Vnil p30573 tp30574 a(g6 V] tp30575 a(g212 V. tp30576 a(g6 V\u000a p30577 tp30578 a(g6 V] tp30579 a(g212 V. tp30580 a(g6 V\u000a p30581 tp30582 a(g133 VDependentsFields p30583 tp30584 a(g6 V tp30585 a(g48 VfinalizeValues p30586 tp30587 a(g212 V. tp30588 a(g138 V! ! p30589 tp30590 a(g6 V\u000a\u000a p30591 tp30592 a(g138 V! tp30593 a(g133 VObject class p30594 tp30595 a(g138 V methodsFor: p30596 tp30597 a(g236 V'class initialization' p30598 tp30599 a(g138 V stamp: 'rw 2/10/2002 13:09'! p30600 tp30601 a(g6 V\u000a tp30602 a(g48 VflushEvents p30603 tp30604 a(g6 V\u000a p30605 tp30606 a(g24 V"Object flushEvents" p30607 tp30608 a(g6 V\u000a\u000a p30609 tp30610 a(g133 VEventManager p30611 tp30612 a(g6 V tp30613 a(g48 VflushEvents p30614 tp30615 a(g212 V. tp30616 a(g6 V tp30617 a(g138 V! ! p30618 tp30619 a(g6 V\u000a\u000a p30620 tp30621 a(g138 V! tp30622 a(g133 VObject class p30623 tp30624 a(g138 V methodsFor: p30625 tp30626 a(g236 V'class initialization' p30627 tp30628 a(g138 V stamp: 'rww 10/2/2001 07:35'! p30629 tp30630 a(g6 V\u000a tp30631 a(g48 Vinitialize p30632 tp30633 a(g6 V\u000a p30634 tp30635 a(g24 V"Object initialize" p30636 tp30637 a(g6 V\u000a p30638 tp30639 a(g133 VDependentsFields p30640 tp30641 a(g6 V tp30642 a(g48 VifNil: p30643 tp30644 a(g6 V[ tp30645 a(g6 V tp30646 a(g87 Vself p30647 tp30648 a(g6 V tp30649 a(g48 VinitializeDependentsFields p30650 tp30651 a(g6 V] tp30652 a(g212 V. tp30653 a(g138 V! ! p30654 tp30655 a(g6 V\u000a\u000a p30656 tp30657 a(g138 V! tp30658 a(g133 VObject class p30659 tp30660 a(g138 V methodsFor: p30661 tp30662 a(g236 V'class initialization' p30663 tp30664 a(g138 V stamp: 'ar 2/11/2001 01:41'! p30665 tp30666 a(g6 V\u000a tp30667 a(g48 VinitializeDependentsFields p30668 tp30669 a(g6 V\u000a p30670 tp30671 a(g24 V"Object initialize" p30672 tp30673 a(g6 V\u000a p30674 tp30675 a(g133 VDependentsFields p30676 tp30677 a(g6 V tp30678 a(g353 V_ tp30679 a(g6 V tp30680 a(g133 VWeakIdentityKeyDictionary p30681 tp30682 a(g6 V tp30683 a(g84 Vnew p30684 tp30685 a(g212 V. tp30686 a(g6 V\u000a tp30687 a(g138 V! ! p30688 tp30689 a(g6 V\u000a\u000a p30690 tp30691 a(g138 V! tp30692 a(g133 VObject class p30693 tp30694 a(g138 V methodsFor: p30695 tp30696 a(g236 V'class initialization' p30697 tp30698 a(g138 V stamp: 'ar 2/11/2001 01:45'! p30699 tp30700 a(g6 V\u000a tp30701 a(g48 VreInitializeDependentsFields p30702 tp30703 a(g6 V\u000a p30704 tp30705 a(g24 V"Object reInitializeDependentsFields" p30706 tp30707 a(g6 V\u000a p30708 tp30709 a(g353 V| tp30710 a(g100 V oldFields p30711 tp30712 a(g353 V| tp30713 a(g6 V\u000a p30714 tp30715 a(g100 VoldFields p30716 tp30717 a(g6 V tp30718 a(g353 V_ tp30719 a(g6 V tp30720 a(g133 VDependentsFields p30721 tp30722 a(g212 V. tp30723 a(g6 V\u000a p30724 tp30725 a(g133 VDependentsFields p30726 tp30727 a(g6 V tp30728 a(g353 V_ tp30729 a(g6 V tp30730 a(g133 VWeakIdentityKeyDictionary p30731 tp30732 a(g6 V tp30733 a(g84 Vnew p30734 tp30735 a(g212 V. tp30736 a(g6 V\u000a p30737 tp30738 a(g100 VoldFields p30739 tp30740 a(g6 V tp30741 a(g48 VkeysAndValuesDo: p30742 tp30743 a(g6 V[ tp30744 a(g353 V: tp30745 a(g100 Vobj p30746 tp30747 a(g6 V tp30748 a(g353 V: tp30749 a(g100 Vdeps p30750 tp30751 a(g353 V| tp30752 a(g6 V\u000a p30753 tp30754 a(g100 Vdeps p30755 tp30756 a(g6 V tp30757 a(g48 Vdo: p30758 tp30759 a(g6 V[ tp30760 a(g353 V: tp30761 a(g100 Vd tp30762 a(g353 V| tp30763 a(g6 V tp30764 a(g100 Vobj p30765 tp30766 a(g6 V tp30767 a(g48 VaddDependent: p30768 tp30769 a(g6 V tp30770 a(g100 Vd tp30771 a(g6 V] tp30772 a(g6 V] tp30773 a(g212 V. tp30774 a(g6 V\u000a tp30775 a(g138 V! ! p30776 tp30777 a(g6 V\u000a\u000a\u000a p30778 tp30779 a(g138 V! tp30780 a(g133 VObject class p30781 tp30782 a(g138 V methodsFor: p30783 tp30784 a(g236 V'documentation' p30785 tp30786 a(g138 V! tp30787 a(g6 V\u000a tp30788 a(g48 VhowToModifyPrimitives p30789 tp30790 a(g6 V\u000a p30791 tp30792 a(g24 V"You are allowed to write methods which specify primitives, but please use \u000a caution. If you make a subclass of a class which contains a primitive method, \u000a the subclass inherits the primitive. The message which is implemented \u000a primitively may be overridden in the subclass (E.g., see at:put: in String's \u000a subclass Symbol). The primitive behavior can be invoked using super (see \u000a Symbol string:). \u000a \u000a A class which attempts to mimic the behavior of another class without being \u000a its subclass may or may not be able to use the primitives of the original class. \u000a In general, if the instance variables read or written by a primitive have the \u000a same meanings and are in the same fields in both classes, the primitive will \u000a work. \u000a\u000a For certain frequently used 'special selectors', the compiler emits a \u000a send-special-selector bytecode instead of a send-message bytecode. \u000a Special selectors were created because they offer two advantages. Code \u000a which sends special selectors compiles into fewer bytes than normal. For \u000a some pairs of receiver classes and special selectors, the interpreter jumps \u000a directly to a primitive routine without looking up the method in the class. \u000a This is much faster than a normal message lookup. \u000a \u000a A selector which is a special selector solely in order to save space has a \u000a normal behavior. Methods whose selectors are special in order to \u000a gain speed contain the comment, 'No Lookup'. When the interpreter \u000a encounters a send-special-selector bytecode, it checks the class of the \u000a receiver and the selector. If the class-selector pair is a no-lookup pair, \u000a then the interpreter swiftly jumps to the routine which implements the \u000a corresponding primitive. (A special selector whose receiver is not of the \u000a right class to make a no-lookup pair, is looked up normally). The pairs are \u000a listed below. No-lookup methods contain a primitive number specification, \u000a , which is redundant. Since the method is not normally looked \u000a up, deleting the primitive number specification cannot prevent this \u000a primitive from running. If a no-lookup primitive fails, the method is looked \u000a up normally, and the expressions in it are executed. \u000a \u000a No Lookup pairs of (class, selector) \u000a \u000a SmallInteger with any of + - * / \u005c\u005c bitOr: bitShift: bitAnd: // \u000a SmallInteger with any of = ~= > < >= <= \u000a Any class with == \u000a Any class with @ \u000a Point with either of x y \u000a ContextPart with blockCopy: \u000a BlockContext with either of value value:\u000a " p30793 tp30794 a(g6 V\u000a\u000a p30795 tp30796 a(g87 Vself p30797 tp30798 a(g6 V tp30799 a(g48 Verror: p30800 tp30801 a(g6 V tp30802 a(g236 V'comment only' p30803 tp30804 a(g138 V! ! p30805 tp30806 a(g6 V\u000a\u000a p30807 tp30808 a(g138 V! tp30809 a(g133 VObject class p30810 tp30811 a(g138 V methodsFor: p30812 tp30813 a(g236 V'documentation' p30814 tp30815 a(g138 V! tp30816 a(g6 V\u000a tp30817 a(g48 VwhatIsAPrimitive p30818 tp30819 a(g6 V\u000a p30820 tp30821 a(g24 V"Some messages in the system are responded to primitively. A primitive \u000a response is performed directly by the interpreter rather than by evaluating \u000a expressions in a method. The methods for these messages indicate the \u000a presence of a primitive response by including before the \u000a first expression in the method. \u000a \u000a Primitives exist for several reasons. Certain basic or 'primitive' \u000a operations cannot be performed in any other way. Smalltalk without \u000a primitives can move values from one variable to another, but cannot add two \u000a SmallIntegers together. Many methods for arithmetic and comparison \u000a between numbers are primitives. Some primitives allow Smalltalk to \u000a communicate with I/O devices such as the disk, the display, and the keyboard. \u000a Some primitives exist only to make the system run faster; each does the same \u000a thing as a certain Smalltalk method, and its implementation as a primitive is \u000a optional. \u000a \u000a When the Smalltalk interpreter begins to execute a method which specifies a \u000a primitive response, it tries to perform the primitive action and to return a \u000a result. If the routine in the interpreter for this primitive is successful, \u000a it will return a value and the expressions in the method will not be evaluated. \u000a If the primitive routine is not successful, the primitive 'fails', and the \u000a Smalltalk expressions in the method are executed instead. These \u000a expressions are evaluated as though the primitive routine had not been \u000a called. \u000a \u000a The Smalltalk code that is evaluated when a primitive fails usually \u000a anticipates why that primitive might fail. If the primitive is optional, the \u000a expressions in the method do exactly what the primitive would have done (See \u000a Number @). If the primitive only works on certain classes of arguments, the \u000a Smalltalk code tries to coerce the argument or appeals to a superclass to find \u000a a more general way of doing the operation (see SmallInteger +). If the \u000a primitive is never supposed to fail, the expressions signal an error (see \u000a SmallInteger asFloat). \u000a \u000a Each method that specifies a primitive has a comment in it. If the primitive is \u000a optional, the comment will say 'Optional'. An optional primitive that is not \u000a implemented always fails, and the Smalltalk expressions do the work \u000a instead. \u000a \u000a If a primitive is not optional, the comment will say, 'Essential'. Some \u000a methods will have the comment, 'No Lookup'. See Object \u000a howToModifyPrimitives for an explanation of special selectors which are \u000a not looked up. \u000a \u000a For the primitives for +, -, *, and bitShift: in SmallInteger, and truncated \u000a in Float, the primitive constructs and returns a 16-bit \u000a LargePositiveInteger when the result warrants it. Returning 16-bit \u000a LargePositiveIntegers from these primitives instead of failing is \u000a optional in the same sense that the LargePositiveInteger arithmetic \u000a primitives are optional. The comments in the SmallInteger primitives say, \u000a 'Fails if result is not a SmallInteger', even though the implementor has the \u000a option to construct a LargePositiveInteger. For further information on \u000a primitives, see the 'Primitive Methods' part of the chapter on the formal \u000a specification of the interpreter in the Smalltalk book." p30822 tp30823 a(g6 V\u000a\u000a p30824 tp30825 a(g87 Vself p30826 tp30827 a(g6 V tp30828 a(g48 Verror: p30829 tp30830 a(g6 V tp30831 a(g236 V'comment only' p30832 tp30833 a(g138 V! ! p30834 tp30835 a(g6 V\u000a\u000a\u000a p30836 tp30837 a(g138 V! tp30838 a(g133 VObject class p30839 tp30840 a(g138 V methodsFor: p30841 tp30842 a(g236 V'file list services' p30843 tp30844 a(g138 V stamp: 'nk 6/12/2004 11:41'! p30845 tp30846 a(g6 V\u000a tp30847 a(g48 VfileReaderServicesForDirectory: p30848 tp30849 a(g6 V tp30850 a(g100 VaFileDirectory p30851 tp30852 a(g6 V\u000a p30853 tp30854 a(g24 V"Backstop" p30855 tp30856 a(g6 V\u000a p30857 tp30858 a(g353 V^ tp30859 a(g258 V#( p30860 tp30861 a(g258 V) tp30862 a(g138 V! ! p30863 tp30864 a(g6 V\u000a\u000a p30865 tp30866 a(g138 V! tp30867 a(g133 VObject class p30868 tp30869 a(g138 V methodsFor: p30870 tp30871 a(g236 V'file list services' p30872 tp30873 a(g138 V stamp: 'nk 6/12/2004 11:30'! p30874 tp30875 a(g6 V\u000a tp30876 a(g48 VfileReaderServicesForFile: p30877 tp30878 a(g6 V tp30879 a(g100 VfullName p30880 tp30881 a(g6 V tp30882 a(g48 Vsuffix: p30883 tp30884 a(g6 V tp30885 a(g100 Vsuffix p30886 tp30887 a(g6 V\u000a p30888 tp30889 a(g24 V"Backstop" p30890 tp30891 a(g6 V\u000a p30892 tp30893 a(g353 V^ tp30894 a(g258 V#( p30895 tp30896 a(g258 V) tp30897 a(g138 V! ! p30898 tp30899 a(g6 V\u000a\u000a p30900 tp30901 a(g138 V! tp30902 a(g133 VObject class p30903 tp30904 a(g138 V methodsFor: p30905 tp30906 a(g236 V'file list services' p30907 tp30908 a(g138 V stamp: 'md 2/15/2006 17:20'! p30909 tp30910 a(g6 V\u000a tp30911 a(g48 Vservices p30912 tp30913 a(g6 V\u000a p30914 tp30915 a(g24 V"Backstop" p30916 tp30917 a(g6 V\u000a p30918 tp30919 a(g353 V^ tp30920 a(g258 V#( p30921 tp30922 a(g258 V) tp30923 a(g138 V! ! p30924 tp30925 a(g6 V\u000a\u000a\u000a p30926 tp30927 a(g138 V! tp30928 a(g133 VObject class p30929 tp30930 a(g138 V methodsFor: p30931 tp30932 a(g236 V'instance creation' p30933 tp30934 a(g138 V stamp: 'sw 1/23/2003 09:45'! p30935 tp30936 a(g6 V\u000a tp30937 a(g48 VcategoryForUniclasses p30938 tp30939 a(g6 V\u000a p30940 tp30941 a(g24 V"Answer the default system category into which to place unique-class instances" p30942 tp30943 a(g6 V\u000a\u000a p30944 tp30945 a(g353 V^ tp30946 a(g6 V tp30947 a(g236 V'UserObjects' p30948 tp30949 a(g138 V! ! p30950 tp30951 a(g6 V\u000a\u000a p30952 tp30953 a(g138 V! tp30954 a(g133 VObject class p30955 tp30956 a(g138 V methodsFor: p30957 tp30958 a(g236 V'instance creation' p30959 tp30960 a(g138 V stamp: 'sw 7/28/97 15:56'! p30961 tp30962 a(g6 V\u000a tp30963 a(g48 VchooseUniqueClassName p30964 tp30965 a(g6 V\u000a p30966 tp30967 a(g353 V| tp30968 a(g100 V i className p30969 tp30970 a(g353 V| tp30971 a(g6 V\u000a p30972 tp30973 a(g100 Vi tp30974 a(g6 V tp30975 a(g353 V_ tp30976 a(g6 V tp30977 a(g223 V1 tp30978 a(g212 V. tp30979 a(g6 V\u000a p30980 tp30981 a(g6 V[ tp30982 a(g6 V tp30983 a(g100 VclassName p30984 tp30985 a(g6 V tp30986 a(g353 V_ tp30987 a(g6 V tp30988 a(g6 V( tp30989 a(g87 Vself p30990 tp30991 a(g6 V tp30992 a(g48 Vname p30993 tp30994 a(g6 V tp30995 a(g48 V, tp30996 a(g6 V tp30997 a(g100 Vi tp30998 a(g6 V tp30999 a(g48 VprintString p31000 tp31001 a(g6 V) tp31002 a(g6 V tp31003 a(g48 VasSymbol p31004 tp31005 a(g212 V. tp31006 a(g6 V\u000a p31007 tp31008 a(g133 VSmalltalk p31009 tp31010 a(g6 V tp31011 a(g48 VincludesKey: p31012 tp31013 a(g6 V tp31014 a(g100 VclassName p31015 tp31016 a(g6 V] tp31017 a(g6 V\u000a p31018 tp31019 a(g84 VwhileTrue: p31020 tp31021 a(g6 V tp31022 a(g6 V[ tp31023 a(g6 V tp31024 a(g100 Vi tp31025 a(g6 V tp31026 a(g353 V_ tp31027 a(g6 V tp31028 a(g100 Vi tp31029 a(g6 V tp31030 a(g48 V+ tp31031 a(g6 V tp31032 a(g223 V1 tp31033 a(g6 V] tp31034 a(g212 V. tp31035 a(g6 V\u000a p31036 tp31037 a(g353 V^ tp31038 a(g6 V tp31039 a(g100 VclassName p31040 tp31041 a(g138 V! ! p31042 tp31043 a(g6 V\u000a\u000a p31044 tp31045 a(g138 V! tp31046 a(g133 VObject class p31047 tp31048 a(g138 V methodsFor: p31049 tp31050 a(g236 V'instance creation' p31051 tp31052 a(g138 V stamp: 'tk 8/22/1998 08:22'! p31053 tp31054 a(g6 V\u000a tp31055 a(g48 VinitialInstance p31056 tp31057 a(g6 V\u000a p31058 tp31059 a(g24 V"Answer the first instance of the receiver, generate an error if there is one already" p31060 tp31061 a(g6 V\u000a p31062 tp31063 a(g24 V"self instanceCount > 0 ifTrue: [self error: 'instance(s) already exist.']." p31064 tp31065 a(g6 V\u000a p31066 tp31067 a(g24 V"Debugging test that is very slow" p31068 tp31069 a(g6 V\u000a p31070 tp31071 a(g353 V^ tp31072 a(g6 V tp31073 a(g87 Vself p31074 tp31075 a(g6 V tp31076 a(g84 Vnew p31077 tp31078 a(g138 V! ! p31079 tp31080 a(g6 V\u000a\u000a p31081 tp31082 a(g138 V! tp31083 a(g133 VObject class p31084 tp31085 a(g138 V methodsFor: p31086 tp31087 a(g236 V'instance creation' p31088 tp31089 a(g138 V stamp: 'sw 5/5/2000 09:30'! p31090 tp31091 a(g6 V\u000a tp31092 a(g48 VinitializedInstance p31093 tp31094 a(g6 V\u000a p31095 tp31096 a(g353 V^ tp31097 a(g6 V tp31098 a(g87 Vself p31099 tp31100 a(g6 V tp31101 a(g84 Vnew p31102 tp31103 a(g138 V! ! p31104 tp31105 a(g6 V\u000a\u000a p31106 tp31107 a(g138 V! tp31108 a(g133 VObject class p31109 tp31110 a(g138 V methodsFor: p31111 tp31112 a(g236 V'instance creation' p31113 tp31114 a(g138 V stamp: 'sw 10/16/2000 10:58'! p31115 tp31116 a(g6 V\u000a tp31117 a(g48 VinstanceOfUniqueClass p31118 tp31119 a(g6 V\u000a p31120 tp31121 a(g24 V"Answer an instance of a unique subclass of the receiver" p31122 tp31123 a(g6 V\u000a\u000a p31124 tp31125 a(g353 V^ tp31126 a(g6 V tp31127 a(g87 Vself p31128 tp31129 a(g6 V tp31130 a(g48 VinstanceOfUniqueClassWithInstVarString: p31131 tp31132 a(g6 V tp31133 a(g236 V'' p31134 tp31135 a(g6 V tp31136 a(g48 VandClassInstVarString: p31137 tp31138 a(g6 V tp31139 a(g236 V'' p31140 tp31141 a(g138 V! ! p31142 tp31143 a(g6 V\u000a\u000a p31144 tp31145 a(g138 V! tp31146 a(g133 VObject class p31147 tp31148 a(g138 V methodsFor: p31149 tp31150 a(g236 V'instance creation' p31151 tp31152 a(g138 V stamp: 'tk 8/22/1998 08:27'! p31153 tp31154 a(g6 V\u000a tp31155 a(g48 VinstanceOfUniqueClassWithInstVarString: p31156 tp31157 a(g6 V tp31158 a(g100 VinstVarString p31159 tp31160 a(g6 V tp31161 a(g48 VandClassInstVarString: p31162 tp31163 a(g6 V tp31164 a(g100 VclassInstVarString p31165 tp31166 a(g6 V\u000a p31167 tp31168 a(g24 V"Create a unique class for the receiver, and answer an instance of it" p31169 tp31170 a(g6 V\u000a\u000a p31171 tp31172 a(g353 V^ tp31173 a(g6 V tp31174 a(g6 V( tp31175 a(g87 Vself p31176 tp31177 a(g6 V tp31178 a(g48 VnewUniqueClassInstVars: p31179 tp31180 a(g6 V tp31181 a(g100 VinstVarString p31182 tp31183 a(g6 V \u000a p31184 tp31185 a(g48 VclassInstVars: p31186 tp31187 a(g6 V tp31188 a(g100 VclassInstVarString p31189 tp31190 a(g6 V) tp31191 a(g6 V tp31192 a(g48 VinitialInstance p31193 tp31194 a(g138 V! ! p31195 tp31196 a(g6 V\u000a\u000a p31197 tp31198 a(g138 V! tp31199 a(g133 VObject class p31200 tp31201 a(g138 V methodsFor: p31202 tp31203 a(g236 V'instance creation' p31204 tp31205 a(g138 V stamp: 'sw 10/23/1999 22:51'! p31206 tp31207 a(g6 V\u000a tp31208 a(g48 VisUniClass p31209 tp31210 a(g6 V\u000a p31211 tp31212 a(g353 V^ tp31213 a(g6 V tp31214 a(g87 Vfalse p31215 tp31216 a(g138 V! ! p31217 tp31218 a(g6 V\u000a\u000a p31219 tp31220 a(g138 V! tp31221 a(g133 VObject class p31222 tp31223 a(g138 V methodsFor: p31224 tp31225 a(g236 V'instance creation' p31226 tp31227 a(g138 V stamp: 'ajh 5/23/2002 00:35'! p31228 tp31229 a(g6 V\u000a tp31230 a(g48 VnewFrom: p31231 tp31232 a(g6 V tp31233 a(g100 VaSimilarObject p31234 tp31235 a(g6 V\u000a p31236 tp31237 a(g24 V"Create an object that has similar contents to aSimilarObject.\u000a If the classes have any instance varaibles with the same names, copy them across.\u000a If this is bad for a class, override this method." p31238 tp31239 a(g6 V\u000a\u000a p31240 tp31241 a(g353 V^ tp31242 a(g6 V tp31243 a(g6 V( tp31244 a(g87 Vself p31245 tp31246 a(g6 V tp31247 a(g48 VisVariable p31248 tp31249 a(g6 V\u000a p31250 tp31251 a(g84 VifTrue: p31252 tp31253 a(g6 V tp31254 a(g6 V[ tp31255 a(g6 V tp31256 a(g87 Vself p31257 tp31258 a(g6 V tp31259 a(g48 VbasicNew: p31260 tp31261 a(g6 V tp31262 a(g100 VaSimilarObject p31263 tp31264 a(g6 V tp31265 a(g48 VbasicSize p31266 tp31267 a(g6 V] tp31268 a(g6 V\u000a p31269 tp31270 a(g84 VifFalse: p31271 tp31272 a(g6 V tp31273 a(g6 V[ tp31274 a(g6 V tp31275 a(g87 Vself p31276 tp31277 a(g6 V tp31278 a(g48 VbasicNew p31279 tp31280 a(g6 V] tp31281 a(g6 V\u000a p31282 tp31283 a(g6 V) tp31284 a(g6 V tp31285 a(g48 VcopySameFrom: p31286 tp31287 a(g6 V tp31288 a(g100 VaSimilarObject p31289 tp31290 a(g138 V! ! p31291 tp31292 a(g6 V\u000a\u000a p31293 tp31294 a(g138 V! tp31295 a(g133 VObject class p31296 tp31297 a(g138 V methodsFor: p31298 tp31299 a(g236 V'instance creation' p31300 tp31301 a(g138 V stamp: 'tk 6/29/1998 12:11'! p31302 tp31303 a(g6 V\u000a tp31304 a(g48 VnewUniqueClassInstVars: p31305 tp31306 a(g6 V tp31307 a(g100 VinstVarString p31308 tp31309 a(g6 V tp31310 a(g48 VclassInstVars: p31311 tp31312 a(g6 V tp31313 a(g100 VclassInstVarString p31314 tp31315 a(g6 V\u000a p31316 tp31317 a(g24 V"Create a unique class for the receiver" p31318 tp31319 a(g6 V\u000a\u000a p31320 tp31321 a(g353 V| tp31322 a(g100 V aName aClass p31323 tp31324 a(g353 V| tp31325 a(g6 V\u000a p31326 tp31327 a(g87 Vself p31328 tp31329 a(g6 V tp31330 a(g48 VisSystemDefined p31331 tp31332 a(g6 V tp31333 a(g84 VifFalse: p31334 tp31335 a(g6 V\u000a p31336 tp31337 a(g6 V[ tp31338 a(g6 V tp31339 a(g353 V^ tp31340 a(g6 V tp31341 a(g100 Vsuperclass p31342 tp31343 a(g6 V tp31344 a(g48 VnewUniqueClassInstVars: p31345 tp31346 a(g6 V tp31347 a(g100 VinstVarString p31348 tp31349 a(g6 V tp31350 a(g48 VclassInstVars: p31351 tp31352 a(g6 V tp31353 a(g100 VclassInstVarString p31354 tp31355 a(g6 V] tp31356 a(g212 V. tp31357 a(g6 V\u000a p31358 tp31359 a(g100 VaName p31360 tp31361 a(g6 V tp31362 a(g353 V_ tp31363 a(g6 V tp31364 a(g87 Vself p31365 tp31366 a(g6 V tp31367 a(g48 VchooseUniqueClassName p31368 tp31369 a(g212 V. tp31370 a(g6 V\u000a p31371 tp31372 a(g100 VaClass p31373 tp31374 a(g6 V tp31375 a(g353 V_ tp31376 a(g6 V tp31377 a(g87 Vself p31378 tp31379 a(g6 V tp31380 a(g48 Vsubclass: p31381 tp31382 a(g6 V tp31383 a(g100 VaName p31384 tp31385 a(g6 V tp31386 a(g48 VinstanceVariableNames: p31387 tp31388 a(g6 V tp31389 a(g100 VinstVarString p31390 tp31391 a(g6 V \u000a p31392 tp31393 a(g48 VclassVariableNames: p31394 tp31395 a(g6 V tp31396 a(g236 V'' p31397 tp31398 a(g6 V tp31399 a(g48 VpoolDictionaries: p31400 tp31401 a(g6 V tp31402 a(g236 V'' p31403 tp31404 a(g6 V tp31405 a(g48 Vcategory: p31406 tp31407 a(g6 V tp31408 a(g87 Vself p31409 tp31410 a(g6 V tp31411 a(g48 VcategoryForUniclasses p31412 tp31413 a(g212 V. tp31414 a(g6 V\u000a p31415 tp31416 a(g100 VclassInstVarString p31417 tp31418 a(g6 V tp31419 a(g48 Vsize p31420 tp31421 a(g6 V tp31422 a(g48 V> tp31423 a(g6 V tp31424 a(g223 V0 tp31425 a(g6 V tp31426 a(g84 VifTrue: p31427 tp31428 a(g6 V\u000a p31429 tp31430 a(g6 V[ tp31431 a(g6 V tp31432 a(g100 VaClass p31433 tp31434 a(g6 V tp31435 a(g48 Vclass p31436 tp31437 a(g6 V tp31438 a(g48 VinstanceVariableNames: p31439 tp31440 a(g6 V tp31441 a(g100 VclassInstVarString p31442 tp31443 a(g6 V] tp31444 a(g212 V. tp31445 a(g6 V\u000a p31446 tp31447 a(g353 V^ tp31448 a(g6 V tp31449 a(g100 VaClass p31450 tp31451 a(g138 V! ! p31452 tp31453 a(g6 V\u000a\u000a p31454 tp31455 a(g138 V! tp31456 a(g133 VObject class p31457 tp31458 a(g138 V methodsFor: p31459 tp31460 a(g236 V'instance creation' p31461 tp31462 a(g138 V stamp: 'sw 7/28/97 15:56'! p31463 tp31464 a(g6 V\u000a tp31465 a(g48 VnewUserInstance p31466 tp31467 a(g6 V\u000a p31468 tp31469 a(g24 V"Answer an instance of an appropriate class to serve as a user object in the containment hierarchy" p31470 tp31471 a(g6 V\u000a\u000a p31472 tp31473 a(g353 V^ tp31474 a(g6 V tp31475 a(g87 Vself p31476 tp31477 a(g6 V tp31478 a(g48 VinstanceOfUniqueClass p31479 tp31480 a(g138 V! ! p31481 tp31482 a(g6 V\u000a\u000a p31483 tp31484 a(g138 V! tp31485 a(g133 VObject class p31486 tp31487 a(g138 V methodsFor: p31488 tp31489 a(g236 V'instance creation' p31490 tp31491 a(g138 V stamp: 'nk 8/30/2004 07:57'! p31492 tp31493 a(g6 V\u000a tp31494 a(g48 VreadCarefullyFrom: p31495 tp31496 a(g6 V tp31497 a(g100 VtextStringOrStream p31498 tp31499 a(g6 V\u000a p31500 tp31501 a(g24 V"Create an object based on the contents of textStringOrStream. Return an error instead of putting up a SyntaxError window." p31502 tp31503 a(g6 V\u000a\u000a p31504 tp31505 a(g353 V| tp31506 a(g100 V object p31507 tp31508 a(g353 V| tp31509 a(g6 V\u000a p31510 tp31511 a(g6 V( tp31512 a(g133 VCompiler p31513 tp31514 a(g6 V tp31515 a(g48 VcouldEvaluate: p31516 tp31517 a(g6 V tp31518 a(g100 VtextStringOrStream p31519 tp31520 a(g6 V) tp31521 a(g6 V\u000a p31522 tp31523 a(g84 VifFalse: p31524 tp31525 a(g6 V tp31526 a(g6 V[ tp31527 a(g6 V tp31528 a(g353 V^ tp31529 a(g6 V tp31530 a(g87 Vself p31531 tp31532 a(g6 V tp31533 a(g48 Verror: p31534 tp31535 a(g6 V tp31536 a(g236 V'expected String, Stream, or Text' p31537 tp31538 a(g6 V] tp31539 a(g212 V. tp31540 a(g6 V\u000a p31541 tp31542 a(g100 Vobject p31543 tp31544 a(g6 V tp31545 a(g353 V_ tp31546 a(g6 V tp31547 a(g133 VCompiler p31548 tp31549 a(g6 V tp31550 a(g48 Vevaluate: p31551 tp31552 a(g6 V tp31553 a(g100 VtextStringOrStream p31554 tp31555 a(g6 V tp31556 a(g48 Vfor: p31557 tp31558 a(g6 V tp31559 a(g87 Vnil p31560 tp31561 a(g6 V \u000a p31562 tp31563 a(g48 Vnotifying: p31564 tp31565 a(g6 V tp31566 a(g258 V#error: p31567 tp31568 a(g6 V tp31569 a(g24 V"signal we want errors" p31570 tp31571 a(g6 V tp31572 a(g48 Vlogged: p31573 tp31574 a(g6 V tp31575 a(g87 Vfalse p31576 tp31577 a(g212 V. tp31578 a(g6 V\u000a p31579 tp31580 a(g6 V( tp31581 a(g100 Vobject p31582 tp31583 a(g6 V tp31584 a(g48 VisKindOf: p31585 tp31586 a(g6 V tp31587 a(g87 Vself p31588 tp31589 a(g6 V) tp31590 a(g6 V tp31591 a(g84 VifFalse: p31592 tp31593 a(g6 V tp31594 a(g6 V[ tp31595 a(g6 V tp31596 a(g87 Vself p31597 tp31598 a(g6 V tp31599 a(g48 Verror: p31600 tp31601 a(g6 V tp31602 a(g87 Vself p31603 tp31604 a(g6 V tp31605 a(g48 Vname p31606 tp31607 a(g48 V, tp31608 a(g6 V tp31609 a(g236 V' expected' p31610 tp31611 a(g6 V] tp31612 a(g212 V. tp31613 a(g6 V\u000a p31614 tp31615 a(g353 V^ tp31616 a(g100 Vobject p31617 tp31618 a(g138 V! ! p31619 tp31620 a(g6 V\u000a\u000a p31621 tp31622 a(g138 V! tp31623 a(g133 VObject class p31624 tp31625 a(g138 V methodsFor: p31626 tp31627 a(g236 V'instance creation' p31628 tp31629 a(g138 V stamp: 'nk 8/30/2004 07:57'! p31630 tp31631 a(g6 V\u000a tp31632 a(g48 VreadFrom: p31633 tp31634 a(g6 V tp31635 a(g100 VtextStringOrStream p31636 tp31637 a(g6 V\u000a p31638 tp31639 a(g24 V"Create an object based on the contents of textStringOrStream." p31640 tp31641 a(g6 V\u000a\u000a p31642 tp31643 a(g353 V| tp31644 a(g100 V object p31645 tp31646 a(g353 V| tp31647 a(g6 V\u000a p31648 tp31649 a(g6 V( tp31650 a(g133 VCompiler p31651 tp31652 a(g6 V tp31653 a(g48 VcouldEvaluate: p31654 tp31655 a(g6 V tp31656 a(g100 VtextStringOrStream p31657 tp31658 a(g6 V) tp31659 a(g6 V\u000a p31660 tp31661 a(g84 VifFalse: p31662 tp31663 a(g6 V tp31664 a(g6 V[ tp31665 a(g6 V tp31666 a(g353 V^ tp31667 a(g6 V tp31668 a(g87 Vself p31669 tp31670 a(g6 V tp31671 a(g48 Verror: p31672 tp31673 a(g6 V tp31674 a(g236 V'expected String, Stream, or Text' p31675 tp31676 a(g6 V] tp31677 a(g212 V. tp31678 a(g6 V\u000a p31679 tp31680 a(g100 Vobject p31681 tp31682 a(g6 V tp31683 a(g353 V_ tp31684 a(g6 V tp31685 a(g133 VCompiler p31686 tp31687 a(g6 V tp31688 a(g48 Vevaluate: p31689 tp31690 a(g6 V tp31691 a(g100 VtextStringOrStream p31692 tp31693 a(g212 V. tp31694 a(g6 V\u000a p31695 tp31696 a(g6 V( tp31697 a(g100 Vobject p31698 tp31699 a(g6 V tp31700 a(g48 VisKindOf: p31701 tp31702 a(g6 V tp31703 a(g87 Vself p31704 tp31705 a(g6 V) tp31706 a(g6 V tp31707 a(g84 VifFalse: p31708 tp31709 a(g6 V tp31710 a(g6 V[ tp31711 a(g6 V tp31712 a(g87 Vself p31713 tp31714 a(g6 V tp31715 a(g48 Verror: p31716 tp31717 a(g6 V tp31718 a(g87 Vself p31719 tp31720 a(g6 V tp31721 a(g48 Vname p31722 tp31723 a(g48 V, tp31724 a(g6 V tp31725 a(g236 V' expected' p31726 tp31727 a(g6 V] tp31728 a(g212 V. tp31729 a(g6 V\u000a p31730 tp31731 a(g353 V^ tp31732 a(g100 Vobject p31733 tp31734 a(g138 V! ! p31735 tp31736 a(g6 V\u000a\u000a\u000a p31737 tp31738 a(g138 V! tp31739 a(g133 VObject class p31740 tp31741 a(g138 V methodsFor: p31742 tp31743 a(g236 V'objects from disk' p31744 tp31745 a(g138 V stamp: 'tk 1/8/97'! p31746 tp31747 a(g6 V\u000a tp31748 a(g48 VcreateFrom: p31749 tp31750 a(g6 V tp31751 a(g100 VaSmartRefStream p31752 tp31753 a(g6 V tp31754 a(g48 Vsize: p31755 tp31756 a(g6 V tp31757 a(g100 VvarsOnDisk p31758 tp31759 a(g6 V tp31760 a(g48 Vversion: p31761 tp31762 a(g6 V tp31763 a(g100 VinstVarList p31764 tp31765 a(g6 V\u000a p31766 tp31767 a(g24 V"Create an instance of me so objects on the disk can be read in. Tricky part is computing the size if variable. Inst vars will be filled in later. " p31768 tp31769 a(g6 V\u000a\u000a p31770 tp31771 a(g353 V^ tp31772 a(g6 V tp31773 a(g87 Vself p31774 tp31775 a(g6 V tp31776 a(g48 VisVariable p31777 tp31778 a(g6 V\u000a p31779 tp31780 a(g84 VifFalse: p31781 tp31782 a(g6 V tp31783 a(g6 V[ tp31784 a(g6 V tp31785 a(g87 Vself p31786 tp31787 a(g6 V tp31788 a(g48 VbasicNew p31789 tp31790 a(g6 V] tp31791 a(g6 V\u000a p31792 tp31793 a(g84 VifTrue: p31794 tp31795 a(g6 V tp31796 a(g6 V[ tp31797 a(g24 V"instVarList is names of old class's inst vars plus a version number" p31798 tp31799 a(g6 V \u000a p31800 tp31801 a(g6 V tp31802 a(g87 Vself p31803 tp31804 a(g6 V tp31805 a(g48 VbasicNew: p31806 tp31807 a(g6 V tp31808 a(g6 V( tp31809 a(g100 VvarsOnDisk p31810 tp31811 a(g6 V tp31812 a(g48 V- tp31813 a(g6 V tp31814 a(g6 V( tp31815 a(g100 VinstVarList p31816 tp31817 a(g6 V tp31818 a(g48 Vsize p31819 tp31820 a(g6 V tp31821 a(g48 V- tp31822 a(g6 V tp31823 a(g223 V1 tp31824 a(g6 V) tp31825 a(g6 V) tp31826 a(g6 V] tp31827 a(g6 V\u000a tp31828 a(g138 V! ! p31829 tp31830 a(g6 V\u000a\u000a\u000a p31831 tp31832 a(g138 V! tp31833 a(g133 VObject class p31834 tp31835 a(g138 V methodsFor: p31836 tp31837 a(g236 V'window color' p31838 tp31839 a(g138 V stamp: 'nk 6/10/2004 08:10'! p31840 tp31841 a(g6 V\u000a tp31842 a(g48 VwindowColorSpecification p31843 tp31844 a(g6 V\u000a p31845 tp31846 a(g24 V"Answer a WindowColorSpec object that declares my preference.\u000a This is a backstop for classes that don't otherwise define a preference." p31847 tp31848 a(g6 V\u000a\u000a p31849 tp31850 a(g353 V^ tp31851 a(g6 V tp31852 a(g133 VWindowColorSpec p31853 tp31854 a(g6 V tp31855 a(g48 VclassSymbol: p31856 tp31857 a(g6 V tp31858 a(g87 Vself p31859 tp31860 a(g6 V tp31861 a(g48 Vname p31862 tp31863 a(g6 V\u000a p31864 tp31865 a(g48 Vwording: p31866 tp31867 a(g6 V tp31868 a(g236 V'Default' p31869 tp31870 a(g6 V tp31871 a(g48 VbrightColor: p31872 tp31873 a(g6 V tp31874 a(g258 V#white p31875 tp31876 a(g6 V\u000a p31877 tp31878 a(g48 VpastelColor: p31879 tp31880 a(g6 V tp31881 a(g258 V#white p31882 tp31883 a(g6 V\u000a p31884 tp31885 a(g48 VhelpMessage: p31886 tp31887 a(g6 V tp31888 a(g236 V'Other windows without color preferences.' p31889 tp31890 a(g138 V! ! p31891 tp31892 a(g6 V\u000a\u000a\u000a p31893 tp31894 a(g138 V! tp31895 a(g133 VObject class p31896 tp31897 a(g138 V methodsFor: p31898 tp31899 a(g236 V'private' p31900 tp31901 a(g138 V stamp: 'mir 8/22/2001 15:20'! p31902 tp31903 a(g6 V\u000a tp31904 a(g48 VreleaseExternalSettings p31905 tp31906 a(g6 V\u000a p31907 tp31908 a(g24 V"Do nothing as a default" p31909 tp31910 a(g138 V! ! p31911 tp31912 a(g6 V\u000a\u000a\u000a p31913 tp31914 a(g133 VObject p31915 tp31916 a(g6 V tp31917 a(g48 Vinitialize p31918 tp31919 a(g48 V! tp31920 a(g6 V\u000a tp31921 a.