LET'S GET THIS FINAL REWRITE EVER STARTED

1 files changed, 74 insertions, 0 deletions

diff --git a/prev/checkbox_windows.go b/prev/checkbox_windows.go
new file mode 100644
index 0000000..4ccd5e2
--- /dev/null
+++ b/prev/checkbox_windows.go
@@ -0,0 +1,74 @@
+// 15 july 2014
+
+package ui
+
+import (
+	"unsafe"
+)
+
+// #include "winapi_windows.h"
+import "C"
+
+type checkbox struct {
+	*controlSingleHWNDWithText
+	toggled  *event
+}
+
+func newCheckbox(text string) *checkbox {
+	// don't use BS_AUTOCHECKBOX here because it creates problems when refocusing (see http://blogs.msdn.com/b/oldnewthing/archive/2014/05/22/10527522.aspx)
+	// we'll handle actually toggling the check state ourselves (see controls_windows.c)
+	hwnd := C.newControl(buttonclass,
+		C.BS_CHECKBOX|C.WS_TABSTOP,
+		0)
+	c := &checkbox{
+		controlSingleHWNDWithText:		newControlSingleHWNDWithText(hwnd),
+		toggled: newEvent(),
+	}
+	c.fpreferredSize = c.xpreferredSize
+	c.SetText(text)
+	C.controlSetControlFont(c.hwnd)
+	C.setCheckboxSubclass(c.hwnd, unsafe.Pointer(c))
+	return c
+}
+
+func (c *checkbox) OnToggled(e func()) {
+	c.toggled.set(e)
+}
+
+func (c *checkbox) Text() string {
+	return c.text()
+}
+
+func (c *checkbox) SetText(text string) {
+	c.setText(text)
+}
+
+func (c *checkbox) Checked() bool {
+	return C.checkboxChecked(c.hwnd) != C.FALSE
+}
+
+func (c *checkbox) SetChecked(checked bool) {
+	if checked {
+		C.checkboxSetChecked(c.hwnd, C.TRUE)
+		return
+	}
+	C.checkboxSetChecked(c.hwnd, C.FALSE)
+}
+
+//export checkboxToggled
+func checkboxToggled(data unsafe.Pointer) {
+	c := (*checkbox)(data)
+	c.toggled.fire()
+}
+
+const (
+	// from http://msdn.microsoft.com/en-us/library/windows/desktop/dn742486.aspx#sizingandspacing
+	checkboxHeight = 10
+	// from http://msdn.microsoft.com/en-us/library/windows/desktop/bb226818%28v=vs.85%29.aspx
+	checkboxXFromLeftOfBoxToLeftOfLabel = 12
+)
+
+func (c *checkbox) xpreferredSize(d *sizing) (width, height int) {
+	return fromdlgunitsX(checkboxXFromLeftOfBoxToLeftOfLabel, d) + int(c.textlen),
+		fromdlgunitsY(checkboxHeight, d)
+}