20 lines
363 B
Smalltalk
20 lines
363 B
Smalltalk
Class {
|
|
#name : #Challenge,
|
|
#superclass : #Object,
|
|
#category : #CTF
|
|
}
|
|
|
|
{ #category : #decoration }
|
|
Challenge class >> prepare [
|
|
Metaclass compile:'>> selector LookupError signal'.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Challenge >> flag [
|
|
| caller |
|
|
caller := thisContext client.
|
|
((caller class) = Squeak) ifTrue: [ ^ 'FLAG' ].
|
|
|
|
^ 'Only a Squeak can do that'.
|
|
]
|