From VisualWorks®, 7.6 of February 8, 2008 on March 3, 2008 at 9:43:59 pm (Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned. Choose terminate or close.'] <methods> Core.GenericException <category>private</category>
findDebugSignalHandlerCtxFrom: startContext orUntil: sigHandlerCtx "Search for debug signal handler. Stop if sigHandlerCtx is found first. We don't deal with the firstUnwindCtx because the prior handler search addressed it. Additionally, the search goes strictly up the sender chain." | ctx cm | ctx := startContext. [ctx == nil ifTrue: [^nil]. "no handler" ctx == sigHandlerCtx ifTrue: [^nil]. cm := ctx method. cm isMarkedForHandle ifTrue: [ctx handlerException == GenericException ifTrue: [^ctx]] ifFalse: [cm isMarkedForUnwindInAction ifTrue: [ctx := ctx sender. ctx == nil ifTrue: [^nil]]. "Go up the normal sender chain."]. ctx := ctx findNextMarkedUpTo: nil] repeat. ^nil
</methods> <methods> Core.GenericException <category>testing</category>
ifUnhandledOpenDebugger "Answer if, when an instance of the receiver is raised and not handled, a debugger should be opened rather than a Notifier. By default answer false. The UserInterrupt exceptions override this method." ^false
</methods> <methods> Core.GenericException <category>private - debugger</category>
rePropagateReturnTo: aContext "Answer a context of 'propagatePrivateFrom:'." | ctx propCtx hCtx | hCtx := self findHandlerContextFrom: searchContext markDebug: false. ctx := [self performHandler: hCtx] newContext. propCtx := ctx stepUntilVisibleEffect step. propCtx sender: aContext. ^propCtx
</methods> <methods> Core.ControlInterrupt <category>testing</category>
ifUnhandledOpenDebugger "Override to arrange that when an instance of the receiver is raised and not handled, a debugger is opened rather than a Notifier." ^true
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>GenericException</name> <environment>Core</environment> <super>Core.Object</super> <private>false</private> none messageText originator initialContext firstUnwindContext handlerContext parameter proceedBlock isResumable signal searchContext notifierString <imports></imports> <category>Kernel-Exception Handling</category> <attributes> <package>Kernel-Exception Handling</package> </attributes> </class> <class> <name>ControlInterrupt</name> <environment>Core</environment> <super>Core.GenericException</super> <private>false</private> none isInterrupt <imports></imports> <category>Kernel-Exception Handling</category> <attributes> <package>Kernel-Exception Handling</package> </attributes> </class>