Adding MojoX "view"

[HezkoreParticipant]

I haven’t quite figured out how MojoX works, is a “view” the same as a MaxGui Gadget?

And what is ContentView?

The help documents haven’t really made things any more clear either.

But I figured I’d throw myself into it by adding my own gadget.

What I’d like to do is add a special typ of scrollbar to the Ted2Go Code text known as a “code map”

Basically instead of a scroller with a knob I want the entire code to be visible on the side in a very tiny font or just squarepants colours by the highlighter and draw a big square of the part you’re currently viewing. You can then draw the square up and down to scroll through the document.

Could someone point me in the right direction to get started on this?

[nerobotParticipant]

In two words..

All Views extends base class View.

You need to draw text with highlighting, so is better to extends codetextview class (from ted2go/views folder) and customize font size.

Then add this view into codedocument in place where original codetextview added.

And write custom logic in OnRender and OnContentMouseEvent.

Also need to subscribe on codeView.TextChanged event to refresh text in your codemap view.

[HezkoreParticipant]

Yeah that’s what I’m trying to do.
But I just get a bunch of “Error : Private member ‘RenderLine’ cannot be accessed from here”.
I can’t Override the normal TextView render function and still use its data.
And if I try to Override “RenderLine” I get ” Method ‘RenderLine:Void(mojo.graphics.Canvas,Int)’ overrides a non-virtual superclass method”.
And even if I write my OWN RenderLine() method just called RL() I still can’t access any information from the super class.
“Error : Private member ‘_textColors’ cannot be accessed from here” etc.

[nerobotParticipant]

Right, not all is easy as we want.

But in your case you can ‘just’ use my CodeTextView to draw codemap, only thing is to set small font.

Or maybe change canvas.scale (not sure that will works) inside on your codemap OnRender.

Monkey

Method OnRender( canvas:Canvas ) canvas.Scale=0.1 Super.OnRender( canvas ) End

1 2 3 4

Method OnRender( canvas:Canvas )   canvas.Scale=0.1   Super.OnRender( canvas ) End

[HezkoreParticipant]

Well I already tried that.
With canvas.Scale(0.25,0.25) not all the lines are rendered.
And if I do Self.Style.Font = Font.Load(“DejaVuSansMono.ttf”,5) it (for some reason) applies to the normal CodeTextView too.

[nerobotParticipant]

To avoid applying to the normal CodeTextView you should add custom style for CodeMap – add new style in ted-default.json theme and then load it in CodeMap :: New()

Monkey

Method New() Super.New() Style=GetStyle( "CodeMap" ) Style.Font = Font.Load(“DejaVuSansMono.ttf”,5) End

1 2 3 4 5

Method New()   Super.New()   Style=GetStyle( "CodeMap" )   Style.Font = Font.Load(“DejaVuSansMono.ttf”,5) End

[HezkoreParticipant]

Ah yes, thanks!
This should really be in the documents…

How do I get the syntax highlighter working for my custom CodeTextView?

[nerobotParticipant]

I looked the code. The file ted2textview.monkey2 contains needed logic

Monkey

Class Ted2CodeTextView Extends CodeTextView Property FileType:String() 'where else we can store this type? return _type Setter( value:String ) _type=value Keywords = KeywordsManager.Get(_type) Highlighter = HighlightersManager.Get(_type) '<==== HERE Formatter = FormattersManager.Get(_type) Document.TextHighlighter = Highlighter.Painter End Property FilePath:String() return _path Setter(value:String) _path = value End Protected Method OnKeyEvent( event:KeyEvent ) Override TextViewKeyEventFilter.FilterKeyEvent( event,Self,FileType ) If Not event.Eaten Super.OnKeyEvent( event ) Endif End Private Field _type:String Field _path:String End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Class Ted2CodeTextView Extends CodeTextView   Property FileType:String() 'where else we can store this type? return _type Setter( value:String ) _type=value Keywords = KeywordsManager.Get(_type) Highlighter = HighlightersManager.Get(_type) '<==== HERE Formatter = FormattersManager.Get(_type) Document.TextHighlighter = Highlighter.Painter End Property FilePath:String() return _path Setter(value:String) _path = value End Protected Method OnKeyEvent( event:KeyEvent ) Override TextViewKeyEventFilter.FilterKeyEvent( event,Self,FileType ) If Not event.Eaten Super.OnKeyEvent( event ) Endif End   Private Field _type:String Field _path:String End

So you should extend Ted2CodeTextView and set properly FileType property to make it works.

Also ReadOnly=True will be good.

[HezkoreParticipant]

@nerobot

I’m slowly making progress.
Do you know if there’s a way to get a scrollers MAX value/distance?

I want to know how far a TextView can scroll.

[HezkoreParticipant]

It’s working pretty good now.
You can drag the view around to scroll or click somewhere to instantly jump there.
Or you can use the mouse wheel to scroll (a bit faster than scrolling via the normal TextView)
And it updates live as you type.

Word-Wrap is an issue though.
The CodeMapView needs to wrap the words at the same location as the main TextView but there doesn’t seem to be any options for stuff like that.

[nerobotParticipant]

Nice work!

About scroll. There is no such property in mojox. Try to use

maxScroll=Max ( 0, Rect.Height-VisibleRect.Height )

[nerobotParticipant]

Try to add codemap’s codetextview into scrollableview and set size proportional to font size. So wrapping will be the same as ‘main’ codetextview. And disable horiz scroll if needed.

[Author]

Posts