amos-professional/extensions/Intuition-41.95/Intuition/progs/bug3.asc
2020-04-26 02:58:13 +02:00

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)