[nerobotParticipant]

any thoughts on giving more highlighting some time ? I cant stress just how important it is for people like me, matching Jungle’s options would be nice but in a pinch I would love to be able to have a specific colour for the following..

yes, about $50.

is there a reason for the mouse cursor not switching to IBeam at CodeTextView EventType.MouseEnter?
And then back to Arrow on CodeTextView EventType.MouseLeave.

I like it too, will try.

Oh and if you switch to the ‘AutoComplete’ tab in ‘Preferences’, then close and open it again, then go to the IRC tab, there are ugly scrollbars.

oh.

[nerobotParticipant]

Got it. What ‘modifier’ should I use for ‘Option’? ‘Alt’ ?

(sorry, but lazy to start new topic)

[nerobotParticipant]

lacks some standard keyboard MacOS shortcuts) and crashes occasionally. The top menu UI needs some work too, but that could be a MojoX problem

Can you explain these shortcut and menu problem in ted2go topic or on github by issues?

Are these shortcuts pretty cool – https://developer.android.com/studio/intro/keyboard-shortcuts.html ?

[nerobotParticipant]

I like this idea. Will try.

Also I want to add Tips dialog at startup, and irc chat as a tip.

[nerobotParticipant]

I think will be better to show “welcome to chat” dialog, with description and where users can enter nickname and set checkbox “connect automatically”.

[nerobotParticipant]

Thanks for explanation, and for ‘global’ inside of method body.

[nerobotParticipant]

Here is splitted-by-classes version:

Monkey

Class RightDock Extends ScrollViewExt Private Method FirstGrabSizes( newSize:Vec2i,prevSize:Vec2i ) Print "sizes: "+newSize+", "+prevSize 'Scroll = newSize * 0.5 Scroll = AvailableScroll * 0.5 SizeChanged-=FirstGrabSizes ' unsubscribes End Public Method New() Layout="fill" ScrollBarsVisible = True Local newStyle := Style.Copy() newStyle.BackgroundColor = Color.Grey newStyle.BorderColor = Color.Black newStyle.Font = TestGui.smallFont Style = newStyle Local graph:=New GraphView ContentView = graph ' subscribes to changes SizeChanged+=FirstGrabSizes End Method OnRender( canvas:Canvas ) Override Super.OnRender( canvas ) canvas.Color = Color.Aluminum canvas.DrawText( "size:" + Frame + " ,scroll:" + Scroll , 5, 5 ) End End Class ScrollViewExt Extends ScrollView Private Field _prevSize:Vec2i Field _panSpeed := 5.0 ' missed this method in mojox Property AvailableScroll:Vec2i() ' also need to calc paddings, etc Local xx:=Max( 0,MeasuredSize.x-VisibleRect.Width ) Local yy:=Max( 0,MeasuredSize.y-VisibleRect.Height ) Return New Vec2i( xx,yy ) End Public Field SizeChanged:Void( newSize:Vec2i,prevSize:Vec2i ) Protected Method OnMouseEvent( event:MouseEvent ) Override Select event.Type Case EventType.MouseWheel Scroll = New Vec2i( Scroll.X+(event.Wheel.X*_panSpeed), Scroll.Y-(event.Wheel.Y*_panSpeed) ) App.RequestRender() End End ' store prev size Method OnMeasure:Vec2i() Override _prevSize=MeasuredSize Return Super.OnMeasure() End ' check new size and fire SizeChanged event if necessary Method OnLayout() Override Super.OnLayout() Local cur:=MeasuredSize If cur<>_prevSize Then SizeChanged( cur,_prevSize ) End 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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80

