Gave Listboxes a border on Mac OS X. That just leaves GTK+: oyxgen-gtk always gives GtkScrollingWindows a border, which misled me earlier... other themes don't.

This commit is contained in:
Pietro Gagliardi 2014-04-05 22:51:01 -04:00
parent e3a2a15416
commit 30c3ee1b98
2 changed files with 7 additions and 1 deletions

View File

@ -193,16 +193,22 @@ var (
_setHasHorizontalScroller = sel_getUid("setHasHorizontalScroller:")
_setHasVerticalScroller = sel_getUid("setHasVerticalScroller:")
_setAutohidesScrollers = sel_getUid("setAutohidesScrollers:")
_setBorderType = sel_getUid("setBorderType:")
_setDocumentView = sel_getUid("setDocumentView:")
_documentView = sel_getUid("documentView")
)
func newListboxScrollView(listbox C.id) C.id {
const (
_NSBezelBorder = 2
)
scrollview := C.objc_msgSend_noargs(_NSScrollView, _alloc)
scrollview = initWithDummyFrame(scrollview)
C.objc_msgSend_bool(scrollview, _setHasHorizontalScroller, C.BOOL(C.YES))
C.objc_msgSend_bool(scrollview, _setHasVerticalScroller, C.BOOL(C.YES))
C.objc_msgSend_bool(scrollview, _setAutohidesScrollers, C.BOOL(C.YES))
C.objc_msgSend_uint(scrollview, _setBorderType, _NSBezelBorder) // this is what Interface Builder gives the scroll view
C.objc_msgSend_id(scrollview, _setDocumentView, listbox)
return scrollview
}

View File

@ -1,5 +1,5 @@
so I don't forget:
- [all platforms except Windows] Listbox should have a border style
- [GTK+] Listbox should have a border style
- should Labels be selectable?
- should message box text be selectable on all platforms or only on those that make it the default?
- Message boxes should not show secondary text if none is specified. [TODO figure out what I meant by this]