speed up rendering of code preview into textfield

change ga_readonly to textfield_readonly for textfield in requester item settings page
fix resetting textfieldbase in textedtor object

Author: dmcoles

codePreviewForm.e

@@ -39,10 +39,23 @@ CONST NUM_PREVIEW_GADS=PREVIEWGAD_SCROLL+1
 EXPORT OBJECT codePreviewForm OF reactionForm
 ENDOBJECT
 
+PROC createTextFieldGad() OF codePreviewForm
+  DEF gfxb:PTR TO gfxbase
+  DEF res
+  gfxb:=gfxbase
+  res:=NewObjectA( TextField_GetClass(), NIL,[
+        GA_ID, PREVIEWGAD_TEXT,       
+        GA_RELVERIFY, TRUE,
+        GA_TABCYCLE, TRUE,
+        TEXTFIELD_TEXTFONT, gfxb.defaultfont,
+        TEXTFIELD_READONLY, TRUE,
+        TEXTFIELD_BORDER, TEXTFIELD_BORDER_BEVEL,
+      TAG_END])
+ENDPROC res
+
 EXPORT PROC create() OF codePreviewForm
   DEF gads:PTR TO LONG
   DEF tempbase=0,map
-  DEF gfxb:PTR TO gfxbase
 
   NEW gads[NUM_PREVIEW_GADS]
   self.gadgetList:=gads
@@ -61,24 +74,10 @@ EXPORT PROC create() OF codePreviewForm
         GA_TABCYCLE, TRUE,
         GA_READONLY, TRUE,
       TAG_END])
-  ELSE
-    gfxb:=gfxbase
-    self.gadgetList[ PREVIEWGAD_TEXT ]:=NewObjectA( TextField_GetClass(), NIL,[
-        GA_ID, PREVIEWGAD_TEXT,
-        //GA_TEXTEDITOR_WRAPBORDER,-1,
-        //GA_TEXTEDITOR_FIXEDFONT,TRUE,
-        //GA_TEXTEDITOR_HORIZONTALSCROLL, TRUE,
-        
-        GA_RELVERIFY, TRUE,
-        GA_TABCYCLE, TRUE,
-        TEXTFIELD_TEXTFONT, gfxb.defaultfont,
-        TEXTFIELD_READONLY, TRUE,
-        TEXTFIELD_BORDER, TEXTFIELD_BORDER_BEVEL,
-      TAG_END])
+  ELSE  
+    self.gadgetList[ PREVIEWGAD_TEXT ]:=self.createTextFieldGad()
   ENDIF
 
-  textfieldbase:=texteditorbase
-
   self.gadgetActions:=gads
     self.windowObj:=WindowObject,
     WA_TITLE, 'Code Preview',
@@ -162,6 +161,7 @@ ENDPROC
 EXPORT PROC showCode(strStream:PTR TO stringStreamer) OF codePreviewForm
   DEF str[201]:ARRAY OF CHAR
   DEF win,top
+  DEF newgad,tempdata,size
   strStream.reset()
   win:=Gets(self.windowObj,WINDOW_WINDOW)
   top:=Gets(self.gadgetList[ PREVIEWGAD_SCROLL ],SCROLLER_TOP)
@@ -170,20 +170,30 @@ EXPORT PROC showCode(strStream:PTR TO stringStreamer) OF codePreviewForm
     SetGadgetAttrsA(self.gadgetList[ PREVIEWGAD_TEXT ],win,0,[GA_TEXTEDITOR_QUIET,1,TAG_END])
   ELSE
     SetGadgetAttrsA(self.gadgetList[ PREVIEWGAD_TEXT ],win,0,[TEXTFIELD_TEXT,'',0])
+    newgad:=self.createTextFieldGad()
   ENDIF
   WHILE strStream.readLine(str)<>-1
     str[StrLen(str)+1]:=0
     str[StrLen(str)]:="\n"   
     IF texteditorbase
       DoGadgetMethodA(self.gadgetList[ PREVIEWGAD_TEXT ],win,0,[GM_TEXTEDITOR_INSERTTEXT, 0, str, GV_TEXTEDITOR_INSERTTEXT_BOTTOM]:gp_texteditor_inserttext)
     ELSE
-      SetGadgetAttrsA(self.gadgetList[ PREVIEWGAD_TEXT ],win,0,[TEXTFIELD_INSERTTEXT,str,0])
+      SetGadgetAttrsA(newgad,0,0,[TEXTFIELD_INSERTTEXT,str,0])
     ENDIF
   ENDWHILE
   IF texteditorbase
     SetGadgetAttrsA(self.gadgetList[ PREVIEWGAD_TEXT ],win,0,[GA_TEXTEDITOR_QUIET,FALSE,TAG_END])
     SetGadgetAttrsA(self.gadgetList[ PREVIEWGAD_TEXT ],win,0,[GA_TEXTEDITOR_PROP_FIRST,top,TAG_END])
   ELSE
+    size:=Gets(newgad,TEXTFIELD_SIZE)
+    tempdata:=New(size)
+    IF tempdata
+      CopyMem(Gets(newgad,TEXTFIELD_TEXT),tempdata,size)
+      SetGadgetAttrsA(self.gadgetList[ PREVIEWGAD_TEXT ],win,0,[TEXTFIELD_TEXT,tempdata,TAG_END])
+      Dispose(tempdata)
+    ENDIF
+    DisposeObject(newgad)
+
     SetGadgetAttrsA(self.gadgetList[ PREVIEWGAD_TEXT ],win,0,[TEXTFIELD_TOP,top,TAG_END])
   ENDIF
   SetGadgetAttrsA(self.gadgetList[ PREVIEWGAD_SCROLL ],win,0,[SCROLLER_TOP,top,TAG_END]) 

requesterItemObject.e

@@ -106,7 +106,7 @@ PROC create() OF requesterItemSettingsForm
         GA_ID, REQITEMGAD_BODY,
         GA_RELVERIFY, TRUE,
         GA_TABCYCLE, TRUE,
-        GA_READONLY, FALSE,
+        TEXTFIELD_READONLY, FALSE,
         TEXTFIELD_BORDER, TEXTFIELD_BORDER_BEVEL,
       TAG_END])
   ENDIF

textEditorObject.e

@@ -404,7 +404,7 @@ PROC editSettings(comp:PTR TO textEditorObject) OF textEditorSettingsForm
 ENDPROC res=MR_OK
 
 EXPORT PROC createPreviewObject(scr) OF textEditorObject
-  DEF tempbase
+  DEF tempbase=0
   self.previewObject:=0
   IF (texteditorbase)
     tempbase:=textfieldbase
@@ -426,7 +426,7 @@ EXPORT PROC createPreviewObject(scr) OF textEditorObject
       TAG_END])
   ENDIF
   IF self.previewObject=0 THEN self.previewObject:=self.createErrorObject(scr)
-  textfieldbase:=tempbase
+  IF tempbase THEN textfieldbase:=tempbase
 
   self.makePreviewChildAttrs(0)  
 ENDPROC