Fix crash when no Get field

malaise · Mar 18, 2015 · 14cfe24 · 14cfe24
1 parent 2212546
commit 14cfe24
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/reposit/afpx-af_ptg.adb b/reposit/afpx-af_ptg.adb
@@ -824,9 +824,9 @@ package body Af_Ptg is
       Need_Redisplay := False;
       Af_Dscr.Current_Dscr.Modified := False;
       Af_Dscr.Fields(Lfn).Modified := False;
-      Field_Start := Field.Char_Index + Field.Offset;
 
       if Get_Active then
+        Field_Start := Field.Char_Index + Field.Offset;
         Pos := Get_Handle.Cursor_Col + 1;
         -- Move at beginning of field and put_then_get
         Af_Con_Io.Move (Field.Upper_Left.Row, Field.Upper_Left.Col);