-
-
Notifications
You must be signed in to change notification settings - Fork 353
/
Lesson.class.st
48 lines (41 loc) · 898 Bytes
/
Lesson.class.st
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
"
A lesson is a simple data object holding a name and an associated text that will be displayed by
the tutorialPlayer.
"
Class {
#name : #Lesson,
#superclass : #Object,
#instVars : [
'title',
'lesson'
],
#category : #'ProfStef-Core'
}
{ #category : #'instance creation' }
Lesson class >> title: aStringForTitle lesson: aStringForLesson [
^ self new title: aStringForTitle; lesson: aStringForLesson; yourself.
]
{ #category : #accessing }
Lesson >> lesson [
^ lesson ifNil: [lesson := '']
]
{ #category : #accessing }
Lesson >> lesson: aString [
lesson := aString
]
{ #category : #printing }
Lesson >> printOn: aStream [
super printOn: aStream.
aStream
nextPutAll: '(';
nextPutAll: self title;
nextPutAll: ')'.
]
{ #category : #accessing }
Lesson >> title [
^ title ifNil: [title := '']
]
{ #category : #accessing }
Lesson >> title: aString [
title := aString
]