forked from newspeaklanguage/newspeak
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathHopscotchForHTML5Runtime.ns
More file actions
59 lines (59 loc) · 2 KB
/
HopscotchForHTML5Runtime.ns
File metadata and controls
59 lines (59 loc) · 2 KB
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
Newspeak3
'Root'
class HopscotchForHTML5Runtime packageUsing: manifest = (
|
private Fonts = manifest FontsForHTML5.
private Graphics = manifest GraphicsForHTML5.
private TextModule = manifest TextModule.
private Hopscotch = manifest HopscotchForHTML5.
private images = Images packageUsing: manifest.
|
) (
class Images packageUsing: manifest = (
|
public accept16px = manifest accept16px.
public cancel16px = manifest cancel16px.
public backImage = manifest hsBackImage.
public clearImage = manifest clearImage.
public disclosureClosedImage = manifest disclosureClosedImage.
public disclosureOpenImage = manifest disclosureOpenImage.
public downloadImage = manifest downloadImage.
public dropDownImage = manifest hsDropdownImage.
public forwardImage = manifest hsForwardImage.
public findImage = manifest findImage.
public helpImage = manifest helpImage.
public historyImage = manifest hsHistoryImage.
public homeImage = manifest hsHomeImage.
public itemReferencesImage = manifest itemReferencesImage.
public newImage = manifest hsNewImage.
public peekingeye1610 = manifest peekingeye1610.
public refreshImage = manifest hsRefreshImage.
|
) (
) : (
)
class PlatformWithHopscotch usingPlatform: platform = (
|
public isKindOfPlatformWithElectron = platform isKindOfPlatformWithElectron.
public kernel = platform kernel.
public collections = platform collections.
public ducts = platform ducts.
public actors = platform actors.
public mirrors = platform mirrors.
public js = platform js.
public operatingSystem = platform operatingSystem.
public fonts = Fonts usingPlatform: self.
public graphics = Graphics usingPlatform: self.
public text = TextModule usingPlatform: self.
public hopscotch = Hopscotch usingPlatform: self images: images.
public local = platform.
public victoryFuel = platform operatingSystem = 'emscripten' ifTrue: [platform victoryFuel].
|
) (
) : (
)
public using: platform = (
^PlatformWithHopscotch usingPlatform: platform
)
) : (
)