removed gtk2
This commit is contained in:
fowlmouth
parent
944b4685b9
commit
ee520689d7
20 changed files with 0 additions and 29796 deletions
|
|
@ -1,14 +0,0 @@
|
|||
import
|
||||
cairo, glib2, gtk2
|
||||
|
||||
proc destroy(widget: pWidget, data: pgpointer) {.cdecl.} =
|
||||
main_quit()
|
||||
|
||||
var
|
||||
window: pWidget
|
||||
nimrod_init()
|
||||
window = window_new(WINDOW_TOPLEVEL)
|
||||
discard signal_connect(window, "destroy",
|
||||
SIGNAL_FUNC(ex1.destroy), nil)
|
||||
show(window)
|
||||
main()
|
||||
|
|
@ -1,22 +0,0 @@
|
|||
|
||||
import
|
||||
glib2, gtk2
|
||||
|
||||
proc destroy(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
main_quit()
|
||||
|
||||
var
|
||||
window: PWidget
|
||||
button: PWidget
|
||||
|
||||
nimrod_init()
|
||||
window = window_new(WINDOW_TOPLEVEL)
|
||||
button = button_new("Click me")
|
||||
set_border_width(PContainer(Window), 5)
|
||||
add(PContainer(window), button)
|
||||
discard signal_connect(window, "destroy",
|
||||
SIGNAL_FUNC(ex2.destroy), nil)
|
||||
show(button)
|
||||
show(window)
|
||||
main()
|
||||
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
|
||||
import
|
||||
glib2, gtk2
|
||||
|
||||
proc newbutton(ALabel: cstring): PWidget =
|
||||
Result = button_new(ALabel)
|
||||
show(result)
|
||||
|
||||
proc destroy(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
main_quit()
|
||||
|
||||
nimrod_init()
|
||||
var window = window_new(WINDOW_TOPLEVEL) # Box to divide window in 2 halves:
|
||||
var totalbox = vbox_new(true, 10)
|
||||
show(totalbox) # A box for each half of the screen:
|
||||
var hbox = hbox_new(false, 5)
|
||||
show(hbox)
|
||||
var vbox = vbox_new(true, 5)
|
||||
show(vbox) # Put boxes in their halves
|
||||
pack_start(totalbox, hbox, true, true, 0)
|
||||
pack_start(totalbox, vbox, true, true, 0) # Now fill boxes with buttons.
|
||||
|
||||
pack_start(hbox, newbutton("Button 1"), false, false, 0)
|
||||
pack_start(hbox, newbutton("Button 2"), false, false, 0)
|
||||
pack_start(hbox, newbutton("Button 3"), false, false, 0) # Vertical box
|
||||
pack_start(vbox, newbutton("Button A"), true, true, 0)
|
||||
pack_start(vbox, newbutton("Button B"), true, true, 0)
|
||||
pack_start(vbox, newbutton("Button C"), true, true, 0) # Put totalbox in window
|
||||
set_border_width(PCONTAINER(Window), 5)
|
||||
add(PContainer(window), totalbox)
|
||||
discard signal_connect(window, "destroy", SIGNAL_FUNC(ex3.destroy), nil)
|
||||
show(window)
|
||||
main()
|
||||
|
||||
|
|
@ -1,29 +0,0 @@
|
|||
|
||||
import
|
||||
glib2, gtk2
|
||||
|
||||
proc newbutton(ALabel: cstring): PWidget =
|
||||
Result = button_new(ALabel)
|
||||
show(result)
|
||||
|
||||
proc destroy(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
main_quit()
|
||||
|
||||
nimrod_init()
|
||||
var window = window_new(WINDOW_TOPLEVEL)
|
||||
var Maintable = table_new(6, 6, True)
|
||||
|
||||
proc AddToTable(Widget: PWidget, Left, Right, Top, Bottom: guint) =
|
||||
attach_defaults(MainTable, Widget, Left, right, top, bottom)
|
||||
|
||||
show(MainTable)
|
||||
AddToTable(newbutton("1,1 At 1,1"), 1, 2, 1, 2)
|
||||
AddToTable(newbutton("2,2 At 3,1"), 3, 5, 1, 3)
|
||||
AddToTable(newbutton("4,1 At 4,1"), 1, 5, 4, 5) # Put all in window
|
||||
set_border_width(Window, 5)
|
||||
add(window, maintable)
|
||||
discard signal_connect(window, "destroy",
|
||||
SignalFunc(ex4.destroy), nil)
|
||||
show(window)
|
||||
main()
|
||||
|
||||
|
|
@ -1,24 +0,0 @@
|
|||
|
||||
import
|
||||
glib2, gtk2
|
||||
|
||||
proc destroy(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
main_quit()
|
||||
|
||||
proc widgetDestroy(w: PWidget) {.cdecl.} =
|
||||
destroy(w)
|
||||
|
||||
nimrod_init()
|
||||
var window = window_new(WINDOW_TOPLEVEL)
|
||||
var button = button_new("Click me")
|
||||
set_border_width(Window, 5)
|
||||
add(window, button)
|
||||
discard signal_connect(window, "destroy",
|
||||
SIGNAL_FUNC(ex5.destroy), nil)
|
||||
discard signal_connect_object(button, "clicked",
|
||||
SIGNAL_FUNC(widgetDestroy),
|
||||
window)
|
||||
show(button)
|
||||
show(window)
|
||||
main()
|
||||
|
||||
|
|
@ -1,50 +0,0 @@
|
|||
|
||||
import
|
||||
glib2, gtk2
|
||||
|
||||
type
|
||||
TButtonSignalState = object
|
||||
Obj: gtk2.PObject
|
||||
SignalID: int32
|
||||
Disable: bool
|
||||
|
||||
PButtonSignalState = ptr TButtonSignalState
|
||||
|
||||
proc destroy(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
main_quit()
|
||||
|
||||
proc widgetDestroy(w: PWidget) {.cdecl.} = destroy(w)
|
||||
|
||||
proc disablesignal(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
var s = cast[PButtonSignalState](Data)
|
||||
if s.Disable:
|
||||
signal_handler_block(s.Obj, s.SignalID)
|
||||
else:
|
||||
signal_handler_unblock(s.Obj, s.SignalID)
|
||||
s.disable = not s.disable
|
||||
|
||||
var
|
||||
QuitState: TButtonSignalState
|
||||
|
||||
nimrod_init()
|
||||
var window = window_new(WINDOW_TOPLEVEL)
|
||||
var quitbutton = button_new("Quit program")
|
||||
var disablebutton = button_new("Disable button")
|
||||
var windowbox = vbox_new(TRUE, 10)
|
||||
pack_start(windowbox, disablebutton, True, false, 0)
|
||||
pack_start(windowbox, quitbutton, True, false, 0)
|
||||
set_border_width(Window, 10)
|
||||
add(window, windowbox)
|
||||
discard signal_connect(window, "destroy", SIGNAL_FUNC(ex6.destroy), nil)
|
||||
QuitState.Obj = QuitButton
|
||||
quitState.SignalID = signal_connect_object(QuitState.Obj, "clicked",
|
||||
SIGNAL_FUNC(widgetDestroy), window).int32
|
||||
QuitState.Disable = True
|
||||
discard signal_connect(disablebutton, "clicked",
|
||||
SIGNAL_FUNC(disablesignal), addr(QuitState))
|
||||
show(quitbutton)
|
||||
show(disablebutton)
|
||||
show(windowbox)
|
||||
show(window)
|
||||
main()
|
||||
|
||||
|
|
@ -1,46 +0,0 @@
|
|||
|
||||
import
|
||||
gdk2, glib2, gtk2
|
||||
|
||||
proc destroy(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
main_quit()
|
||||
|
||||
const
|
||||
Inside: cstring = "Mouse is over label"
|
||||
OutSide: cstring = "Mouse is not over label"
|
||||
|
||||
var
|
||||
OverLabel: bool
|
||||
|
||||
nimrod_init()
|
||||
var window = window_new(gtk2.WINDOW_TOPLEVEL)
|
||||
var stackbox = vbox_new(TRUE, 10)
|
||||
var box1 = event_box_new()
|
||||
var label1 = label_new("Move mouse over label")
|
||||
add(box1, label1)
|
||||
var box2 = event_box_new()
|
||||
var label2 = label_new(OutSide)
|
||||
add(box2, label2)
|
||||
pack_start(stackbox, box1, TRUE, TRUE, 0)
|
||||
pack_start(stackbox, box2, TRUE, TRUE, 0)
|
||||
set_border_width(Window, 5)
|
||||
add(window, stackbox)
|
||||
discard signal_connect(window, "destroy",
|
||||
SIGNAL_FUNC(ex7.destroy), nil)
|
||||
overlabel = False
|
||||
|
||||
|
||||
proc ChangeLabel(P: PWidget, Event: gdk2.PEventCrossing,
|
||||
Data: var bool){.cdecl.} =
|
||||
if not Data: set_text(Label1, Inside)
|
||||
else: set_text(Label2, Outside)
|
||||
Data = not Data
|
||||
|
||||
|
||||
discard signal_connect(box1, "enter_notify_event",
|
||||
SIGNAL_FUNC(ChangeLabel), addr(Overlabel))
|
||||
discard signal_connect(box1, "leave_notify_event",
|
||||
SIGNAL_FUNC(ChangeLabel), addr(Overlabel))
|
||||
show_all(window)
|
||||
main()
|
||||
|
||||
|
|
@ -1,29 +0,0 @@
|
|||
|
||||
import
|
||||
glib2, gtk2
|
||||
|
||||
proc destroy(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
main_quit()
|
||||
|
||||
nimrod_init()
|
||||
var window = window_new(WINDOW_TOPLEVEL)
|
||||
var stackbox = vbox_new(TRUE, 10)
|
||||
var label1 = label_new("Red label text")
|
||||
var labelstyle = copy(get_style(label1))
|
||||
LabelStyle.fg[STATE_NORMAL].pixel = 0
|
||||
LabelStyle.fg[STATE_NORMAL].red = -1'i16
|
||||
LabelStyle.fg[STATE_NORMAL].blue = 0'i16
|
||||
LabelStyle.fg[STATE_NORMAL].green = 0'i16
|
||||
set_style(label1, labelstyle)
|
||||
# Uncomment this to see the effect of setting the default style.
|
||||
# set_default_style(labelstyle)
|
||||
var label2 = label_new("Black label text")
|
||||
pack_start(stackbox, label1, TRUE, TRUE, 0)
|
||||
pack_start(stackbox, label2, TRUE, TRUE, 0)
|
||||
set_border_width(Window, 5)
|
||||
add(window, stackbox)
|
||||
discard signal_connect(window, "destroy",
|
||||
SIGNAL_FUNC(ex8.destroy), nil)
|
||||
show_all(window)
|
||||
main()
|
||||
|
||||
|
|
@ -1,49 +0,0 @@
|
|||
|
||||
import
|
||||
gdk2, glib2, gtk2
|
||||
|
||||
proc destroy(widget: pWidget, data: pgpointer){.cdecl.} =
|
||||
main_quit()
|
||||
|
||||
const
|
||||
Inside: cstring = "Mouse is over label"
|
||||
OutSide: cstring = "Mouse is not over label"
|
||||
|
||||
var
|
||||
OverButton: bool
|
||||
|
||||
nimrod_init()
|
||||
var window = window_new(gtk2.WINDOW_TOPLEVEL)
|
||||
var stackbox = vbox_new(TRUE, 10)
|
||||
var button1 = button_new("Move mouse over button")
|
||||
var buttonstyle = copy(get_style(Button1))
|
||||
ButtonStyle.bg[STATE_PRELIGHT].pixel = 0
|
||||
ButtonStyle.bg[STATE_PRELIGHT].red = -1'i16
|
||||
ButtonStyle.bg[STATE_PRELIGHT].blue = 0'i16
|
||||
ButtonStyle.bg[STATE_PRELIGHT].green = 0'i16
|
||||
set_style(button1, buttonstyle)
|
||||
var button2 = button_new()
|
||||
var ALabel = label_new(Outside)
|
||||
|
||||
|
||||
proc ChangeLabel(P: PWidget, Event: gdk2.PEventCrossing,
|
||||
Data: var bool){.cdecl.} =
|
||||
if Not Data: set_text(ALabel, Inside)
|
||||
else: set_text(ALabel, Outside)
|
||||
Data = Not Data
|
||||
|
||||
|
||||
add(button2, ALAbel)
|
||||
pack_start(stackbox, button1, TRUE, TRUE, 0)
|
||||
pack_start(stackbox, button2, TRUE, TRUE, 0)
|
||||
set_border_width(Window, 5)
|
||||
add(window, stackbox)
|
||||
discard signal_connect(window, "destroy",
|
||||
SIGNAL_FUNC(ex9.destroy), nil)
|
||||
overbutton = False
|
||||
discard signal_connect(button1, "enter_notify_event",
|
||||
SIGNAL_FUNC(ChangeLabel), addr(OverButton))
|
||||
discard signal_connect(button1, "leave_notify_event",
|
||||
SIGNAL_FUNC(ChangeLabel), addr(OverButton))
|
||||
show_all(window)
|
||||
main()
|
||||
Loading…
Add table
Add a link
Reference in a new issue