瀏覽代碼

Added text area block undo actions.

woollybah 6 年之前
父節點
當前提交
bf65d56b54

+ 4 - 0
maxgui.mod/gadget.bmx

@@ -830,6 +830,10 @@ Type TGadget
 	End Method
 	Method HasBlockIndent:Int()
 	End Method
+	Method BeginUndoAction()
+	End Method
+	Method EndUndoAction()
+	End Method
 ' progbar
 	Method SetValue(value#)
 	End Method	

+ 8 - 0
maxgui.mod/maxgui.bmx

@@ -1840,6 +1840,14 @@ Function TextAreaHasBlockIndent:Int(textarea:TGadget)
 	Return textarea.HasBlockIndent()
 End Function
 
+Function TextAreaBeginUndoAction(textarea:TGadget)
+	textarea.BeginUndoAction()
+End Function
+
+Function TextAreaEndUndoAction(textarea:TGadget)
+	textarea.EndUndoAction()
+End Function
+
 ' gadget lists
 
 Rem

+ 3 - 0
maxguitextareascintilla.mod/common.bmx

@@ -101,6 +101,9 @@ Extern
 
 	Function bmx_mgta_scintilla_setlinenumberbackcolor(handle:Byte Ptr, color:Int)
 	Function bmx_mgta_scintilla_setlinenumberforecolor(handle:Byte Ptr, color:Int)
+
+	Function bmx_mgta_scintilla_beginundoaction(handle:Byte Ptr)
+	Function bmx_mgta_scintilla_endundoaction(handle:Byte Ptr)
 End Extern
 
 Type TSCNotification

+ 8 - 0
maxguitextareascintilla.mod/glue.c

@@ -523,3 +523,11 @@ void bmx_mgta_scintilla_setlinenumberbackcolor(SCI_HANDLE sci, int color) {
 void bmx_mgta_scintilla_setlinenumberforecolor(SCI_HANDLE sci, int color) {
 	scintilla_send_message(sci, SCI_STYLESETFORE, STYLE_LINENUMBER, color);
 }
+
+void bmx_mgta_scintilla_beginundoaction(SCI_HANDLE sci) {
+	scintilla_send_message(sci, SCI_BEGINUNDOACTION, 0, 0);
+}
+
+void bmx_mgta_scintilla_endundoaction(SCI_HANDLE sci) {
+	scintilla_send_message(sci, SCI_ENDUNDOACTION, 0, 0);
+}

+ 8 - 0
maxguitextareascintilla.mod/linuxgtk.bmx

@@ -517,6 +517,14 @@ Type TGTKScintillaTextArea Extends TGTKTextArea
 		Return True
 	End Method
 
+	Method BeginUndoAction()
+		bmx_mgta_scintilla_beginundoaction(sciPtr)
+	End Method
+	
+	Method EndUndoAction()
+		bmx_mgta_scintilla_endundoaction(sciPtr)
+	End Method
+
 End Type
 
 

+ 8 - 0
maxguitextareascintilla.mod/win32.bmx

@@ -502,6 +502,14 @@ Type TWindowsScintillaTextArea Extends TWindowsTextArea
 		Return True
 	End Method
 
+	Method BeginUndoAction()
+		bmx_mgta_scintilla_beginundoaction(_hwnd)
+	End Method
+	
+	Method EndUndoAction()
+		bmx_mgta_scintilla_endundoaction(_hwnd)
+	End Method
+
 End Type