ScriptableDebugger/src/Sindarin-Demo/SindarinDemo_SkipNextException.class.st at a35277f84a36c199bebbf92a6a368acf64a904e1 · StevenCostiou/ScriptableDebugger · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
"
- Start demo
dbg := SindarinDebugger debug: [ SindarinDemo_SkipNextException new start ].

-  Demo Script
[dbg node isMessage and:
	[(dbg messageSelector = #signal:) and:
		[Exception allSubclasses includes: dbg messageReceiver]]]
		whileFalse: [dbg step].
dbg skip.
"
Class {
	#name : 'SindarinDemo_SkipNextException',
	#superclass : 'Object',
	#category : 'Sindarin-Demo',
	#package : 'Sindarin-Demo'
}

{ #category : 'accessing' }
SindarinDemo_SkipNextException >> method1 [
	self halt.
	self method2.
]

{ #category : 'accessing' }
SindarinDemo_SkipNextException >> method2 [
	self method3.
]

{ #category : 'accessing' }
SindarinDemo_SkipNextException >> method3 [
	self method4.
]

{ #category : 'accessing' }
SindarinDemo_SkipNextException >> method4 [
	self method5.
]

{ #category : 'accessing' }
SindarinDemo_SkipNextException >> method5 [
	Error signal: 'Something truly unexpected happened :)'.
	self method6.
]

{ #category : 'accessing' }
SindarinDemo_SkipNextException >> method6 [
	self method7.
]

{ #category : 'accessing' }
SindarinDemo_SkipNextException >> method7 [
	^ 42
]

{ #category : 'accessing' }
SindarinDemo_SkipNextException >> start [
	self method1
]