Realtime resizing of MojoX apps on macOS

This topic contains 1 reply, has 1 voice, and was last updated by Danilo 3 days, 5 hours ago.

Viewing 2 posts - 1 through 2 (of 2 total)

Author

Posts

January 15, 2019 at 8:30 pm #15912

Danilo

Participant

Here is a code to prevent the stretching of the window content while resizing the window on macOS.

I added the code to my Monkey2-Codes on github.

#Import "<std>"     ' Realtime resize test for Monkey2 MojoX apps
#Import "<mojo>"    '
#Import "<mojox>"   ' We are installing the SdlEventFilter here
                    ' and update the main Monkey2 SDL window in the handler
                    ' to prevent stretching of the window content
                    ' while the user resizes the window.
                    '
                    ' Danilo Krahn, 2019/01/15
                    ' - Monkey2 2018-09, Mx2cc version 1.1.15
                    ' - tested on macOS Mojave</p>
<p>Function InstallWindowResizeFilter( _win:mojo.app.Window, _updateInterval:UInt = 1 )</p>
<p>    Global window_ResizeFilter:mojo.app.Window
    Global counter_ResizeFilter:UInt
    Global interval_ResizeFilter:UInt</p>
<p>    window_ResizeFilter   = _win
    interval_ResizeFilter = _updateInterval = 0 ? 1 Else _updateInterval</p>
<p>    mojo.app.App.SdlEventFilter =
        Lambda( eventPtr:sdl2.SDL_Event Ptr )
            If eventPtr->type = sdl2.SDL_WINDOWEVENT
                Select eventPtr->window.event
                    Case sdl2.SDL_WINDOWEVENT_RESIZED
                        '
                        ' This is a handler for realtime window resizing
                        '
                        '======================================================
                        ' SDL stuff:
                        Local sdlWindowID := eventPtr->window.windowID
                        Local sdlWindow   := sdl2.SDL_GetWindowFromID(sdlWindowID)</p>
<p>                        'SDL_SetWindowInputFocus(sdlWindow)
                        sdl2.SDL_CaptureMouse(sdl2.SDL_TRUE)</p>
<p>                        ' Monkey2 stuff
                        counter_ResizeFilter += 1
                        ' we do this only as long as the left mouse button is pressed
                        If window_ResizeFilter And
                           ( sdl2.SDL_GetGlobalMouseState(Null,Null) & sdl2.SDL_BUTTON_LMASK )
                            Local frame:std.geom.Recti = window_ResizeFilter.Frame
                            frame.Size = New std.geom.Vec2i(eventPtr->window.data1,
                                                            eventPtr->window.data2)
                            window_ResizeFilter.Frame = frame</p>
<p>                            window_ResizeFilter.ContentView.MakeKeyView()
                            'window_ResizeFilter.UpdateWindow(False)</p>
<p>                            ' update window content only every '_updateInterval' time
                            If counter_ResizeFilter <> 0 And
                               ( counter_ResizeFilter Mod interval_ResizeFilter ) = 0
                                window_ResizeFilter.RequestRender()
                                mojo.app.App.MainLoop()
                            Endif
                        Endif
                        '======================================================
                End Select
            EndIf
        End Lambda
End</p>
<p>Class Program Extends mojo.app.Window</p>
<p>    Method New()
        Super.New( "Monkey2 Realtime Window Resize Test",
                   800,
                   600,
                   mojo.app.WindowFlags.HighDPI   |
                   mojo.app.WindowFlags.Resizable )</p>
<p>    End</p>
<p>    Private</p>
<p>    Method OnCreateWindow() Override</p>
<p>        InstallWindowResizeFilter(Self)   ' update window on every resize step
        'InstallWindowResizeFilter(Self,2) ' update window on every 2nd resize step</p>
<p>        dockingView    = New mojox.DockingView</p>
<p>        namespacesView = New mojox.TreeView</p>
<p>        htmlView       = New mojox.HtmlView</p>
<p>        messageView    = New mojox.TextView( "Monkey2 Realtime Window Resize Test started.~n" )
        messageView.ReadOnly = True</p>
<p>        Local style:mojo.app.Style</p>
<p>        style = messageView.Style
        style.BackgroundColor = std.graphics.Color.DarkGrey</p>
<p>        style = htmlView.Style
        style.BackgroundColor = std.graphics.Color.DarkGrey
        style.TextColor       = std.graphics.Color.White</p>
<p>        Local txt:String = "<!DOCTYPE html><html><head>"+
                           "<meta charset=~qutf-8~q />"+
                           "    <style>"+
                           "        h1     { color: red;     } "+
                           "        body   { color: #808080; } "+
                           "        strong { color: #000000; } "+
                           "    </style>"+
                           "</head>"+
                           "<body> <h1>Hello</h1> <strong>strong</strong> text<p>"+
                           "</body></html>"
        For Local i := 0 To 1000
            txt += "a b c d e f g 0 1 2 3 4 5 6 7 8 9 "
        Next</p>
<p>        htmlView.HtmlSource = txt</p>
<p>        dockingView.AddView( namespacesView, "left", "250", True )
        dockingView.AddView( messageView, "bottom", "80", True )</p>
<p>        dockingView.ContentView = htmlView</p>
<p>        Self.ContentView = dockingView</p>
<p>        dockingView.ContentView.MakeKeyView()</p>
<p>    End</p>
<p>    Field dockingView    : mojox.DockingView
    Field namespacesView : mojox.TreeView
    Field htmlView       : mojox.HtmlView
    Field messageView    : mojox.TextView</p>
