127 lines
2.0 KiB
Smalltalk
127 lines
2.0 KiB
Smalltalk
|
||
#include 'Stix.st'.
|
||
|
||
#################################################################
|
||
## MAIN
|
||
#################################################################
|
||
|
||
## TODO: use #define to define a class or use #class to define a class.
|
||
## use #extend to extend a class
|
||
## using #class for both feels confusing.
|
||
|
||
#extend Apex
|
||
{
|
||
|
||
}
|
||
|
||
#extend SmallInteger
|
||
{
|
||
#method getTrue: anInteger
|
||
{
|
||
^anInteger + 9999.
|
||
}
|
||
|
||
#method inc
|
||
{
|
||
^self + 1.
|
||
}
|
||
}
|
||
|
||
#class TestObject(Object)
|
||
{
|
||
#dcl(#class) Q R.
|
||
#dcl(#classinst) a1 a2.
|
||
|
||
#method test999
|
||
{
|
||
^self.Q
|
||
}
|
||
}
|
||
|
||
#class B.TestObject(Object)
|
||
{
|
||
#dcl(#class) Q R.
|
||
#dcl(#classinst) a1 a2.
|
||
|
||
#method test000
|
||
{
|
||
^self.Q
|
||
}
|
||
}
|
||
|
||
#pooldic ABC
|
||
{
|
||
#KKK := 20.
|
||
}
|
||
|
||
#pooldic SRX.ABC
|
||
{
|
||
#JJJ := 1000.
|
||
}
|
||
#class MyConsole(Console)
|
||
{
|
||
#method box: origin corner: corner
|
||
{
|
||
| tmp |
|
||
self setCursor: origin.
|
||
self write: '+'.
|
||
(corner x - origin x - 1) timesRepeat: [self write: '-'].
|
||
self write: '+'.
|
||
|
||
tmp := Point new.
|
||
|
||
(origin y + 1) to: (corner y - 1) by: 1 do: [ :i |
|
||
tmp x: origin x y: i.
|
||
self setCursor: tmp.
|
||
self write: '|'.
|
||
|
||
tmp x: corner x.
|
||
self setCursor: tmp.
|
||
self write: '|'.
|
||
].
|
||
|
||
tmp x: origin x y: corner y.
|
||
self setCursor: tmp.
|
||
self write: '+'.
|
||
(corner x - origin x - 1) timesRepeat: [self write: '-'].
|
||
self write: '+'.
|
||
}
|
||
}
|
||
|
||
#class MyObject(TestObject)
|
||
{
|
||
#dcl(#pooldic) ABC SRX.ABC.
|
||
|
||
#method(#class) main
|
||
{
|
||
| v1 v2 |
|
||
|
||
v2 := 'have fun'.
|
||
|
||
v2 at: 0 put: $H.
|
||
|
||
System logNl: ('START OF MAIN - ' , v2).
|
||
|
||
v1 := MyConsole output.
|
||
v1 clear.
|
||
v1 box: 0@0 corner: 80@20.
|
||
v1 write: S'hello, 월드 이거 좋지 않니\n'.
|
||
v1 write: S'하하하하하하하하 좋아좋아 可愛くってしょうがない(^o^) ほのかちゃん、しおりちゃん元気そうだね！ 久しぶりに見た。しおりちゃんどうしたのかな？좋아 하라하하\n'.
|
||
v1 close.
|
||
|
||
self main2.
|
||
System logNl: S'\0\0\0END OF MAIN\0AB\0\0\0C\0\0\0'.
|
||
}
|
||
|
||
}
|
||
|
||
#extend MyObject
|
||
{
|
||
#method(#class) main2
|
||
{
|
||
System logNl: KKK.
|
||
System logNl: SRX.ABC.JJJ.
|
||
System logNl: JJJ.
|
||
}
|
||
}
|