Commit acace369 authored by Steffen Michels's avatar Steffen Michels

add new tasks of groups at bottom again, to prevent problems with dialogs changing position

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@964 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 088ce75d
......@@ -117,7 +117,7 @@ statistics sid =
updateShared "Statistics" [ButtonAction (ActionOk, Always)] sid [statsListener]
>>| return GContinue
where
statsListener = listener {listenerFrom = \(AppState (Note txt) _) -> {lines = length (split "\n" txt), words = length (split " " (replaceSubString "\n" " " txt)), characters = textSize txt}}
statsListener = listener {listenerFrom = \(AppState (Note txt) _) -> let txt = trim txt in {lines = length (split "\n" txt), words = length (split " " (replaceSubString "\n" " " txt)), characters = textSize txt}}
about :: Task GAction
about =
......
......@@ -170,7 +170,7 @@ where
Stop = (TaskFinished pst.state,pst,tst)
Continue = processAllTasks pst (inc idx) tst
Extend tlist
# pst = {PSt | pst & tasks = pst.tasks ++ (if (isJust mbParType) id reverse) [(assignTask task,False) \\ task <- tlist]}
# pst = {PSt | pst & tasks = pst.tasks ++ [(assignTask task,False) \\ task <- tlist]}
= processAllTasks pst (inc idx) tst
loadPSt taskNr tst
......
......@@ -104,7 +104,7 @@ buildTaskPanel tree menus currentUser tst = case tree of
# container = (TTCGroupContainer {TTCGroupContainer
| xtype = "itasks.ttc.group"
, taskId = ti.TaskInfo.taskId
, content = reverse containers
, content = containers
, subtaskId = Nothing
})
= (container,tst)
......
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