diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-19 02:28:08 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-19 02:28:08 +0000 |
commit | 2f97f0a378ac0663d14f1e4e5a8df6c3d824fdd6 (patch) | |
tree | 756dc891b84576b3697a1d636e908328afb7719b /src/interp/htsetvar.boot | |
parent | af7a143e3a13e932e243165814fa40424507dae0 (diff) | |
download | open-axiom-2f97f0a378ac0663d14f1e4e5a8df6c3d824fdd6.tar.gz |
more cleanup
Diffstat (limited to 'src/interp/htsetvar.boot')
-rw-r--r-- | src/interp/htsetvar.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/htsetvar.boot b/src/interp/htsetvar.boot index 827df141..14c5dee1 100644 --- a/src/interp/htsetvar.boot +++ b/src/interp/htsetvar.boot @@ -133,7 +133,7 @@ htSetLiterals(htPage,name,message,variable,values,functionToCall) == htSetLiteral(htPage, val) == htInitPage('"Set Command", nil) - setDynamicBinding(htpProperty(htPage, 'variable), translateYesNo2TrueFalse val) + symbolValue(htpProperty(htPage, 'variable)) := translateYesNo2TrueFalse val htKill(htPage,val) htShowIntegerPage(htPage, setData) == @@ -172,7 +172,7 @@ htSetInteger(htPage) == val := chkRange htpLabelInputString(htPage,'value) not integer? val => errorPage(htPage,['"Value Error",nil,'"\vspace{3}\centerline{{\em ",val,'"}}\vspace{2}\newline\centerline{Click on \UpBitmap{} to re-enter value}"]) - setDynamicBinding(htpProperty(htPage, 'variable), val) + symbolValue(htpProperty(htPage, 'variable)) := val htKill(htPage,val) htShowFunctionPage(htPage,setData) == @@ -215,14 +215,14 @@ htSetvarDoneButton(message, func) == htFunctionSetLiteral(htPage, val) == htInitPage('"Set Command", nil) - setDynamicBinding(htpProperty(htPage, 'variable), translateYesNo2TrueFalse val) + symbolValue(htpProperty(htPage, 'variable)) := translateYesNo2TrueFalse val htSetFunCommandContinue(htPage,val) htSetFunCommand(htPage) == variable := htpProperty(htPage,'variable) checker := htpProperty(htPage,'checker) value := htCheck(checker,htpLabelInputString(htPage,'value)) - setDynamicBinding(variable,value) --kill this later + symbolValue(variable) := value --kill this later htSetFunCommandContinue(htPage,value) htSetFunCommandContinue(htPage,value) == |