livecode/extensions/widgets/iosbutton/iosbutton.lcb at develop · livecode/livecode

This repository was archived by the owner on Aug 31, 2021. It is now read-only.
224 lines (168 loc) · 8.14 KB
Copyright (C) 2017 LiveCode Ltd.
This file is part of LiveCode.
LiveCode is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License v3 as published by the Free
Software Foundation.
LiveCode is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with LiveCode.  If not see <http://www.gnu.org/licenses/>.  */
This widget is a native push button on iOS.
Name: enabled
Type: property
Summary: Whether the field is active and responds to user action
set the enabled of <widget> to {true | false}
get the enabled of <widget>
Description:
Use the <enabled> property to enable or disable the native button. When
disabled, the button has a greyed out appearance and does not accept 
clicks or touches.
widget com.livecode.widget.native.ios.button
use com.livecode.foreign
use com.livecode.objc
use com.livecode.widget
use com.livecode.canvas
use com.livecode.engine
use com.livecode.library.widgetutils
metadata version is "1.0.0"
metadata author is "LiveCode"
metadata title is "iOS Native Button"
metadata os is "ios"
set the label of <widget> to <pLabel>
get the label of <widget>
Summary: The label displayed by the button.
Value (string): The string to use as the button label
    set the label of widget "iOS Button" to "Click me!"
Description:
The <label> property is the label displayed by the button.
property label get mLabel set SetLabel
metadata label.editor is "com.livecode.pi.string"
metadata label.default is ""
private variable mLabel as String
private variable mButtonView as optional ObjcObject
private variable mButtonProxy as optional ObjcObject
private handler IsIOS() returns Boolean
    return the operating system is "ios"
end handler
public handler OnCreate()
	put "" into mLabel
end handler
public handler OnDestroy()
	put nothing into mButtonView
end handler
public handler OnOpen()
    if IsIOS() then
        unsafe
            CreateButtonView()
        end unsafe
end handler
public handler OnClose()
    if IsIOS() then
        unsafe
            DestroyButtonView()
        end unsafe
end handler
public handler OnPaint()
	if IsIOS() then
    variable tLabel as String
    if mLabel is empty then
        put my name into tLabel
        put mLabel into tLabel
    paintPlaceholderImage(this canvas, my bounds, placeholderIcon("ios"), \
        tLabel, my font, nothing)
end handler
public handler OnSave(out rProperties as Array)
	put mLabel into rProperties["label"]
end handler
public handler OnLoad(in pProperties as Array)
	put pProperties["label"] into mLabel
end handler
public handler OnParentPropertyChanged()
        UpdateButtonView()
    end unsafe
end handler
private handler SetLabel(in pLabel as String) returns nothing
	put pLabel into mLabel
        UpdateButtonView()
	end unsafe
    redraw all
end handler
private handler ButtonActionCallback(in pSender as ObjcObject, in pContext as optional any) returns nothing
	post "mouseUp"
end handler
private type NSUInteger is CULong
private foreign handler ObjC_UIButtonButtonWithType(in pType as NSUInteger) returns ObjcId binds to "objc:UIButton.+buttonWithType:?ui"
private foreign handler ObjC_UIButtonSetTitleForState(in pObj as ObjcId, in pTitle as ObjcId, in pState as NSUInteger) returns nothing binds to "objc:UIButton.-setTitle:forState:?ui"
private foreign handler ObjC_UIButtonSetEnabled(in pObj as ObjcId, in pEnabled as CBool) returns nothing binds to "objc:UIButton.-setEnabled:?ui"
private foreign handler ObjC_UIButtonGetTitleLabel(in pObj as ObjcId) returns ObjcId binds to "objc:UIButton.-titleLabel?ui"
private foreign handler ObjC_UILabelSetFont(in pObj as ObjcId, in pFont as ObjcId) returns nothing binds to "objc:UILabel.-setFont:?ui"
private foreign handler ObjC_UIButtonAddTargetActionForControlEvents(in pObj as ObjcId, in pTarget as ObjcId, in pAction as UIntPtr, in pControlEvents as NSUInteger) returns nothing binds to "objc:UIButton.-addTarget:action:forControlEvents:?ui"
private foreign handler MCCanvasFontGetHandle(in pFont as Font, out rHandle as ObjcId) returns nothing binds to "<builtin>"
private unsafe handler CreateButtonView() returns nothing
	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
	put ObjcProxyGetTarget(ButtonActionCallback, nothing) into mButtonProxy
    /* For a push button action we need:
     *   controlEvents to be UIControlEventTouchUpInside = 1 << 6 */
    ObjC_UIButtonAddTargetActionForControlEvents(mButtonView, mButtonProxy, ObjcProxyGetAction(), 1 shifted left by 6 bitwise)
	UpdateButtonView()
end handler
private unsafe handler DestroyButtonView() returns nothing
	set my native layer to nothing
	put nothing into mButtonView
	put nothing into mButtonProxy
end handler
private unsafe handler UpdateButtonView() returns nothing
	if mButtonView is nothing then
    /* Set the enabled state of the button to the host property. */
    ObjC_UIButtonSetEnabled(mButtonView, my enabled)
    /* Set the font of the button to the host property. */
    variable tFontToUse as ObjcObject
    MCCanvasFontGetHandle(my font, tFontToUse)
    ObjC_UILabelSetFont(ObjC_UIButtonGetTitleLabel(mButtonView), tFontToUse)
    /* Set the label of the button to mLabel, if not empty; otherwise to the
     * name of the host. */
    variable tLabelToUse as String
    if mLabel is the empty string then
        put my name into tLabelToUse
        put mLabel into tLabelToUse
    /* We use UIControlStateNormal = 0 */
	ObjC_UIButtonSetTitleForState(mButtonView, StringToNSString(tLabelToUse), 0)
end handler
Provide feedback

Saved searches

Use saved searches to filter your results more quickly

FilesExpand file tree

iosbutton.lcb

Latest commit

History

iosbutton.lcb

File metadata and controls
