imports blide
imports blide.sdk
imports microsoft.visualbasic

Module plugin
	Private MI As blide.sdk.blideforms.BLIdeMenuItem
	Sub Main()
		'when the plugin starts, we add a menu item to enable / disable this intellipromt plugin:
		MI = New blide.sdk.blideforms.BLIdeMenuItem(blide.sdk.Api.ToolsBarItem, "KeyHit/KeyPress intellipromt")
		'By default the plugin is enabled:
		mi.checked = true
		mi.BeginGroup = True
		'The menu item will enable/disable automatically:
		mi.AutoToggle = True
		'We insert the menu item at the end of the tools menu:
		mi.InsertAfter(blide.sdk.Api.ToolsBarItem.ItemsCount - 1)
		'We add a event handler to the keypress event of the BLIde editor window:
		AddHandler blide.sdk.Events.EditorEvents.KeyPress, AddressOf KeyPressHandler
	End Sub
	
	
	'If the user press a key:
	Private Sub KeyPressHandler(sender As blide.sdk.blideforms.Editor, e As system.Windows.Forms.KeyPressEventArgs)
		'If the key is not "(" we can leave!
		If e.KeyChar <> "(" Then Exit Sub
		
		'If the plugin is disabled, we can leave:
		If PlugIn.MI.checked = False Then Exit Sub
		
		'If the file we're editing is not a blitzmax file, we can leave:
		If ends(sender.filename, ".bmx") = False And sender.FileName <> "" Then  Exit Sub

		'We get the current line of text on the editor window:
		Dim TextLine As String = sender.lines(sender.TextPos.y)
		
		'We get a substring:
		Dim t As String = left(TextLine, sender.TextPos.X + 1) 
		t = trim(t)

		'We check for the function name:
		CheckFunction("KeyDown",T,sender)
		CheckFunction("KeyHit",T,sender)
	End Sub
	
	Private Function CheckFunction(FuncName As String, Line As String, ED As blide.sdk.blideforms.Editor) As Boolean
		'If the last characters are keydown( or keyhit, we check this:
		If ends(Line, FuncName) Then
			'We check the character before keydown or keyhit is a separator, to avoid false positives!
			dim tmp as string = Right(Line,len(FuncName)+1)
			if len(tmp) = len(FuncName)+1 then
				tmp = mid(tmp,1,1)
			else
				tmp = ""
			end if
			If (tmp >= "a" And tmp <= "z") Or tmp = "_" Or (tmp >= "0" And tmp <= "9") Or tmp = "." Then
				'Avoid false positives!
				return false
			End If
			'We show the keys list here:
			ShowKeys(ED)
			return true
		Else
			'We can leave here, nothing to do!
			return false
		End If
		
	End Function
	
	Private Function ends(source as string, compare as string) as boolean
		If right(lcase(source), len(compare)) = lcase(compare) Then Return True 
		Return False 
	End Function
	
	Private Sub ShowKeys(Ed As blide.sdk.blideforms.Editor)
		'We're about to show the list of key consts.
		'We clear any previous intelliprompt list:
		Ed.ClearList()	'We clear any previous list 

		'We get a keyword from the database:
		Dim KW As blide.sdk.Databases.Keyword 
		Dim ListItems As Integer = 0 
		KW = BLIde.sdk.Databases.Keyword.GlobalKeywords("BRL") 
		'If we have got this keyword, we continue...
		If kw IsNot Nothing Then 
			For Each KW2 As blide.sdk.Databases.Keyword In kw.Children
				If kw2.ShortName = "keycodes" And kw2.Style = "MODULE" Then
					For Each KW3 As blide.sdk.Databases.Keyword In kw2.Children
						If kw3.Style = "CONST" Then Ed.AddListItem(kw3.shortname, 8, kw3.bbdoc, True)
						ListItems += 1
					Next
					Exit For
				End If
			Next
		End If
		If listitems > 0 Then
			Ed.ShowList(0)	'We show the list at caret position (offset 0)
		End If
	End Sub
End Module

Imports BLIde.SDK
Imports BLIde.SDK.BLIdeRegister
Module PlugIn
	Sub Main()
		'Saving data to the BLIde Plugins register:
		Dim S As Section = Register.AddSection("KeyHelper.sdk.dll")
		Dim K As Key = S.AddKey("Preferences")
		Dim V As Value = K.AddValue("BackColor")
		V.value = "#FF0000"
		Register.SaveChanges()
		
		'Getting data from the BLIde Plugins register:
		Dim S as String = Register.GetSection("KeyHelper.sdk.dll").GetKey("Preferences").GetValue("BackColor").Value()
		io.Msg(s)
	End Sub 
End Module