/
Material-Design-Lite-Dolphin-Demo.pax
101 lines (66 loc) · 2.35 KB
/
Material-Design-Lite-Dolphin-Demo.pax
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
| package |
package := Package name: 'Material-Design-Lite-Dolphin-Demo'.
package paxVersion: 1;
basicComment: 'Material Design Lite for Seaside
Created by DuneST
https://github.com/DuneSt/MaterialDesignLite
Dolphin Smalltalk port updated 23rd April 2020
https://github.com/rko281/MaterialDesignLite
"Launch the Demo"
(WAHttpServerAdaptor port: 8080) start.
ShellLibrary default shellOpen: ''http://localhost:8080/MDLDemo/'''.
package methodNames
add: #Association -> #ifEmpty:;
add: #ChunkReader -> #collect:;
add: #String -> #asMenuBitmap;
add: 'MDLComponentDemo class' -> #icon;
add: 'MDLDemoScreen class' -> #iconImageIndex;
add: 'MDLWidgetDemo class' -> #icon;
yourself.
package binaryGlobalNames: (Set new
yourself).
package globalAliases: (Set new
yourself).
package setPrerequisites: #(
'..\Core\Object Arts\Dolphin\Base\Dolphin'
'Material-Design-Lite-Core'
'Material-Design-Lite-Demo'
'Material-Design-Lite-Dolphin-Extensions'
'..\Seaside\Seaside\Seaside-Component'
'..\Seaside\Seaside\Seaside-Dolphin-Welcome').
package setManualPrerequisites: #(
'Material-Design-Lite-Dolphin-Extensions'
'Seaside-Dolphin-Welcome').
package!
"Class Definitions"!
"Global Aliases"!
"Loose Methods"!
!Association methodsFor!
ifEmpty: aBlock
"Necessary since CompiledMethod>>name returns methodClass>selector association, not selector"
^self! !
!Association categoriesFor: #ifEmpty:!public! !
!ChunkReader methodsFor!
collect: aBlock
"ClassDescription>>methods gets us here; MDL Demo expects a collection of methods"
^context methodDictionary values collect: aBlock! !
!ChunkReader categoriesFor: #collect:!accessing!public! !
!MDLComponentDemo class methodsFor!
icon
^MDLScreen icon! !
!MDLComponentDemo class categoriesFor: #icon!public! !
!MDLDemoScreen class methodsFor!
iconImageIndex
"Avoid issues with overriding of icon in this hierarchy"
^WAComponent iconImageIndex! !
!MDLDemoScreen class categoriesFor: #iconImageIndex!public! !
!MDLWidgetDemo class methodsFor!
icon
^MDLScreen icon! !
!MDLWidgetDemo class categoriesFor: #icon!public! !
!String methodsFor!
asMenuBitmap
"This is just here to handle the IDE's autocomplete menu tripping up when trying to display an MDLDemoScreen subclass which returns a Symbol for #icon"
^MDLScreen icon asMenuBitmap! !
!String categoriesFor: #asMenuBitmap!converting!public! !
"End of package definition"!