Arthur Yefimov 2 роки тому
батько
коміт
2f6ba62b51
2 змінених файлів з 2 додано та 1 видалено
  1. 1 0
      src/Graph.Mod
  2. 1 1
      src/Makefile

+ 1 - 0
src/Graph.Mod

@@ -1428,6 +1428,7 @@ BEGIN
   IF ~Platform.Windows THEN (* Workaround for an Allegro bug on X11 *)
     FOR i := 1 TO 6 DO (* Maybe "TO 1" is enough *)
       Al.free_with_context(a, 1429, 'Graph.Mod', 'GetClipboardText');
+      Delay(1);
       a := Al.get_clipboard_text(win.display)
     END
   END;

+ 1 - 1
src/Makefile

@@ -1,5 +1,5 @@
 run: all
-	@cd .. && ./FreeOberon
+	@cd .. && ./FreeOberon --window
 
 all:
 	./make.sh