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.
26 lines
526 B
26 lines
526 B
import Cocoa / [NSWindow, NSFunctions, NSLabel, NSSlider]
|
|
|
|
const
|
|
width = 320
|
|
height = 120
|
|
|
|
var mainWindow, label, slider: ID
|
|
|
|
proc sliderCB(sender: ID) =
|
|
label.text = "Slider Value: " & $slider.value
|
|
|
|
proc main() =
|
|
|
|
Cocoa_Init()
|
|
|
|
mainWindow = newWindow("Nim Mac GUI Slider Demo", width,height)
|
|
label = newLabel(mainWindow,"Slider Value: 0", 16,20,120,24)
|
|
label.anchor = akWidth
|
|
slider = newSlider(mainWindow, 16,40,width-40,24, sliderCB)
|
|
slider.anchor = akWidth
|
|
|
|
|
|
Cocoa_Run()
|
|
|
|
when isMainModule:
|
|
main() |