more miscellaneous functions

more miscellaneous functions

[Kevin Ryde]

[-- Attachment #1: Type: text/plain, Size: 652 bytes --]

I'd like to propose the following bits and pieces which I've found
useful.

        * gtk-1.2.defs (GtkStyle): Add font field.
        (GtkTreeItem): Add subtree field.
        (gtk_accelerator_name): New function.

        * gdk-1.2.defs (gdk_screen_width, gdk_screen_height,
        gdk_screen_width_mm, gdk_screen_height_mm, gdk_string_height,
        gdk_keyval_name, gdk_keyval_from_name, gdk_keyval_to_upper,
        gdk_keyval_to_lower, gdk_keyval_is_upper, gdk_keyval_is_lower):
        New functions.

I'm aware gtk 2 deprecates GtkTree and all GtkFont stuff, but until
guile-gtk makes a move in that direction they may as well be
available.


[-- Attachment #2: gtk-1.2.defs.misc2.diff --]
[-- Type: text/plain, Size: 753 bytes --]

--- gtk-1.2.defs.~1.8.~	2003-03-30 07:07:48.000000000 +1000
+++ gtk-1.2.defs	2003-03-30 07:11:08.000000000 +1000
@@ -283,7 +283,8 @@
 (define-boxed GtkStyle
   (fields
    (GdkGC white_gc)
-   (GdkGC black_gc))
+   (GdkGC black_gc)
+   (GdkFont font))
   (copy gtk_style_ref)
   (free gtk_style_unref))
 
@@ -966,7 +967,8 @@
 
 (define-object GtkTreeItem (GtkItem)
   (fields
-   (bool expanded)))
+   (bool expanded)
+   (GtkWidget subtree)))
 
 (define-func gtk_tree_item_new
   GtkWidget
@@ -4093,6 +4095,11 @@
    (uint accelerator_key)
    (GdkModifierType accelerator_mods)))
 
+(define-func gtk_accelerator_name
+  string
+  ((uint accelerator_key)
+   (GdkModifierType accelerator_mods)))
+
 ;; Selection
 
 (define-func gtk_selection_owner_set

[-- Attachment #3: gdk-1.2.defs.misc2.diff --]
[-- Type: text/plain, Size: 1133 bytes --]

--- gdk-1.2.defs.~1.4.~	2003-02-10 09:19:10.000000000 +1000
+++ gdk-1.2.defs	2003-03-30 08:02:28.000000000 +1000
@@ -645,6 +645,22 @@
   none
   ())
 
+(define-func gdk_screen_width
+  int
+  ())
+
+(define-func gdk_screen_height
+  int
+  ())
+
+(define-func gdk_screen_width_mm
+  int
+  ())
+
+(define-func gdk_screen_height_mm
+  int
+  ())
+
 ;; beep 
 
 (define-func gdk_beep
@@ -684,6 +700,11 @@
    (int ascent)
    (int descent)))
 
+(define-func gdk_string_height
+  int
+  ((GdkFont font)
+   (string str)))
+
 (define-func gdk_event_type
   GdkEventType
   ((GdkEvent event)))
@@ -870,6 +891,32 @@
   ((GdkWindow window)
    (GdkEventMask events)))
 
+;; Key values
+
+(define-func gdk_keyval_name
+  static_string
+  ((uint keyval)))
+
+(define-func gdk_keyval_from_name
+  uint
+  ((string keyval_name)))
+
+(define-func gdk_keyval_to_upper
+  uint
+  ((uint keyval)))
+
+(define-func gdk_keyval_to_lower
+  uint
+  ((uint keyval)))
+
+(define-func gdk_keyval_is_upper
+  bool
+  ((uint keyval)))
+
+(define-func gdk_keyval_is_lower
+  bool
+  ((uint keyval)))
+
 ;;; glib functions - timer
 
 (define-func g_timer_new

Re: more miscellaneous functions

[Daniel Skarda]

Hello,

  thank you for your patch. 

  Do you have an account on savannah.nongnu.org? If you do not, could you
please create it?

  Marius, could you please add Kevin to the list of guile-gtk developers on
savannah? Thank you.

0.

Kevin Ryde <user42@zip.com.au> writes:
> I'd like to propose the following bits and pieces which I've found
> useful.
[snip]

Re: more miscellaneous functions

[Marius Vollmer]

Daniel Skarda <0rfelyus@ucw.cz> writes:

>   Marius, could you please add Kevin to the list of guile-gtk
> developers on savannah? Thank you.

Done!