Browse Source

* turn off IO checking when attempting to open a font file (to avoid RTE)

Jonas Maebe 25 years ago
parent
commit
c483ef813d
1 changed files with 6 additions and 1 deletions
  1. 6 1
      rtl/inc/graph/gtext.inc

+ 6 - 1
rtl/inc/graph/gtext.inc

@@ -664,7 +664,9 @@
          if (font>DefaultFont) and not assigned(fonts[font].instr) then
          if (font>DefaultFont) and not assigned(fonts[font].instr) then
            begin
            begin
               assign(f,bgipath+fonts[font].name+'.CHR');
               assign(f,bgipath+fonts[font].name+'.CHR');
+{$i-}
               reset(f,1);
               reset(f,1);
+{$i+}
               if ioresult<>0 then
               if ioresult<>0 then
                 begin
                 begin
                    _graphresult:=grFontNotFound;
                    _graphresult:=grFontNotFound;
@@ -731,7 +733,10 @@
 
 
 {
 {
 $Log$
 $Log$
-Revision 1.9  1999-12-20 11:22:36  peter
+Revision 1.10  1999-12-23 16:48:13  jonas
+  * turn off IO checking when attempting to open a font file (to avoid RTE)
+
+Revision 1.9  1999/12/20 11:22:36  peter
   * integer -> smallint to overcome -S2 switch needed for ggi version
   * integer -> smallint to overcome -S2 switch needed for ggi version
 
 
 Revision 1.8  1999/11/11 22:29:21  florian
 Revision 1.8  1999/11/11 22:29:21  florian