Add tasks for all the new languages
This commit is contained in:
Tina Müller
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
79
Task/Window-management/Nim/window-management-1.nim
Normal file
79
Task/Window-management/Nim/window-management-1.nim
Normal file
|
|
@ -0,0 +1,79 @@
|
|||
import
|
||||
gdk2, glib2, gtk2,
|
||||
os
|
||||
|
||||
proc thisDestroy(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
main_quit()
|
||||
proc thisMax(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
maximize(get_parent_window(widget))
|
||||
proc thisUnmax(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
unmaximize(get_parent_window(widget))
|
||||
proc thisIcon(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
iconify(get_parent_window(widget))
|
||||
proc thisDeicon(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
deiconify(get_parent_window(widget))
|
||||
proc thisHide(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
hide(get_parent_window(widget))
|
||||
sleep(5)
|
||||
show(get_parent_window(widget))
|
||||
|
||||
proc thisShow(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
show(get_parent_window(widget))
|
||||
|
||||
var isshifted: bool = false
|
||||
|
||||
proc thisMove(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
var w, h: gint
|
||||
get_size(get_parent_window(widget), Addr(w), Addr(h))
|
||||
if isshifted:
|
||||
move(get_parent_window(widget), w-10, h-10)
|
||||
else:
|
||||
move(get_parent_window(widget), w+10, h+10)
|
||||
isshifted = not isshifted
|
||||
|
||||
|
||||
nim_init()
|
||||
var window = window_new(gtk2.WINDOW_TOPLEVEL)
|
||||
discard allow_grow(window)
|
||||
set_title(window,"Window management")
|
||||
var stackbox = vbox_new(TRUE, 10)
|
||||
var bmax = button_new("maximize")
|
||||
var bunmax = button_new("unmaximize")
|
||||
var bicon = button_new("iconize")
|
||||
var bdeicon = button_new("deiconize")
|
||||
var bhide = button_new("hide")
|
||||
var bshow = button_new("show")
|
||||
var bmove = button_new("move")
|
||||
var bquit = button_new("Quit")
|
||||
|
||||
pack_start(stackbox, bmax, TRUE, TRUE, 0)
|
||||
pack_start(stackbox, bunmax, TRUE, TRUE, 0)
|
||||
pack_start(stackbox, bicon, TRUE, TRUE, 0)
|
||||
pack_start(stackbox, bdeicon, TRUE, TRUE, 0)
|
||||
pack_start(stackbox, bhide, TRUE, TRUE, 0)
|
||||
pack_start(stackbox, bshow, TRUE, TRUE, 0)
|
||||
pack_start(stackbox, bmove, TRUE, TRUE, 0)
|
||||
pack_start(stackbox, bquit, TRUE, TRUE, 0)
|
||||
set_border_width(Window, 5)
|
||||
add(window, stackbox)
|
||||
discard signal_connect(window, "destroy",
|
||||
SIGNAL_FUNC(thisDestroy), nil)
|
||||
|
||||
discard signal_connect(bicon, "clicked",
|
||||
SIGNAL_FUNC(thisIcon), nil)
|
||||
discard signal_connect(bdeicon, "clicked",
|
||||
SIGNAL_FUNC(thisDeicon), nil)
|
||||
discard signal_connect(bmax, "clicked",
|
||||
SIGNAL_FUNC(thisMax), nil)
|
||||
discard signal_connect(bunmax, "clicked",
|
||||
SIGNAL_FUNC(thisUnmax), nil)
|
||||
discard signal_connect(bhide, "clicked",
|
||||
SIGNAL_FUNC(thisHide), nil)
|
||||
discard signal_connect(bshow, "clicked",
|
||||
SIGNAL_FUNC(thisShow), nil)
|
||||
discard signal_connect(bmove, "clicked",
|
||||
SIGNAL_FUNC(thismove), nil)
|
||||
discard signal_connect(bquit, "clicked",
|
||||
SIGNAL_FUNC(thisDestroy), nil)
|
||||
show_all(window)
|
||||
main()
|
||||
68
Task/Window-management/Nim/window-management-2.nim
Normal file
68
Task/Window-management/Nim/window-management-2.nim
Normal file
|
|
@ -0,0 +1,68 @@
|
|||
import iup
|
||||
|
||||
# assumes you have the iup .dll or .so installed
|
||||
|
||||
proc toCB(fp: proc): ICallback =
|
||||
return cast[ICallback](fp)
|
||||
|
||||
discard iup.open(nil,nil)
|
||||
|
||||
var btnRestore = button("restore","")
|
||||
var btnFull = button("Full screen","")
|
||||
var btnMin = button("minimize","")
|
||||
var btnMax = button("maximize","")
|
||||
var btnHide = button("Transparent","")
|
||||
#var btnHide = button("Hide (close)","")
|
||||
var btnShow = button("Show","")
|
||||
|
||||
var hbox = Hbox(btnRestore, btnFull, btnMax, btnMin, btnShow, btnHide, nil)
|
||||
setAttribute(hbox,"MARGIN", "10x10")
|
||||
setAttribute(hbox,"PADDING", "5x5")
|
||||
|
||||
var dlg = Dialog(hbox)
|
||||
#SetAttribute(dlg, "SIZE", "100x50")
|
||||
|
||||
proc doFull(ih:PIhandle): cint {.cdecl.} =
|
||||
setAttribute(dlg,"FULLSCREEN","YES")
|
||||
return IUP_DEFAULT
|
||||
|
||||
proc doMax(ih:PIhandle): cint {.cdecl.} =
|
||||
#setAttribute(dlg,"FULLSCREEN","YES")
|
||||
setAttribute(dlg,"PLACEMENT","MAXIMIZED")
|
||||
# this is a work-around to get the dialog minimised (on win platform)
|
||||
setAttribute(dlg,"VISIBLE","YES")
|
||||
return IUP_DEFAULT
|
||||
|
||||
proc doMin(ih:PIhandle): cint {.cdecl.} =
|
||||
setAttribute(dlg,"PLACEMENT","MINIMIZED")
|
||||
# this is a work-around to get the dialog minimised (on win platform)
|
||||
setAttribute(dlg,"VISIBLE","YES")
|
||||
return IUP_DEFAULT
|
||||
|
||||
proc doRestore(ih:PIhandle): cint {.cdecl.} =
|
||||
setAttribute(dlg,"OPACITY","255")
|
||||
setAttribute(dlg,"FULLSCREEN","NO")
|
||||
setAttribute(dlg,"PLACEMENT","NORMAL")
|
||||
setAttribute(dlg,"VISIBLE","YES")
|
||||
return IUP_DEFAULT
|
||||
|
||||
proc doHide(ih:PIhandle): cint {.cdecl.} =
|
||||
#setAttribute(dlg,"VISIBLE","NO")
|
||||
setAttribute(dlg,"OPACITY","60")
|
||||
return IUP_DEFAULT
|
||||
|
||||
proc doShow(ih:PIhandle): cint {.cdecl.} =
|
||||
setAttribute(dlg,"OPACITY","255")
|
||||
setAttribute(dlg,"VISIBLE","YES")
|
||||
return IUP_DEFAULT
|
||||
|
||||
discard setCallback(btnRestore,"ACTION", toCB(doRestore))
|
||||
discard setCallback(btnFull,"ACTION", toCB(doFull))
|
||||
discard setCallback(btnMax,"ACTION", toCB(doMax))
|
||||
discard setCallback(btnMin,"ACTION", toCB(doMin))
|
||||
discard setCallback(btnShow,"ACTION", toCB(doShow))
|
||||
discard setCallback(btnHide,"ACTION", toCB(doHide))
|
||||
|
||||
discard dlg.show()
|
||||
discard mainloop()
|
||||
iup.Close()
|
||||
Loading…
Add table
Add a link
Reference in a new issue