LiveCode Forums

Code: Select all

library tk.shaosean.library.mac.test

use com.livecode.foreign
use com.livecode.widget

metadata version is "1.0.0"
metadata author is "shaosean.tk"
metadata title is "test"

public handler Test() returns nothing
	if (the operating system is "mac") then
		variable tParent as Pointer
		MCWidgetGetMyStackNativeView(tParent)
	end if
end handler

end library

Code: Select all

	variable tButtonView as ObjcObject

    /* For a standard push button we need:
     *   type to be UIButtonTypeSystem = 1 */
	put ObjC_UIButtonButtonWithType(1) into tButtonView

        set my native layer to PointerFromObjcObject(tButtonView)
	put tButtonView into mButtonView

Code: Select all

library tk.shaosean.library.mac.test

use com.livecode.foreign
use com.livecode.objc

metadata version is "1.0.0"
metadata author is "shaosean.tk"
metadata title is "test"

---------------------

private foreign handler NSApplicationSharedApplication() returns ObjcId binds to "objc:NSApplication.+sharedApplication"
private foreign handler NSApplicationWindowWithWindowNumber(in sharedApplication as ObjcId, in windowNumber as Integer) returns ObjcId binds to "objc:NSApplication.-windowWithWindowNumber:"

private foreign handler NSWindowToggleFullScreen(in aNSWindow as ObjcID) returns nothing binds to "objc:NSWindow.-toggleFullScreen:"

---------------------


public handler Test(windowID as Integer) returns nothing
	if the operating system is "mac" then
		unsafe
			variable NSSharedApplication as ObjcId
			put NSApplicationSharedApplication() into NSSharedApplication

			variable aNSWindow as ObjcID
			put NSApplicationWindowWithWindowNumber(NSSharedApplication, windowID) into aNSWindow

			NSWindowToggleFullScreen(aNSWindow)
		end unsafe
	end if
end handler


end library