Browse Source

Remove debug output; increase fix for clipboard

Arthur Yefimov 2 years ago
parent
commit
a5ecadefde
2 changed files with 1 additions and 2 deletions
  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]
         L.s[i + spaces] := t.cur.s[i + t.x]
       END
       END
     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;
     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;
     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;
     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
 BEGIN
   a := Al.get_clipboard_text(win.display);
   a := Al.get_clipboard_text(win.display);
   IF ~Platform.Windows THEN (* Workaround for an Allegro bug on X11 *)
   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');
       Al.free_with_context(a, 1429, 'Graph.Mod', 'GetClipboardText');
       a := Al.get_clipboard_text(win.display)
       a := Al.get_clipboard_text(win.display)
     END
     END