BEGIN EXTERNAL CLASS WindowTools; MainWindow CLASS MainWindow2; BEGIN REF(Button) Ok; BOOLEAN Finished; TEXT T; INTEGER X, Y, VX, VY; REAL TimeLapse=0.03; REF(Picture) BM; PROCEDURE Handle_ButtonClick(b); REF(button) b; IF B == Ok THEN Finished := TRUE; Button_Sensitize; SetSize(300, 300); OK :- MakeButton("Ok").PlaceDownRight; BM :- GetPicture("/home/nil2/houlejo/Images/Circle.xbm"); X := 10; Y := 10; VX := 10; VY := 17; Show; WHILE NOT Finished DO BEGIN X := X + VX; Y := Y + VY; IF X+BM.Width >= width THEN BEGIN X := width-BM.Width; VX := - VX; END ELSE IF X <= 0 THEN BEGIN X := 0; VX := - VX; END; IF Y+BM.Height >= height THEN BEGIN Y := height-BM.Height; VY := - VY; END ELSE IF Y <= 0 THEN BEGIN Y := 0; VY := - VY; END; DrawPicture(BM, X, Y); Sleep(TimeLapse); ClearRectangle(X, Y, BM.Width, BM.Height); END; END; INSPECT NEW MainWindow2("Ball") DO BEGIN END; END;