Development Blog

Very nice ! is there already a pricing for LE3D known ?

This is an amazing step in the right direction for sure! A question of common implementation for breakpoints however is not to actually have code that we type, but to do it behind the scenes for us in the form of clicking an area in the margins to set breakpoints. Is that not something you're interested in doing here? If not could you create some sort of global remove breakpoints menu option that will look for that line of code and remove them all, and/or all in the specific file.

That would be cool, but I don't know of any way to make a cross-platform text editor with syntax highlighting and line numbers. Scintilla is the only one I know of and it's undocumented and buggy. I'm using the actual OS text editor control on Windows and Mac right now, with my own syntax highlighting code. I can create a gutter next to the text, but it would have to sync with the text area scrolling, and I don't know if that's possible.

 

This works fine, but the scroll syncing is the problem:

' createtextarea.bmx

Import MaxGui.Drivers

Strict 

Const GUTTERWIDTH:Int=35

Global window:TGadget = CreateWindow( "My Window", 130, 20, 640, 480 )

Global textarea:TGadget = CreateTextArea( 0, 0, ClientWidth(window), ClientHeight(window), window )
SetMargins textarea,GUTTERWIDTH+2

'Gutter:
Local gutter2:TGadget=CreatePanel(0,0,GUTTERWIDTH+1, textarea.ClientHeight(),textarea)
SetGadgetLayout gutter2,1,0,1,1
SetGadgetColor gutter2,192,192,192
Local gutter:TGadget=CreatePanel(0,0,GUTTERWIDTH, gutter2.ClientHeight(),gutter2)
SetGadgetColor gutter,220,220,220
SetGadgetLayout gutter,1,1,1,1
Local label:TGadget
Local lineheight:Int=14
Local font:TGUIFont=LoadGuiFont("Arial",10)
For Local i:Int=1 To 1000
label=CreateLabel(i,0,(i-1)* lineheight,gutter.ClientWidth(), 12,gutter,LABEL_RIGHT)
label.SetLayout 1,0,1,0
SetGadgetSensitivity(label,SENSITIZE_MOUSE)
SetGadgetFont label,font
Next

SetGadgetLayout( textarea, EDGE_ALIGNED, EDGE_ALIGNED, EDGE_ALIGNED, EDGE_ALIGNED )
SetGadgetText( textarea, "A TextArea gadget. :-)~n~nOne line...~n...and then another!")
ActivateGadget( textarea )
For Local n:Int=0 To 300
AddTextAreaText textarea,"Hello, how are you today?~n"
Next

' Select the entire third (index: 2 [base-0]) line.
SelectTextAreaText( textarea, 2, 1, TEXTAREA_LINES )


' Output the properties of the current text selection (should be 1, 1 as set above).
Print "TextAreaCursor(): " + TextAreaCursor( textarea, TEXTAREA_LINES )
Print "TextAreaSelLen(): " + TextAreaSelLen( textarea, TEXTAREA_LINES )

While WaitEvent()
Print CurrentEvent.ToString()
Select EventID()
	Case EVENT_MOUSEDOWN
		SetGadgetColor TGadget(EventSource()),0,0,255,1
		SetGadgetColor TGadget(EventSource()),255,255,255,0
	Case EVENT_WINDOWCLOSE
		End
	Case EVENT_APPTERMINATE
		End
End Select
Wend