<p>End</p>
<p>Function Main()
    New mojo.app.AppInstance
    New Program
    mojo.app.App.Run()
End

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

#Import "<std>" ' Realtime resize test for Monkey2 MojoX apps

#Import "<mojo>" '

#Import "<mojox>" ' We are installing the SdlEventFilter here

' and update the main Monkey2 SDL window in the handler

' to prevent stretching of the window content

' while the user resizes the window.

' Danilo Krahn, 2019/01/15

' - Monkey2 2018-09, Mx2cc version 1.1.15

' - tested on macOS Mojave

Function InstallWindowResizeFilter( _win:mojo.app.Window, _updateInterval:UInt = 1 )

Global window_ResizeFilter:mojo.app.Window

Global counter_ResizeFilter:UInt

Global interval_ResizeFilter:UInt

window_ResizeFilter = _win

interval_ResizeFilter = _updateInterval = 0 ? 1 Else _updateInterval

mojo.app.App.SdlEventFilter =

Lambda( eventPtr:sdl2.SDL_Event Ptr )

If eventPtr->type = sdl2.SDL_WINDOWEVENT

Select eventPtr->window.event

Case sdl2.SDL_WINDOWEVENT_RESIZED

' This is a handler for realtime window resizing

'======================================================

' SDL stuff:

Local sdlWindowID := eventPtr->window.windowID

Local sdlWindow := sdl2.SDL_GetWindowFromID(sdlWindowID)

'SDL_SetWindowInputFocus(sdlWindow)

sdl2.SDL_CaptureMouse(sdl2.SDL_TRUE)

' Monkey2 stuff

counter_ResizeFilter += 1

' we do this only as long as the left mouse button is pressed

If window_ResizeFilter And

( sdl2.SDL_GetGlobalMouseState(Null,Null) & sdl2.SDL_BUTTON_LMASK )

Local frame:std.geom.Recti = window_ResizeFilter.Frame

frame.Size = New std.geom.Vec2i(eventPtr->window.data1,

eventPtr->window.data2)

window_ResizeFilter.Frame = frame

window_ResizeFilter.ContentView.MakeKeyView()

'window_ResizeFilter.UpdateWindow(False)

' update window content only every '_updateInterval' time

If counter_ResizeFilter <> 0 And

( counter_ResizeFilter Mod interval_ResizeFilter ) = 0

window_ResizeFilter.RequestRender()

mojo.app.App.MainLoop()

Endif

'======================================================

End Select

EndIf

End Lambda

End

Class Program Extends mojo.app.Window

Method New()

Super.New( "Monkey2 Realtime Window Resize Test",

800,

600,

mojo.app.WindowFlags.HighDPI |

mojo.app.WindowFlags.Resizable )

End

Private

Method OnCreateWindow() Override

InstallWindowResizeFilter(Self) ' update window on every resize step

'InstallWindowResizeFilter(Self,2) ' update window on every 2nd resize step

dockingView = New mojox.DockingView

namespacesView = New mojox.TreeView

htmlView = New mojox.HtmlView

messageView = New mojox.TextView( "Monkey2 Realtime Window Resize Test started.~n" )

messageView.ReadOnly = True

Local style:mojo.app.Style

style = messageView.Style

style.BackgroundColor = std.graphics.Color.DarkGrey

style = htmlView.Style

style.BackgroundColor = std.graphics.Color.DarkGrey

style.TextColor = std.graphics.Color.White

Local txt:String = "<!DOCTYPE html><html><head>"+

"<meta charset=~qutf-8~q />"+

" <style>"+

" h1 { color: red; } "+

" body { color: #808080; } "+

" strong { color: #000000; } "+

" </style>"+

"</head>"+

"<body> <h1>Hello</h1> <strong>strong</strong> text<p>"+

"</body></html>"

For Local i := 0 To 1000

txt += "a b c d e f g 0 1 2 3 4 5 6 7 8 9 "

htmlView.HtmlSource = txt

dockingView.AddView( namespacesView, "left", "250", True )

dockingView.AddView( messageView, "bottom", "80", True )

dockingView.ContentView = htmlView

Self.ContentView = dockingView

dockingView.ContentView.MakeKeyView()

End

Field dockingView : mojox.DockingView

Field namespacesView : mojox.TreeView

Field htmlView : mojox.HtmlView

Field messageView : mojox.TextView

End

Function Main()

New mojo.app.AppInstance

New Program

mojo.app.App.Run()

End

January 16, 2019 at 12:39 pm #15922

Danilo

Participant

Updated the code:

added _updateInterval

If redrawing the resized window in realtime becomes too slow, we can now use ‘_updateInterval’ to change how often the window content is completely refreshed.

_updateInterval = 1 ' window is updated at every resize step
_updateInterval = 5 ' window content is only resized every 5th step, the other 4 steps the content is stretched

1 2	_updateInterval = 1 ' window is updated at every resize step _updateInterval = 5 ' window content is only resized every 5th step, the other 4 steps the content is stretched

Author

Posts

Viewing 2 posts - 1 through 2 (of 2 total)

You must be logged in to reply to this topic.

Realtime resizing of MojoX apps on macOS

Archives

Recent Replies

What is this?