Ver Fonte

Remove debug output; increase fix for clipboard

Arthur Yefimov há 2 anos atrás
pai
commit
a5ecadefde
2 ficheiros alterados com 1 adições e 2 exclusões
  1. 0 1
      src/EditorText.Mod
  2. 1 1
      src/Graph.Mod

+ 0 - 1
src/EditorText.Mod

@@ -307,7 +307,6 @@ BEGIN x := t.x; IF autoIndent THEN t.MaybeRemoveIndent END;
         L.s[i + spaces] := t.cur.s[i + t.x]
       END
     END;
-    Out.String('t.x=');Out.Int(t.x,0);Out.Ln;
     L.len := t.cur.len + spaces - t.x; t.cur.s[t.x] := 0X; t.cur.len := t.x;
     IF t.cur.next # NIL THEN t.cur.next.prev := L END;
     L.next := t.cur.next; L.prev := t.cur; t.cur.next := L;

+ 1 - 1
src/Graph.Mod

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