36 lines
634 B
Plaintext
36 lines
634 B
Plaintext
'System: A500 ECS 2.1OS AMOS Pro
|
|
'
|
|
'Problem: Window never becomes active and attempts to do so crash out.
|
|
'
|
|
'Example Prg:
|
|
'
|
|
Amos To Back
|
|
|
|
Iwindow Open Wb 7,50,50,400,100,"Workbench has been invaded!",63
|
|
Iwrite "opened window"
|
|
|
|
Iclw 6
|
|
Iwrite "clear in colour 6"
|
|
|
|
A=Iwindow On Wb
|
|
Iwrite Str$(A)
|
|
|
|
Iwindow Activate 7
|
|
Iwrite "activate window"
|
|
|
|
|
|
Do
|
|
EVENT=Iwait Event
|
|
If EVENT=Ievent Close Then Exit
|
|
Loop
|
|
|
|
Iwindow Close Wb 1
|
|
|
|
Amos To Front
|
|
|
|
|
|
'Symptoms: Window opens on WB deactivated
|
|
' Iclw clears to colour 0 not colour 6 as specified
|
|
' Iwindow On Wb returns -1 since window is on WB
|
|
' Guru (error #80000003)
|