stable 2000.10.22

1 files changed, 71 insertions, 38 deletions

diff --git a/tex/context/base/java-fld.tex b/tex/context/base/java-fld.tex
index d349392e8..0ce30f8fc 100644
--- a/tex/context/base/java-fld.tex
+++ b/tex/context/base/java-fld.tex
@@ -11,6 +11,8 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for 
 %C details. 
 
+% will be simplified, since we now parse functions 
+
 % nu nog alles geladen, moet dus anders
 
 \startJSpreamble {Sanitize_TeX_Input} used later 
@@ -125,7 +127,9 @@
   event.value = Sanitized_TeX_String(event.value) ; 
 \stopJScode
 
-\startJSpreamble {Do_With_Field} used now 
+%\startJSpreamble {Do_With_Field} used now 
+
+\startJSpreamble {Field} used now 
 
 var visible_field  = new Array() ; % no garbage collection ! 
 var visible_fields = 0 ; 
@@ -188,19 +192,22 @@ function Flip_Fields ( Name )
           { v.hidden = !v.hidden ;
             v.value = "On" } } }
 
-\stopJSpreamble
+function Forget_Changes ()
+  { this.dirty = false }
 
-\startJScode{Hide_When_Down}  Hide_When_Down()     \stopJScode
-\startJScode{Hide_Field}      Hide_Field(JS_S_1)   \stopJScode
-\startJScode{Vide_Field}      Vide_Field(JS_S_1)   \stopJScode
-\startJScode{Toggle_Hide}     Toggle_Hide(JS_S_1)  \stopJScode
-\startJScode{Field_On}        Field_On(JS_S_1)     \stopJScode
-\startJScode{Field_Off}       Field_Off(JS_S_1)    \stopJScode
-\startJScode{Toggle_Value}    Toggle_Value(JS_S_1) \stopJScode
-\startJScode{Toggle_Read}     Toggle_Read(JS_S_1)  \stopJScode
-\startJScode{Flip_Fields}     Flip_Fields(JS_S_1)  \stopJScode
+\stopJSpreamble
 
-\startJScode{Forget_Changes}  this.dirty = false   \stopJScode
+%\startJScode{Hide_When_Down}  Hide_When_Down()     \stopJScode
+%\startJScode{Hide_Field}      Hide_Field(JS_S_1)   \stopJScode
+%\startJScode{Vide_Field}      Vide_Field(JS_S_1)   \stopJScode
+%\startJScode{Toggle_Hide}     Toggle_Hide(JS_S_1)  \stopJScode
+%\startJScode{Field_On}        Field_On(JS_S_1)     \stopJScode
+%\startJScode{Field_Off}       Field_Off(JS_S_1)    \stopJScode
+%\startJScode{Toggle_Value}    Toggle_Value(JS_S_1) \stopJScode
+%\startJScode{Toggle_Read}     Toggle_Read(JS_S_1)  \stopJScode
+%\startJScode{Flip_Fields}     Flip_Fields(JS_S_1)  \stopJScode
+%
+%\startJScode{Forget_Changes}  this.dirty = false   \stopJScode
 
 \definereference[ForgetChanges][JS(Forget_Changes)]
 
@@ -219,7 +226,7 @@ function Flip_Fields ( Name )
 %                   { v = this.getField(FieldSet+":"+1) }
 %                 if (v) 
 %                   { v.value = "On" }
-%                 break }  
+%                 break }
 %             i++ } 
 %         else
 %           { break } } }
@@ -229,8 +236,58 @@ function Flip_Fields ( Name )
 % \startJScode {Walk_Field} uses {Walk_Field} 
 %   Walk_Field (JS_S_1) ; 
 % \stopJScode
+% 
+% \startJSpreamble {Set_Field} used later 
+% 
+% function Set_Field ( FieldSet, FieldName ) 
+%   { var i = 1 ; 
+%     while (true) 
+%       { v = this.getField(FieldSet+":"+i) ; 
+%         if (!v) 
+%           { break }  
+%         else if (i==FieldName) 
+%           { v.value = "On" }
+%         else 
+%           { v.value = "Off" } 
+%         i++ } } 
+%
+% \stopJSpreamble
+%
+% \startJScode {Set_Field} uses {Set_Field} 
+%   Set_Field (JS_S_1,JS_S_2) ; 
+% \stopJScode
 
-\startJSpreamble {Walk_Field} used later 
+\startJSpreamble {FieldStack} used later
+
+function Reset_Fields ( FieldSet ) 
+  { var i = 1 ; 
+    while (true) 
+      { v = this.getField(FieldSet+":"+i) ; 
+        if (!v) 
+          { break }  
+        else 
+          { v.value = "Off" } 
+        i++ } } 
+
+function Set_Fields ( FieldSet ) 
+  { var i = 1 ; 
+    while (true) 
+      { v = this.getField(FieldSet+":"+i) ; 
+        if (!v) 
+          { break }  
+        else 
+          { v.value = "On" } 
+        i++ } } 
+
+function Set_Field ( FieldSet, FieldName ) 
+  { Reset_Fields(FieldSet) ; 
+    v = this.getField(FieldSet+":"+FieldName) ; 
+    if (v) { v.value = "On" } }
+
+function Reset_Field ( FieldSet, FieldName ) 
+  { Set_Fields(FieldSet) ; 
+    v = this.getField(FieldSet+":"+FieldName) ; 
+    if (v) { v.value = "Off" } }
 
 function Walk_Field ( FieldSet ) 
   { var i = 1 ; 
@@ -252,28 +309,4 @@ function Walk_Field ( FieldSet )
 
 \stopJSpreamble
 
-\startJScode {Walk_Field} uses {Walk_Field} 
-  Walk_Field (JS_S_1) ; 
-\stopJScode
-
-\startJSpreamble {Set_Field} used later 
-
-function Set_Field ( FieldSet, FieldName ) 
-  { var i = 1 ; 
-    while (true) 
-      { v = this.getField(FieldSet+":"+i) ; 
-        if (!v) 
-          { break }  
-        else if (i==FieldName) 
-          { v.value = "On" }
-        else 
-          { v.value = "Off" } 
-        i++ } } 
-
-\stopJSpreamble
-
-\startJScode {Set_Field} uses {Set_Field} 
-  Set_Field (JS_S_1,JS_S_2) ; 
-\stopJScode
-
 \endinput