diff --git a/src/YabInterface.cpp b/src/YabInterface.cpp
index d5dc0cb..400ec01 100644
--- a/src/YabInterface.cpp
+++ b/src/YabInterface.cpp
@@ -288,7 +288,7 @@ void YabInterface::MessageReceived(BMessage *message)
 bool YabInterface::QuitRequested()
 {
 	exiting = true;
-	return true;
+	return false;
 }
 
 void YabInterface::RefsReceived(BMessage *message){
diff --git a/src/yab-IDE.yab b/src/yab-IDE.yab
deleted file mode 100755
index e423046..0000000
--- a/src/yab-IDE.yab
+++ /dev/null
@@ -1,3918 +0,0 @@
-#!yab
-
-doc Author: Jan Bungeroth
-doc Thanks to: Genki, Lelldorin, lorglas, Stargater, DasJott
-doc (c) 2006-2015 in terms of the Artistic License
-
-doc
-doc The yab-IDE provides you with an integrated development suite for yab
-doc Enjoy.
-path()
-versionnumber$="2.2.4"
-
-settingsRCSOff = true
-globalConfigDir$ = trim$(system$("finddir B_USER_SETTINGS_DIRECTORY"))+"/yab-ide/"
-
-if(LoadSettings() = 1) then
-
-	MAXFILES = 20
-	DEBUG = true
-	
-
-	settingsYabDir$ = path$ //"/boot/apps/yab-1.7/"
-	globalProjectDir$ = trim$(system$("finddir B_USER_DIRECTORY"))+"/yab_work/Programs/" 
-	yabDir$ = yabpath$()
-	ideDir$ = path$ //settingsYabDir$ + "yab-IDE/"
-	
-	buildDir$ = trim$(system$("finddir B_USER_DIRECTORY"))+"/yab_work/BuildFactory/" 
-	globalHelpDir$ = settingsYabDir$ + "Documentation/"
-
-	settingsLangUse = true
-	settingsLangPath$ = "x-vnd.yab-IDE"
-
-	settingsAutoIndent = true
-	settingsAutoCompletion = true
-	settingsACNumChar = 2
-	settingsX = 50
-	settingsY = 50
-	settingsWidth = peek("desktopwidth")-100
-	if(settingsWidth<600) settingsWidth = 600
-	settingsHeight = peek("desktopheight")-100
-	settingsFullScreen = false
-	settingsFullEditor = false
-	settingsVSplitDivider = 180
-	settingsV2SplitDivider = 41
-	settingsHSplitDivider = settingsHeight-240
-	settingsCalcPatternX = 200
-	settingsCalcPatternY = 150
-	settingsColorSelectX = 100
-	settingsColorSelectY = 100
-	settingsColorSelectR = 255
-	settingsColorSelectG = 255
-	settingsColorSelectB = 255
-	settingsAskForSaving = true
-	settingsFindCS = false
-	settingsOldSearch$ = ""
-	settingsFindAlert = true
-	settingsReformatAlert = true
-	settingsReformatUndoAlert = true
-	settingsTabSpaces = 4
-	settingsFontFamily$ = "DejaVu Sans Mono"
-	settingsFontStyle$ = "Book"
-	settingsFontSize = 12
-	globalRealFontSize = 15
-	settingsYabParam$ = ""
-	settingsProgParam$ = ""
-
-	dim globalAllNames$(MAXFILES)
-	dim globalTextFinder(MAXFILES)
-
-	for i=1 to MAXFILES
-		globalAllNames$(i) = ""
-		globalTextFinder(i) = 0
-	next i
-
-endif
-
-
-restartSettingsLangUse = settingsLangUse
-textcolor_r = 0
-textcolor_g = 0
-textcolor_b = 0
-
-// globalNoRCS = system("test -e /boot/beos/bin/ci") or system("test -e /boot/beos/bin/co") or system("test -e /boot/beos/bin/rlog") or settingsRCSOff
-globalNoRCS = settingsRCSOff
-globalCurrentText = 0
-globalHSplitDivider = settingsHSplitDivider
-globalReformatUndo = false
-globalSelectErrorLines = true
-globalNewNumber = 0
-globalNumOpenFiles = 0
-globalWasChanged = false
-globalRealOS$ = upper$(system$("uname -o"))
-globalRealOS$ = left$(globalRealOS$, 4)
-
-oldSpinner = 1
-
-if(settingsLangUse) then
-	localize settingsLangPath$
-endif
-
-
-OpenMainWindow()
-ActivateMenus(false)
-UpdateStatusbar()
-
-LoadOpenFiles()
-
-if(settingsFullScreen) then
-	menu set "View", "Full screen", "mark", "MainView"
-	window set "MainView", "moveto", 0,0
-	window set "MainView", "resizeto", peek("desktopwidth")-1, peek("desktopheight")-1
-	window set "MainView", "MinimumTo", peek("desktopwidth")-1, peek("desktopheight")-1
-	window set "MainView", "MaximumTo", peek("desktopwidth")-1, peek("desktopheight")-1
-endif
-if(settingsFullEditor) then
-	oldSplitX = splitview get "VSplit", "Divider"
-//	oldSplitY = splitview get "HSplit", "Divider"
-	tmp = window get "MainView", "Height"
-	splitview set "HSplit", "Divider", tmp-51
-	splitview set "VSplit", "Divider", 0
-	menu set "View", "Maximize editor", "mark", "MainView"
-endif
-
-dim msg$(1)
-dim pattern(8,8)
-
-inloop = true
-while(inloop)
-	sleep 0.01
-	n = split(message$, msg$(), "|")
-	for i = 1 to n
-		if(DEBUG and msg$(i)<>"") print msg$(i)
-		switch(msg$(i))
-			case "ToolbarNew"
-			case MyTranslate$("MainView:File:New...")
-				foundEmpty = 0
-				for j=1 to MAXFILES
-					if(globalAllNames$(j) = "") then
-						foundEmpty = j
-						break
-					endif
-				next j
-				if(not foundEmpty) then
-					alert MyTranslate$("Sorry, you can not open more than ")+str$(MAXFILES)+MyTranslate$(" files at once!\n\nPlease close one or more other files first."), "Ok", "Warning"
-				else
-					NewDocument(foundEmpty)
-					if(globalNumOpenFiles = 1) then
-						ActivateMenus(true)
-						splitview set "V2Split", "Divider", settingsV2SplitDivider
-					endif
-				endif
-				break
-			case "ToolbarOpen"
-			case MyTranslate$("MainView:File:Open...")
-				foundEmpty = 0
-				for j=1 to MAXFILES
-					if(globalAllNames$(j) = "") then
-						foundEmpty = j
-						break
-					endif
-				next j
-				if(not foundEmpty) then
-					alert MyTranslate$("Sorry, you can not open more than ")+str$(MAXFILES)+MyTranslate$(" files at once!\n\nPlease close one or more other files first."), "Ok", "Warning"
-				else
-					tmp$ = filepanel "Load-File", "Open", globalProjectDir$
-					if(tmp$<>"") then
-						foundProject = false
-						for j = 1 to MAXFILES
-							if(globalAllNames$(j) = tmp$) then
-								alert "File is already open.", "Ok", "info"
-								ActivateText(j)
-								foundProject = true
-								break
-							endif
-						next j
-						if(foundProject) break
-
-						handle = open(tmp$, "r")
-						if(handle) then
-							WaitWindow(tmp$)
-							text$ = ""
-							while(not eof(handle))
-								t$ = GetLine$(handle)+"\n"
-								if(len(t$)*8>4000) textedit set "Text"+str$(foundEmpty), "textwidth", len(t$)*8+8
-								text$ = text$ + t$
-							wend
-							close(handle)
-							globalCurrentText = foundEmpty
-							textedit add "Text"+str$(globalCurrentText), text$
-							textedit set "Text"+str$(globalCurrentText), "changed", false
-							textedit set "Text"+str$(globalCurrentText), "gotoline", ReadLineFromAttr(tmp$)
-							stackview set "Stack", globalCurrentText
-							stackview set "Lines", globalCurrentText
-							globalAllNames$(globalCurrentText) = tmp$
-							t = columnbox count "FileBox" 
-							columnbox add "FileBox", 1, t+1,20, "__Icon__="+ideDir$+"img/gespeichert.png"
-							columnbox add "FileBox", 2, t+1,20, GetFileName$(tmp$) //  "Filename", t, GetFileName$(tmp$)
-							columnbox select "FileBox", t+1
-							globalTextFinder(globalCurrentText) = t+1
-							option set "Text"+str$(globalCurrentText), "focus", true
-							oldScroll = -1
-							globalNumOpenFiles = globalNumOpenFiles + 1
-							if(globalNumOpenFiles = 1) then
-								ActivateMenus(true)
-								splitview set "V2Split", "Divider", settingsV2SplitDivider
-							endif
-							globalProjectDir$ = GetDirectory$(tmp$)
-							window close "WaitWindow"
-						else
-							alert MyTranslate$("Error while loading file:\n\n")+tmp$, "Ok", "Stop"
-						endif
-					endif
-				endif
-				break
-			case "ToolbarClose"
-			case MyTranslate$("MainView:File:Close")
-				if(textedit get "Text"+str$(globalCurrentText), "hasChanged") then
-					tmpSave = alert MyTranslate$("File \"")+GetFileName$(globalAllNames$(globalCurrentText))+MyTranslate$("\" not saved!\n\nSave the file now?"), "Cancel", "Close", "Save", "warning"
-					if(tmpSave = 1) break
-					if(tmpSave = 3) then
-						tmpSave = SaveCurrentFile()
-						if(not tmpSave) break
-					endif
-				endif
-
-				textedit clear "Text"+str$(globalCurrentText)
-				globalAllNames$(globalCurrentText) = ""
-
-				columnbox remove "FileBox", globalTextFinder(globalCurrentText)
-				closeFinished = 0
-				newCurrent = 0
-				for tmpClose = 1 to MAXFILES
-					if(globalTextFinder(tmpClose)>globalTextFinder(globalCurrentText)) then
-						if(globalTextFinder(tmpClose) = globalTextFinder(globalCurrentText) + 1) then
-							closeFinished = globalTextFinder(tmpClose) - 1
-							newCurrent = tmpClose
-						endif
-						globalTextFinder(tmpClose) = globalTextFinder(tmpClose) - 1
-					endif
-				next tmpClose
-
-				if(closeFinished=0) then
-					closeFinished = globalTextFinder(globalCurrentText) - 1
-					if(closeFinished = 0) then
-						newCurrent = 0
-					else
-						for j = 1 to MAXFILES
-							if(globalTextFinder(j) = globalTextFinder(globalCurrentText)-1) then
-								newCurrent = j
-								break
-							endif
-						next j
-					endif
-				endif
-
-				globalTextFinder(globalCurrentText) = 0
-				globalCurrentText = newCurrent
-
-				if(closeFinished=0) then
-					stackview set "Stack", MAXFILES+2
-					stackview set "Lines", MAXFILES+2
-					settingsV2SplitDivider = splitview get "V2Split", "Divider"
-					splitview set "V2Split", "Divider", 0
-					ActivateMenus(false)
-				else
-					ActivateText(globalCurrentText)
-				endif
-				globalNumOpenFiles = globalNumOpenFiles - 1
-				break
-			case "ToolbarSave"
-			case MyTranslate$("MainView:File:Save")
-				tmpNull = SaveCurrentFile()
-				break
-			case MyTranslate$("MainView:File:Save as...")
-				tmpSaveAs$ = filepanel "Save-File", "Save", GetDirectory$(globalAllNames$(globalCurrentText)), GetFileName$(globalAllNames$(globalCurrentText))
-				print tmpSaveAs$
-				if(tmpSaveAs$<>"") then
-					handle = open(tmpSaveAs$, "w")
-					if(handle) then
-						print #handle textedit get$ "Text"+str$(globalCurrentText);
-						close(handle)
-						tmpCurrentLine = textedit get "Text"+str$(globalCurrentText), "currentline"
-						attribute set "Int", "linenumber", "tmpCurrentLine", tmpSaveAs$
-						textedit set "Text"+str$(globalCurrentText), "changed", false
-						globalAllNames$(globalCurrentText) = tmpSaveAs$
-						columnbox clear "FileBox"
-						for j=1 to MAXFILES
-							for k=1 to MAXFILES
-								if(globalTextFinder(j)=k) then
-									t = columnbox count "FileBox"
-									columnbox add "FileBox", 1, t+1,20, "__Icon__="+ideDir$+"img/gespeichert.png"
-									columnbox add "FileBox", 2, t+1,20, GetFileName$(globalAllNames$(j))
-									break
-								endif
-							next k
-						next j
-						columnbox select "FileBox", globalTextFinder(globalCurrentText)
-					else
-						alert "File could not be saved!", "Ok", "warning"
-					endif
-				endif
-				break
-			case MyTranslate$("MainView:File:Save as template...")
-				SaveAsTemplate()
-				break
-			case MyTranslate$("MainView:File:Export as HTML...")
-				ExportAsHTML()
-				break
-			case MyTranslate$("MainView:File:Page setup...")
-				printer setup globalConfigDir$+"printersetup"
-				break
-			case MyTranslate$("MainView:File:Print...")
-				if(globalCurrentText>0) then
-					err = printer globalAllNames$(globalCurrentText), globalConfigDir$+"printersetup", "Text"+str$(globalCurrentText)
-					if(err = 4) then
-						printer setup "/tmp/printersetup"
-						err = printer globalAllNames$(globalCurrentText), "/tmp/printersetup", "Text"+str$(globalCurrentText)
-						system("rm -f /tmp/printersetup >/dev/null")
-					endif
-					if(err>1 and err<5) then
-						alert "Error while printing!", "Ok", "warning"
-					endif
-				endif
-				break
-			case "_QuitRequested"
-				// TODO make backups and save open files
-				inloop = false
-				if(not settingsFullScreen) then
-					settingsX = window get "MainView", "Position-X"
-					settingsY = window get "MainView", "Position-Y"
-					settingsWidth = window get "MainView", "Width"
-					settingsHeight = window get "MainView", "Height"
-				endif
-				if(not settingsFullEditor) then
-					settingsVSplitDivider = splitview get "VSplit", "Divider"
-					settingsV2SplitDivider = splitview get "V2Split", "Divider"
-					settingsHSplitDivider = splitview get "HSplit", "Divider"
-				endif
-				break
-			case "MainView:_QuitRequested"
-			case MyTranslate$("MainView:File:Quit")
-				tmpSelect = 1
-				if(globalCurrentText>0) then
-					for j=1 to MAXFILES
-						if(textedit get "Text"+str$(j), "hasChanged") then
-							tmpSelect = alert "Some files are not saved!\n\nDo you really want to quit?", "Quit", "Cancel", "",  "warning"
-							break
-						endif
-					next j
-				endif
-				if(tmpSelect = 1) then
-					inloop = false
-					if(not settingsFullScreen) then
-						settingsX = window get "MainView", "Position-X"
-						settingsY = window get "MainView", "Position-Y"
-						settingsWidth = window get "MainView", "Width"
-						settingsHeight = window get "MainView", "Height"
-					endif
-					if(not settingsFullEditor) then
-						settingsVSplitDivider = splitview get "VSplit", "Divider"
-						settingsV2SplitDivider = splitview get "V2Split", "Divider"
-						settingsHSplitDivider = splitview get "HSplit", "Divider"
-					endif
-				endif
-				break
-			case "ToolbarCut"
-			case MyTranslate$("MainView:Edit:Cut")
-				textedit set "Text"+str$(globalCurrentText), "Cut"
-				break
-			case "ToolbarCopy"
-			case MyTranslate$("MainView:Edit:Copy")
-				if(globalIsHelp) then
-					textedit set "Text"+str$(MAXFILES+1), "Copy"
-				else
-					textedit set "Text"+str$(globalCurrentText), "Copy"
-				endif
-				break
-			case "ToolbarPaste"
-			case MyTranslate$("MainView:Edit:Paste")
-				textedit set "Text"+str$(globalCurrentText), "Paste"
-				break
-			case "ToolbarUndo"
-			case MyTranslate$("MainView:Edit:Undo")
-				textedit set "Text"+str$(globalCurrentText), "Undo"
-				break
-			case MyTranslate$("MainView:Edit:Select all")
-				if(globalIsHelp) then
-					textedit set "Text"+str$(MAXFILES+1), "Select-All"
-				else
-					textedit set "Text"+str$(globalCurrentText), "Select-All"
-				endif
-				break
-			case MyTranslate$("MainView:Edit:Clear")
-				textedit set "Text"+str$(globalCurrentText), "Clear"
-				break
-			case MyTranslate$("MainView:Edit:Find")
-				option set "ToolbarText", "focus", true
-				break
-			case MyTranslate$("MainView:Edit:Find again")
-				if(settingsOldSearch$<>"") then
-					if(settingsFindCS) then
-						searchLineNum = textedit get "Text"+str$(globalCurrentText), "Case-Sensitive-Find", settingsOldSearch$ 
-					else
-						searchLineNum = textedit get "Text"+str$(globalCurrentText), "Find", settingsOldSearch$ 
-					endif
-					option set "Text"+str$(globalCurrentText), "Focus", true
-				endif
-				break
-			case MyTranslate$("MainView:Edit:Find and replace")
-				if(settingsFullEditor) then
-					splitview set "VSplit", "Divider", oldSplitX
-					splitview set "HSplit", "Divider", oldSplitY
-					menu set "View", "Maximize editor", "plain", "MainView"
-					settingsFullEditor = false
-				endif
-				tabview set "HTab", 3
-				option set "FindTCFind", "Focus", true
-				break
-			case "ToolbarRun"
-			case MyTranslate$("MainView:Program:Run")
-				isNotSaved = textedit get "Text"+str$(globalCurrentText), "hasChanged"
-				askForSaving = 3
-				if(settingsAskForSaving and isNotSaved) then 
-					askForSaving = alert "Program is not saved.\n\nSave it now?", "Cancel", "Save Always", "Save Now", "info"
-				endif
-
-				if(askForSaving>1) then
-					if(askForSaving = 2) settingsAskForSaving = true
-					if(isNotSaved) then
-						tmpSave = SaveCurrentFile()
-						if(not tmpSave) break
-					endif
-					RunProgram(globalAllNames$(globalCurrentText))
-				endif
-				break
-			case "ToolbarRunTerm"
-			case MyTranslate$("MainView:Program:Run in Terminal")
-				isNotSaved = textedit get "Text"+str$(globalCurrentText), "hasChanged"
-				askForSaving = 3
-				if(settingsAskForSaving and isNotSaved) then 
-					askForSaving = alert "Program is not saved.\n\nSave it now?", "Cancel", "Save Always", "Save Now", "info"
-				endif
-
-				if(askForSaving>1) then
-					if(askForSaving = 2) settingsAskForSaving = true
-					if(isNotSaved) then
-						tmpSave = SaveCurrentFile()
-						if(not tmpSave) break
-					endif
-					RunInTerminal(globalAllNames$(globalCurrentText))
-				endif
-				break
-			case MyTranslate$("MainView:Program:Set run parameters...")
-				SetRunParameters()
-				break
-			case "ToolbarBuild"
-			case MyTranslate$("MainView:Program:Build Factory...")
-				isNotSaved = textedit get "Text"+str$(globalCurrentText), "hasChanged"
-				askForSaving = 3
-				if(settingsAskForSaving and isNotSaved) then 
-					askForSaving = alert "Program is not saved.\n\nSave it now?", "Cancel", "Save Always", "Save Now", "info"
-				endif
-
-				if(askForSaving>1) then
-					if(askForSaving = 2) settingsAskForSaving = true
-					if(isNotSaved) then
-						tmpSave = SaveCurrentFile()
-						if(not tmpSave) break
-					endif
-					Building()
-				endif
-				break
-			case MyTranslate$("MainView:Program:Open project folder...")
-				system("open " + globalProjectDir$)
-				break
-			case "ToolbarPattern"
-			case MyTranslate$("MainView:Tools:Pattern editor...")
-				OpenCalcPattern(settingsCalcPatternX,settingsCalcPatternY)
-				break
-			case MyTranslate$("MainView:Tools:Color selection...")
-				OpenColorSelection(settingsColorSelectX,settingsColorSelectY, settingsColorSelectR, settingsColorSelectG, settingsColorSelectB)
-				break
-			case MyTranslate$("MainView:Tools:ASCII table...")
-				AsciiWindow()
-				break
-			case MyTranslate$("MainView:View:Next file")
-				findNext = false
-				tmpCounter = globalCurrentText
-				while(not findNext)
-					tmpCounter = tmpCounter + 1
-					if(tmpCounter>MAXFILES) tmpCounter = 1
-					if(tmpCounter = globalCurrentText) then
-						findNext = true
-					else
-						if(globalAllNames$(tmpCounter)<>"") then
-							globalCurrentText = tmpCounter
-							ActivateText(globalCurrentText)
-							findNext = true
-						endif
-					endif
-				wend
-				break
-			case MyTranslate$("MainView:View:Previous file")
-				findNext = false
-				tmpCounter = globalCurrentText
-				while(not findNext)
-					tmpCounter = tmpCounter - 1
-					if(tmpCounter=0) tmpCounter = MAXFILES
-					if(tmpCounter = globalCurrentText) then
-						findNext = true
-					else
-						if(globalAllNames$(tmpCounter)<>"") then
-							globalCurrentText = tmpCounter
-							ActivateText(globalCurrentText)
-							findNext = true
-						endif
-					endif
-				wend
-				break
-			case MyTranslate$("MainView:View:Full screen")
-				if settingsFullScreen then
-					menu set "View", "Full screen", "plain", "MainView"
-					currentDivider = peek("desktopheight")-1 - splitview get "HSplit", "Divider"
-					window set "MainView", "moveto", settingsX,settingsY
-					window set "MainView", "MinimumTo", 600,300
-					window set "MainView", "MaximumTo", 2000, 2000
-					window set "MainView", "resizeto", settingsWidth, settingsHeight
-					splitview set "HSplit", "Divider", settingsHeight-currentDivider 
-					settingsFullScreen = false
-				else
-					settingsX = window get "MainView", "Position-X"
-					settingsY = window get "MainView", "Position-Y"
-					settingsWidth = window get "MainView", "Width"
-					settingsHeight = window get "MainView", "Height"
-					currentDivider = settingsHeight - splitview get "HSplit", "Divider"
-					menu set "View", "Full screen", "mark", "MainView"
-					window set "MainView", "moveto", 0,0
-					window set "MainView", "resizeto", peek("desktopwidth")-1, peek("desktopheight")-1
-					window set "MainView", "MinimumTo", peek("desktopwidth")-1, peek("desktopheight")-1
-					window set "MainView", "MaximumTo", peek("desktopwidth")-1, peek("desktopheight")-1
-					splitview set "HSplit", "Divider", peek("desktopheight")-1-currentDivider 
-					settingsFullScreen = true
-				endif
-				break
-			case MyTranslate$("MainView:View:Maximize editor")
-				if(settingsFullEditor) then
-					splitview set "VSplit", "Divider", oldSplitX
-					splitview set "HSplit", "Divider", oldSplitY
-					menu set "View", "Maximize editor", "plain", "MainView"
-					settingsFullEditor = false
-				else
-					oldSplitX = splitview get "VSplit", "Divider"
-					oldSplitY = splitview get "HSplit", "Divider"
-					tmp = window get "MainView", "Height"
-					splitview set "HSplit", "Divider", tmp-51
-					splitview set "VSplit", "Divider", 0
-					menu set "View", "Maximize editor", "mark", "MainView"
-					settingsFullEditor = true
-				endif
-				break
-			case MyTranslate$("MainView:View:Auto indent")
-				if(settingsAutoIndent) then
-					menu set "View", "Auto indent", "plain", "MainView"
-				else
-					menu set "View", "Auto indent", "mark", "MainView"
-				endif
-				settingsAutoIndent = not settingsAutoIndent
-				for tmpAllFiles = 1 to MAXFILES
-					textedit set "Text"+str$(tmpAllFiles), "autoindent", settingsAutoIndent
-				next tmpAllFiles
-				break
-			case MyTranslate$("MainView:View:Auto completion")
-                                if(settingsAutoCompletion) then
-                                        menu set "View", "Auto completion", "plain", "MainView"
-                                else
-                                        menu set "View", "Auto completion", "mark", "MainView"
-                                endif
-                                settingsAutoCompletion = not settingsAutoCompletion
-                                for tmpAllFiles = 1 to MAXFILES
-                                        textedit set "Text"+str$(tmpAllFiles), "has-autocompletion", settingsAutoCompletion
-                                next tmpAllFiles
-                                break 
-			case MyTranslate$("MainView:View:Reformat sourcecode")
-				reformatUndo$ = textedit get$ "Text"+str$(globalCurrentText)
-				globalReformatUndo = true
-				menu set "View", "Undo reformat", "enable", "MainView"
-				textedit clear "Text"+str$(globalCurrentText)
-				//tmp$ = ReformatSource$(reformatUndo$)
-				textedit add "Text"+str$(globalCurrentText),ReformatSource$(reformatUndo$) 
-				if(ReformatError(false,0)<>0 and settingsReformatAlert) then
-					tmp = alert "Reformating did not close all open loops and conditions.\nReformating currently does not support loops and conditions opened and closed by a colon (:).\nE.g. while(loop):wend\n\nYou can undo the reformating before doing any further changes.", "Do not show this warning again", "Ok" , "", "warning"
-					if(tmp = 1) settingsReformatAlert = false
-				endif
-				break
-			case MyTranslate$("MainView:View:Undo reformat")
-				tmp = alert "Changes made since reformating will be lost!", "Cancel", "Do not show this warning again", "Undo reformating", "warning"
-				if(tmp > 1) then
-					if(tmp=2) settingsReformatUndoAlert = false
-					globalReformatUndo = false
-					textedit clear "Text"+str$(globalCurrentText)
-					textedit add "Text"+str$(globalCurrentText), reformatUndo$
-					menu set "View", "Undo reformat", "disable", "MainView"
-				endif
-				break
-			case MyTranslate$("MainView:View:Refresh colors")
-				textedit color "Text"+str$(globalCurrentText), "textcolor", textcolor_r, textcolor_g, textcolor_b
-				break
-			case "ToolbarOptions"
-			case MyTranslate$("MainView:View:Options...")
-				OptionWindow()
-				break
-                        case "ToolbarHelp"
-                        case MyTranslate$("MainView:Help:Short command help...")
-                                system("open "+globalHelpDir$+"yab-Commands &")
-                                break
-                        case MyTranslate$("MainView:Help:Yabasic manual...")
-                                system("open "+globalHelpDir$+"yabasic.html &")
-                                break 
-			case MyTranslate$("MainView:Help:Online resources:German BeUsergroup...")
-                                system("open http://www.beusergroup.de &")
-                                break 
-			case MyTranslate$("MainView:Help:Online resources:BeSly database...")
-                                system("open http://www.besly.de &")
-                                break 
-			case MyTranslate$("MainView:Help:Online resources:Yabasic homepage...")
-                                system("open http://www.yabasic.de &")
-                                break 
-			case MyTranslate$("MainView:Help:Online resources:Haikuware yab forum...")
-                                system("open http://haikuware.com/forum/yab &")
-                                break 
-			case MyTranslate$("MainView:Help:About...")
-				AboutWindow()
-				break
-				
-			// the find and replace tabview
-			case "FindCS:ON"
-			case "FindCS:OFF"
-				settingsFindCS = not settingsFindCS
-				break
-			case "FindFind"
-				settingsOldSearch$ = textcontrol get$ "FindTCFind"
-				if(settingsOldSearch$<>"") then
-					if(settingsFindCS) then
-						searchLineNum = textedit get "Text"+str$(globalCurrentText), "Case-Sensitive-Find", settingsOldSearch$ 
-					else
-						searchLineNum = textedit get "Text"+str$(globalCurrentText), "Find", settingsOldSearch$ 
-					endif
-					option set "Text"+str$(globalCurrentText), "Focus", true
-				endif
-				break
-			case "FindReplace"
-				settingsOldSearch$ = textcontrol get$ "FindTCFind"
-				if(settingsOldSearch$<>"") then
-					if(settingsFindCS) then
-						searchLineNum = textedit get "Text"+str$(globalCurrentText), "Case-Sensitive-Find", settingsOldSearch$ 
-					else
-						searchLineNum = textedit get "Text"+str$(globalCurrentText), "Find", settingsOldSearch$ 
-					endif
-					if(searchLineNum <> -1) then
-					changestring()	
-						
-					endif
-					option set "Text"+str$(globalCurrentText), "Focus", true					
-				endif
-				break
-			case "FindReplAll"
-				if(settingsFindAlert) then
-					tmpAlert = alert "The operation \"Replace All\" can not be reverted!\n\nDo you want to continue?", "Cancel", "Do not show this warning again", "Ok", "warning"
-					if(tmpAlert = 1) break
-					if(tmpAlert = 2) settingsFindAlert = false
-				endif
-				settingsOldSearch$ = textcontrol get$ "FindTCFind"
-				if(settingsOldSearch$<>"") then
-					searchLineNum = 0
-					while(searchLineNum<>-1)
-						if(settingsFindCS) then
-							searchLineNum = textedit get "Text"+str$(globalCurrentText), "Case-Sensitive-Find", settingsOldSearch$ 
-						else
-							searchLineNum = textedit get "Text"+str$(globalCurrentText), "Find", settingsOldSearch$ 
-						endif
-						if(searchLineNum <> -1) then
-							changestring()
-						endif
-					wend
-					option set "Text"+str$(globalCurrentText), "Focus", true					
-				endif
-				break
-
-			// the immediate tabview
-			case "ImmediateExecute"
-				tmp$ = textcontrol get$ "ImmediateInput"
-				ImmediateExec(tmp$)
-				break
-
-		end switch
-
-		// the output listbox, handle error messages
-		if((left$(msg$(i),22) = "YabOutputList:_Select:") or (left$(msg$(i),22) = "YabOutputList:_Invoke:")) then
-			tmp$ = listbox get$ "YabOutputList", val(right$(msg$(i),len(msg$(i))-22))
-			if(left$(tmp$,8) = "---Error") then
-				num = instr(tmp$, "line ")
-				if(num) then
-					num = num + 5
-					number$ = ""
-					repeat
-						number$ = number$ + mid$(tmp$,num,1)
-						num = num + 1
-					until (mid$(tmp$,num,1) = ":")
-					num = val(number$)
-
-					errorFileName$ = globalAllNames$(globalCurrentText)
-					errorFileFound = false
-					rightBound = instr(tmp$, ".yab")
-					if(rightBound) then
-						errorFileName$ = mid$(tmp$, 13, rightBound-13+4)
-					endif
-					if(errorFileName$<>globalAllNames$(globalCurrentText)) then
-						// check whether library is loaded already...
-						for tmpCheckName = 1 to MAXFILES
-							if((left$(errorFileName$,1) = "/" and errorFileName$ = globalAllNames$(tmpCheckName)) or (left$(errorFileName$,1) <> "/" and right$(globalAllNames$(tmpCheckName),len(errorFileName$)) = errorFileName$)) then
-								ActivateText(tmpCheckName)
-								errorFileFound = true
-								break
-							endif
-						next tmpCheckName
-						// otherwise load it now
-					else
-						errorFileFound = true
-					endif
-
-					if(errorFileFound) then
-						textedit set "Text"+str$(globalCurrentText),"gotoline", num+7
-						textedit set "Text"+str$(globalCurrentText),"gotoline", num
-						textedit set "Text"+str$(globalCurrentText),"select", num
-						if(globalSelectErrorLines) option set "Text"+str$(globalCurrentText),"focus", true
-					endif
-				endif
-			endif
-		endif
-			
-
-		// the search field in the toolbar
-		if(left$(msg$(i),12) = "ToolbarText:" or msg$(i) = "ToolbarFind") then
-			if(msg$(i) = "ToolbarFind") then
-				settingsOldSearch$ = textcontrol get$ "ToolbarText"
-			else
-				settingsOldSearch$ = right$(msg$(i), len(msg$(i))-12)
-			endif
-			if(settingsFindCS) then
-				searchLineNum = textedit get "Text"+str$(globalCurrentText), "Case-Sensitive-Find", settingsOldSearch$ 
-			else
-				searchLineNum = textedit get "Text"+str$(globalCurrentText), "Find", settingsOldSearch$ 
-			endif
-			if(DEBUG) print searchLineNum
-			option set "Text"+str$(globalCurrentText), "Focus", true
-		endif
-
-		// the find and replace tabview
-		// if(left$(msg$(i),11) = "FindTCFind:" and ) then
-		// 	option set "FindTCReplace", "focus", true
-		// endif
-		// if(left$(msg$(i),14) = "FindTCReplace:") then
-			// option set "FindFind", "focus", true
-		// endif
-
-
-		// the immediate tabview
-		if(left$(msg$(i),15) = "ImmediateInput:") then
-			ImmediateExec(right$(msg$(i), len(msg$(i))-15))
-		endif
-
-		// the project columnbox
-		if(left$(msg$(i),15) = "FileBox:_Select") then
-			tmp$ = right$(msg$(i),len(msg$(i))-16)
-			for tmpFiles = 1 to MAXFILES // arraysize(globalTextFinder(),1)
-				if(DEBUG) print val(tmp$), globalTextFinder(tmpFiles)
-				if(globalTextFinder(tmpFiles)=val(tmp$)) then
-					ActivateText(tmpFiles)
-					break
-				endif
-			next tmpFiles
-		endif
-
-		// something dropped on the textedit
-		if(left$(msg$(i),18) = "V2Split2:_Dropped:" and globalCurrentText<>0) then
-			tmp$ = right$(msg$(i),len(msg$(i))-18)
-			handle = open(tmp$, "r")
-			if(handle) then
-				WaitWindow(tmp$)
-				text$ = ""
-				while(not eof(handle))
-					text$ = text$ + GetLine$(handle)+"\n"
-				wend
-				close(handle)
-				tmp = textedit get "Text"+str$(globalCurrentText), "currentline"
-				textedit add "Text"+str$(globalCurrentText), left$(text$,len(text$)-1)
-				textedit set "Text"+str$(globalCurrentText), "changed", true
-				textedit set "Text"+str$(globalCurrentText), "gotoline", tmp
-				option set "Text"+str$(globalCurrentText), "focus", true
-				oldScroll = -1
-				window close "WaitWindow"
-			else
-				alert MyTranslate$("Error while loading file:\n\n")+tmp$, "Ok", "warning"
-			endif
-		endif
-
-		// something dropped on the project columnbox
-		if(left$(msg$(i),17) = "VSplit1:_Dropped:") then
-			foundEmpty = 0
-			for j=1 to MAXFILES
-				if(globalAllNames$(j) = "") then
-					foundEmpty = j
-					break
-				endif
-			next j
-			if(not foundEmpty) then
-				alert MyTranslate$("Sorry, you can not open more than ")+str$(MAXFILES)+MyTranslate$(" files at once!\n\nPlease close one or more other files first."), "Ok", "Warning"
-			else
-				tmp$ = right$(msg$(i),len(msg$(i))-17)
-				foundProject = false
-				for j = 1 to MAXFILES
-					if(globalAllNames$(j) = tmp$) then
-						alert "File is already open.", "Ok", "info"
-						ActivateText(j)
-						foundProject = true
-						break
-					endif
-				next j
-				if(not foundProject) then
-					handle = open(tmp$, "r")
-					if(handle) then
-						WaitWindow(tmp$)
-						text$ = ""
-						while(not eof(handle))
-							text$ = text$ + GetLine$(handle)+"\n"
-						wend
-						close(handle)
-						globalCurrentText = foundEmpty
-						textedit add "Text"+str$(globalCurrentText), left$(text$,len(text$)-1)
-						textedit set "Text"+str$(globalCurrentText), "changed", false
-						textedit set "Text"+str$(globalCurrentText), "gotoline", ReadLineFromAttr(tmp$)
-						stackview set "Stack", globalCurrentText
-						stackview set "Lines", globalCurrentText
-						globalAllNames$(globalCurrentText) = tmp$
-						option set "Text"+str$(globalCurrentText), "focus", true
-						oldScroll = -1
-						window close "WaitWindow"
-					else
-						alert MyTranslate$("Error while loading file:\n\n")+tmp$, "Ok", "Stop"
-					endif
-				endif
-			endif
-		endif
-
-		// help selected
-		if(left$(msg$(i),9) = "HelpTree:") then
-			tmp$ = right$(msg$(i), len(msg$(i))-17)
-			tmp$ = treebox get$ "HelpTree", val(tmp$)
-			t$ = SyntaxGetInfoText$(ideDir$+"data/Help_En.dat", ideDir$+"data/Help_En_Index.dat", tmp$)
-			if(t$<>"") then
-				textedit clear "Text"+str$(MAXFILES+1)
-				textedit add "Text"+str$(MAXFILES+1), t$
-			endif
-		endif 
-
-		// search help
-		if(left$(msg$(i),9) = "HelpFind:") then
-			tmp$ = right$(msg$(i), len(msg$(i))-9)
-			tmp$ = trim$(tmp$)
-			tmp$ = lower$(tmp$)
-			t$ = SyntaxGetInfoText$(ideDir$+"data/Help_En.dat", ideDir$+"data/Help_En_Index.dat", tmp$)
-			if(t$<>"") then
-				textedit clear "Text"+str$(MAXFILES+1)
-				textedit add "Text"+str$(MAXFILES+1), t$
-			endif
-		endif
-	next i
-
-	if(globalCurrentText>0 and not globalWasChanged and textedit get "Text"+str$(globalCurrentText), "hasChanged") then
-		globalWasChanged = true
-		columnbox add "FileBox", 1, globalTextFinder(globalCurrentText), 20, "__Icon__="+ideDir$+"img/nichtgespeichert.png"
-	endif
-
-	UpdateStatusbar()
-
-	if(settingsFullEditor) then
-		tmp = window get "MainView", "Height" - 74
-		if(splitview get "VSplit", "Divider" <> 0 or splitview get "HSplit", "Divider" <> tmp) then
-			settingsFullEditor = false
-			menu set "View", "Maximize editor", "plain", "MainView"
-		endif
-	endif
-
-	if(globalCurrentText > 0) then
-		// Update the line numbers
-		// we are cheeting a bit :), we calculate the numbers for a 1200-pixel high view
-		scroll = textedit get "Text"+str$(globalCurrentText), "vertical-scrollbar"
-		v2Split = splitview get "V2Split", "divider"
-		if(scroll<>oldScroll or v2Split<>oldV2Split) then
-			scrollLine = int(scroll/globalRealFontSize)
-			scrollPos = mod(scroll,globalRealFontSize)
-			UpdateLines(scrollPos, 1200, scrollLine, globalRealFontSize)
-			oldScroll = scroll
-			oldV2Split = v2Split
-			// scrollLine = int((scroll+2)/15)+1
-			// scrollPos = mod((globalHSplitDivider-1-peek("scrollbarwidth")+scroll),15)+5
-			// scrollPos = mod((1000+scroll),15)+5
-			// UpdateLines(scrollPos, globalHSplitDivider-1-peek("scrollbarwidth"), scrollLine, 15)
-			// UpdateLines(scrollPos, 1200, scrollLine, 15)
-			// oldScroll = scroll
-		endif
-
-		// Check the spincontrol
-		spinner = spincontrol get "ToolbarGotoLine"
-		if(spinner <> oldSpinner) then
-			textedit set "Text"+str$(globalCurrentText), "gotoline", spinner
-			textedit set "Text"+str$(globalCurrentText), "select", 0
-			textedit set "Text"+str$(globalCurrentText), "select", spinner
-			option set "Text"+str$(globalCurrentText), "Focus", true
-			oldSpinner = spinner
-		endif
-	endif
-
-	// switch tabs from help to files and vice versa
-	if(globalIsHelp and tabview get "Tree" = 1) then
-		globalIsHelp = false
-		splitview set "V2Split", "divider", helpOldV2Split
-		if(globalCurrentText>0) then
-			ActivateHelpMenus(1)
-			stackview set "Stack", globalCurrentText
-			stackview set "Lines", globalCurrentText
-		else
-			ActivateHelpMenus(0)
-			stackview set "Stack", MAXFILES+2
-			stackview set "Lines", MAXFILES+2
-		endif
-	endif
-	if(not globalIsHelp and tabview get "Tree" = 2) then
-		ActivateHelpMenus(-1)
-		globalIsHelp = true
-		stackview set "Stack", MAXFILES+1
-		stackview set "Lines", MAXFILES+1
-		helpOldV2Split = splitview get "V2Split", "divider"
-		splitview set "V2Split", "divider", 0
-	endif
-wend
-
-window close "MainView"
-SaveSettings()
-
-// Open main window with everything
-sub OpenMainWindow()
-	local vsplitheight, hsplitheight, tabwidth, i, handle
-	local tmp$
-	local err, x, y
-
-	x = peek("desktopwidth")
-	y = peek("desktopheight")
-
-	// open initialize the main window
-	window open settingsX-3000,settingsY-3000 to settingsX+settingsWidth-3000,settingsY+settingsHeight-3000, "MainView", "yab-IDE"
-
-	window open x/2-250-3000, y/2-200-3000 to x/2+249-3000,y/2+199-3000, "Splash", ""
-	window set "Splash", "look", "bordered"
-	err = draw image 0,0, ideDir$+"img/Splash.png", "Splash"
-	draw set "HighColor", 56,61,127, "Splash" 
-	draw set "DejaVu Sans Mono,Bold,18", "Splash"
-	draw text 30, 280, "Version "+versionnumber$, "Splash"
-	window set "Splash", "moveto", x/2-250,y/2-200
-	set_up_BuildFactory()
-	if(err>0) window close "Splash"
-	
-	
-	
-	window set "MainView", "look", "document"
-	window set "MainView", "MinimumTo", 600,300
-
-	// set all menus
-	menu "File", "New...", "N", "MainView"
-	menu "File", "Open...", "O", "MainView"
-	menu "File", "Close", "W", "MainView"
-	menu "File", "--", "", "MainView"
-	menu "File", "Save", "S", "MainView"
-	menu "File", "Save as...", "", "MainView"
-	menu "File", "Save as template...", "", "MainView"
-	menu "File", "Export as HTML...", "", "MainView"
-
-	menu "File", "--", "", "MainView"
-	menu "File", "Page setup...", "", "MainView"
-	menu "File", "Print...", "P", "MainView"
-	menu "File", "--", "", "MainView"
-	menu "File", "Quit", "Q", "MainView"
-	
-	menu "Edit", "Undo", "Z", "MainView"
-	menu "Edit", "--", "", "MainView"
-	menu "Edit", "Cut", "X", "MainView"
-	menu "Edit", "Copy", "C", "MainView"
-	menu "Edit", "Paste", "V", "MainView"
-	menu "Edit", "--", "", "MainView"
-	menu "Edit", "Select all", "A", "MainView"
-	menu "Edit", "--", "", "MainView"
-	menu "Edit", "Find", "F", "MainView"
-	menu "Edit", "Find again", "G", "MainView"
-	menu "Edit", "Find and replace", "E", "MainView"
-
-	menu "Program", "Run", "R", "MainView"
-	menu "Program", "Run in Terminal", "T", "MainView"
-	menu "Program", "--", "", "MainView"
-	menu "Program", "Set run parameters...", "SR", "MainView"
-	menu "Program", "--", "", "MainView"
-	menu "Program", "Build Factory...", "B", "MainView"
-	menu "Program", "--", "", "MainView"
-	menu "Program", "Open project folder...", "SO", "MainView"
-
-	if(not globalNoRCS) then
-		menu "RCS", "Check In", "CI", "MainView"
-		menu "RCS", "Check Out", "CO", "MainView"
-		menu "RCS", "--", "", "MainView"
-		menu "RCS", "Version History...", "CV", "MainView"
-	endif
-	
-	menu "Tools", "Pattern editor...", "CP", "MainView"
-	menu "Tools", "Color selection...", "CC", "MainView"
-	menu "Tools", "--", "", "MainView"
-	menu "Tools", "ASCII table...", "CA", "MainView"
-
-	menu "View", "Next file", ".", "MainView"
-	menu "View", "Previous file", ",", "MainView"
-	menu "View", "--", "", "MainView"
-	menu "View", "Full screen", "CF", "MainView"
-	menu "View", "Maximize editor", "CE", "MainView"
-	menu "View", "--", "", "MainView"
-	menu "View", "Auto indent", "", "MainView"
-	menu "View", "Auto completion", "", "MainView"
-	menu "View", "Refresh colors", "", "MainView"
-	menu "View", "--", "", "MainView"
-	menu "View", "Reformat sourcecode", "CR", "MainView"
-	menu "View", "Undo reformat", "", "MainView"
-	menu "View", "--", "", "MainView"
-	menu "View", "Options...", "", "MainView"
-	if settingsFullScreen menu set "View", "Full screen", "mark", "MainView"
-	if settingsFullEditor menu set "View", "Maximize editor", "mark", "MainView"
-	if settingsAutoIndent menu set "View", "Auto indent", "mark", "MainView"
-	if settingsAutoCompletion menu set "View", "Auto completion", "mark", "MainView"
-	menu set "View", "Undo reformat", "disable", "MainView"
-
-	menu "Help", "Short command help...", "H", "MainView"
-	menu "Help", "Yabasic manual...", "M", "MainView"
-	menu "Help", "--", "", "MainView"
-	menu "Help", "Online resources", "", "MainView"
-	submenu "Help", "Online resources", "German BeUsergroup...", "", "MainView"
-	submenu "Help", "Online resources", "BeSly database...", "", "MainView"
-	submenu "Help", "Online resources", "Yabasic homepage...", "", "MainView"
-	submenu "Help", "Online resources", "Haikuware yab forum...", "", "MainView"
-	menu "Help", "--", "", "MainView"
-	menu "Help", "About...", "", "MainView"
-
-	// set the toolbar
-	ToolbarCreate(0,peek("menuheight")+1,2000, "Toolbar", ideDir$+"img/", "MainView")
-	ToolbarAddIcon("ToolbarNew", "New", "newp.png", "newn.png", "newd.png")
-	ToolbarAddIcon("ToolbarOpen", "Open", "openp.png", "openn.png", "opend.png")
-	ToolbarAddIcon("ToolbarSave", "Save", "savep.png", "saven.png", "saved.png")
-	ToolbarAddIcon("ToolbarClose", "Close", "closep.png", "closen.png", "closed.png")
-	ToolbarAddSeparator()
-	ToolbarAddIcon("ToolbarCut", "Cut", "cutp.png", "cutn.png", "cutd.png")
-	ToolbarAddIcon("ToolbarCopy", "Copy", "copyp.png", "copyn.png", "copyd.png")
-	ToolbarAddIcon("ToolbarPaste", "Paste", "pastep.png", "pasten.png", "pasted.png")
-	ToolbarAddIcon("ToolbarUndo", "Undo", "undop.png", "undon.png", "undod.png")
-	// ToolbarAddIcon("ToolbarFind", "Find", "searchp.png", "searchn.png", "searchd.png")
-	ToolbarAddSeparator()
-	ToolbarAddIcon("ToolbarRun", "Run", "runp.png", "runn.png", "rund.png")
-	ToolbarAddIcon("ToolbarRunTerm", "Run in Terminal", "runtermp.png", "runtermn.png", "runtermd.png")
-	// ToolbarAddIcon("ToolbarDebug", "Debugger", "debugp.png", "debugn.png", "debugd.png")
-	ToolbarAddIcon("ToolbarBuild", "Build Factory", "bindp.png", "bindn.png", "bindd.png")
-	// ToolbarAddSeparator()
-	// ToolbarAddIcon("ToolbarGui", "GUI Designer", "guip.png", "guin.png", "guid.png")
-	ToolbarAddSeparator()
-	ToolbarAddIcon("ToolbarPattern", "Pattern editor", "patternp.png", "patternn.png", "patternd.png")
-	ToolbarAddIcon("ToolbarOptions", "Options", "optionsp.png", "optionsn.png", "optionsd.png")
-	ToolbarAddIcon("ToolbarHelp", "yab Help", "helpp.png", "helpn.png", "helpd.png")
-	ToolbarAddSeparator()
-
-	spincontrol 383,2, "ToolbarGotoLine", "Go to Line:", 1, 100000, 1, "Toolbar"
-	tooltip "ToolbarGotoLine", "Go to Line"
-	draw set "highcolor", 185,185,185, "Toolbar"
-	draw line 430,5 to 400,25, "Toolbar"
-	draw set "highcolor", 239,239,239, "Toolbar"
-	draw line 431,5 to 401,25, "Toolbar"
-
-	button image 538,7, "ToolbarFind", ideDir$+"img/searchp.png", ideDir$+"img/searchn.png", ideDir$+"img/searchd.png", "Toolbar"
-	tooltip "ToolbarFind", "Find"
-	textcontrol 553,5 to 640,25, "ToolbarText", "", settingsOldSearch$, "Toolbar"
-	draw set "highcolor", 185,185,185, "Toolbar"
-	draw line 510,5 to 480,25, "Toolbar"
-	draw set "highcolor", 239,239,239, "Toolbar"
-	draw line 511,5 to 481,25, "Toolbar"
-
-	// layout "top, left, right", "Toolbar"
-	draw set "highcolor", 200,200,200, "Toolbar"
-	draw line 0,29 to 2000,29, "Toolbar"
-	draw set "highcolor", 184,184,184, "Toolbar"
-	draw line 0,30 to 2000,30, "Toolbar"
-	draw set "highcolor", 239,239,239, "Toolbar"
-	draw line 0,31 to 2000,31, "Toolbar"
-
-
-	// vertical splitview
-	layout "standard", "MainView"
-	splitview 0,peek("menuheight")+31, settingsWidth,settingsHeight-peek("scrollbarwidth"), "VSplit", true, true, "MainView"
-	splitview set "VSplit", "Divider", settingsVSplitDivider
-	splitview set "VSplit", "MinimumSizes", 0,400
-
-	// horizontal splitview
-	splitview 0,0, settingsWidth-settingsVSplitDivider,settingsHeight-peek("scrollbarwidth")+1, "HSplit", false, true, "VSplit2"
-	splitview set "HSplit", "Divider", settingsHSplitDivider
-	splitview set "HSplit", "MinimumSizes", 100,51
-
-	splitview 0,0, settingsWidth-settingsVSplitDivider,settingsHSplitDivider-1, "V2Split", true,false, "HSplit1"
-	splitview set "V2Split", "Divider", 0
-	splitview set "V2Split", "MinimumSizes", 0,300
-
-
-	vsplitheight = settingsHeight - peek("menuheight")-peek("scrollbarwidth")
-
-	// tabview and treeboxes in the left vertical splitview
-	tabview 0,1 to settingsVSplitDivider-1,vsplitheight-32, "Tree", "bottom", "VSplit1"
-	tabview add "Tree", " Files "
-	tabview add "Tree", " Help "
-	columnbox 0,0 to settingsVSplitDivider-10,vsplitheight-42-peek("tabheight"), "FileBox", false, "no-border, resizable", "Tree1"
-	columnbox column "FileBox", " ", 1, 20, 20, 20, "align-center"
-	columnbox column "FileBox", "Filename",2, 300, 32, settingsVSplitDivider-32, "align-left"
-	columnbox color "FileBox", "Selection-Active", 220,220,250 
-	columnbox color "FileBox", "Row-Divider", 255,255,255 
-
-	treebox 0,0 to settingsVSplitDivider-10, vsplitheight-42-peek("tabheight")-40, "HelpTree", 1, "Tree2"
-	layout "left,bottom,right", "Tree2"
-	textcontrol 0,vsplitheight-42-peek("tabheight")-30 to settingsVSplitDivider-14,vsplitheight-42-peek("tabheight")-10, "HelpFind", "Command", "", "Tree2"
-	layout "standard", "Tree2"
-
-	view dropzone "VSplit1"
-	view dropzone "V2Split2"
-
-	// a stackview with textedits in the upper right splitview
-	// implement a dynamic stackview in future!
-	// stackview 0,0 to settingsWidth-settingsVSplitDivider-11,settingsHSplitDivider-1, "Stack", MAXFILES+2, "HSplit1"
-	stackview 0,0 to settingsWidth-settingsVSplitDivider-11-4,settingsHSplitDivider-1, "Stack", MAXFILES+2, "V2Split2"
-	stackview 0,0 to settingsV2SplitDivider,settingsHSplitDivider-1, "Lines", MAXFILES+2, "V2Split1"
-	for i=1 to MAXFILES
-		// textedit 37,0 to settingsWidth-settingsVSplitDivider-12,settingsHSplitDivider-1, "Text"+str$(i), 3, "Stack"+str$(i)
-		textedit 1,1 to settingsWidth-settingsVSplitDivider-12-5,settingsHSplitDivider-2, "Text"+str$(i), 3, "Stack"+str$(i)
-		textedit set "Text"+str$(i), "wordwrap", false
-		textedit set "Text"+str$(i), "textwidth", 4000
-		textedit set "Text"+str$(i), "tabwidth", settingsTabSpaces*7
-		textedit set "Text"+str$(i), "font", settingsFontFamily$+","+settingsFontStyle$+","+str$(settingsFontSize)
-		textedit set "Text"+str$(i), "autoindent", settingsAutoIndent
-
-		// layout "left,top,bottom", "Lines"+str$(i)
-		// view 0,0 to 36,settingsHSplitDivider-1, "Lines"+str$(i), "LineStack"+str$(i)
-		draw set settingsFontFamily$+","+settingsFontStyle$+","+str$(settingsFontSize), "Lines"+str$(i)
-		layout "standard", "Stack"+str$(i)
-
-		textedit set "Text"+str$(i), "autocomplete-start", settingsACNumChar
-		handle = open(ideDir$+"/data/autocompletion")
-		if(handle) then
-			while(not eof(handle))
-				line input #handle tmp$
-				textedit set "Text"+str$(i), "autocomplete", tmp$
-			wend
-			close(handle)
-		endif
-
-		handle = open(ideDir$+"/data/color1")
-		if(handle) then
-			while(not eof(handle))
-				line input #handle tmp$
-				textedit color "Text"+str$(i), "color1", tmp$
-			wend
-			close(handle)
-		endif
-		handle = open(ideDir$+"/data/color2")
-		if(handle) then
-			while(not eof(handle))
-				line input #handle tmp$
-				textedit color "Text"+str$(i), "color2", tmp$
-			wend
-			close(handle)
-		endif
-		handle = open(ideDir$+"/data/color3")
-		if(handle) then
-			while(not eof(handle))
-				line input #handle tmp$
-				textedit color "Text"+str$(i), "color3", tmp$
-			wend
-			close(handle)
-		endif
-		handle = open(ideDir$+"/data/color4")
-		if(handle) then
-			while(not eof(handle))
-				line input #handle tmp$
-				textedit color "Text"+str$(i), "color4", tmp$
-			wend
-			close(handle)
-		endif
-		handle = open(ideDir$+"/data/color5")
-		if(handle) then
-			while(not eof(handle))
-				line input #handle tmp$
-				textedit color "Text"+str$(i), "char-color", tmp$
-			wend
-			close(handle)
-		endif
-	next i
-
-	textedit 1,1 to settingsWidth-settingsVSplitDivider-12-5,settingsHSplitDivider-2, "Text"+str$(MAXFILES+1), 1, "Stack"+str$(MAXFILES+1)
-	textedit set "Text"+str$(MAXFILES+1), "font", settingsFontFamily$+","+settingsFontStyle$+","+str$(settingsFontSize)
-	textedit set "Text"+str$(MAXFILES+1), "editable", false
-	textedit color "Text"+str$(MAXFILES+1), "color1", "Name:"
-	textedit color "Text"+str$(MAXFILES+1), "color1", "Synopsis:"
-	textedit color "Text"+str$(MAXFILES+1), "color1", "Description:"
-	textedit color "Text"+str$(MAXFILES+1), "color1", "Example:"
-	textedit color "Text"+str$(MAXFILES+1), "color1", "Design:"
-	textedit color "Text"+str$(MAXFILES+1), "color1", "Layout:"
-	textedit color "Text"+str$(MAXFILES+1), "color1", "Message:"
-	textedit color "Text"+str$(MAXFILES+1), "color1", "Related:"
-	SyntaxLoadTree(ideDir$+"data/Help_En.dat", "HelpTree") 
-
-	// UpdateLines(0, globalHSplitDivider-1-peek("scrollbarwidth"), 1, 15)
-	UpdateLines(0, 1200, 1, globalRealFontSize)
-
-	layout "h-center, v-center", "Stack"+str$(MAXFILES+2)
-	// view (settingsWidth-settingsVSplitDivider-12)/2-150,(settingsHSplitDivider-1)/2-190 to (settingsWidth-settingsVSplitDivider-12)/2+150,(settingsHSplitDivider-1)/2+190, "Logo", "Stack"+str$(MAXFILES+2)
-	view (settingsWidth-settingsVSplitDivider-12-41-4)/2-150,(settingsHSplitDivider-1)/2-190 to (settingsWidth-settingsVSplitDivider-12-41-4)/2+150,(settingsHSplitDivider-1)/2+190, "Logo", "Stack"+str$(MAXFILES+2)
-	draw set "bgcolor", 255,255,255, "Stack"+str$(MAXFILES+2)
-	draw set "bgcolor", 255,255,255, "Logo"
-	err = draw image 0,0 to 350,-1, ideDir$+"img/logo.png", "Logo"
-	stackview set "Stack", MAXFILES+2
-	stackview set "Lines", MAXFILES+2
-	layout "standard", "Stack"+str$(MAXFILES+2)
-
-	hsplitheight = settingsHeight-settingsHSplitDivider-peek("scrollbarwidth")-peek("menuheight")-42
-
-	// the tabview in the lower right splitview
-	tabview 0,0 to settingsWidth-settingsVSplitDivider-11,hsplitheight, "HTab", "bottom", "HSplit2"
-	tabview add "HTab", "yab Output"
-	tabview add "HTab", "Immediate"
-	tabview add "HTab", "Find and replace"
-	if(not globalNoRCS) then
-		tabview add "HTab", "Version Control"
-	endif
-
-	hsplitheight = hsplitheight-peek("tabheight")-12
-	tabwidth = settingsWidth-settingsVSplitDivider-21
-
-	// the output box
-	listbox 0,0 to tabwidth,hsplitheight, "YabOutputList", 1, "HTab1"
-
-	// the immediate stuff
-	layout "left,right,top", "HTab2"
-	textcontrol 5,5 to tabwidth-110,25, "ImmediateInput", "Command", "", "HTab2"
-	layout "right,top", "HTab2"
-	button tabwidth-100,3 to tabwidth-10,23, "ImmediateExecute", "Execute", "HTab2"
-	layout "standard", "HTab2"
-	textedit 10,35 to tabwidth-10,hsplitheight-10, "ImmediateOutput", 1, "HTab2"
-	textedit set "ImmediateOutput", "editable", false
-
-	// search and replace
-	layout "left,top", "HTab3"
-	w = draw get "Text-width", MyTranslate$("Find:"), "HTab3"
-	draw text 55-w,23, "Find:", "HTab3"
-	w = draw get "Text-width", MyTranslate$("Replace:"), "HTab3"
-	draw text 55-w,48, "Replace:", "HTab3"
-	textcontrol 55,10 to 290,30, "FindTCFind", "", "", "HTab3"
-	textcontrol 55,35 to 290,55, "FindTCReplace", "", "", "HTab3"
-	checkbox 55,60, "FindCS", "Case Sensitive", settingsFindCS, "HTab3"
-	MyLine(300,5,300,90,"HTab3")
-	button 310,10 to 460,30, "FindFind", "Find", "HTab3"
-	button 310,35 to 460,55, "FindReplace", "Find and replace", "HTab3"
-	button 310,60 to 460,80, "FindReplAll", "Replace All", "HTab3"
-
-	// the statusbar
-	layout "left, bottom", "MainView"
-	view 0,settingsHeight-peek("scrollbarwidth") to 2000,settingsHeight, "Statusbar", "MainView"
-	draw set "highcolor", 200,200,200, "Statusbar"
-	draw line 0,0 to 2000,0, "Statusbar"
-	draw set "highcolor", 184,184,184, "Statusbar"
-	draw line 0,1 to 2000,1, "Statusbar"
-	draw set "highcolor", 239,239,239, "Statusbar"
-	draw line 0,2 to 2000,2, "Statusbar"
-	
-	if(window count>1) window close "Splash"
-
-	window set "MainView", "moveto", settingsX, settingsY
-
-	return
-end sub
-
-
-// (De-)activate menus
-sub ActivateMenus(toActivate)
-	local tmp$
-
-	if(toActivate) then
-		tmp$ = "Enable"
-	else
-		tmp$ = "Disable"
-	endif
-
-	menu set "File", "Close", tmp$, "MainView"
-	menu set "File", "Save", tmp$, "MainView"
-	menu set "File", "Save as...", tmp$, "MainView"
-	menu set "File", "Save as template...", tmp$, "MainView"
-	menu set "File", "Export as HTML...", tmp$, "MainView"
-	menu set "File", "Page setup...", tmp$, "MainView"
-	menu set "File", "Print...", tmp$, "MainView"
-	
-	menu set "Edit", "Undo", tmp$, "MainView"
-	menu set "Edit", "Cut", tmp$, "MainView"
-	menu set "Edit", "Copy", tmp$, "MainView"
-	menu set "Edit", "Paste", tmp$, "MainView"
-	menu set "Edit", "Select all", tmp$, "MainView"
-	menu set "Edit", "Find", tmp$, "MainView"
-	menu set "Edit", "Find again", tmp$, "MainView"
-	menu set "Edit", "Find and replace", tmp$, "MainView"
-
-	menu set "Program", "Run", tmp$, "MainView"
-	menu set "Program", "Run in Terminal", tmp$, "MainView"
-	menu set "Program", "Set run parameters...", tmp$, "MainView"
-	menu set "Program", "Build Factory...", tmp$, "MainView"
-	menu set "Program", "Open project folder...", tmp$, "MainView"
-
-	if(not globalNoRCS) then
-		menu set "RCS", "Check In", tmp$, "MainView"
-		menu set "RCS", "Check Out", tmp$, "MainView"
-		menu set "RCS", "Version History...", tmp$, "MainView"
-	endif
-
-	menu set "Tools", "Pattern editor...", tmp$, "MainView"
-	menu set "Tools", "Color selection...", tmp$, "MainView"
-	
-	menu set "View", "Next file", tmp$, "MainView"
-	menu set "View", "Previous file", tmp$, "MainView"	
-	menu set "View", "Auto indent", tmp$, "MainView"
-	menu set "View", "Auto completion", tmp$, "MainView"
-	menu set "View", "Refresh colors", tmp$, "MainView"
-	menu set "View", "Reformat sourcecode", tmp$, "MainView"
-	menu set "View", "Undo reformat", "disable", "MainView"
-	menu set "View", "Options...", tmp$, "MainView"
-
-	option set "ToolbarSave", "Enabled", toActivate
-	option set "ToolbarClose", "Enabled", toActivate
-	option set "ToolbarCut", "Enabled", toActivate
-	option set "ToolbarCopy", "Enabled", toActivate
-	option set "ToolbarPaste", "Enabled", toActivate
-	option set "ToolbarUndo", "Enabled", toActivate
-	option set "ToolbarFind", "Enabled", toActivate
-	option set "ToolbarText", "Enabled", toActivate
-	option set "ToolbarRun", "Enabled", toActivate
-	option set "ToolbarRunTerm", "Enabled", toActivate
-	option set "ToolbarPattern", "Enabled", toActivate 
-	option set "ToolbarBuild", "Enabled", toActivate
-	option set "ToolbarOptions", "Enabled", toActivate
-	option set "ToolbarGotoLine", "Enabled", toActivate 
-
-	option set "FindTCFind", "Enabled", toActivate
-	option set "FindTCReplace", "Enabled", toActivate
-	option set "FindCS", "Enabled", toActivate
-	option set "FindFind", "Enabled", toActivate
-	option set "FindReplace", "Enabled", toActivate
-	option set "FindReplAll", "Enabled", toActivate
-
-	return
-end sub
-
-// (De-)activate menus when help is selected
-sub ActivateHelpMenus(toActivate)
-	local tmp$
-
-	if(toActivate = 1) then
-		tmp$ = "Enable"
-	else
-		tmp$ = "Disable"
-	endif
-
-	if(toActivate = -1) then
-		menu set "File", "Open...", tmp$, "MainView"
-		menu set "File", "New...", tmp$, "MainView"
-	else
-		menu set "File", "Open...", "Enable", "MainView"
-		menu set "File", "New...", "Enable", "MainView"
-	endif
-	menu set "File", "Close", tmp$, "MainView"
-	menu set "File", "Save", tmp$, "MainView"
-	menu set "File", "Save as...", tmp$, "MainView"
-	menu set "File", "Save as template...", tmp$, "MainView"
-	menu set "File", "Export as HTML...", tmp$, "MainView"
-	
-	menu set "Edit", "Undo", tmp$, "MainView"
-	menu set "Edit", "Cut", tmp$, "MainView"
-	menu set "Edit", "Paste", tmp$, "MainView"
-	menu set "Edit", "Find and replace", tmp$, "MainView"
-
-	menu set "Program", "Run", tmp$, "MainView"
-	menu set "Program", "Run in Terminal", tmp$, "MainView"
-	menu set "Program", "Set run parameters...", tmp$, "MainView"
-	menu set "Program", "Build Factory...", tmp$, "MainView"
-	menu set "Program", "Open project folder...", tmp$, "MainView"
-
-	if(not globalNoRCS) then
-		menu set "RCS", "Check In", tmp$, "MainView"
-		menu set "RCS", "Check Out", tmp$, "MainView"
-		menu set "RCS", "Version History...", tmp$, "MainView"
-	endif
-
-	menu set "Tools", "Pattern editor...", tmp$, "MainView"
-	menu set "Tools", "Color selection...", tmp$, "MainView"
-
-	menu set "View", "Next file", tmp$, "MainView"
-	menu set "View", "Previous file", tmp$, "MainView"	
-	menu set "View", "Auto indent", tmp$, "MainView"
-	menu set "View", "Auto completion", tmp$, "MainView"
-	menu set "View", "Refresh colors", tmp$, "MainView"
-	menu set "View", "Reformat sourcecode", tmp$, "MainView"
-	menu set "View", "Undo reformat", "disable", "MainView"
-
-	if(toActivate = -1) then
-		option set "ToolbarOpen", "Enabled", false
-		option set "ToolbarNew", "Enabled", false
-		toActivate = 0 
-	else
-		option set "ToolbarOpen", "Enabled", true
-		option set "ToolbarNew", "Enabled", true
-	endif
-	option set "ToolbarSave", "Enabled", toActivate
-	option set "ToolbarClose", "Enabled", toActivate
-	option set "ToolbarCut", "Enabled", toActivate
-	option set "ToolbarPaste", "Enabled", toActivate
-	option set "ToolbarUndo", "Enabled", toActivate
-	option set "ToolbarText", "Enabled", toActivate
-	option set "ToolbarRun", "Enabled", toActivate
-	option set "ToolbarRunTerm", "Enabled", toActivate
-	option set "ToolbarPattern", "Enabled", toActivate 
-	option set "ToolbarBuild", "Enabled", toActivate
-	option set "ToolbarGotoLine", "Enabled", toActivate 
-
-	option set "FindTCReplace", "Enabled", toActivate
-	option set "FindReplace", "Enabled", toActivate
-	option set "FindReplAll", "Enabled", toActivate
-
-	return
-end sub
-
-// Update the line numbering
-sub UpdateLines(starty, height, topline, fontHeight)
-	local i, pos
-	local t$
-
-	if(globalCurrentText > 0) then
-		pos = splitview get "V2Split", "Divider" - 3
-		draw flush "Lines"+str$(globalCurrentText)
-		for i=fontHeight-4-starty to height step fontHeight
-			t$ = str$(int(i/fontHeight)+topline+1)
-			draw text pos-(draw get "text-width", t$, "Lines"+str$(globalCurrentText)),i, t$, "Lines"+str$(globalCurrentText)
-		next i
-	endif
-	return
-end sub
-
-// Open new file
-sub NewDocument(foundEmpty)
-	local inloop
-	local browse$
-	local i, n, err, nTemplates, isButton
-	local handle, handle2
-	local x, y, winSize, w, t
-	local t$, txt$
-
-	x = (peek("desktopwidth")-500)/2
-	y = (peek("desktopheight")-390)/2-50
-	if(y<50) y=50
-
-	window open x+200-3000,y+150-3000 to x+700-3000,y+440-3000, "NewWindow", "yab-IDE New Program"
-	window set "NewWindow", "Feel", "Modal-App"
-	window set "NewWindow", "Flags", "not-zoomable, not-h-resizable, not-v-resizable"
-
-	Header("New yab Program", "NewWindow", 500)
-	
-	text 10,50, "NewText1", "Please select one of the available templates for your program:", "NewWindow"
-	listbox 10,70 to 166,200, "NewList", 1, "NewWindow"
-
-	handle = open(ideDir$+"Templates/TemplateList", "r")
-	if(handle>0) then
-		nTemplates = 0
-		while(not eof(handle))
-			nTemplates = nTemplates + 1
-			dim tmp$(nTemplates)
-			tmp$(nTemplates) = GetLine$(handle)+"\n"
-			tmp$(nTemplates) = left$(tmp$(nTemplates), len(tmp$(nTemplates))-1)
-			if(left$(tmp$(nTemplates),1) = "#") nTemplates = nTemplates - 1
-		wend
-		close handle
-	else
-		dim tmp$(1)
-		tmp$(1) = "Empty"
-		nTemplates = 1
-	endif	
-	for i  = 1 to nTemplates step 4
-		listbox add "NewList", tmp$(i)
-	next i
-	view 190,70 to 490,200, "NewImage", "NewWindow"
-
-	browse$ = globalProjectDir$+"untitled"+str$(GetNewNumber(globalProjectDir$))+".yab"
-
-	textcontrol 10,220 to 400,240, "NewName", "Name:", browse$, "NewWindow"
-	button 410,220 to 490,240, "NewBrowse", "Browse...", "NewWindow"
-
-	checkbox image 10,270, "NewAdvanced", ideDir$+"img/arrowdown.png", ideDir$+"img/arrowright.png", "", "", false, "NewWindow"
-	winSize = false
-	text 20,270, "NewText2", "Advanced Options", "NewWindow"
-	button 430,260 to 490,280, "NewOk", "Ok", "NewWindow"
-	option set "NewOk", "enabled", false
-	isButton = false
-
-	draw set "highcolor", 185,185,185, "NewWindow"
-	draw line 0,252 to 500,252, "NewWindow"
-	draw line 0,292 to 500,292, "NewWindow"
-	draw set "highcolor", 239,239,239, "NewWindow"
-	draw line 0,253 to 500,253, "NewWindow"
-	draw line 0,293 to 500,293, "NewWindow"
-
-	// button 260,300 to 280,310, "NewHelp", "?", "NewWindow"
-	button 350,295 to 490,325, "NewDel", "Remove Template", "NewWindow"
-	option set "NewDel", "enabled", false
-
-	if(not globalNoRCS) then
-		checkbox 10, 300, "NewCheckbox", "Use RCS Version Control", settingsUseRCS, "NewWindow"
-		// option set "NewCheckbox", "enabled", false
-		// option set "NewHelp", "enabled", false
-	endif
-
-	textcontrol 10,330 to 490,350, "NewProject", "Project Directory", globalProjectDir$, "NewWindow"
-
-	window set "NewWindow", "moveto", x,y 
-
-	inloop = true
-	dim msg$(1)
-	while(inloop)
-		n = split(message$, msg$(), "|")
-		for i = 1 to n
-			if(DEBUG and msg$(i)<>"") print msg$(i)
-			if(left$(msg$(i),16) = "NewList:_Invoke:") then
-				msg$(i) = "NewOk"
-			endif
-			switch(msg$(i))
-				case "NewOk"
-					if(j>0) then
-						browse$ = textcontrol get$ "NewName"
-						if(arraysize(tmp$(), 1) = 1) then
-							txt$ = ""
-						else
-							handle = open(ideDir$+"Templates/"+tmp$(j), "r")
-							if(handle) then
-								while(not eof(handle))
-									txt$ = txt$ + GetLine$(handle)+"\n"
-								wend
-								close(handle)
-								// txt$ = left$(txt$, len(txt$)-1)
-							else
-								alert MyTranslate$("Could not open template: ")+tmp$(j)+"\n\n"+MyTranslate$("Opening an empty file instead."), "Ok", "warning"
-								txt$ = ""
-							endif
-						endif
-						globalCurrentText = foundEmpty
-						textedit add "Text"+str$(globalCurrentText), txt$
-						textedit set "Text"+str$(globalCurrentText), "changed", true
-						textedit set "Text"+str$(globalCurrentText), "gotoline", 1
-						stackview set "Stack", globalCurrentText
-						stackview set "Lines", globalCurrentText
-						globalAllNames$(globalCurrentText) = browse$
-						t = columnbox count "FileBox"
-						columnbox add "FileBox", 1, t+1,20, "__Icon__="+ideDir$+"img/nichtgespeichert.png"
-						columnbox add "FileBox", 2, t+1,20, GetFileName$(browse$)
-						columnbox select "FileBox", t+1
-
-						globalTextFinder(globalCurrentText) = t+1
-
-						option set "Text"+str$(globalCurrentText), "focus", true
-						oldScroll = -1
-						globalNewNumber = globalNewNumber + 1
-						globalNumOpenFiles = globalNumOpenFiles + 1
-						inloop = false
-					endif
-					break
-				case "NewAdvanced:ON"
-				case "NewAdvanced:OFF"
-					winSize = not winSize
-					if(winSize) then
-						window set "NewWindow", "MinimumTo", 500,360
-						window set "NewWindow", "MaximumTo", 500,360
-						window set "NewWindow", "ResizeTo", 500,360
-					else
-						window set "NewWindow", "MinimumTo", 500,290
-						window set "NewWindow", "MaximumTo", 500,290
-						window set "NewWindow", "ResizeTo", 500,290
-					endif
-					break	
-				case "NewBrowse"
-					browse$ = filepanel "Save-File", "New", globalProjectDir$
-					if(browse$<>"") textcontrol set "NewName", browse$
-					break
-				case "NewWindow:_QuitRequested"
-					inloop = false
-					break
-				case "_QuitRequested"
-					//emergency break
-					exit(1)
-					break
-				case "NewDel"
-					t$ = listbox get$ "NewList", (j-1)/4+1
-					t = alert MyTranslate$("Really delete template")+" \""+t$+"\"?", "Yes", "Cancel", "", "warning"
-					if(t = 1) then
-						if((j-1)/4+1 < 4) then
-							alert "This standard template can not be deleted!", "Ok", "warning"
-						else	
-							handle = open(ideDir$+"Templates/TemplateList", "r")
-							handle2 = open("/tmp/TemplateList", "w")
-							if(handle) then
-								if(handle2) then
-									while(not eof(handle))
-										t$ = GetLine$(handle)+"\n"
-										if(left$(t$,len(t$)-1)<>tmp$(j)) then
-											print #handle2 t$;
-										else
-											t$ = GetLine$(handle)+"\n"
-											t$ = GetLine$(handle)+"\n"
-											t$ = GetLine$(handle)+"\n"
-										endif
-									wend
-									close(handle2)
-									system("mv /tmp/TemplateList "+ideDir$+"Templates/TemplateList")
-									system("rm "+ideDir$+tmp$(j+1))
-									system("rm "+ideDir$+"Templates/"+tmp$(j))
-									listbox remove "NewList", (j-1)/4+1
-									listbox select "NewList", (j-5)/4+1
-									msg$(i) = "NewList:_Select:"+str$((j-5)/4+1)
-									alert "Template successfully removed.", "Ok", "info"
-								else
-									alert "Error while deleting template!", "Ok", "stop"
-								endif
-								close(handle)
-							else
-								alert "Error while deleting template!", "Ok", "stop"
-							endif
-						endif
-					endif
-
-					break
-			end switch
-			if(left$(msg$(i),16) = "NewList:_Select:") then
-				draw rect 0,0 to 200,140, "NewImage"
-				draw flush "NewImage"
-				j = (val(mid$(msg$(i),17,len(msg$(i))-1))-1)*4+1
-				if(arraysize(tmp$(),1)>=j+1) then
-					err = draw image 50,0 to 250,100, ideDir$+tmp$(j+1), "NewImage"
-				endif
-				if(arraysize(tmp$(),1)>=j+2) then
-					draw text 10,110, tmp$(j+2), "NewImage"
-				endif
-				if(arraysize(tmp$(),1)>=j+3) then
-					draw text 10,125, tmp$(j+3), "NewImage"
-				endif
-				if(not isButton) then
-					isButton = false
-					option set "NewOk", "enabled", true
-					option set "NewDel", "enabled", true
-				endif
-			endif
-		next i
-	wend
-
-	window close "NewWindow"
-end sub
-
-sub GetNewNumber(dir$)
-	local tmp$
-	local num: local i: local ret
-	local numFound
-	local t$(1)
-
-	numFound = false
-	ret = 0
-	tmp$ = system$("ls "+dir$+"untitled*.yab")
-	num = token(tmp$, t$(), "\n")
-	while(not numFound)
-		numFound = true
-		for i=1 to num
-			tmp$ = left$(t$(i), len(t$(i))-4)
-			tmp$ = right$(tmp$, len(tmp$)-8-len(dir$))
-			if(ret = val(tmp$)) then
-				ret = ret + 1
-				numFound = false
-				break
-			endif
-		next i
-		if(numFound) then
-			for i=1 to MAXFILES
-				tmp$ = dir$+"untitled"+str$(ret)+".yab"
-				if(globalAllNames$(i) = tmp$) then
-					ret = ret + 1
-					numFound = false
-					break
-				endif
-			next i
-		endif
-	wend
-	return ret
-end sub
-
-sub ImmediateExec(command$)
-	local result$
-	
-	if(instr(command$, "input")) then
-		alert "Suspecting user input, therefore starting in a terminal.", "Ok", "info"
-		result$ = system$("Terminal "+yabDir$+" -enter -execute '"+command$+":exit'")
-	else
-		result$ = system$(yabDir$+" -execute '"+command$+":exit' 2>&1")
-		result$ = left$(result$, len(result$)-1)
-
-		textedit clear "ImmediateOutput"
-		textedit add "ImmediateOutput", result$
-	endif
-
-	return
-end sub
-
-sub GetFileName$(directory$)
-	local lastSlash
-	local j
-
-	lastSlash = 0
-	for j=1 to len(directory$)
-		if(mid$(directory$,j,1)="/" and mid$(directory$,j-1,1)<>"/")
-			lastSlash = j
-	next j
-
-	return right$(directory$,len(directory$)-lastSlash)
-end sub
-
-sub GetDirectory$(directory$)
-	local lastSlash
-	local j
-
-	lastSlash = 0
-	for j=1 to len(directory$)
-		if(mid$(directory$,j,1)="/" and mid$(directory$,j-1,1)<>"/")
-			lastSlash = j
-	next j
-
-	return left$(directory$,lastSlash)
-end sub
-
-sub ActivateText(num)
-	globalCurrentText = num
-	globalWasChanged = textedit get "Text"+str$(globalCurrentText), "hasChanged"
-	stackview set "Stack", globalCurrentText
-	stackview set "Lines", globalCurrentText
-	option set "Text"+str$(globalCurrentText), "focus", true
-	columnbox select "FileBox", globalTextFinder(num)
-	oldScroll = -1  
-	return
-end sub
-
-sub ReadLineFromAttr(filename$)
-	a$=attribute get$ "",filename$
-	if instr (a$,"linenumber") then  
-	return attribute get "linenumber", filename$
-	else return 0
-	endif
-end sub
-
-sub UpdateStatusbar()
-	static oldText$
-	local newText$
-
-	if(globalCurrentText = 0) then
-		if(oldText$<>"") then
-			oldText$ = ""
-			draw flush "Statusbar"
-			draw set "highcolor", 200,200,200, "Statusbar"
-			draw line 0,0 to 2000,0, "Statusbar"
-			draw set "highcolor", 184,184,184, "Statusbar"
-			draw line 0,1 to 2000,1, "Statusbar"
-			draw set "highcolor", 239,239,239, "Statusbar"
-			draw line 0,2 to 2000,2, "Statusbar"
-		endif
-		return
-	endif
-
-	newText$ = globalAllNames$(globalCurrentText)
-	if(textedit get "Text"+str$(globalCurrentText), "hasChanged") then
-		newText$ = newText$ + MyTranslate$(" (not saved)   ")
-	else
-		newText$ = newText$ + "               "
-	endif
-
-	newText$ = newText$ + MyTranslate$("Line:")+" "+str$(textedit get "Text"+str$(globalCurrentText), "currentline")
-	newText$ = newText$ + " / "+str$(textedit get "Text"+str$(globalCurrentText), "countlines")
-
-
-	if(oldText$<>newText$) then
-		draw flush "Statusbar"
-	draw set "highcolor", 200,200,200, "Statusbar"
-	draw line 0,0 to 2000,0, "Statusbar"
-	draw set "highcolor", 184,184,184, "Statusbar"
-	draw line 0,1 to 2000,1, "Statusbar"
-	draw set "highcolor", 239,239,239, "Statusbar"
-	draw line 0,2 to 2000,2, "Statusbar"
-	draw set "highcolor", 0,0,0, "Statusbar"
-		draw text 5,13, "File: ", "Statusbar"
-		// draw set "highcolor", 0,200,0, "Statusbar"
-		draw text (5+draw get "Text-Width", MyTranslate$("File: "), "Statusbar"),13, newText$, "Statusbar"
-		// draw text (5+draw get "Text-Width", "Status: ", "Statusbar"),11, globalAllNames$(globalCurrentText)+" saved", "Statusbar"
-		oldText$ = newText$
-	endif
-
-	return
-end sub
-
-sub WaitWindow(text$)
-	local x
-	local y
-	local width
-	local err
-
-	x = peek("desktopwidth")/2 - 125
-	y = peek("desktopheight")/2 - 100
-	window open x,y to x+249,y+79, "WaitWindow", ""
-	window set "WaitWindow", "feel", "modal-app" 
-	window set "WaitWindow", "look", "modal" 
-	window set "WaitWindow", "Flags", "not-closable, not-zoomable, not-h-resizable, not-v-resizable"
-	err = draw image 0,0, ideDir$+"img/Loading.png", "WaitWindow"
-
-	w = draw get "text-width", GetFileName$(text$), "WaitWindow"
-	text 143-w/2,32, "TWait", GetFileName$(text$), "WaitWindow"
-
-	w = draw get "text-width", MyTranslate$("Please wait..."), "WaitWindow"
-	text 143-w/2,60, "TRunning2", "Please wait...", "WaitWindow"
-
-	draw set "Bitstream Vera Sans, Bold Oblique, 14", "WaitWindow"
-	w = draw get "text-width", MyTranslate$("Loading Program"), "WaitWindow"
-	draw text 143-w/2,20, "Loading Program", "WaitWindow"
-	 
-	return
-end sub
-
-// Run the program and display its output
-sub RunProgram(yabFile$)
-	local tmp$, unique$
-	local num, i, t, teamID, pos
-	local x, y, err, w
-
-	if(isRunning) return
-	isRunning = true
-	
-	// easy way to make the tmp file sort-of unique
-	unique$ = date$+time$
-
-	x = peek("desktopwidth")/2 - 125
-	y = peek("desktopheight")/2 - 100
-	window open x,y to x+249,y+79, "Running", ""
-	window set "Running", "feel", "modal-app" 
-	window set "Running", "look", "modal" 
-	window set "Running", "Flags", "not-closable, not-zoomable, not-h-resizable, not-v-resizable"
-	err = draw image 0,0, ideDir$+"img/Running.png", "Running"
-
-	w = draw get "text-width", GetFileName$(yabFile$), "Running"
-	text 143-w/2,32, "TRunning", GetFileName$(yabFile$), "Running"
-	button 150,50 to 240,75, "BRunning", "Break", "Running"
-
-	draw set "Bitstream Vera Sans, Bold Oblique, 14", "Running"
-	w = draw get "text-width", MyTranslate$("Running Program"), "Running"
-	draw text 143-w/2,20, "Running Program", "Running"
-	 
-	// text 5,5, "TRunning", MyTranslate$("Now Running: ")+GetFileName$(yabFile$), "Running"
-	// button 50,25 to 150,45, "BRunning", "Break", "Running"
-	listbox clear "YabOutputList"
-	window set "Running", "deactivate"
-
-	if DEBUG print "cd "+GetDirectory$(yabFile$)+";"+yabDir$+" "+settingsYabParam$+" "+yabFile$+" "+settingsProgParam$+" &>/tmp/yab-log."+unique$+"  &"
-	system("cd "+GetDirectory$(yabFile$)+";"+yabDir$+" "+settingsYabParam$+" "+yabFile$+" "+settingsProgParam$+" &>/tmp/yab-log."+unique$+" &")
-	sleep 0.1
-	while(teamID <> -1)
-		teamID = thread get "teamid", yabDir$+" "+param$+yabFile$
-
-		handle = open("/tmp/yab-log."+unique$,"r")
-		if(handle) then
-			seek handle,pos
-			while(not eof(handle))
-				tmp$ = GetLine$(handle)+"\n"
-				listbox add "YabOutputList", left$(tmp$, len(tmp$)-1)
-				listbox select "YabOutputList", listbox count "YabOutputList"
-				pos = tell(handle)
-			wend
-			close(handle)
-		endif
-
-		if(instr(message$, "BRunning")) then
-			t = thread remove "teamid", teamID
-			if(not t) alert "Error! Program could not be killed.", "Oops", "stop"
-			break
-		endif
-		sleep 0.1
-	wend
-
-	window close "Running"
-
-	system("rm -f "+"/tmp/yab-log."+unique$+" >/dev/null")
-
-	isRunning = false
-	return
-end sub
-
-// Run the program in a terminal
-sub RunInTerminal(yabFile$)
-	local tmp$, param$
-	local num, i, t, pos
-	local x, y, err, w
-
-	if(isRunning) return
-	isRunning = true
-
-	x = peek("desktopwidth")/2 - 150
-	y = peek("desktopheight")/2 - 100
-	window open x,y to x+299,y+79, "Running", ""
-	window set "Running", "feel", "modal-app" 
-	window set "Running", "look", "modal" 
-	window set "Running", "Flags", "not-closable, not-zoomable, not-h-resizable, not-v-resizable"
-	err = draw image 0,0, ideDir$+"img/Running.png", "Running"
-
-	w = draw get "text-width", GetFileName$(yabFile$), "Running"
-	text 168-w/2,32, "TRunning", GetFileName$(yabFile$), "Running"
-
-	w = draw get "text-width", MyTranslate$("Close terminal to break program"), "Running"
-	text 168-w/2,60, "TRunning2", "Close terminal to break program", "Running"
-
-	draw set "Bitstream Vera Sans, Bold Oblique, 14", "Running"
-	w = draw get "text-width", MyTranslate$("Running Program"), "Running"
-	draw text 168-w/2,20, "Running Program", "Running"
-	 
-	window set "Running", "deactivate"
-	sleep 0.1
-
-	param$ = settingsYabParam$ + " -enter"
-	tmp$ = system$("Terminal "+yabDir$+" "+param$+" "+yabFile$+" "+settingsProgParam$+" 2>&1")
-	window close "Running"
-
-	listbox clear "YabOutputList"
-	dim result$(1)
-	num = split(tmp$, result$(), "\n")
-	for i = 1 to num
-		listbox add "YabOutputList", result$(i)
-	next i
-
-	isRunning = false
-	return
-end sub
-
-sub AboutWindow()
-	local x
-	local y
-	local width
-	local t
-
-	x = peek("desktopwidth")/2 - 200
-	y = peek("desktopheight")/2 - 200
-	window open x-3000,y-3000 to x+400-3000, y+300-3000, "AboutWindow", ""
-	window set "AboutWindow", "look", "bordered"
-	window set "AboutWindow", "feel", "modal-app"
-	window set "AboutWindow", "MaximumTo", 400,300
-	window set "AboutWindow", "MinimumTo", 400,300
-	window set "AboutWindow", "Flags", "not-closable, not-zoomable, not-h-resizable, not-v-resizable"
-
-	draw set "bgcolor", 255,255,255, "AboutWindow"
-	draw set "lowcolor", 255,255,255, "AboutWindow"
-
-	width = draw get "text-width", "(c) 2006-2015 in terms of the Artistic License", "AboutWindow"
-	draw text 198-width/2, 260, "(c) 2006-2015 in terms of the Artistic License", "AboutWindow"
-	width = draw get "text-width", "Coded by Jan, graphics by Genki, thanks to BeSly", "AboutWindow"
-	draw text 200-width/2, 240, "Coded by Jan, graphics by Genki, thanks to BeSly", "AboutWindow"
-
-	if(peek$("os") = "Haiku") then
-		draw set "DejaVu Sans, Bold, 18", "AboutWindow"
-	else
-		draw set "Swis721 BT, Bold, 18", "AboutWindow"
-	endif
-	width = draw get "text-width", "yab-IDE", "AboutWindow"
-	draw text 200-width/2, 25, "yab-IDE", "AboutWindow"
-	if(peek$("os") = "Haiku") then
-		draw set "DejaVu Sans, Bold, 10", "AboutWindow"
-	else
-		draw set "Swis721 BT, Bold, 10", "AboutWindow"
-	endif
-	width = draw get "text-width", "Version "+versionnumber$, "AboutWindow"
-	draw text 200-width/2, 40, "Version "+versionnumber$, "AboutWindow"
-
-	t = draw image 100,50 to 300,-1, ideDir$+"img/yablogo.png", "AboutWindow"
-
-	button 100,265 to 300,290, "AboutButton", "Close", "AboutWindow"
-	option set "AboutButton", "focus", true
-
-	window set "AboutWindow", "moveto", x,y
-
-	while(not instr(message$, "AboutButton"))
-	wend
-
-
-	window close "AboutWindow"
-	return
-end sub
-
-sub SaveAsTemplate()
-	local x: local y
-	local w: local i: local n
-	local isButton
-	local handle: local handle2
-	local inloop
-	local msg$(1)
-	local name$: local description1$: local description2$: local image$
-	local t$
-
-	x = (peek("desktopwidth")-600)/2
-	y = (peek("desktopheight")-200)/2-50
-	if(y<50) y=50
-
-	window open x-3000,y-3000 to x+600-3000,y+200-3000, "SaveTempWindow", "yab-IDE Save as Template"
-	window set "SaveTempWindow", "Feel", "Modal-App"
-	window set "SaveTempWindow", "Flags", "not-zoomable, not-h-resizable, not-v-resizable"
-
-	Header("Save as Template", "SaveTempWindow", 600)
-
-	text 10,50, "SaveTempText1", "Save your code as a template for other programs:", "SaveTempWindow"
-	textcontrol 10,70 to 380,90, "SaveTempName", "Template Name", "", "SaveTempWindow"
-	text 10,98, "SaveTempText2", "Description (not more than 30 characters per line)", "SaveTempWindow"
-	textcontrol 5,110 to 380,120, "SaveTempDes1", "", "", "SaveTempWindow"
-	textcontrol 5,130 to 380,150, "SaveTempDes2", "", "", "SaveTempWindow"
-
-	draw set "highcolor", 0,0,0, "SaveTempWindow"
-	draw set "lowcolor", 255,255,0, "SaveTempWindow"
-	draw set 0, "240225195135015030060120"
-	draw rect 390,50 to 590,150, "SaveTempWindow"
-	draw set 0, "lowsolidfill"
-	draw set "lowcolor", 216,216,216, "SaveTempWindow"
-	draw rect 400,60 to 580,140, "SaveTempWindow"
-	draw set 0, "highsolidfill"
-
-	w = draw get "Text-width", MyTranslate$("Drop image here"), "SaveTempWindow"
-	draw text 490-w/2,105, "Drop image here", "SaveTempWindow"
-	view dropzone "SaveTempWindow"
-
-	draw set "highcolor", 185,185,185, "SaveTempWindow"
-	draw line 0,162 to 600,162, "SaveTempWindow"
-	draw set "highcolor", 239,239,239, "SaveTempWindow"
-	draw line 0,163 to 600,163, "SaveTempWindow"
-
-	button 530,170 to 590,190, "SaveTempOk", "Save", "SaveTempWindow"
-	option set "SaveTempOk", "enabled", false
-	isButton = false
-
-	option set "SaveTempName", "focus", true
-
-	window set "SaveTempWindow", "moveto", x,y
-
-	inloop = true 
-	while(inloop)
-		n = split(message$, msg$(), ":|")
-		for i = 1 to n
-			if(DEBUG and msg$(i)<>"") print msg$(i)
-			// check for emergency exit
-			if(i > 1) then
-				if(msg$(i) = "_QuitRequested" and msg$(i-1) <> "SaveTempWindow") then
-					exit(1)
-				endif
-			else
-				if(msg$(i) = "_QuitRequested") then
-					exit(1)
-				endif
-			endif
-			switch(msg$(i))
-				case "_Dropped"
-					if(arraysize(msg$(),1)>=i+1) then
-						w = draw image 390,50 to 590,150, msg$(i+1), "SaveTempWindow"
-						if(w<>0) then
-							alert "Could not load image!", "Ok", "warning"
-						else
-							image$ = msg$(i+1)
-						endif
-					endif
-					break
-				case "SaveTempOk"
-					name$ = left$(textcontrol get$ "SaveTempName", 50)
-					description1$ = left$(textcontrol get$ "SaveTempDes1", 30)
-					description2$ = left$(textcontrol get$ "SaveTempDes2", 30)
-					imageShort$ = GetFileName$(image$)
-					system("cp "+image$+" "+ideDir$+"Templates/img/"+imageShort$)
-					handle = open(ideDir$+"Templates/TemplateList", "a")
-					if(handle) then
-						print #handle "#"
-						print #handle name$
-						print #handle "Templates/img/"+imageShort$
-						print #handle description1$
-						print #handle description2$
-						close(handle)
-						handle2 = open(ideDir$+"Templates/"+name$, "w")
-						if(handle2) then
-							t$ = textedit get$ "Text"+str$(globalCurrentText)
-							print #handle t$;
-							close(handle2)
-						else
-							alert "Error while saving template!", "Ok", "warning"
-						endif
-					else
-						alert "Error while saving template!", "Ok", "warning"
-					endif
-					inloop = false
-					break
-				case "_QuitRequested"
-					inloop = false
-					break
-			end switch
-		next i
-
-		name$ = textcontrol get$ "SaveTempName"
-		if(name$<>"" and not isButton) then
-			option set "SaveTempOk", "enabled", true
-			isButton = true
-		endif
-		if(name$="" and isButton) then
-			option set "SaveTempOk", "enabled", false
-			isButton = false
-		endif
-	wend
-
-	window close "SaveTempWindow"
-	return
-end sub
-
-sub SaveCurrentFile()
-local savetext$
-	handle = open(globalAllNames$(globalCurrentText), "w")
-        if(handle) then
-		savetext$=textedit get$ "Text"+str$(globalCurrentText)
-		if right$(savetext$,1)<>chr$(10) savetext$=savetext$+chr$(10)
-        	print #handle savetext$;
-        	close(handle)
-		tmpCurrentLine = textedit get "Text"+str$(globalCurrentText), "currentline"
-		print "ATTR SET ";
-		print str$(tmpCurrentLine)
-		attribute set "Int", "linenumber", str$(tmpCurrentLine), globalAllNames$(globalCurrentText)
-		textedit set "Text"+str$(globalCurrentText), "changed", false
-		globalWasChanged = false
-		columnbox add "FileBox", 1, globalTextFinder(globalCurrentText), 20, "__Icon__="+ideDir$+"img/gespeichert.png"
-	else
-		alert "File could not be saved!", "Ok", "warning"
-		return false
-	endif
-	return true
-end sub
-
-sub Header(headerText$, window$, size)
-	local w
-	local head$
-
-	head$ = window$+"Header"
-	layout "none", window$
-	view 0,0 to size,40, head$, window$
-	draw set "bgcolor", 230,230,255, head$
-	draw set "lowcolor", 230,230,255, head$
-	if(peek$("os") = "Haiku") then
-		draw set "DejaVu Sans, Condensed Bold, 18", head$
-	else
-		draw set "Swis721 BT, Bold, 18", head$
-	endif
-	draw set "highcolor", 0,0,0, head$
-	w = draw get "Text-width", MyTranslate$(headerText$), head$
-	draw text size-w-10,25, headerText$, head$
-	draw set "highcolor", 239,239,239, head$
-	draw line 0,40 to size,40, head$
-	draw set "highcolor", 185,185,185, head$
-	draw line 0,39 to size,39, head$
-	return
-end sub
-
-// open the build factory window
-sub Building()
-	local x, y, inloop, isEmpty
-	local binName$, t$, myTab$, result$
-	local msg$(1)
-	local i, n, tmp
-	
-	
-	x = (peek("desktopwidth")-500)/2
-	y = (peek("desktopheight")-400)/2-50
-	if(y<50) y=50
-
-	window open x-3000,y-3000 to x+500-3000,y+400-3000, "BuildWindow", "yab-IDE Build Factory"
-	window set "BuildWindow", "Feel", "Modal-App"
-	window set "BuildWindow", "Flags", "not-zoomable, not-h-resizable, not-v-resizable"
-	
-	Header("Build Factory", "BuildWindow", 500)
-
-	if(right$(globalAllNames$(globalCurrentText),4) = ".yab") then
-		binName$ = left$(globalAllNames$(globalCurrentText), len(globalAllNames$(globalCurrentText))-4)
-	else
-		binName$= globalAllNames$(globalCurrentText)+".bin"
-	endif
-	
-	while (instr(binName$, "/"))
-		pos=instr(binName$, "/")
-		binName$=right$(binName$,len(binName$)-pos)
-		wend
-	
-	
-	isEmpty = false
-
-	textcontrol 10,50 to 380,70, "BuildPath", "Target file name:", binName$, "BuildWindow"
-	AppSig$="application/x-vnd.yab-app"
-	textcontrol 10,80 to 380,100, "AppSig", "Application Signature:", AppSig$, "BuildWindow"
-	//button 390,50 to 490,70, "BuildBrowse", "Browse", "BuildWindow"
-
-	button 390,100 to 490,130, "BuildBuild", "Create Binary", "BuildWindow" 
-
-	MyLine(0,140,500,140, "BuildWindow")
-	textedit 10,155 to 490,390, "BuildOutput", 3, "BuildWindow"
-	textedit set "BuildOutput", "editable", false
-	textedit set "BuildOutput", "wordwrap", false
-	textedit set "BuildOutput", "textwidth", 4000
-
-	window set "BuildWindow", "moveto", x, y
-
-	if(left$(system$("gcc 2>&1"),4) <> "gcc:") then
-		alert "The compiler GCC was not found!\n\nPlease install a complete Haiku system.", "Ok", "stop"
-		window close "BuildWindow"
-		return
-	endif
-
-	textedit add "BuildOutput", MyTranslate$("Build Factory Output\n\n")
-
-	inloop = true
-	while(inloop)
-		n = split(message$, msg$(), "|")
-		for i = 1 to n
-			if(DEBUG and msg$(i)<>"") print msg$(i)
-			switch(msg$(i))
-				case "BuildBuild"
-					option set "BuildBuild", "enabled", false
-					option set "BuildPath", "enabled", false
-					//option set "BuildBrowse", "enabled", false
-					option set "AppSig", "enabled", false
-					AppSig$=textcontrol get$ "AppSig"
-					if AppSig$="" AppSig$="application/x-vnd.yab-app"
-					binName$=textcontrol get$ "BuildPath"
-					textedit add "BuildOutput", MyTranslate$("Please wait, processing... (this may take a long time!)\n\n")
-					print "cd "+buildDir$+"; "+yabDir$+" BuildFactory.yab "+binName$+" "+globalAllNames$(globalCurrentText)+" "+AppSig$+" 2>&1\n\n"
-					result$ = system$("cd "+buildDir$+";  yab BuildFactory.yab "+binName$+" "+globalAllNames$(globalCurrentText)+" "+AppSig$+" yab-ide  2>&1")
-					textedit add "BuildOutput", result$
-					
-
-					option set "BuildBuild", "enabled", true
-					option set "BuildPath", "enabled", true 
-					//option set "BuildBrowse", "enabled", true 
-					option set "AppSig", "enabled", true
-					
-					if(IfExists(buildDir$+"/"+binName$)) then
-						alert "Build was successful", "Ok", "info"
-					else
-						alert "Build failed!", "Ok", "warning"
-					endif
-					system("rm "+ buildDir$+"/"+binName$)
-					break
-				//case "BuildBrowse"
-				//	t$ = filepanel "save-file", "Save", GetDirectory$(binName$)
-				//	if(t$<>"") then
-				//		textcontrol set "BuildPath", t$
-				//		binName$ = t$
-				//	endif
-				//	break
-				case "_QuitRequested"
-				case "BuildWindow:_QuitRequested"
-					inloop = false
-					break
-			end switch
-		next i
-		if(not isEmpty and textcontrol get$ "BuildPath" = "") then
-			AppSig$=textcontrol get$ "AppSig"
-			option set "BuildBuild", "enabled", false
-			isEmpty = true
-		endif
-		if(isEmpty and textcontrol get$ "BuildPath" <> "") then
-			AppSig$=textcontrol get$ "AppSig"
-			option set "BuildBuild", "enabled", true
-			isEmpty = false
-		endif
-		
-		
-		
-	wend
-	window close "BuildWindow"
-	return
-end sub
-
-// open the option window
-sub OptionWindow()
-	local x, y, inloop
-	local msg$(1), style$(1)
-	local styleNum, styleCount
-	local i, n, optCurrent
-	local tmp$
-	local handle, j, hasItem
-	local family$, style$, size$
-	local defaultFamily
-
-	x = (peek("desktopwidth")-650)/2
-	y = (peek("desktopheight")-400)/2-50
-	if(y<50) y=50
-
-	window open x+100-3000,y+150-3000 to x+750-3000,y+550-3000, "OptWindow", "yab-IDE Options"
-	window set "OptWindow", "Feel", "Modal-App"
-	window set "OptWindow", "Flags", "not-zoomable, not-h-resizable, not-v-resizable"
-
-	Header("Options", "OptWindow", 650)
-
-	draw set "highcolor", 185,185,185, "OptWindow"
-	draw line 11,51 to 138,51, "OptWindow"
-	draw line 10,50 to 139,50, "OptWindow"
-	draw line 11,51 to 11,388, "OptWindow"
-	draw line 10,50 to 10,389, "OptWindow"
-	draw set "highcolor", 239,239,239, "OptWindow"
-	draw line 12,389 to 139,389, "OptWindow"
-	draw line 11,390 to 139,390, "OptWindow"
-	draw line 139,52 to 139,389, "OptWindow"
-	draw line 140,51 to 140,390, "OptWindow"
-	draw set "highcolor", 0,0,0, "OptWindow"
-
-	treebox 12,52 to 138,388, "OptTree", 0, "OptWindow"
-	// treebox add "OptTree", "Interpreter"
-	// treebox add "OptTree", "Interpreter", "Libraries", true
-	// treebox add "OptTree", "Interpreter", "Execution", true
-	treebox add "OptTree", "Editor"
-	treebox add "OptTree", "Editor", "Auto completion", true
-	// treebox add "OptTree", "Editor", "Syntax Highlighting", true
-	treebox add "OptTree", "Editor", "General", true
-	treebox add "OptTree", "Environment"
-	if(not settingsRCSOff) treebox add "OptTree", "Environment", "Version Control", true
-	treebox add "OptTree", "Environment", "Language", true
-	treebox add "OptTree", "Environment", "Directories", true
-	treebox select "OptTree", 2
-
-	// button 430,370 to 530,390, "OptDefault", "Default", "OptWindow"
-	// button 540,370 to 640,390, "OptOk", "Close", "OptWindow"
-
-	// MyLine(0,362,650,362,"OptWindow")
-
-	optCurrent = 1
-	stackview 150,50 to 640,390, "OptStack", 4, "OptWindow"
-
-	// General
-	boxview 0,0 to 490, 340, "OptBox3", "General", 2, "OptStack1"
-	spincontrol 10,5, "OptGenSpin", "Number of spaces per tab:", 1,20,1, "OptBox3"
-	spincontrol set "OptGenSpin", settingsTabSpaces
-	MyLine(10,35,470,35, "OptBox3")
-	checkbox 10,45, "OptGenSaving", "Ask about saving before running a program", settingsAskForSaving, "OptBox3"
-	checkbox 10,65, "OptGenReformat", "Show warning when reformating sourcecode did not close all loops and conditions", settingsReformatAlert, "OptBox3"
-	checkbox 10,85, "OptGenReformatUndo", "Show warning before undo reformating", settingsReformatUndoAlert, "OptBox3"
-	checkbox 10,105, "OptGenReplaceAll", "Show warning before applying Replace All", settingsFindAlert, "OptBox3"
-	MyLine(10,135,470,135, "OptBox3")
-
-	text 10,145, "OptGenTxt", "Select font for editor:", "OptBox3"
-	dropbox 12,165 to 240,185, "OptGenFontFamily", "Font Family", "OptBox3"
-	dropbox 250,165 to 370,185, "OptGenFontStyle", "Font Style", "OptBox3"
-	spincontrol 380,160, "OptGenFontSize", "Font Size", 8,50,1, "OptBox3"
-
-	n = token(draw get$ "FontFamily", msg$(), "|")
-	for i = 1 to n
-		dropbox add "OptGenFontFamily", msg$(i)
-		if(msg$(i) = settingsFontFamily$) j = i
-		if(msg$(i) = "Courier10 BT") defaultFamily = i
-	next i
-	if(j>0) then
-		dropbox select "OptGenFontFamily", j
-		n = token(draw get$ settingsFontFamily$, msg$(), "|")
-		for i = 1 to n
-			dropbox add "OptGenFontStyle", msg$(i)
-			if(msg$(i) = settingsFontStyle$) j = i
-		next i
-		if(j>0) dropbox select "OptGenFontStyle", j
-	endif
-	spincontrol set "OptGenFontSize", settingsFontSize
-
-	view 20,205 to 460,255, "OptGenSample", "OptBox3"
-	draw set "bgcolor", 255,255,255, "OptGenSample"
-	draw set settingsFontFamily$+","+settingsFontStyle$+","+str$(settingsFontSize), "OptGenSample"
-	n = draw get "text-width", MyTranslate$("My hovercraft is full of eels."), "OptGenSample"
-	draw text (440-n)/2,(50-settingsFontSize)/2+settingsFontSize, "My hovercraft is full of eels.", "OptGenSample"
-	MyLine(10,290,470,290,"OptBox3")
-	button 320,297 to 470,317, "OptDefault", "Factory Settings", "OptBox3"
-
-	// Syntax Highlighing
-	// boxview 0,0 to 490, 340, "OptBox4", "Syntax Highlighting", 2, "OptStack2"
-
-	// Auto completion
-	boxview 0,0 to 490, 340, "OptBox5", "Auto completion", 2, "OptStack2"
-	checkbox 10,10, "OptACCheck", "Enable auto completion", settingsAutoCompletion, "OptBox5"
-	spincontrol 10,30, "OptACNum", "Number of characters for starting completion:", 1,20,1, "OptBox5"
-	spincontrol set "OptACNum", settingsACNumChar
-	MyLine(10,60,470,60,"OptBox5")
-	listbox 10,75 to 180,275, "OptACList", 1, "OptBox5"
-	textcontrol 190,185 to 470,205, "OptACTC", "New Entry:", "", "OptBox5"
-	button 320,215 to 470,235, "OptACAdd", "Add New Entry", "OptBox5"
-	MyLine(190,245,470,245,"OptBox5")
-	MyLine(190,175,470,175,"OptBox5")
-	button 370,255 to 470,275, "OptACRemove", "Remove Entry", "OptBox5"
-	text 190,75, "OptACText1", "Note: You have to restart the IDE to update the", "OptBox5"
-	text 190,90, "OptACText2", "autocompletion when removing entries.", "OptBox5"
-	handle = open(ideDir$+"data/autocompletion", "r")
-	if(handle) then
-		while(not eof(handle))
-			tmp$ = GetLine$(handle)+"\n"
-			listbox add "OptACList", left$(tmp$, len(tmp$)-1)
-		wend
-		close(handle)
-	endif
-	MyLine(10,290,470,290,"OptBox5")
-	button 320,297 to 470,317, "OptDefault", "Factory Settings", "OptBox5"
-
-	// Dirs
-	boxview 0,0 to 490, 340, "OptBox6", "Directories", 2, "OptStack3"
-	text 10,10, "OptDirTxt", "Note: Only change the directories, when you know what you are doing!", "OptBox6"
-	MyLine(10,30,470,30, "OptBox6")
-	textcontrol 10,45 to 470,65, "OptDirBinDir", "Default yab Binary", yabDir$, "OptBox6"
-	// MyLine(10,45,470,45, "OptBox6")
-	// textcontrol 10,60 to 360,80, "OptDirProjDir", "Project Directory", globalProjectDir$, "OptBox6"
-	textcontrol 10,80 to 470,100, "OptDirYabDir", "Default yab Directory", settingsYabDir$, "OptBox6"
-	MyLine(10,115,470,115, "OptBox6")
-	MyLine(10,290,470,290,"OptBox6")
-	button 320,297 to 470,317, "OptDefault", "Factory Settings", "OptBox6"
-
-	// Language
-	boxview 0,0 to 490, 340, "OptBox8", "Language", 2, "OptStack4"
-	checkbox 10,10, "OptLangCheck", "Use automatic localization", restartSettingsLangUse, "OptBox8"
-	MyLine(10,40,470,40,"OptBox8")
-	columnbox 10,55 to 470,275, "OptLangList", false, "", "OptBox8"
-	columnbox column "OptLangList", "Supported Languages", 1, 460,460,460, "align-left"
-	MyLine(10,290,470,290,"OptBox8")
-	button 320,297 to 470,317, "OptDefault", "Factory Settings", "OptBox8"
-	columnbox color "OptLangList", "Selection-Active", 220,220,250 
-	columnbox color "OptLangList", "Row-Divider", 255,255,255 
-	tmp$ = system$("ls /boot/common/data/locale/catalogs/"+settingsLangPath$+"/*.catalog")
-	n = token(tmp$, msg$(), "\n")
-	for i = 1 to n
-		columnbox add "OptLangList", 1,i,18,msg$(i)
-	next i
-
-	window set "OptWindow", "moveto", x,y
-
-	inloop = true
-	while(inloop)
-		n = split(message$, msg$(), "|")
-		for i = 1 to n
-			if(DEBUG and msg$(i)<>"") print msg$(i)
-			switch(msg$(i))
-				case "_QuitRequested"
-					// emergency quit
-					exit(1)
-					break
-				case "OptOk"
-				case "OptWindow:_QuitRequested"
-					inloop = false
-					break
-
-				// General
-				case "OptGenSaving:ON"
-				case "OptGenSaving:OFF"
-					settingsAskForSaving = not settingsAskForSaving
-					break
-				case "OptGenReformat:ON"
-				case "OptGenReformat:OFF"
-					settingsReformatAlert = not settingsReformatAlert
-					break
-				case "OptGenReformatUndo:ON"
-				case "OptGenReformatUndo:OFF"
-					settingsReformatUndoAlert = not settingsReformatUndoAlert
-					break
-				case "OptGenReplaceAll:ON"
-				case "OptGenReplaceAll:OFF"
-					settingsFindAlert = not settingsFindAlert
-					break
-
-				// Autocompletion
-				case "OptACCheck"
-					settingsAutoCompletion = not settingsAutoCompletion
-					break
-				case "OptACRemove"
-					break
-				case "OptACAdd"
-					tmp$ = textcontrol get$ "OptACTC"
-					if(tmp$<>"") then
-						hasItem = false
-						for j=1 to listbox count "OptACList"
-							if(tmp$ = listbox get$ "OptACList", i) then
-								hasItem = true
-								break
-							endif
-						next j
-						if(not hasItem) then
-							listbox add "OptACList", tmp$
-							listbox sort "OptACList"
-						else
-							alert "Entry already exists.", "Ok", "info"
-						endif
-					endif
-					break
-					
-				// Language
-				case "OptLangCheck:ON"
-				case "OptLangCheck:OFF"
-					restartSettingsLangUse = not restartSettingsLangUse
-					alert "Restart yab-IDE to change localization", "Ok", "info"
-					break
-
-				// Default
-				case "OptDefault"
-					t = stackview get "OptStack"
-					switch(t)
-						case 1
-							settingsAskForSaving = true
-							settingsReformatAlert = true
-							settingsReformatUndoAlert = true
-							settingsFindAlert = true
-							settingsTabSpaces = 4
-							settingsFontStyle$ = "Roman"
-							settingsFontSize = 12
-							spincontrol set "OptGenSpin", settingsTabSpaces
-							checkbox set "OptGenSaving", settingsAskForSaving
-							checkbox set "OptGenReformat", settingsReformatAlert
-							checkbox set "OptGenReformatUndo", settingsReformatUndoAlert
-							checkbox set "OptGenReplaceAll", settingsFindAlert
-							dropbox select "OptGenFontFamily", defaultFamily
-							if(settingsFontFamily$<> "Courier10 BT") then
-								settingsFontFamily$ = "Courier10 BT"
-								dropbox clear "OptGenFontStyle"
-								styleCount = token(draw get$ settingsFontFamily$, style$(), "|")
-								for styleNum = 1 to styleCount
-									dropbox add "OptGenFontStyle", style$(styleNum)
-								next styleNum
-								dropbox select "OptGenFontStyle", 1
-								OptionUpdateSample()
-							endif
-							spincontrol set "OptGenFontSize", settingsFontSize
-							for j = 1 to MAXFILES
-								textedit set "Text"+str$(j), "TabWidth", settingsTabSpaces*7
-							next j
-							break
-						case 2
-							settingsAutoCompletion = true
-							settingsACNumChar = 2
-							checkbox set "OptACCheck", settingsAutoCompletion
-							spincontrol set "OptACNum", settingsACNumChar
-							break
-						case 3
-							if(system("test -d /boot/apps/Development/yab-1.0/") = 0) then
-								settingsYabDir$ = "/boot/apps/Development/yab-1.0/"
-							elsif(system("test -d /boot/apps/yab-1.0/") = 0) then
-								settingsYabDir$ = "/boot/apps/yab-1.0/"
-							else
-								alert "Could not find yab 1.0 directory!\n\nPlease do a proper installation.", "Ok", "warning"
-							endif
-							textcontrol set "OptDirYabDir", settingsYabDir$
-
-							if(system("test -e /boot/home/config/bin/yab") = 0) then
-								yabDir$ = "/boot/home/config/bin/yab"
-							else
-								alert "Could not find yab binary!\n\nPlease do a proper installation.", "Ok", "warning"
-							endif
-							textcontrol set "OptDirBinDir", yabDir$
-							break
-						case 4
-							if(restartSettingsLangUse = false) then
-								restartSettingsLangUse = true
-								checkbox set "OptLangCheck",restartSettingsLangUse
-								alert "Restart yab-IDE to change localization", "Ok", "info"
-							endif
-							break
-					end switch
-					break
-			end switch
-
-			// Font stuff
-			if(left$(msg$(i), 17) = "OptGenFontFamily:") then
-				settingsFontFamily$ = right$(msg$(i), len(msg$(i))-17)
-				dropbox clear "OptGenFontStyle"
-				styleCount = token(draw get$ settingsFontFamily$, style$(), "|")
-				for styleNum = 1 to styleCount
-					dropbox add "OptGenFontStyle", style$(styleNum)
-				next styleNum
-				dropbox select "OptGenFontStyle", 1
-				settingsFontStyle$ = style$(1)
-				OptionUpdateSample()
-			endif
-			if(left$(msg$(i), 16) = "OptGenFontStyle:") then
-				settingsFontStyle$ = right$(msg$(i), len(msg$(i))-16)
-				OptionUpdateSample()
-			endif
-
-			if(left$(msg$(i), 8) = "OptACTC:") then
-				option set "OptACAdd", "focus", true
-			endif
-			if(left$(msg$(i), 16) = "OptTree:_Select:") then
-				t = val(right$(msg$(i), len(msg$(i))-16))
-				tmp$ = treebox get$ "OptTree", t
-				switch(tmp$)
-					case MyTranslate$("General"): t = 1: break
-					// case MyTranslate$("Syntax Highlighting"): t = 2: break
-					case MyTranslate$("Auto completion"): t = 2: break
-					case MyTranslate$("Directories"): t = 3: break
-					case MyTranslate$("Language"): t = 4: break
-					// case MyTranslate$("Version Control"): t = 6: break
-					default: t = 0: break
-				end switch
-				if(t>0) then 
-					stackview set "OptStack", t
-					optCurrent = t
-				endif
-			endif
-			
-			if(left$(msg$(i), 13) = "OptDirYabDir:") then
-				tmp$ = right$(msg$(i), len(msg$(i))-13)
-				if(system("test -d "+tmp$) = 0) then
-					settingsYabDir$ = tmp$
-					alert MyTranslate$("New yab directory set to:\n\n")+tmp$+MyTranslate$("\n\nRestart the IDE using the new directory."), "Ok", "info"
-				else
-					alert MyTranslate$("Invalid directory:\n\n")+tmp$, "Ok", "warning"
-					textcontrol set "OptDirYabDir", settingsYabDir$
-				endif
-			endif
-			if(left$(msg$(i), 13) = "OptDirBinDir:") then
-				tmp$ = right$(msg$(i), len(msg$(i))-13)
-				if(system("test -e "+tmp$) = 0) then
-					yabDir$ = tmp$
-					alert MyTranslate$("yab binary set to:\n\n")+tmp$, "Ok", "info"
-				else
-					alert MyTranslate$("Invalid file:\n\n")+tmp$, "Ok", "warning"
-					textcontrol set "OptDirBinDir", yabDir$
-				endif
-			endif
-		next i
-		if(spincontrol get "OptGenFontSize" <> settingsFontSize) then
-			settingsFontSize = spincontrol get "OptGenFontSize"
-			OptionUpdateSample()
-		endif
-		if(spincontrol get "OptGenSpin" <> settingsTabSpaces) then
-			settingsTabSpaces = spincontrol get "OptGenSpin"
-			for j = 1 to MAXFILES
-				textedit set "Text"+str$(j), "TabWidth", settingsTabSpaces*7
-			next j
-		endif
-	wend
-
-	window close "OptWindow"
-	
-	return
-end sub
-
-// draw the example text (OptionWindow)
-sub OptionUpdateSample()
-	local n
-	local scroll, scrollLine, scrollPos
-
-	draw flush "OptGenSample"
-	draw set settingsFontFamily$+","+settingsFontStyle$+","+str$(settingsFontSize), "OptGenSample"
-	n = draw get "text-width", MyTranslate$("My hovercraft is full of eels."), "OptGenSample"
-	draw text (440-n)/2,50-(50-settingsFontSize)/2, "My hovercraft is full of eels.", "OptGenSample"
-	for n = 1 to MAXFILES
-		textedit set "Text"+str$(n), "font", settingsFontFamily$+","+settingsFontStyle$+","+str$(settingsFontSize)
-		draw set settingsFontFamily$+","+settingsFontStyle$+","+str$(settingsFontSize), "Lines"+str$(n)
-	next n
-	if(globalCurrentText>0) then
-		globalRealFontSize = textedit get "Text"+str$(globalCurrentText), "line-height", 1
-		scroll = textedit get "Text"+str$(globalCurrentText), "vertical-scrollbar"
-		scrollLine = int(scroll/globalRealFontSize)
-		scrollPos = mod(scroll,globalRealFontSize)
-		UpdateLines(scrollPos, 1200, scrollLine, globalRealFontSize)
-	endif
-	return
-end sub
-
-// draw a sort of 3D line
-sub MyLine(x1,y1,x2,y2,View$)
-	draw set "highcolor", 185,185,185, View$
-	draw line x1,y1 to x2,y2, View$
-	draw set "highcolor", 239,239,239, View$
-	if(x1=x2) then
-		draw line x1+1,y1 to x2+1,y2, View$
-	else
-		draw line x1,y1+1 to x2,y2+1, View$
-	endif
-	draw set "highcolor", 0,0,0, View$
-	return
-end sub
-
-// only translates when a translation is wanted
-sub MyTranslate$(txt$)
-	if(settingsLangUse) return menu translate$(txt$)
-	return txt$
-end sub
-
-// returns true if filename$ exists
-sub IfExists(filename$)
-	return not system("test -e "+filename$)
-end sub
-
-// Create a new toolbar.
-// 
-// x1,y1 is the upper left starting point
-// x2 is the right border of the toolbar
-// note: the toolbar is always 30 pixels in height!
-// id$ is the toolbar ID
-// dir$ is the directory, where the icons can be found
-// view$ is the view on which the Toolbar is created
-// 
-// Note: this will change the layout of your view view$.
-sub ToolbarCreate(x1,y1,x2, id$, dir$, view$)
-	layout "left, right", view$
-	view x1,y1 to x2,y1+32, id$, view$
-	// layout "left,right", id$
-	draw set "bgcolor", 222,219,222, id$
-	// view 0,30 to x2,32, id$+"line", id$
-	// draw set "bgcolor", 185,185,185, id$+"line"
-	layout "none", id$
-	position = 10
-	directory$ = dir$
-	toolbarview$ = id$
-	return
-end sub
-
-// Add an icon to the toolbar.
-sub ToolbarAddIcon(id$, tooltip$, pressed$, normal$, disabled$)
-	button image position,7, id$, directory$+pressed$, directory$+normal$, directory$+disabled$, toolbarview$
-	tooltip id$, tooltip$
-	position = position + 25
-	return
-end sub
-
-// Add a separator to the toolbar.
-sub ToolbarAddSeparator()
-	draw set "highcolor", 185,185,185, toolbarview$
-	draw line position-2,5 to position-2,25,toolbarview$ 
-	draw set "highcolor", 239,239,239, toolbarview$
-	draw line position-1,5 to position-1,25, toolbarview$
-	position = position + 5
-	return
-end sub
-
-// Open the pattern calculation window
-sub OpenCalcPattern(x,y)
-	local i, j, w
-	local msg$(1)
-	local inloop, n
-
-	window open x,y to x+259,y+400, "CalcPattern", "yab-IDE Pattern editor"
-	window set "CalcPattern", "Feel", "Modal-App"
-	window set "CalcPattern", "Flags", "not-zoomable, not-h-resizable, not-v-resizable"
-
-	Header("Pattern editor", "CalcPattern", 260)
-
-        draw set "highcolor", 239,239,239, "CalcPattern"
-        draw line 0,300 to 259,300, "CalcPattern"
-        draw set "highcolor", 185,185,185, "CalcPattern"
-        draw line 0,299 to 259,299, "CalcPattern" 
-
-	view 10,50 to 249,289, "VDraw", "CalcPattern"
-	draw set "bgcolor", 255, 255, 255, "VDraw"
-	draw set "lowcolor", 0, 0, 0, "VDraw"
-	
-	view 10,310 to 90,390, "VPattern", "CalcPattern"
-	draw set "bgcolor", 255, 255, 255, "VPattern"
-	draw set "lowcolor", 0, 0, 0, "VPattern"
-	draw set "highcolor", 255, 255, 255, "VPattern"
-	
-	button 100,370 to 249,390, "CalcPatternInsert", "Insert Pattern", "CalcPattern"
-
-	UpdatePattern(pattern())
-	draw set 0, "LowSolidFill"
-	draw set "lowcolor", 0, 0, 0, "VDraw"
-	for i = 0 to 7
-		for j = 0 to 7
-			if(pattern(i,j) = 1) then
-				draw rect i*30,j*30 to i*30+29,j*30+29, "VDraw"
-			endif
-		next j
-	next i
-	draw set 0, "HighSolidFill"
-
-	inloop = true
-	while(inloop)
-		CalcPatternMouse(pattern())
-		n = token(message$, msg$(), "|")
-		for i = 1 to n
-			switch(msg$(i))
-				case "CalcPatternInsert"
-					textedit add "Text"+str$(globalCurrentText), CalcPatternInsert$(pattern())
-					break
-				case "CalcPattern:_QuitRequested"
-					settingsCalcPatternX = window get "CalcPattern", "Position-X"
-					settingsCalcPatternY = window get "CalcPattern", "Position-Y"
-					window close "CalcPattern"
-					inloop = false
-					break
-				case "_QuitRequested"
-					//emergency break
-					exit(1)
-					break
-			end switch
-		next i
-	wend
-	return
-end sub
-
-// mouse stuff (PatternEditor)
-sub CalcPatternMouse(pattern())
-	local help$
-	local i, j, refresh
-	
-	mousex = 0
-	mousey = 0
-	mouselmb = 0
-	mousemmb = 0
-	mousermb = 0
-	
-	
-	refresh = 0
-	
-	if(ismousein("VDraw")) then
-		GetMouseData("VDraw",239,239)
-	endif
-	
-	if(mouselmb) then
-		x = int(mousex/30)
-		y = int(mousey/30)
-		if(pattern(x,y) = 0) then
-			pattern(x,y) = 1
-			draw set "lowcolor", 0, 0, 0, "VDraw"
-			draw set 0, "LowSolidFill"
-			draw rect x*30,y*30 to x*30+29,y*30+29, "VDraw"
-			UpdatePattern(pattern())
-			refresh = refresh + 1
-		endif
-	endif
-	
-	if(mousermb) then
-		x = int(mousex/30)
-		y = int(mousey/30)
-		if(pattern(x,y) = 1) then
-			pattern(x,y) = 0
-			draw set "lowcolor", 255, 255, 255, "VDraw"
-			draw set 0, "LowSolidFill"
-			draw rect x*30,y*30 to x*30+29,y*30+29, "VDraw"
-			draw set "lowcolor", 0, 0, 0, "VDraw"
-			UpdatePattern(pattern())
-			refresh = refresh + 1
-		endif
-	endif
-
-	if(refresh = 15) then
-		draw flush "VDraw"
-		draw flush "VPattern"
-		draw set "lowcolor", 0, 0, 0, "VDraw"
-		for i = 0 to 7
-			for j = 0 to 7
-				if(pattern(i,j)) then
-				draw set 0, "LowSolidFill"
-				draw rect i*30,j*30 to i*30+29,j*30+29, "VDraw"
-				draw set 0, "HighSolidFill"
-				endif
-			next j
-		next i
-		UpdatePattern(pattern())
-		refresh = 0
-	endif
-
-	return
-end sub
-
-// get pattern string (PatternEditor)
-sub CalcPatternInsert$(pattern())
-	local i, j
-	local t$, p$
-
-	p$ = "\""
-	for i = 0 to 7
-		t$ = ""
-		for j = 0 to 7
-			t$ = t$ + str$(1-pattern(j,i))
-		next j
-		t = dec(t$,2)
-		if(t<100) p$ = p$ + "0"
-		if(t<10) p$ = p$ + "0"
-		p$ = p$ + str$(t)
-	next i
-	p$ = p$ + "\""
-	return p$
-end sub
-
-// get mouse stuff (PatternEditor)
-sub GetMouseData(view$,maxx, maxy)
-	local n
-	local mouse$(1)
-
-	mousemsg$ = mouse message$(view$)
-	n = split(mousemsg$, mouse$(), ":")
-	mousex = val(mouse$(1))
-	mousey = val(mouse$(2))
-	mouselmb = val(mouse$(3))
-	mousemmb = val(mouse$(4))
-	mousermb = val(mouse$(5))
-	if(mousex<0) mousex = 0
-	if(mousey<0) mousey = 0
-	if(mousex>maxx) mousex = maxx
-	if(mousey>maxy) mousey = maxy
-
-	return
-end sub
-
-// update pattern (PatternEditor)
-sub UpdatePattern(pattern())
-	local i, j
-	local t$, p$
-
-	for i = 0 to 7
-		t$ = ""
-		for j = 0 to 7
-			t$ = t$ + str$(1-pattern(j,i))
-		next j
-		t = dec(t$,2)
-		if(t<100) p$ = p$ + "0"
-		if(t<10) p$ = p$ + "0"
-		p$ = p$ + str$(t)
-	next i
-	draw flush "VPattern"
-	draw set 0, p$
-	draw rect 0,0 to 80,80, "VPattern"
-	draw set 0, "HighSolidFill"
-	return
-end sub
-
-// Open the color selection window
-sub OpenColorSelection(x,y,r,g,b)
-	local i, j, w, n, num
-	local tmp$, msg$(1), col$(1)
-	local inloop
-
-	window open x,y to x+366,y+270, "ColorSelect", "yab-IDE Color selection"
-	window set "ColorSelect", "Feel", "Modal-App"
-	window set "ColorSelect", "Flags", "not-zoomable, not-h-resizable, not-v-resizable"
-	
-	Header("Color selection", "ColorSelect", 366)
-
-        draw set "highcolor", 239,239,239, "ColorSelect"
-        draw line 0,233 to 366,233, "ColorSelect" 
-	draw line 71,55 to 71,116, "ColorSelect"
-	draw line 10,116 to 71,116, "ColorSelect"
-        draw set "highcolor", 185,185,185, "ColorSelect"
-        draw line 0,232 to 366,232, "ColorSelect"
-	draw line 9,54 to 9,115, "ColorSelect"
-	draw line 9,54 to 70,54, "ColorSelect"
-
-	view 10,55 to 70,115, "ColorSelectRect", "ColorSelect"
-	draw set "highcolor", r,g,b, "ColorSelectRect"
-	draw rect 0,0 to 60,60, "ColorSelectRect"
-	colorcontrol 80,59, "ColorControl", "ColorSelect"
-	colorcontrol set "ColorControl", r,g,b
-
-	draw set "highcolor", 0,0,0, "ColorSelect"
-	draw text 10,140, "Default Colors:", "ColorSelect"
-	draw set 1, "HighSolidFill"
-	for i = 45 to 305 step 30
-		for j=155 to 186 step 30
-			draw set 1, "HighSolidFill"
-			draw rect i,j to i+30,j+30, "ColorSelect"
-			draw set 0, "HighSolidFill"
-			tmp$ = str$((j-125)/30)+str$((i-15)/30)
-			view i+1,j+1 to i+29,j+29, "Color"+tmp$, "ColorSelect"
-			switch tmp$
-				case "11"
-					draw set "bgcolor", 0,0,0, "Color11"
-					tooltip "Color11", "Black"
-					break
-				case "12"
-					draw set "bgcolor", 96,96,96, "Color12"
-					tooltip "Color12", "Darken 4"
-					break
-				case "13"
-					draw set "bgcolor", 128,128,128, "Color13"
-					tooltip "Color13", "Darken 3"
-					break
-				case "14"
-					draw set "bgcolor", 152,152,152, "Color14"
-					tooltip "Color14", "Darken 2"
-					break
-				case "15"
-					draw set "bgcolor", 184,184,184, "Color15"
-					tooltip "Color15", "Darken 1"
-					break
-				case "16"
-					draw set "bgcolor", 216,216,216, "Color16"
-					tooltip "Color16", "Default Background"
-					break
-				case "17"
-					draw set "bgcolor", 232,232,232, "Color17"
-					tooltip "Color17", "Lighten 1"
-					break
-				case "18"
-					draw set "bgcolor", 240,240,240, "Color18"
-					tooltip "Color18", "Lighten 2"
-					break
-				case "19"
-					draw set "bgcolor", 255,255,255, "Color19"
-					tooltip "Color19", "White"
-					break
-				case "21"
-					draw set "bgcolor", 255,0,0, "Color21"
-					tooltip "Color21", "Red"
-					break
-				case "22"
-					draw set "bgcolor", 192,128,0, "Color22"
-					tooltip "Color22", "Brown"
-					break
-				case "23"
-					draw set "bgcolor", 255,255,0, "Color23"
-					tooltip "Color23", "Yellow"
-					break
-				case "24"
-					draw set "bgcolor", 0,255,0, "Color24"
-					tooltip "Color24", "Green"
-					break
-				case "25"
-					draw set "bgcolor", 0,255,255, "Color25"
-					tooltip "Color25", "Cyan"
-					break
-				case "26"
-					draw set "bgcolor", 128,192,255, "Color26"
-					tooltip "Color26", "Light Blue"
-					break
-				case "27"
-					draw set "bgcolor", 0,0,255, "Color27"
-					tooltip "Color27", "Blue"
-					break
-				case "28"
-					draw set "bgcolor", 255,0,255, "Color28"
-					tooltip "Color28", "Magenta"
-					break
-				case "29"
-					draw set "bgcolor", 192,128,255, "Color29"
-					tooltip "Color29", "Light Magenta"
-					break
-			end switch
-		next j
-	next i
-
-	draw set 0, "HighSolidFill"
-	
-	button 256,240 to 356,260, "ColorSelectInsert", "Insert Color", "ColorSelect"
-
-	inloop = true
-	while(inloop)
-		ColorSelectMouse()
-		n = token(message$, msg$(), "|")
-		for i = 1 to n
-			if(left$(msg$(i),13) =  "ColorControl:") then
-				tmp$ = right$(msg$(i), len(msg$(i))-13)
-				dim col$(3)
-				num = token(tmp$, col$(), ":")
-				if(num = 3) then
-					draw flush "ColorSelectRect"
-					draw set "highcolor", val(col$(1)), val(col$(2)), val(col$(3)), "ColorSelectRect"
-					draw rect 0,0 to 60,60, "ColorSelectRect" 
-				endif
-			endif
-			switch(msg$(i))
-				case "ColorSelectInsert"
-					textedit add "Text"+str$(globalCurrentText), ColorSelectInsert$()
-					break
-				case "ColorSelect:_QuitRequested"
-					settingsColorSelectX = window get "ColorSelect", "Position-X"
-					settingsColorSelectY = window get "ColorSelect", "Position-Y"
-					settingsColorSelectR = colorcontrol get "ColorControl", "red"
-					settingsColorSelectG = colorcontrol get "ColorControl", "green"
-					settingsColorSelectB = colorcontrol get "ColorControl", "blue"
-					window close "ColorSelect"
-					inloop = false
-					break
-				case "_QuitRequested"
-					//emergency break
-					exit(1)
-					break
-			end switch
-		next i
-	wend
-	return
-end sub
-
-// get the color string (ColorSelect)
-sub ColorSelectInsert$()
-	local r, g, b
-
-	r = colorcontrol get "ColorControl", "red"
-	g = colorcontrol get "ColorControl", "green"
-	b = colorcontrol get "ColorControl", "blue"
-
-	return " "+str$(r)+", "+str$(g)+", "+str$(b)
-end sub
-
-// check mouse in ColorSelect
-sub ColorSelectMouse()
-	local i, j
-	local tmp$
-
-	for i = 1 to 9
-		for j = 1 to 2
-			tmp$ = "Color"+str$(j)+str$(i)
-			if(ismousein(tmp$) and IsButtonPressed(tmp$)) then
-				switch tmp$
-					case "Color11"
-						SetColor(0,0,0)
-						break
-					case "Color12"
-						SetColor(96,96,96)
-						break
-					case "Color13"
-						SetColor(128,128,128)
-						break
-					case "Color14"
-						SetColor(152,152,152)
-						break
-					case "Color15"
-						SetColor(184,184,184)
-						break
-					case "Color16"
-						SetColor(216,216,216)
-						break
-					case "Color17"
-						SetColor(232,232,232)
-						break
-					case "Color18"
-						SetColor(240,240,240)
-						break
-					case "Color19"
-						SetColor(255,255,255)
-						break
-					case "Color21"
-						SetColor(255,0,0)
-						break
-					case "Color22"
-						SetColor(192,128,0)
-						break
-					case "Color23"
-						SetColor(255,255,0)
-						break
-					case "Color24"
-						SetColor(0,255,0)
-						break
-					case "Color25"
-						SetColor(0,255,255)
-						break
-					case "Color26"
-						SetColor(128,192,255)
-						break
-					case "Color27"
-						SetColor(0,0,255)
-						break
-					case "Color28"
-						SetColor(255,0,255)
-						break
-					case "Color29"
-						SetColor(192,128,255)
-						break
-				end switch
-			endif
-		next j
-	next i
-end sub
-
-// check for pressed mouse button (ColorSelect)
-sub IsButtonPressed(view$)
-        local n, t
-	local mouselmb
-
-	t = false
-	dim mouse$(1)
-	repeat
-        	mousemsg$ = mouse message$(view$)
-        	n = split(mousemsg$, mouse$(), ":")
-        	mouselmb = val(mouse$(3))
-		if(mouselmb) t = true
-		if(not ismousein(view$)) then
-			t = false
-			mouselmb = 0
-		endif
-	until (mouselmb = 0)
-        return t
-end sub  
-
-// set a color to RGB (ColorSelect)
-sub SetColor(r,g,b)
-	colorcontrol set "ColorControl", r,g,b
-	draw flush "ColorSelectRect"
-	draw set "highcolor", r,g,b, "ColorSelectRect"
-	draw rect 0,0 to 60,60, "ColorSelectRect"
-	return
-end sub
-
-// beautify the code by reformating it
-sub ReformatSource$(code$)
-	local tablevel, num, i, j, k
-	local tmp$, returnSource$
-	local hasThen, isInTicks, firstcase
-
-	dim beginCommand$(12)
-	dim endCommand$(15)
-
-	beginCommand$(1) = "if"
-	beginCommand$(2) = "switch"
-	beginCommand$(3) = "for"
-	beginCommand$(4) = "while"
-	beginCommand$(5) = "do"
-	beginCommand$(6) = "repeat"
-	beginCommand$(7) = "case"
-	beginCommand$(8) = "default"
-	beginCommand$(9) = "else"
-	beginCommand$(10) = "elsif"
-	beginCommand$(11) = "sub"
-	beginCommand$(12) = "export"
-
-	endCommand$(1) = "end if"
-	endCommand$(2) = "end-if"
-	endCommand$(3) = "endif"
-	endCommand$(4) = "fi"
-	endCommand$(5) = "end switch"
-	endCommand$(6) = "end-switch"
-	endCommand$(7) = "next"
-	endCommand$(8) = "wend"
-	endCommand$(9) = "loop"
-	endCommand$(10) = "until"
-	endCommand$(11) = "else"
-	endCommand$(12) = "elsif"
-	endCommand$(13) = "end sub"
-	endCommand$(14) = "case"
-	endCommand$(15) = "default"
-	
-	dim reformat$(1)
-	tablevel = 0
-	firstcase = 0
-	num = split(code$, reformat$(), "\n")
-
-	for i=1 to num
-		tmp$ = ltrim$(lower$(reformat$(i)))
-		for j=1 to 15
-			if(left$(tmp$, len(endCommand$(j))) = endCommand$(j) and (len(tmp$) = len(endCommand$(j)) or instr(" \n\t\f\v\r(:/", mid$(tmp$,len(endCommand$(j))+1,1)))) then
-				if(not firstcase) then
-					if(j = 5 or j = 6) tablevel = tablevel - 1
-					tablevel = tablevel - 1
-					// if(tablevel<0) tablevel = 0
-				endif
-				firstcase = 0
-				break
-			endif
-		next j
-
-		for j=1 to tablevel
-			returnSource$ = returnSource$ + "\t"
-		next j
-
-		for j=1 to 12
-			if(left$(tmp$, len(beginCommand$(j))) = beginCommand$(j) and (len(tmp$) = len(beginCommand$(j)) or instr(" \n\t\f\v\r(:/", mid$(tmp$,len(beginCommand$(j))+1,1)))) then
-				hasThen = true 
-				if(beginCommand$(j) = "switch") then
-					firstcase = 1
-				elsif(beginCommand$(j) = "if") then
-					isInTicks = false
-					hasThen = false
-					for k=1 to len(tmp$)-3
-						if(mid$(tmp$,k,1)="\"" and mid$(tmp$,k-1,1)<>"\\") isInTicks = not isInTicks
-						if(not isInTicks and mid$(tmp$,k,4) = "then") then
-							hasThen = true
-							break
-						endif
-					next k
-				endif
-				if(hasThen) tablevel = tablevel + 1
-				break
-			endif
-		next j
-		returnSource$ = returnSource$ + ltrim$(reformat$(i))
-		if(i<num) returnSource$ = returnSource$ + "\n"
-	next i
-
-	ReformatError(true, tablevel)
-
-	return returnSource$
-end sub
-
-sub ReformatError(isSetting, ifSettingsThenError)
-	static tabbingError
-	
-	if(isSetting) then
-		tabbingError = ifSettingsThenError
-	else
-		return tabbingError
-	endif
-end sub
-
-// Return true when the program named programName$ is running 
-// otherwise return false
-sub IsProgramRunning(programName$)
-	local tmp$
-
-	tmp$ = system$("ps |grep '"+programName$+"'")
-
-	if(instr(tmp$, programName$) and not left$(tmp$,10) = "/bin/grep ") return true
-	return false
-end sub
-
-// Returns the team id of the program programName$;
-// returns 0 when the program was not found
-sub GetTeamID(programName$)
-	local tmp$
-	local ret
-	local t
-
-	ret = 0
-	tmp$ = system$("ps "+programName$+"|grep '"+programName$+"'")
-	t = instr(tmp$, programName$)
-
-	if(t>0 and left$(tmp$,10) <> "/bin/grep ") then
-		ret = val(mid$(tmp$, t+7+len(programName$), len(tmp$)-t-7-len(programName$)))
-	endif
-
-	return ret
-end sub
-
-// Send the kill signal to all members of the team of programName$
-// Returns true when successful and false otherwise
-sub KillTeam(programName$)
-	local ps$(1)
-	local found
-	local i, n
-
-	n = token(system$("ps "+programName$), ps$(), chr$(10))
-	found = false
-
-	while(i<=n)
-		if(instr(ps$(i), programName$)) then
-			found = true
-			i = i + 1
-			while(val(ps$(i))>0 and i<=n)
-				system("kill "+str$(val(ps$(i))))
-				i = i + 1
-			wend
-		endif
-		i = i + 1
-	wend
-	
-	return found
-end sub
-
-// Load the syntax tree into the given tree box from the TreeFile$ file.
-sub SyntaxLoadTree(TreeFile$, TreeBoxID$)
-	local info, level, handle, inloop
-	local tmp$
-
-
-	// Clear the treebox first
-	treebox clear TreeBoxID$
-
-	// count the number of info texts
-	info = 0
-	// three levels: toplevel, sublevel and info text level
-	level = 0
-	// read data from file return the file handle 
-	handle = open (TreeFile$, "r")
-	if(not handle) return 0
-
-	// read the file
-	inloop = true
- 	while(not eof(handle) and inloop)
-  		tmp$ = GetLine$(handle)
-  		// if it is not a comment...
-  		if(not (left$(tmp$,1) = "&")) then
-   			switch level
-    				case 0  // toplevel
-     					treebox add TreeBoxID$, tmp$
-     					break
-    				case 1  // sublevel
-     					n = instr(tmp$, ":")
-     					treebox add TreeBoxID$, left$(tmp$,n-1), right$(tmp$, len(tmp$)-n), 0
-     					break
-   			end switch
-  		else
-   			if(instr(tmp$, "toplevel")) level = 0
-   			if(instr(tmp$, "sublevel")) level = 1
-   			if(instr(tmp$, "infotext")) inloop = false
-  		endif
- 	wend
-	close handle
-	return 1
-end sub
-
-// Read the info text for Command$ from TreeFile$ with the index file IndexFile$.
-sub SyntaxGetInfoText$(TreeFile$, IndexFile$, Command$)
-	local handle, position, inloop 
-	local infotext$
-
-	// first read the seek position
-	inloop = true
-	handle = open (IndexFile$, "r")
-	if(not handle) return ""
-
-	while(not eof(handle) and inloop)
-			tmp$ = GetLine$(handle)
-			if(tmp$=Command$) then
-				if (not eof(handle)) then
-					tmp$ = GetLine$(handle)
-					position = val(tmp$)
-				endif
-				inloop = false
-			endif
-		wend
-	close handle
-
-	// a seek position is found; return the info text.
-	handle = open (TreeFile$, "r")
-	if(not handle) return ""
-		seek handle, position, "begin"
-		tmp$ = GetLine$(handle)
-		inloop = true
-		while(not eof(handle) and inloop)
-			tmp$ = GetLine$(handle)
-			if(left$(tmp$,1) = "&") then
-				inloop = false
-			else
-				infotext$ = infotext$ + tmp$ + chr$(10)
-			endif
-		wend
-	close handle
-
-	return infotext$
-end sub
-
-// Read a line from a file
-sub GetLine$(handle)
-	local tmp$, retString$
-
-	while(tmp$<>chr$(10) and tmp$<>chr$(13) and not eof(handle))
-		tmp$ = chr$(peek(handle))
-		if(tmp$<>chr$(10) and tmp$<>chr$(13)) retString$ = retString$ + tmp$
-	wend
-
-	return retString$
-end sub
-
-// Open ASCII table window
-sub AsciiWindow()
-	local n, x, y
-
-	window open 200,100 to 600,515, "AsciiView", "yab-IDE ASCII table"
-	window set "AsciiView", "flags", "Not-Zoomable, not-h-resizable, not-v-resizable"
-
-	Header("ASCII table", "AsciiView", 400)
-
-	draw set "highcolor", 239,239,239, "AsciiView"
-	draw line 6,405 to 395,405, "AsciiView"
-	draw line 395,51 to 395,405, "AsciiView"
-	draw set "highcolor", 185,185,185, "AsciiView"
-	draw line 5,50 to 394,50, "AsciiView"
-	draw line 5,50 to 5,404, "AsciiView"
-	draw set "highcolor", 255,255,255, "AsciiView"
-	draw rect 6,51 to 394,404, "AsciiView"
-	draw set "highcolor", 0,0,0, "AsciiView"
-
-	x = 10
-	y = 65
-	for n = 32 TO 126
-		draw text x,y, str$(n)+chr$(32)+chr$(n), "AsciiView" 
-		x = x+50
-		if x >= 365 then
-			x = 10
-			y = y+30
-		end if
-	next n 	
-
-	while(not instr(message$, "Quit"))
-	wend
-	window close "AsciiView"
-	return
-end sub
-
-// set the run parameters
-sub SetRunParameters()
-	local tmp$
-	local inloop
-
-	window open 200,100 to 500,215, "RunParam", "yab-IDE Set run parameters"
-	window set "RunParam", "flags", "Not-Zoomable, not-h-resizable, not-v-resizable"
-
-	Header("Set run parameters", "RunParam", 300)
-
-	textcontrol 10,50 to 290,70, "RunParamYab", "yab Parameters:", settingsYabParam$, "RunParam"
-	textcontrol 10,80 to 290,110, "RunParamProg", "Program Parameters:", settingsProgParam$, "RunParam"
-
-	inloop = true
-	while(inloop)
-		if(instr(message$, "Quit")) then
-			settingsYabParam$ = textcontrol get$ "RunParamYab"
-			settingsProgParam$ = textcontrol get$ "RunParamProg"
-			inloop = false
-		endif
-	wend
-
-	window close "RunParam"
-	return
-end sub
-
-// load settings on start-up
-sub LoadSettings()
-	local handle, i, j
-	local tmp$
-
-	handle = open(globalConfigDir$+"ide-settings", "r")
-	if(not handle) return 1
-
-	while(not eof(handle))
-		line input #handle tmp$	
-		if(left$(tmp$, 1)<>"#") then
-			i = i + 1
-			switch(i)
-				case 1: settingsYabDir$ = tmp$: break
-				case 2: globalProjectDir$ = tmp$: break
-				case 3: yabDir$ = tmp$: break
-				case 4: ideDir$ = tmp$: break
-				case 5: buildDir$ = tmp$: break
-				case 6: globalHelpDir$ = tmp$: break
-				case 7: settingsLangUse = val(tmp$): break
-				case 8: settingsLangPath$ = tmp$: break
-				case 9: settingsAutoIndent = val(tmp$): break
-				case 10: settingsAutoCompletion = val(tmp$): break
-				case 11: settingsACNumChar = val(tmp$): break
-				case 12: settingsX = val(tmp$): break
-				case 13: settingsY = val(tmp$): break
-				case 14: settingsWidth = val(tmp$): break
-				case 15: settingsHeight = val(tmp$): break
-				case 16: settingsFullScreen = val(tmp$): break
-				case 17: settingsFullEditor = val(tmp$): break
-				case 18: settingsVSplitDivider  = val(tmp$): break
-				case 19: settingsV2SplitDivider  = val(tmp$): break
-				case 20: settingsHSplitDivider  = val(tmp$): break
-				case 21: settingsCalcPatternX = val(tmp$): break
-				case 22: settingsCalcPatternY = val(tmp$): break
-				case 23: settingsColorSelectX = val(tmp$): break
-				case 24: settingsColorSelectY = val(tmp$): break
-				case 25: settingsColorSelectR = val(tmp$): break
-				case 26: settingsColorSelectG = val(tmp$): break
-				case 27: settingsColorSelectB = val(tmp$): break
-				case 28: settingsAskForSaving = val(tmp$): break
-				case 29: settingsFindCS = val(tmp$): break
-				case 30: settingsOldSearch$ = tmp$: break
-				case 31: settingsFindAlert = val(tmp$): break
-				case 32: settingsReformatAlert = val(tmp$): break
-				case 33: settingsReformatUndoAlert = val(tmp$): break
-				case 34: settingsTabSpaces = val(tmp$): break
-				case 35: break
-				case 36: settingsFontFamily$ = tmp$: break
-				case 37: settingsFontStyle$ = tmp$: break
-				case 38: settingsFontSize = val(tmp$): break
-				case 39: globalRealFontSize = val(tmp$): break
-				case 40: DEBUG = val(tmp$): break
-				case 41: MAXFILES = val(tmp$): break
-				case 42: settingsYabParam$ = tmp$: break
-				case 43: settingsProgParam$ = tmp$: break
-			end switch
-		endif
-	wend
-	close(handle)
-
-	dim globalAllNames$(MAXFILES)
-	dim globalTextFinder(MAXFILES)
-
-	for j=1 to MAXFILES
-		globalAllNames$(j) = ""
-		globalTextFinder(j) = 0
-	next j
-
-	if(i = 43) return 0
-	return 1
-end sub
-
-// load last opened files on start-up
-sub LoadOpenFiles()
-	local handle, mainhandle, j, t
-	local text$, t$
-
-	mainhandle = open(globalConfigDir$+"ide-openfiles", "r")
-	if(mainhandle) then
-		j = 1
-		while(not eof(mainhandle) and j<=MAXFILES)
-			globalAllNames$(j) = GetLine$(mainhandle)
-			handle = open(globalAllNames$(j), "r")
-			if(handle) then
-				WaitWindow(globalAllNames$(j))
-				text$ = ""
-				while(not eof(handle))
-					t$ = GetLine$(handle)+"\n"
-					if(len(t$)*8>4000) textedit set "Text"+str$(j), "textwidth", len(t$)*8+8
-					text$ = text$ + t$
-				wend
-				close(handle)
-				globalCurrentText = j
-				textedit add "Text"+str$(globalCurrentText), text$
-				textedit set "Text"+str$(globalCurrentText), "changed", false
-				textedit set "Text"+str$(globalCurrentText), "gotoline", ReadLineFromAttr(globalAllNames$(j))
-				stackview set "Stack", globalCurrentText
-				stackview set "Lines", globalCurrentText
-				t = columnbox count "FileBox" 
-				columnbox add "FileBox", 1, t+1,20, "__Icon__="+ideDir$+"img/gespeichert.png"
-				columnbox add "FileBox", 2, t+1,20, GetFileName$(globalAllNames$(j)) //  "Filename", t, GetFileName$(tmp$)
-				columnbox select "FileBox", t+1
-				globalTextFinder(globalCurrentText) = t+1
-				option set "Text"+str$(globalCurrentText), "focus", true
-				oldScroll = -1
-				globalNumOpenFiles = globalNumOpenFiles + 1
-				if(globalNumOpenFiles = 1) then
-					ActivateMenus(true)
-					splitview set "V2Split", "Divider", settingsV2SplitDivider
-				endif
-				window close "WaitWindow"
-			else
-				globalAllNames$(j) = ""
-			endif
-			j = j + 1
-		wend
-		close(mainhandle)
-	endif
-
-	return
-end sub
-
-// Export as HTML
-sub ExportAsHTML()
-	local browse$
-
-	browse$ = filepanel "Save-File", "Export as HTML", globalProjectDir$
-	if(browse$<>"") then
-
-		handle = open(browse$, "w")
-        	if(handle) then
-			print #handle "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">"
-			print #handle "<html>"
-			print #handle "  <head>"
-			print #handle "    <title>" + GetFileName$(globalAllNames$(globalCurrentText)) + "</title>"
-			print #handle "    <meta http-equiv=\"content-type\" content=\"text/html; charset=UTF-8\">"
-			print #handle "    <meta name=\"generator\" content=\"yab-IDE\">"
-			print #handle "  </head>"
-			print #handle "  <body>"
-			print #handle "    <pre>"
-        		print #handle textedit get$ "Text"+str$(globalCurrentText);
-			print #handle "    </pre>"
-			print #handle "  </body>"
-			print #handle "</html>"
-        		close(handle)
-		else
-			alert "File could not be saved!", "Ok", "warning"
-			return false
-		endif
-	endif
-end sub
-
-// Save all settings before exiting
-sub SaveSettings()
-	local handle, i
-
-	if(system("test -d "+globalConfigDir$) = 1) then
-		system("mkdir "+left$(globalConfigDir$, len(globalConfigDir$)-1))
-	endif
-
-	handle = open(globalConfigDir$+"ide-settings", "w")
-	if(handle) then
-		print #handle "# yab IDE 2.2 config file"
-		print #handle "# "
-		print #handle "# Comments start with a # as first character on a line"
-		print #handle "# Only change this file when you know what you are doing!"
-		print #handle "# Do not change the order of the lines in this file!"
-		print #handle "# "
-		print #handle "# yab directory (ends on /)"
-		print #handle settingsYabDir$
-		print #handle "# Program directory (ends on /)"
-		print #handle globalProjectDir$
-		print #handle "# yab binary location"
-		print #handle yabDir$
-		print #handle "# IDE directory (ends on /)"
-		print #handle ideDir$
-		print #handle "# BuildFactory directory (ends on /)"
-		print #handle buildDir$
-		print #handle "# Help directory (ends on /)"
-		print #handle globalHelpDir$
-		print #handle "# Use localization (0 = false, 1 = true)"
-		print #handle restartSettingsLangUse
-		print #handle "# localization mimetype"
-		print #handle settingsLangPath$
-		print #handle "# Auto indent (0 = false, 1 = true)"
-		print #handle settingsAutoIndent
-		print #handle "# Auto completion (0 = false, 1 = true)"
-		print #handle settingsAutoCompletion
-		print #handle "# Auto completion starts at character count:"
-		print #handle settingsACNumChar
-		print #handle "# X-coordinates of main window"
-		print #handle settingsX
-		print #handle "# Y-coordinates of main window"
-		print #handle settingsY
-		print #handle "# Width of main window"
-		print #handle settingsWidth
-		print #handle "# Height of main window"
-		print #handle settingsHeight
-		print #handle "# Start in fullscreen (0 = false, 1 = true)"
-		print #handle settingsFullScreen
-		print #handle "# Start in maximized editor (0 = false, 1 = true)"
-		print #handle settingsFullEditor
-		print #handle "# Position of main vertical divider"
-		print #handle settingsVSplitDivider 
-		print #handle "# Position of the vertical divider for the line numbers"
-		print #handle settingsV2SplitDivider 
-		print #handle "# Position of main horizontal divider"
-		print #handle settingsHSplitDivider 
-		print #handle "# X-coordinate of the pattern editor window"
-		print #handle settingsCalcPatternX
-		print #handle "# Y-coordinate of the pattern editor window"
-		print #handle settingsCalcPatternY
-		print #handle "# X-coordinate of the color selection window"
-		print #handle settingsColorSelectX
-		print #handle "# Y-coordinate of the color selection window"
-		print #handle settingsColorSelectY
-		print #handle "# Red value for last selected color in color selection window"
-		print #handle settingsColorSelectR
-		print #handle "# Green value for last selected color in color selection window"
-		print #handle settingsColorSelectG
-		print #handle "# Blue value for last selected color in color selection window"
-		print #handle settingsColorSelectB
-		print #handle "# Ask for saving before running a program (0 = false, 1 = true)"
-		print #handle settingsAskForSaving
-		print #handle "# Is \"find\" case sensitive? (0 = false, 1 = true)"
-		print #handle settingsFindCS
-		print #handle "# Last search string"
-		print #handle settingsOldSearch$
-		print #handle "# Show warning before applying Replace All (0 = false, 1 = true)"
-		print #handle settingsFindAlert
-		print #handle "# Show warning when reformating sourcecode did not close all loops and conditions (0 = false, 1 = true)"
-		print #handle settingsReformatAlert
-		print #handle "# Show warning before undo reformating (0 = false, 1 = true)"
-		print #handle settingsReformatUndoAlert
-		print #handle "# Number of spaces per tab"
-		print #handle settingsTabSpaces
-		print #handle "# Unused field (was: use Haiku tabs on ZETA)."
-		print #handle 0
-		print #handle "# Font family name"
-		print #handle settingsFontFamily$
-		print #handle "# Font style"
-		print #handle settingsFontStyle$
-		print #handle "# Font size"
-		print #handle settingsFontSize
-		print #handle "# Real font size"
-		print #handle globalRealFontSize
-		print #handle "# Print out IDE debug information (0 = false, 1 = true)" 
-		print #handle DEBUG
-		print #handle "# Maximum number of files the IDE can handle" 
-		print #handle MAXFILES
-		print #handle "# yab runtime parameters (default is empty)"
-		print #handle settingsYabParam$
-		print #handle "# Program runtime parameters (default is empty)"
-		print #handle settingsProgParam$
-
-		close(handle)
-	endif
-
-	handle = open(globalConfigDir$+"ide-openfiles", "w")
-	if(handle) then
-		for i=1 to MAXFILES
-			if(globalAllNames$(i)<>"") print #handle globalAllNames$(i)
-		next i
-		close(handle)
-	endif
-	return
-end sub
-
-sub path()
-if (!peek("isbound")) then
-path$=system$("ps")
-x=instr(path$,"/yab-IDE.yab")
-path$=left$(path$,x)
-for x=len(path$)-1 to 1 step -1
-	if (instr(path$," ",x) and catch=0) catch=x+1
-next
-path$=right$(path$,len(path$)-catch)
-path$=trim$(path$)
-path$="/"+path$
-else
-path$=trim$(peek$("directory") )
-path$=path$+"/"
-end if
-
-end sub
-
-
-sub yabpath$()
-
-if system("test -e /boot/home/config/non-packaged/bin/yab") = 0 then
-	return "/boot/home/config/non-packaged/bin/yab"
-elseif system("test -e /boot/home/config/bin/yab") = 0 then
- 		return "/boot/home/config/bin/yab"
-elseif system("test -e /boot/system/bin/yab") = 0 then
- 		return "/boot/system/bin/yab"
-
-endif
-
-local cmd$
-cmd$="test -e "+settingsYabDir$
-if system(cmd$)=0 then 
-	return settingsYabDir$
-endif
-
-return "error"
-end sub
-
-sub set_up_BuildFactory()
-local DataDir$
-
-local handel
-local ddir$
-
-DataDir$=trim$(system$("finddir  B_USER_DIRECTORY"))
-
-
-
-
-x=system("mkdir "+DataDir$+"/yab_work")
-system("mkdir ~/config/settings/yab")
-y=system("ls "+DataDir$+"/yab_work/BuildFactory")
-y=y+system("ls "+DataDir$+"/yab_work/Programs")
-if x=0  or y>0 then
-	system("cp -ur "+ideDir$+"/BuildFactory "+DataDir$+"/yab_work")
-	system("cp -ur "+ideDir$+"Programs "+DataDir$+"/yab_work")
-	system ("cp -ur "+ideDir$+"img "+DataDir$+"/yab_work/Programs")
-	system("cp -ur "+ideDir$+"Programs/libs/* /boot/home/config/settings/yab")
-
-
-	handle=open(DataDir$+"/yab_work/BuildFactory/srcfiles","r")
-	
-
-		while(not eof(#handle)) 
-			input #handle a$ 
-			system("cp -u "+ideDir$+"/src/"+a$+" "+DataDir$+"/yab_work/BuildFactory/"+a$)
-		end while
-	close handle
-
-	system("cp -ur "+ideDir$+"/src/column "+DataDir$+"/yab_work/BuildFactory")
-end if
-
-x=1
-open #1, ideDir$+"/src/YabMain.cpp","r"
-open #2, DataDir$+"/yab_work/BuildFactory/parts/YabMain.cpp.end","w"
-
-while(not eof(#1)) 
-	line input #1 a$
-	if x>9  then 
-	print #2 a$
-	end if
-	x=x+1
-wend 
-close #1
-close #2
-
-end sub
-	
-
-
-
-sub changestring()
-
-TextLine$ = TEXTEDIT GET$"Text"+str$(globalCurrentText), searchLineNum
-TextLine$=rtrim$(TextLine$ )						
-FindPart$=textcontrol get$ "FindTCFind"
-FindPart$=trim$(FindPart$)
-if(settingsFindCS) then
-	x=instr(TextLine$, FindPart$)
-else
-	x=instr(upper$(TextLine$), upper$(FindPart$))
-
-endif
-if x>0 then
-	x=x-1
-	TextPart$= textcontrol get$ "FindTCReplace"
-	TextPart$=rtrim$(TextPart$)
-	TextLine$=left$(TextLine$,x)+TextPart$+right$(TextLine$,len(TextLine$)-(x+(len(FindPart$))))
-	TEXTEDIT SET "Text"+str$(globalCurrentText), "select", searchLineNum
-	TEXTEDIT SET "Text"+str$(globalCurrentText), "cut"
-	TEXTEDIT SET "Text"+str$(globalCurrentText), "select", searchLineNum
-	TEXTEDIT ADD "Text"+str$(globalCurrentText), TextLine$
-	TEXTEDIT SET "Text"+str$(globalCurrentText), "gotoline", searchLineNum
-	searchLineNum = textedit get "Text"+str$(globalCurrentText), "Find", TextPart$ 
-
-endif
-
-end sub