// Prevent Full Screen
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)
Const NSWindowCollectionBehaviorFullScreenAuxiliary As UInteger = 256
Dim behavior As UInteger = collectionBehavior(Self.Handle)
setCollectionBehavior(Self.handle, behavior Or NSWindowCollectionBehaviorFullScreenAuxiliary)
huh?
That’s weird.
I just tried again. New project. Run. If your mouse is over the green button, you see it change to the full screen thingies <>. If I click it, it goes full screen.
Then I put the above in window1.Open. The mouseover now shows a + and it maximizes instead of full screen.
edit: Make sure the switch “Full Screen button” in the inspector for the Window is off.