Selaa lähdekoodia

Clipboard Delay

Arthur Yefimov 2 vuotta sitten
vanhempi
commit
2f6ba62b51
2 muutettua tiedostoa jossa 2 lisäystä ja 1 poistoa
  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