Class RightDock Extends ScrollViewExt Private Method FirstGrabSizes( newSize:Vec2i,prevSize:Vec2i ) Print "sizes: "+newSize+", "+prevSize 'Scroll = newSize * 0.5 Scroll = AvailableScroll * 0.5 SizeChanged-=FirstGrabSizes ' unsubscribes End Public Method New() Layout="fill" ScrollBarsVisible = True Local newStyle := Style.Copy() newStyle.BackgroundColor = Color.Grey newStyle.BorderColor = Color.Black newStyle.Font = TestGui.smallFont Style = newStyle Local graph:=New GraphView ContentView = graph ' subscribes to changes SizeChanged+=FirstGrabSizes End Method OnRender( canvas:Canvas ) Override Super.OnRender( canvas ) canvas.Color = Color.Aluminum canvas.DrawText( "size:" + Frame + " ,scroll:" + Scroll , 5, 5 ) End End     Class ScrollViewExt Extends ScrollView Private Field _prevSize:Vec2i Field _panSpeed := 5.0 ' missed this method in mojox Property AvailableScroll:Vec2i() ' also need to calc paddings, etc Local xx:=Max( 0,MeasuredSize.x-VisibleRect.Width ) Local yy:=Max( 0,MeasuredSize.y-VisibleRect.Height ) Return New Vec2i( xx,yy ) End Public Field SizeChanged:Void( newSize:Vec2i,prevSize:Vec2i ) Protected Method OnMouseEvent( event:MouseEvent ) Override Select event.Type Case EventType.MouseWheel Scroll = New Vec2i( Scroll.X+(event.Wheel.X*_panSpeed), Scroll.Y-(event.Wheel.Y*_panSpeed) ) App.RequestRender() End End ' store prev size Method OnMeasure:Vec2i() Override _prevSize=MeasuredSize Return Super.OnMeasure() End ' check new size and fire SizeChanged event if necessary Method OnLayout() Override Super.OnLayout() Local cur:=MeasuredSize If cur<>_prevSize Then SizeChanged( cur,_prevSize ) End End

[nerobotParticipant]

There is my ‘improved’ version

Monkey

Class RightDock Extends ScrollView Private Field _panSpeed := 5.0 Field _prevSize:Vec2i Method FirstGrabSizes( newSize:Vec2i,prevSize:Vec2i ) Print "sizes: "+newSize+", "+prevSize 'Scroll = newSize * 0.5 Scroll = AvailableScroll * 0.5 SizeChanged-=FirstGrabSizes ' unsubscribes End ' missed this method in mojox Property AvailableScroll:Vec2i() ' also need to calc paddings, etc Local xx:=Max( 0,MeasuredSize.x-VisibleRect.Width ) Local yy:=Max( 0,MeasuredSize.y-VisibleRect.Height ) Return New Vec2i( xx,yy ) End Public Field SizeChanged:Void( newSize:Vec2i,prevSize:Vec2i ) Method New() Layout="fill" ScrollBarsVisible = True Local newStyle := Style.Copy() newStyle.BackgroundColor = Color.Grey newStyle.BorderColor = Color.Black newStyle.Font = TestGui.smallFont Style = newStyle Local graph:=New GraphView ContentView = graph ' subscribes to changes SizeChanged+=FirstGrabSizes End Method OnRender( canvas:Canvas ) Override Super.OnRender( canvas ) canvas.Color = Color.Aluminum canvas.DrawText( "size:" + Frame + " ,scroll:" + Scroll , 5, 5 ) End Protected Method OnMouseEvent( event:MouseEvent ) Override Select event.Type Case EventType.MouseWheel Scroll = New Vec2i( Scroll.X+(event.Wheel.X*_panSpeed), Scroll.Y-(event.Wheel.Y*_panSpeed) ) App.RequestRender() End End ' store prev size Method OnMeasure:Vec2i() Override _prevSize=MeasuredSize Return Super.OnMeasure() End ' check new size and fire SizeChanged event if necessary Method OnLayout() Override Super.OnLayout() Local cur:=MeasuredSize If cur<>_prevSize Then SizeChanged( cur,_prevSize ) End 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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71

