Break monitor in case of emergency

BlitzMax Forums/BlitzMax Beginners Area/Break monitor in case of emergency
Crovean
(Posted 2010) [#1]
Ok, I'm close to "Break monitor in case of emergency"... :-) I'm trying to create a tabbed version of Notepad... Trying to modify some old sourcecode for MaxIDE to accomplish this but with no greater success. I'm missing something and I can't figure out what it is. Can someone please point me in the right direction?
Strict

Import MaxGUI.Drivers
Import MaxGUI.ProxyGadgets

Import BRL.StandardIO
Import BRL.Retro
Import BRL.Filesystem
Import BRL.System
Import PUB.FreeProcess
Import BRL.PNGLoader
Import BRL.Timer
Import BRL.MaxUtil

' Language files
Incbin "language/default.ini"
Incbin "language/swedish.ini"
Incbin "language/italian.ini"

' Icons
Incbin "icons.png"
Incbin "icons_small.png"
Incbin "main_icon.png"

Include "icons.bmx"
Include "constants.bmx"

AppTitle = "Notepad"

SetLocalizationMode(LOCALIZATION_ON | LOCALIZATION_OVERRIDE)

Global notepad:TGUIHost

notepad = New TGUIHost
notepad.Initialize

While notepad.running
	notepad.poll()
Wend

End

Type THelpPanel Extends TToolPanel
	
	Field host:TGUIHost
	Field HTMLView:TGadget
	
	Method Invoke(command:Int , argument:Object = Null)
		Local href:String
		If Not HTMLView Return
		Select command
			Case TOOLCUT
				GadgetCut HTMLView
			Case TOOLCOPY
				GadgetCopy HTMLView
			Case TOOLPRINT
				GadgetPrint HTMLView
			Case TOOLSHOW
				ActivateGadget HTMLView
				host.SetTitle
			Case TOOLNAVIGATE
				href = String(argument)
				If href Go href
		EndSelect
	EndMethod
	
	Method OnEvent()
		Local URL:String , p:Int , t:String
		If EventSource() = HTMLView
			Select EventID()
				Case EVENT_GADGETACTION
					URL = String(EventExtra() )
					If URL[..5] = "http:"
						HtmlViewGo HTMLView, URL
					EndIf
			EndSelect
		EndIf
	EndMethod
	
	Method Home()
		Go "www.google.com"
	EndMethod
		
	Method Go(URL:String)
		HtmlViewGo HTMLView , URL
		host.SelectPanel Self
		ActivateGadget HTMLView
	EndMethod
	
	Function Create:THelpPanel(host:TGUIHost)
		Local p:THelpPanel
		
		p = New THelpPanel
		p.host = host
		p.name = LocalizeString("{{mnu_help}}")
		notepad.AddPanel(p)
		p.HTMLView = CreateHTMLView(0 , 0 , ClientWidth(p.panel) , ClientHeight(p.panel) , p.panel , HTMLVIEW_NONAVIGATE)
		SetGadgetLayout p.HTMLView , 1 , 1 , 1 , 1
		Return p
	EndFunction
	
EndType

Type TTool
	Method Invoke(command:Int , argument:Object = Null)
	EndMethod
EndType

Type TToolPanel Extends TEventHandler
	Field name:String , path:String
	Field panel:TGadget
	Field index:Int
	Field active:Int
	
	Method Show()
	EndMethod
EndType

Type TEventHandler Extends TTool
	Method OnEvent() Abstract
EndType

Type TGUIHost
	
	Field docpath:String
	Field _window:TGadget , _toolbar:TGadget , _tabber:TGadget, _client:TGadget
	Field eventhandlers:TList = New TList
	Field running:Int, tmppath:String
	
	Field panels:TToolPanel[]
	Field activepanel:TToolPanel
	Field currentpanel:TToolPanel
	Field lockedpanel:TToolPanel
	Field helppanel:THelpPanel
	
	Method AddEventHotKey(key:Int , mods:Int , id , data)
		SetHotKeyEvent(key , mods , CreateEvent(id , Null , data))
	EndMethod
	
	Method InitHotKeys()
		AddEventHotKey(KEY_F5 , MODIFIER_NONE , EVENT_MENUACTION , MENU_OPTIONS)
	EndMethod
	
	Method SetTitle(title:String = "")
		If title title = " - " + title
		SetGadgetText _window , "Notepad" + title
	EndMethod
	
	Method FullPath:String(path:String)
		path = RealPath(path)
		?Win32
			path = path.Replace("\" , "/")
		?
		Return path
	EndMethod
	
	Method OpenDocument:TOpenDoc(path:String)
		Local doc:TOpenDoc
		Local panel:TToolPanel
		Local ext:String , p:String
		
		If path = "."
			path = RequestFile(LocalizeString("{{mnu_open}}") , Filters:String)
			If path = "" Return
		EndIf
		
		p = FullPath(path).toLower()
		For panel = EachIn panels
			If panel.path.toLower() = p
				SelectPanel panel
				Return TOpenDoc(panel)
			EndIf
		Next
		
		doc = TOpenDoc.Create(path , Self)
		If doc
			ActivateGadget doc.textarea
		EndIf		
	EndMethod
	
	Method AddPanel(tabpanel:TToolPanel)
		Local panel:TGadget , index:Int
		
		index = CountGadgetItems(_tabber)
		If panels.length <= index panels = panels[..index + 1]
		AddGadgetItem(_tabber , tabpanel.name , True , ICON_FILE)
		
		panel = CreatePanel(0 , 0 , ClientWidth(_tabber) , ClientHeight(_tabber) , _tabber , 0)
		SetGadgetLayout panel , 1 , 1 , 1 , 1
		tabpanel.panel = panel
		
		tabpanel.index = index
		panels[index] = tabpanel
		SelectPanel tabpanel
		eventhandlers.AddLast tabpanel
	EndMethod
		
	Method SelectPanel(panel:TToolPanel)
		Local Current:TToolPanel
		Current = currentpanel
		currentpanel = panel
		
		If Current And Current <> currentpanel
			SelectGadgetItem _tabber , panel.index
			ShowGadget panel.panel
			If panel.active activepanel = panel
			HideGadget Current.panel
			RefreshToolbar
		EndIf
		currentpanel.Invoke TOOLSHOW
	EndMethod
	
	Method RefreshToolbar()
		Local i:Int
		
		If THelpPanel(CurrentPanel)
			DisableGadgetItem _toolbar , 2
		Else
			EnableGadgetItem _toolbar , 2
		EndIf
		
		If TOpenDoc(CurrentPanel)
			EnableGadgetItem _toolbar , 3
			For i = 5 To 10
				EnableGadgetItem _toolbar , i
			Next
		Else
			DisableGadgetItem _toolbar , 3
			For i = 5 To 10
				DisableGadgetItem _toolbar , i
			Next
		EndIf
	EndMethod
	
	Method Initialize()
		Local open:TOpenDoc
		Local lang:TMaxGUILanguage
		
		lang = LoadLanguage("incbin::language/swedish.ini")
		SetLocalizationLanguage lang
		
		_window = CreateWindow("Notepad" , 0 , 0 , 750 , 550 , Null , WINDOW_TITLEBAR | WINDOW_STATUS | WINDOW_MENU | WINDOW_RESIZABLE | WINDOW_HIDDEN | WINDOW_CENTER)
		
		_toolbar = CreateToolbar("incbin::icons.png" , 0 , 0 , 0 , 0 , _window)
		SetToolbarTips _toolbar , ["{{mnu_new}}" , "{{mnu_open}}" , "{{mnu_close}}" , "{{mnu_save}}" , "{{mnu_cut}}" , "{{mnu_copy}}" , "{{mnu_paste}}" , "{{mnu_undo}}" , "{{mnu_redo}}" , "{{mnu_find}}"]
		
		If Not _client
			_client = CreatePanel(0 , 0 , ClientWidth(_window) , ClientHeight(_window), _window)
			SetGadgetLayout _client , 1 , 1 , 1 , 1
		EndIf
		
		_tabber = CreateTabber(0 , 0 , ClientWidth(_client) , ClientHeight(_client) , _client)
		SetGadgetLayout _tabber, 1, 1, 1, 1

		CreateTimer(10)
		helppanel = THelpPanel.Create(Self)
		helppanel.home
		
		InitMenu
		InitHotKeys
		
		ShowGadget _window
		PollSystem
		
		OpenDocument ""
		running = True
	EndMethod
	
	Method InitMenu()
		Local e:TGadget , _is:TIconStrip
		Local _filemenu:TGadget , _editmenu:TGadget , _optmenu:TGadget , _helpmenu:TGadget
		
		_is = LoadIconStrip("incbin::icons_small.png")
		
		_filemenu		 = 	CreateMenu("{{file_menu}}" , 0 , WindowMenu(_window) )
						e = CreateMenu("{{mnu_new}}" , 1 , _filemenu , KEY_N , MODIFIER_COMMAND)
						SetGadgetPixmap e , PixmapFromIconStrip(_is , ICON_NEW)
						
						e = CreateMenu("{{mnu_open}}" , 2 , _filemenu , KEY_O , MODIFIER_COMMAND)
						SetGadgetPixmap e , PixmapFromIconStrip(_is , ICON_OPEN)
						
						e = CreateMenu("{{mnu_close}}" , 3 , _filemenu , KEY_W , MODIFIER_COMMAND)
						SetGadgetPixmap e , PixmapFromIconStrip(_is , ICON_CLOSE)
						
						e = CreateMenu("{{mnu_closeall}}" , 4 , _filemenu , KEY_W , MODIFIER_COMMAND | MODIFIER_SHIFT)
						SetGadgetPixmap e , PixmapFromIconStrip(_is , ICON_CLOSE)
						
						CreateMenu("" , 0 , _filemenu)
						e = CreateMenu("{{mnu_save}}" , 5 , _filemenu , KEY_S , MODIFIER_COMMAND)
						SetGadgetPixmap e, PixmapFromIconStrip(_is, ICON_SAVE)
						
		
		UpdateWindowMenu(_window)
		
	EndMethod
	
	Method poll()
		Local handler:TEventHandler
		Local src:TGadget , file:String , EventID
		Local index
		
		EventID = WaitEvent()
		
		For handler = EachIn eventhandlers
			handler.OnEvent()
		Next
		
		Select EventID
			Case EVENT_GADGETACTION
				Select EventSource()
					Case _toolbar
						Select EventData()
							Case 0 OpenDocument ""
							Case 1 OpenDocument "."
						EndSelect
				EndSelect
			Case EVENT_WINDOWCLOSE
				End
			Case EVENT_APPTERMINATE
				End
			Case EVENT_WINDOWACCEPT
				OpenDocument String(EventExtra() )
		EndSelect
	EndMethod
	
EndType

Type TOpenDoc Extends TToolPanel
	Field host:TGUIHost
	Field textarea:TGadget
	Field undolist:TList = New TList
	Field redolist:TList = New TList
	Field cursorpos:Int , cursorlen:Int , cursorline:Int
	Field oldpos:Int , oldlen:Int
	
	Method OnEvent()
	EndMethod
	
	Method Invoke(command:Int , argument:Object = Null)
		Select command
			Case TOOLSHOW
				host.SetTitle path
		EndSelect
	EndMethod
	
	Function Create:TOpenDoc(path:String , host:TGUIHost)
		Local doc:TOpenDoc
		Local stream:TStream
		Local isnew:Int
		
		If path
			stream = ReadFile(path)
			If Not stream
				Notify "Could not open " + path , True
				Return Null
			EndIf
		Else
			Local TempCount:int
			TempCount:+ 1
			path = host.tmppath + "/tmp/untitled" + TempCount + ".txt"
			isnew = True
		EndIf
		
		doc = New TOpenDoc
		doc.host = host
		doc.active = True
		doc.path = host.FullPath(path)
		notepad.AddPanel(doc)
		doc.textarea = CreateTextArea(0 , 0 , ClientWidth(doc.panel) , ClientHeight(doc.panel) , doc.panel , 0)
		SetTextAreaText doc.textarea , ""
		SetGadgetLayout doc.textarea , 1 , 1 , 1 , 1
		'doc.Refresh()
		
		If isnew
			ActivateGadget doc.textarea
		EndIf
		
		Return doc
	EndFunction
	
EndType
matibee
(Posted 2010) [#2]
Hi Crovean, We can't test your code without "icons.bmx" and "constants.bmx"
Brucey
(Posted 2010) [#3]
Trying to modify some old sourcecode for MaxIDE
I honestly don't think that's the best place to start...
Crovean
(Posted 2010) [#4]
I'm learning alot faster that way, by studying and playing around with others code :-)

I solved the problem with the code... I'm almost finished now. Any tips on how to toggle wordwrap on and off for a textarea?