Commit 7f4fd9d5 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

default for TextInput changed

parent 052b17e6
...@@ -395,7 +395,7 @@ gUpd{|TextInput|} (UpdSearch (UpdI ni) 0) (TI size i) = (UpdDone, ...@@ -395,7 +395,7 @@ gUpd{|TextInput|} (UpdSearch (UpdI ni) 0) (TI size i) = (UpdDone,
gUpd{|TextInput|} (UpdSearch (UpdR nr) 0) (TR size r) = (UpdDone, TR size nr) // update real value gUpd{|TextInput|} (UpdSearch (UpdR nr) 0) (TR size r) = (UpdDone, TR size nr) // update real value
gUpd{|TextInput|} (UpdSearch (UpdS ns) 0) (TS size s) = (UpdDone, TS size ns) // update string value gUpd{|TextInput|} (UpdSearch (UpdS ns) 0) (TS size s) = (UpdDone, TS size ns) // update string value
gUpd{|TextInput|} (UpdSearch val cnt) i = (UpdSearch val (cnt - 3),i) // continue search, don't change gUpd{|TextInput|} (UpdSearch val cnt) i = (UpdSearch val (cnt - 3),i) // continue search, don't change
gUpd{|TextInput|} (UpdCreate l) _ = (UpdCreate l, TI defsize 0) // create default value gUpd{|TextInput|} (UpdCreate l) _ = (UpdCreate l, TS defsize "") // create default value
gUpd{|TextInput|} mode i = (mode, i) // don't change gUpd{|TextInput|} mode i = (mode, i) // don't change
gUpd{|PasswordBox|} (UpdSearch (UpdS name) 0) _ = (UpdDone, PasswordBox name) // update password value gUpd{|PasswordBox|} (UpdSearch (UpdS name) 0) _ = (UpdDone, PasswordBox name) // update password value
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment