suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gtk: force display of images in button labels

Browse Source 
Merge to 5.1
(cherry picked from commit 7291d944c3)
This commit is contained in:
Matthew Flatt 2011-02-02 06:04:23 -07:00 committed by Eli Barzilay
parent 0b4f5a093d
commit 2e67a39ae8
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mred/private/wx/gtk/button.rkt
View File

@ -33,6 +33,16 @@
(define-gtk gtk_container_remove (_fun _GtkWidget _GtkWidget -> _void)) (define-gtk gtk_container_remove (_fun _GtkWidget _GtkWidget -> _void))
(define-gtk gtk_bin_get_child (_fun _GtkWidget -> _GtkWidget)) (define-gtk gtk_bin_get_child (_fun _GtkWidget -> _GtkWidget))
(define _GtkSettings (_cpointer 'GtkSettings))
(define-gtk gtk_settings_get_default (_fun -> _GtkSettings))
(define-gobj g_object_set/boolean
(_fun _GtkSettings _string _gboolean (_pointer = #f) -> _void)
#:c-id g_object_set)
(define (force-button-images-on gtk)
;; Globally turning on button images isn't really the right thing.
;; Is there a way to enable image just for the widget `gtk'?
(g_object_set/boolean (gtk_settings_get_default) "gtk-button-images" #t))
(define-signal-handler connect-clicked "clicked" (define-signal-handler connect-clicked "clicked"
(_fun _GtkWidget -> _void) (_fun _GtkWidget -> _void)
(lambda (gtk) (lambda (gtk)
@ -65,6 +75,7 @@
(release-pixbuf pixbuf) (release-pixbuf pixbuf)
(if (pair? label) (if (pair? label)
(begin (begin
(force-button-images-on gtk)
(gtk_button_set_image gtk image-gtk) (gtk_button_set_image gtk image-gtk)
(gtk_button_set_image_position (gtk_button_set_image_position
gtk gtk