Commit 3ffe0e67 authored by Diederik van Arkel's avatar Diederik van Arkel

minor cleanup

parent 4c2bae7d
......@@ -31,8 +31,10 @@ from PmCleanSystem import QuitCleanCompiler
import Platform, IdePlatform
import PmDriver
import StdSystem
import StdSystem, StdClipboard
//import dodebug
//trace_n m f :== trace_n` m f
trace_n _ f :== f
//--
......@@ -44,7 +46,7 @@ ensureDirectory pd_string env
= (ok,env)
# (err_code, env) = createDirectory path env
= (err_code==NoDirError || err_code==AlreadyExists, env)
//import dodebug
Start :: !*World -> *World
Start world
# (stup,world) = accFiles GetFullApplicationPath world
......@@ -66,13 +68,8 @@ Start world
#! (prefs,world) = openPrefs prefspath world
# envspath = MakeFullPathname EnvsDir EnvsFileName
#! (iniTargets,world) = openEnvironments stup envspath world
// # envspath = EnvsDir
// # (iniTargets,world) = getEnvironments stup envspath world
// # world = trace_n` ("entries",listToString entries) world
// #! (iniTargets,world)
// = openEnvironments stup envspath world
#! (iniTargets,world)
= openEnvironments stup envspath world
# (ffind,world) = initFindBoxInfo prefs world
# (iniTwi,world) = iniTypeWinInfo mEditId mEdUndoId ([]) prefs.typ_prefs world
......@@ -113,7 +110,6 @@ Start world
world
# patt = [ ProcessClose (Quit prefspath)
, ProcessOpenFiles openfiles
// , ProcessActivate (trace_n` "ACTIVATE!")
// , ProcessClipboardChanged clip_changed
: toolbar
] ++ PlatformProcessAttributes
......@@ -932,7 +928,7 @@ where
= ps
//--
import StdClipboard
ed_Undo ps
# (_,ps) = sendToActiveWindow msgUndo ps
= mb_update_undoinfo ps
......
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