Class RightDock Extends ScrollView Private Field _panSpeed := 5.0 Field _prevSize:Vec2i Method FirstGrabSizes( newSize:Vec2i,prevSize:Vec2i ) Print "sizes: "+newSize+", "+prevSize 'Scroll = newSize * 0.5 Scroll = AvailableScroll * 0.5 SizeChanged-=FirstGrabSizes ' unsubscribes End ' missed this method in mojox Property AvailableScroll:Vec2i() ' also need to calc paddings, etc Local xx:=Max( 0,MeasuredSize.x-VisibleRect.Width ) Local yy:=Max( 0,MeasuredSize.y-VisibleRect.Height ) Return New Vec2i( xx,yy ) End Public Field SizeChanged:Void( newSize:Vec2i,prevSize:Vec2i ) Method New() Layout="fill" ScrollBarsVisible = True Local newStyle := Style.Copy() newStyle.BackgroundColor = Color.Grey newStyle.BorderColor = Color.Black newStyle.Font = TestGui.smallFont Style = newStyle Local graph:=New GraphView ContentView = graph ' subscribes to changes SizeChanged+=FirstGrabSizes End Method OnRender( canvas:Canvas ) Override Super.OnRender( canvas ) canvas.Color = Color.Aluminum canvas.DrawText( "size:" + Frame + " ,scroll:" + Scroll , 5, 5 ) End Protected Method OnMouseEvent( event:MouseEvent ) Override Select event.Type Case EventType.MouseWheel Scroll = New Vec2i( Scroll.X+(event.Wheel.X*_panSpeed), Scroll.Y-(event.Wheel.Y*_panSpeed) ) App.RequestRender() End End ' store prev size Method OnMeasure:Vec2i() Override _prevSize=MeasuredSize Return Super.OnMeasure() End ' check new size and fire SizeChanged event if necessary Method OnLayout() Override Super.OnLayout() Local cur:=MeasuredSize If cur<>_prevSize Then SizeChanged( cur,_prevSize ) End End

As for me, SizeChanged event should be a mojox core part.

Also I missed AvailableScroll:Vec2i property in ScrollView – to let us know is there scroll available and how much.

Above is a way how my BlaBlaViewExt were borned in ted2go.

[nerobotParticipant]

To be precise, there is <> operator equivalent for ‘continue’ above

Monkey

If map <> -1)     ' Draw End

1 2 3

If map <> -1)     ' Draw End

I use ‘continue’ to reduce nested IFs.

[nerobotParticipant]

Keyword ‘Continue’ inside for loop is equivalent of Next, i.e. immediately go to the next loop frame. And here – skip all with index -1.

[nerobotParticipant]

Look that topic: http://monkeycoder.co.nz/forums/topic/diddy2/

[nerobotParticipant]

Heu! Really. How do you get this event ?

My first commit date is 29 aug 2016.

[nerobotParticipant]

1. Resizable doesn’t work with persentage widths. There is pixel-sized _browsersTabView in ted2go
2. To make scrolling :
   • set button size more than view to enable scrolling: button.MinSize=New Vec2i( 0,1000 )
   • change scroll like this: Scroll = Scroll + New Vec2i( event.Wheel.X * panSpeed, -event.Wheel.Y * panSpeed )
   • assigning a value to Scroll.X is a mistake, because when you get access to Scroll variable you get copy of vec2 – say “hello” to struct type!
   • in my case you assign whole vec2 and get right result.
3. You can extends GraphView with DockingView. Or use internal docking view ‘wrapped’ with scrollview to manage views and have scrolling stuf.
4. I am thinking about writing own gui system – I like the QT widgets layout, maybe I can implement some similar stuff.

What I like in QT and missed in monkey – SizePolicy basis, so you can just set sizePolicy=SizePolicy.Expanding and view will expand to all empty space, etc.

But it requires to write more complex and difficult layout system.

Also I tried to use operator += to add views, looks good.

Monkey

Class VerticalLayout Extends DockingView Method New( topToBottom:Bool=True ) _topToBottom=topToBottom Layout="fill-y" End Operator += :Void( view:View ) Self.AddView( view,_topToBottom ? "top" Else "bottom" ) End Private Field _topToBottom:Bool End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Class VerticalLayout Extends DockingView Method New( topToBottom:Bool=True ) _topToBottom=topToBottom Layout="fill-y" End Operator += :Void( view:View ) Self.AddView( view,_topToBottom ? "top" Else "bottom" ) End Private Field _topToBottom:Bool End

and usage is

Monkey

Local lay:=New VerticalLayout lay += New Label( "Line 1" ) lay += New Label( "Line 2" ) lay += New Label( "Line 3" )

1 2 3 4

Local lay:=New VerticalLayout lay += New Label( "Line 1" ) lay += New Label( "Line 2" ) lay += New Label( "Line 3" )

[nerobotParticipant]

Yes, it have intellisense, except of local variables.

[nerobotParticipant]

Did you totally disable anti-spam?

There are many anti-spam plugins for wordpress. Maybe you get luck with another one.

[Author]

Posts