37 lines
814 B
Plaintext
37 lines
814 B
Plaintext
Window(Controller
|
|
{
|
|
Xmin: 50
|
|
Ymin: 50
|
|
New()
|
|
{
|
|
super(.layout())
|
|
.txt = .FindControl('text')
|
|
.moveTimer = SetTimer(NULL, 0, 600, .moveTimerFunc)
|
|
}
|
|
direction: -1
|
|
moveTimer: false
|
|
layout()
|
|
{
|
|
return #(Vert (Static 'Hello World! ', size: 12, weight: 600,
|
|
notify:, name: 'text'))
|
|
}
|
|
moveTimerFunc(@unused)
|
|
{
|
|
str = .txt.Get()
|
|
.txt.Set(str.Substr(1 * .direction) $ str.Substr(0, (1 * .direction)))
|
|
}
|
|
Static_Click()
|
|
{
|
|
.direction = .direction * -1
|
|
}
|
|
Destroy()
|
|
{
|
|
if .moveTimer isnt false
|
|
{
|
|
KillTimer(NULL, .moveTimer)
|
|
ClearCallback(.moveTimerFunc)
|
|
}
|
|
super.Destroy()
|
|
}
|
|
})
|