1 files changed, 89 insertions, 0 deletions
diff --git a/prev/textfield_windows.go b/prev/textfield_windows.go
new file mode 100644
index 0000000..8705f38
--- /dev/null
+++ b/prev/textfield_windows.go
@@ -0,0 +1,89 @@
+// 15 july 2014
+
+package ui
+
+import (
+	"unsafe"
+)
+
+// #include "winapi_windows.h"
+import "C"
+
+type textfield struct {
+	*controlSingleHWNDWithText
+	changed  *event
+}
+
+var editclass = toUTF16("EDIT")
+
+func startNewTextField(style C.DWORD) *textfield {
+	hwnd := C.newControl(editclass,
+		style|C.textfieldStyle,
+		C.textfieldExtStyle) // WS_EX_CLIENTEDGE without WS_BORDER will show the canonical visual styles border (thanks to MindChild in irc.efnet.net/#winprog)
+	t := &textfield{
+		controlSingleHWNDWithText:		newControlSingleHWNDWithText(hwnd),
+		changed: newEvent(),
+	}
+	t.fpreferredSize = t.xpreferredSize
+	C.controlSetControlFont(t.hwnd)
+	C.setTextFieldSubclass(t.hwnd, unsafe.Pointer(t))
+	return t
+}
+
+func newTextField() *textfield {
+	return startNewTextField(0)
+}
+
+func newPasswordField() *textfield {
+	return startNewTextField(C.ES_PASSWORD)
+}
+
+func (t *textfield) Text() string {
+	return t.text()
+}
+
+func (t *textfield) SetText(text string) {
+	t.setText(text)
+}
+
+func (t *textfield) OnChanged(f func()) {
+	t.changed.set(f)
+}
+
+func (t *textfield) Invalid(reason string) {
+	if reason == "" {
+		C.textfieldHideInvalidBalloonTip(t.hwnd)
+		return
+	}
+	C.textfieldSetAndShowInvalidBalloonTip(t.hwnd, toUTF16(reason))
+}
+
+func (t *textfield) ReadOnly() bool {
+	return C.textfieldReadOnly(t.hwnd) != 0
+}
+
+// TODO check visuals: http://www.microsoft.com/en-us/download/details.aspx?id=34587
+func (t *textfield) SetReadOnly(readonly bool) {
+	if readonly {
+		C.textfieldSetReadOnly(t.hwnd, C.TRUE)
+		return
+	}
+	C.textfieldSetReadOnly(t.hwnd, C.FALSE)
+}
+
+//export textfieldChanged
+func textfieldChanged(data unsafe.Pointer) {
+	t := (*textfield)(data)
+	t.changed.fire()
+}
+
+const (
+	// from http://msdn.microsoft.com/en-us/library/windows/desktop/dn742486.aspx#sizingandspacing
+	textfieldWidth  = 107 // this is actually the shorter progress bar width, but Microsoft only indicates as wide as necessary
+	textfieldHeight = 14
+)
+
+// TODO allow custom preferred widths
+func (t *textfield) xpreferredSize(d *sizing) (width, height int) {
+	return fromdlgunitsX(textfieldWidth, d), fromdlgunitsY(textfieldHeight, d)
+}