Added alpha arg for caret back colour.

maxgui.mod/gadget.bmx

@@ -822,7 +822,7 @@ Type TGadget
 	End Method
 	Method SetCaretLineVisible(enabled:Int)
 	End Method
-	Method SetCaretLineBackgroundColor(r:Int, g:Int, b:Int)
+	Method SetCaretLineBackgroundColor(r:Int, g:Int, b:Int, a:Int)
 	End Method
 	Method GetCaretLineBackgroundColor:Int()
 	End Method

maxgui.mod/maxgui.bmx

@@ -1824,8 +1824,8 @@ Function TextAreaGetCaretLineVisible:Int(textarea:TGadget)
 	Return textarea.GetCaretLineVisible()
 End Function
 
-Function TextAreaSetCaretLineBackgroundColor(textarea:TGadget, red:Int, green:Int, blue:Int)
-	textarea.SetCaretLineBackgroundColor(red, green, blue)
+Function TextAreaSetCaretLineBackgroundColor(textarea:TGadget, red:Int, green:Int, blue:Int, alpha:Int)
+	textarea.SetCaretLineBackgroundColor(red, green, blue, alpha)
 End Function
 
 Function TextAreaGetCaretLineBackgroundColor:Int(textarea:TGadget)

maxguitextareascintilla.mod/common.bmx

@@ -80,7 +80,7 @@ Extern
 	Function bmx_mgta_scintilla_startendfromchar(handle:Byte Ptr, pos:Int, length:Int, startPos:Int Var, endPos:Int Var)
 	Function bmx_mgta_scintilla_setcaretlinevisible(handle:Byte Ptr, enable:Int)
 	Function bmx_mgta_scintilla_getcaretlinevisible:Int(handle:Byte Ptr)
-	Function bmx_mgta_scintilla_setcaretlineback:Int(handle:Byte Ptr, r:Int, g:Int, b:Int)
+	Function bmx_mgta_scintilla_setcaretlineback:Int(handle:Byte Ptr, r:Int, g:Int, b:Int, a:Int)
 	Function bmx_mgta_scintilla_getcaretlineback:Int(handle:Byte Ptr)
 
 	Function bmx_mgta_scintilla_notifcation_update(obj:Object, handle:Byte Ptr)

maxguitextareascintilla.mod/glue.c

@@ -351,9 +351,9 @@ int bmx_mgta_scintilla_getcaretlinevisible(SCI_HANDLE sci) {
 	return scintilla_send_message(sci, SCI_GETCARETLINEVISIBLE, 0, 0);
 }
 
-void bmx_mgta_scintilla_setcaretlineback(SCI_HANDLE sci, int r, int g, int b) {
+void bmx_mgta_scintilla_setcaretlineback(SCI_HANDLE sci, int r, int g, int b, int alpha) {
 	scintilla_send_message(sci, SCI_SETCARETLINEBACK, r | (g << 8) | (b << 16), 0);
-	scintilla_send_message(sci, SCI_SETCARETLINEBACKALPHA, 30, 0);
+	scintilla_send_message(sci, SCI_SETCARETLINEBACKALPHA, alpha, 0);
 }
 
 int bmx_mgta_scintilla_getcaretlineback(SCI_HANDLE sci) {

maxguitextareascintilla.mod/linuxgtk.bmx

@@ -505,8 +505,8 @@ Type TGTKScintillaTextArea Extends TGTKTextArea
 		Return bmx_mgta_scintilla_getcaretlinevisible(sciPtr)
 	End Method
 
-	Method SetCaretLineBackgroundColor(r:Int, g:Int, b:Int)
-		bmx_mgta_scintilla_setcaretlineback(sciPtr, r, g, b)
+	Method SetCaretLineBackgroundColor(r:Int, g:Int, b:Int, a:Int)
+		bmx_mgta_scintilla_setcaretlineback(sciPtr, r, g, b, a)
 	End Method
 
 	Method GetCaretLineBackgroundColor:Int()

maxguitextareascintilla.mod/win32.bmx

@@ -486,8 +486,8 @@ Type TWindowsScintillaTextArea Extends TWindowsTextArea
 		Return bmx_mgta_scintilla_getcaretlinevisible(_hwnd)
 	End Method
 
-	Method SetCaretLineBackgroundColor(r:Int, g:Int, b:Int)
-		bmx_mgta_scintilla_setcaretlineback(_hwnd, r, g, b)
+	Method SetCaretLineBackgroundColor(r:Int, g:Int, b:Int, a:Int)
+		bmx_mgta_scintilla_setcaretlineback(_hwnd, r, g, b, a)
 	End Method
 
 	Method GetCaretLineBackgroundColor:Int()