Re: GNOME-guile

[Michael Harnois <mharnois willinet net>]

Phillip Neumann <filsin@bigfoot.com> writes:

> Is this normal? i mean i am the only one that is having this problem?

No, it's been broken for several days. I have no idea if this patch is 
correct or not, but it does enable compilation. (And if I post a wrong 
patch, perhaps that will spur someone to post the correct one.)

diff -ur guile-gtk-old/gtk-1.0.defs guile-gtk/gtk-1.0.defs
--- guile-gtk-old/gtk-1.0.defs	Thu Nov 26 20:45:20 1998
+++ guile-gtk/gtk-1.0.defs	Thu Nov 26 17:13:05 1998
@@ -123,7 +123,7 @@
   (can-default GTK_CAN_DEFAULT)
   ;(propagate-state GTK_PROPAGATE_STATE)
   ;(anchored GTK_ANCHORED)
-  (basic GTK_BASIC)
+  ;(basic GTK_BASIC)
   ;(user-style GTK_USER_STYLE
   (has-grab GTK_HAS_GRAB)
   (toplevel GTK_TOPLEVEL))
@@ -418,10 +418,6 @@
    (int x)
    (int y)))
 
-(define-func gtk_widget_basic
-  bool
-  ((GtkWidget widget)))
-
 (define-func gtk_widget_grab_focus
   none
   ((GtkWidget widget)))
@@ -595,14 +591,6 @@
   ((GtkContainer container)
    (GtkWidget widget)))
 
-(define-func gtk_container_disable_resize
-  none
-  ((GtkContainer container)))
-
-(define-func gtk_container_enable_resize
-  none
-  ((GtkContainer container)))
-
 (define-func gtk_container_block_resize
   none
   ((GtkContainer container)))
@@ -796,12 +784,6 @@
  none
  ((GtkCList clist)
   (GtkSelectionMode mode)))
-
-(define-func gtk_clist_set_policy
- none
- ((GtkCList clist)
-  (GtkPolicyType vscrollbar_policy)
-  (GtkPolicyType hscrollbar_policy)))
 
 (define-func gtk_clist_freeze
  none
diff -ur guile-gtk-old/gtk-1.1.defs guile-gtk/gtk-1.1.defs
--- guile-gtk-old/gtk-1.1.defs	Thu Nov 26 20:45:23 1998
+++ guile-gtk/gtk-1.1.defs	Thu Nov 26 17:23:01 1998
@@ -123,7 +123,7 @@
   (can-default GTK_CAN_DEFAULT)
   ;(propagate-state GTK_PROPAGATE_STATE)
   ;(anchored GTK_ANCHORED)
-  (basic GTK_BASIC)
+  ;(basic GTK_BASIC)
   ;(user-style GTK_USER_STYLE
   (has-grab GTK_HAS_GRAB)
   (toplevel GTK_TOPLEVEL))
@@ -418,10 +418,6 @@
    (int x)
    (int y)))
 
-(define-func gtk_widget_basic
-  bool
-  ((GtkWidget widget)))
-
 (define-func gtk_widget_grab_focus
   none
   ((GtkWidget widget)))
@@ -595,14 +591,6 @@
   ((GtkContainer container)
    (GtkWidget widget)))
 
-(define-func gtk_container_disable_resize
-  none
-  ((GtkContainer container)))
-
-(define-func gtk_container_enable_resize
-  none
-  ((GtkContainer container)))
-
 (define-func gtk_container_block_resize
   none
   ((GtkContainer container)))
@@ -796,12 +784,6 @@
  none
  ((GtkCList clist)
   (GtkSelectionMode mode)))
-
-(define-func gtk_clist_set_policy
- none
- ((GtkCList clist)
-  (GtkPolicyType vscrollbar_policy)
-  (GtkPolicyType hscrollbar_policy)))
 
 (define-func gtk_clist_freeze
  none
diff -ur guile-gtk-old/gtk.defs guile-gtk/gtk.defs
--- guile-gtk-old/gtk.defs	Thu Nov 26 20:45:26 1998
+++ guile-gtk/gtk.defs	Thu Nov 26 17:21:04 1998
@@ -123,7 +123,7 @@
   (can-default GTK_CAN_DEFAULT)
   ;(propagate-state GTK_PROPAGATE_STATE)
   ;(anchored GTK_ANCHORED)
-  (basic GTK_BASIC)
+  ;(basic GTK_BASIC)
   ;(user-style GTK_USER_STYLE
   (has-grab GTK_HAS_GRAB)
   (toplevel GTK_TOPLEVEL))
@@ -418,10 +418,6 @@
    (int x)
    (int y)))
 
-(define-func gtk_widget_basic
-  bool
-  ((GtkWidget widget)))
-
 (define-func gtk_widget_grab_focus
   none
   ((GtkWidget widget)))
@@ -595,14 +591,6 @@
   ((GtkContainer container)
    (GtkWidget widget)))
 
-(define-func gtk_container_disable_resize
-  none
-  ((GtkContainer container)))
-
-(define-func gtk_container_enable_resize
-  none
-  ((GtkContainer container)))
-
 (define-func gtk_container_block_resize
   none
   ((GtkContainer container)))
@@ -796,12 +784,6 @@
  none
  ((GtkCList clist)
   (GtkSelectionMode mode)))
-
-(define-func gtk_clist_set_policy
- none
- ((GtkCList clist)
-  (GtkPolicyType vscrollbar_policy)
-  (GtkPolicyType hscrollbar_policy)))
 
 (define-func gtk_clist_freeze
  none

-- 
Michael D. Harnois, Redeemer Lutheran Church, Washburn, IA 
mharnois@willinet.net                      aa0bt@aa0bt.ampr.org 
 Earth has its boundaries, but human stupidity is limitless.
   -- Gustave Flaubert