mirror of https://github.com/Airr/nim-cocoa.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
119 lines
4.1 KiB
119 lines
4.1 KiB
{.pragma: libcol_s, cdecl.}
|
|
{.passL: "-fobjc-arc -framework Cocoa -lcol_s"}
|
|
|
|
|
|
type
|
|
id* = pointer
|
|
ACTION* = proc (a1: id) {.cdecl.}
|
|
|
|
|
|
const
|
|
akNone* = 0
|
|
akRight* = 1
|
|
akWidth* = 2
|
|
akLeft* = 4
|
|
akBottom* = 8
|
|
akHeight* = 16
|
|
akFull* = 18
|
|
akTop* = 32
|
|
|
|
|
|
proc newWindow*(title: cstring; width: cint; height: cint): id {.cdecl, importc: "createWindow".}
|
|
|
|
proc Pin(widget: id; value: cint) {.cdecl, importc: "Pin".}
|
|
|
|
proc Cocoa_Init*() {.cdecl, importc: "Cocoa_Init".}
|
|
|
|
proc Cocoa_Run*(a2: id) {.cdecl, importc: "Cocoa_Run".}
|
|
|
|
proc Cocoa_Quit*(a2: id) {.cdecl, importc: "Cocoa_Quit".}
|
|
|
|
proc Cocoa_About*() {.cdecl, importc: "Cocoa_About".}
|
|
|
|
proc SetText(widget: id; txt: cstring) {.cdecl, importc: "SetText".}
|
|
|
|
proc GetText(widget: id): cstring {.cdecl, importc: "GetText".}
|
|
|
|
proc GetValue(widget: id): cint {.cdecl, importc: "GetValue".}
|
|
|
|
proc SetValue(widget: id; value: cint) {.cdecl, importc: "SetValue".}
|
|
|
|
proc AddItem(widget: id; txt: cstring) {.cdecl, importc: "AddItem".}
|
|
|
|
proc newTextField*(parent: id; txt: cstring; l: cint; t: cint; w: cint; h: cint): id {.cdecl, importc: "createTextField".}
|
|
|
|
proc newComboBox*(parent: id; l: cint; t: cint; w: cint; h: cint; callback: ACTION): id {.cdecl, importc: "createComboBox".}
|
|
|
|
proc newButton*(parent: id; caption: cstring; l: cint; t: cint; w: cint; h: cint; `func`: ACTION): id {.cdecl, importc: "createButton".}
|
|
|
|
proc SetAction(widget: id; `func`: ACTION) {.cdecl, importc: "SetAction".}
|
|
proc newCheckBox*(parent: id; caption: cstring; l: cint; t: cint; w: cint; h: cint): id {.cdecl, importc: "createCheckBox".}
|
|
|
|
proc SetState(widget: id; state: bool) {.cdecl, importc: "SetState".}
|
|
|
|
proc State(widget: id): cint {.cdecl, importc: "State".}
|
|
|
|
proc newListBox*(parent: id; l: cint; t: cint; w: cint; h: cint): id {.cdecl, importc: "createListBox".}
|
|
|
|
proc Clearitems*(widget: id) {.cdecl, importc: "LB_Clear".}
|
|
proc SetItem*(widget: id; pos: cint) {.cdecl, importc: "SetItem".}
|
|
proc RemoveItem*(widget: id; pos: cint) {.cdecl, importc: "RemoveItem".}
|
|
proc newOpenDialog*(parent: id; types: cstring): cstring {.cdecl, importc: "createOpenDialog".}
|
|
|
|
proc newSaveDialog*(parent: id; title: cstring; types: cstring): cstring {.cdecl, importc: "createSaveDialog".}
|
|
|
|
proc newDialog*(title: cstring; message: cstring; `type`: cint): cint {.cdecl, importc: "createDialog".}
|
|
proc newMessageBox*(title: cstring; message: cstring; `type`: cint): cint {.cdecl, importc: "createMessageBox".}
|
|
|
|
proc newColorDialog*(): id {.cdecl, importc: "createColorDialog".}
|
|
proc getColor*(panel: id): cstring {.cdecl, importc: "getColor".}
|
|
proc hexColor*(cPanel: id): cstring {.cdecl, importc: "hexColor".}
|
|
proc newLabel*(parent: id; txt: cstring; l: cint; t: cint; w: cint; h: cint): id {.cdecl, importc: "createLabel".}
|
|
|
|
proc newTextEdit*(parent: id; txt: cstring; l: cint; t: cint; w: cint; h: cint): id {.cdecl, importc: "createTextEdit".}
|
|
|
|
proc Notify*(title: cstring; subtitle: cstring; text: cstring) {.cdecl, importc: "Notify".}
|
|
|
|
proc newSeparator*(parent: id; x: cint; y: cint; width: cint): id {.cdecl, importc: "createLine".}
|
|
proc newMenu*(Title: cstring): id {.cdecl, importc: "createMenu".}
|
|
proc newMenuItem*(parent: id; caption: cstring; key: cstring; callback: ACTION) {.cdecl, importc: "createMenuItem".}
|
|
proc newMenuSeparator*(parent: id) {.cdecl, importc: "createMenuSeparator".}
|
|
proc newSlider*(parent: id; left: cint; top: cint; width: cint; height: cint; callback: ACTION): id {.cdecl, importc: "createSlider".}
|
|
|
|
proc `text=`*(widget: id; txt: cstring) =
|
|
widget.SetText(txt)
|
|
|
|
proc `reset`*(widget: id) =
|
|
widget.SetText("")
|
|
|
|
proc `text`*(widget: id): string =
|
|
$GetText(widget)
|
|
|
|
# proc `item`*(widget: id): cstring =
|
|
# GetItem(widget)
|
|
|
|
proc `anchor=`*(widget: id; value: cint) =
|
|
widget.Pin(value)
|
|
|
|
proc `state`*(widget: id): cint =
|
|
widget.State()
|
|
|
|
proc `state=`*(widget: id; val: bool) =
|
|
widget.SetState(val)
|
|
|
|
proc `item=`*(widget: id, val: cstring) =
|
|
widget.AddItem(val)
|
|
|
|
proc `item`*(widget: id): string =
|
|
$GetText(widget)
|
|
|
|
proc action*(widget: id, action:ACTION) =
|
|
SetAction(widget, action)
|
|
|
|
proc value*(widget: id, value: cint) =
|
|
SetValue(widget, value)
|
|
|
|
proc value*(widget: id): cint =
|
|
GetValue(widget)
|
|
|
|
# #endif |