minor cleanup

Ide/IDE.icl

@@ -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