Do you mean that both windows are combined into one? Or do you mean that they snap together at the edges?
@Jeff T I've turned this off using the call above. (Much as I had to stop MacOS from making ALL my windows maximised if one of them went full screen. A small dialog with 4 controls on it looks stupid when it fills the screen)
Yeah okay, to stop that you need the following code.
Public Sub zoomButtonAction(extends w as window, assigns value as integer)
#if targetMacOS then
Declare Function collectionBehavior Lib "AppKit" Selector "collectionBehavior" ( obj As Integer ) As UInteger
Declare Sub setCollectionBehavior Lib "AppKit" Selector "setCollectionBehavior:" ( obj As Integer, value As UInteger )
Dim behavior As UInteger = collectionBehavior( w.Handle )
setCollectionBehavior( w.handle, behavior Or value )
Const kZoomButtonActionZoom = 512
Then call it in the open event of the window.
me.zoomButtonAction = kZoomButtonActionZoom
In some apps I've been adding an option so that the user can specify if they want Full Screen or the classic way. In some others I've just defaulted to the classic way because it makes zero sense for the window to go Full Screen.