summaryrefslogtreecommitdiff
path: root/tex/context/base/java-fld.tex
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>1999-12-30 00:00:00 +0100
committerHans Hagen <pragma@wxs.nl>1999-12-30 00:00:00 +0100
commitdd50c74f0702bff05e96d5d3994316405414663e (patch)
tree1afbfa61cdd0721fa4eea8892972a6a183b05610 /tex/context/base/java-fld.tex
parentb386eada290e225dc25484133c2bc5697024a822 (diff)
downloadcontext-dd50c74f0702bff05e96d5d3994316405414663e.tar.gz
stable 1999.12.30
Diffstat (limited to 'tex/context/base/java-fld.tex')
-rw-r--r--tex/context/base/java-fld.tex61
1 files changed, 33 insertions, 28 deletions
diff --git a/tex/context/base/java-fld.tex b/tex/context/base/java-fld.tex
index 1178aaa75..d349392e8 100644
--- a/tex/context/base/java-fld.tex
+++ b/tex/context/base/java-fld.tex
@@ -8,7 +8,7 @@
%D copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
-%C therefore copyrighted by \PRAGMA. See licen-en.pdf for
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
% nu nog alles geladen, moet dus anders
@@ -125,7 +125,7 @@
event.value = Sanitized_TeX_String(event.value) ;
\stopJScode
-\startJSpreamble {Do_With_Field}
+\startJSpreamble {Do_With_Field} used now
var visible_field = new Array() ; % no garbage collection !
var visible_fields = 0 ;
@@ -135,13 +135,16 @@ function Hide_When_Down ()
function Hide_Field ( Name )
{ var v = this.getField(Name) ;
- if (v) { v.hidden = true } }
+ if (v)
+ { % this.dirty = false ;
+ v.hidden = true } }
function Vide_Field ( Name )
{ var v = this.getField(Name) ;
if (v)
{ ++visible_fields ;
visible_field[visible_fields] = Name ;
+ % this.dirty = false ;
v.hidden = false } }
function Hide_Fields ()
@@ -199,31 +202,33 @@ function Flip_Fields ( Name )
\startJScode{Forget_Changes} this.dirty = false \stopJScode
-\startJSpreamble {Walk_Field} used later
-
-function Walk_Field ( FieldSet )
- { var i = 1 ;
- while (true)
- { v = this.getField(FieldSet+":"+i) ;
- if (v)
- { if (v.value=="On")
- { v.value = "Off" ;
- var ii = i ; ii++ ;
- v = this.getField(FieldSet+":"+ii) ;
- if (!v)
- { v = this.getField(FieldSet+":"+1) }
- if (v)
- { v.value = "On" }
- break }
- i++ }
- else
- { break } } }
-
-\stopJSpreamble
-
-\startJScode {Walk_Field} uses {Walk_Field}
- Walk_Field (JS_S_1) ;
-\stopJScode
+\definereference[ForgetChanges][JS(Forget_Changes)]
+
+% \startJSpreamble {Walk_Field} used later
+%
+% function Walk_Field ( FieldSet )
+% { var i = 1 ;
+% while (true)
+% { v = this.getField(FieldSet+":"+i) ;
+% if (v)
+% { if (v.value=="On")
+% { v.value = "Off" ;
+% var ii = i ; ii++ ;
+% v = this.getField(FieldSet+":"+ii) ;
+% if (!v)
+% { v = this.getField(FieldSet+":"+1) }
+% if (v)
+% { v.value = "On" }
+% break }
+% i++ }
+% else
+% { break } } }
+%
+% \stopJSpreamble
+%
+% \startJScode {Walk_Field} uses {Walk_Field}
+% Walk_Field (JS_S_1) ;
+% \stopJScode
\startJSpreamble {Walk_Field} used later