Commit f96a39c6 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer

bug fixed in radiobuttons


git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@108 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 8ff4893b
......@@ -503,6 +503,7 @@ where
, resetForm = Nothing
}
otherradio b v
| isNil b.changedId = v // repaired 20/2/2008 MJP
| stripname (hd b.changedId) == formid.id // REPAIR TO NEW
= RBNotChecked formid.id
| otherwise = v
......@@ -510,6 +511,9 @@ where
nformid = {formid & ival = (const2,-1)} <@ formid.id <+++ iDataIdSeparator <+++ j
stripname name = mkString (takeWhile ((<>) radioButtonSeparator) (mkList name))
isNil [] = True
isNil _ = False
FuncMenu :: !(InIDataId (Int,[(String, a -> a)])) !*HSt -> (Form (a -> a,Int),!*HSt)
FuncMenu (init,formid) hst = mkViewForm (init,nformid) bimap hst
......
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