Mercurial > hg > xemacs-beta

comparison src/scrollbar-gtk.c @ 2168:95fee4a1420e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-07-07 12:00:58 by malcolmp] Working GK tab_control widget. Other GTK widgets drawn with the correct location and size.
author malcolmp
date Wed, 07 Jul 2004 12:01:07 +0000
parents 91d4c8c65a0f
children 23d90a805259
comparison
equal deleted inserted replaced
2167:54e1ecdc5778 2168:95fee4a1420e
1 /* scrollbar implementation -- X interface. 1 /* scrollbar implementation -- GTK interface.
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois. 2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
3 Copyright (C) 1994 Amdhal Corporation. 3 Copyright (C) 1994 Amdhal Corporation.
4 Copyright (C) 1995 Sun Microsystems, Inc. 4 Copyright (C) 1995 Sun Microsystems, Inc.
5 Copyright (C) 1995 Darrell Kindred <dkindred+@cmu.edu>. 5 Copyright (C) 1995 Darrell Kindred <dkindred+@cmu.edu>.
6 6
95 95
96 SCROLLBAR_GTK_ID (instance) = new_gui_id (); 96 SCROLLBAR_GTK_ID (instance) = new_gui_id ();
97 SCROLLBAR_GTK_VDRAG_ORIG_VALUE (instance) = -1; 97 SCROLLBAR_GTK_VDRAG_ORIG_VALUE (instance) = -1;
98 SCROLLBAR_GTK_LAST_VALUE (instance) = adj->value; 98 SCROLLBAR_GTK_LAST_VALUE (instance) = adj->value;
99 99
100 gtk_object_set_data (GTK_OBJECT (adj), "xemacs::gui_id", (void *) SCROLLBAR_GTK_ID (instance)); 100 gtk_object_set_data (GTK_OBJECT (adj), GTK_DATA_GUI_IDENTIFIER, (void *) SCROLLBAR_GTK_ID (instance));
101 gtk_object_set_data (GTK_OBJECT (adj), "xemacs::frame", f); 101 gtk_object_set_data (GTK_OBJECT (adj), GTK_DATA_FRAME_IDENTIFIER, f);
102 102
103 sb = GTK_SCROLLBAR (vertical ? gtk_vscrollbar_new (adj) : gtk_hscrollbar_new (adj)); 103 sb = GTK_SCROLLBAR (vertical ? gtk_vscrollbar_new (adj) : gtk_hscrollbar_new (adj));
104 SCROLLBAR_GTK_WIDGET (instance) = GTK_WIDGET (sb); 104 SCROLLBAR_GTK_WIDGET (instance) = GTK_WIDGET (sb);
105 105
106 gtk_signal_connect (GTK_OBJECT (adj),"value-changed", 106 gtk_signal_connect (GTK_OBJECT (adj),"value-changed",
362 static gboolean 362 static gboolean
363 scrollbar_cb (GtkAdjustment *adj, gpointer user_data) 363 scrollbar_cb (GtkAdjustment *adj, gpointer user_data)
364 { 364 {
365 /* This function can GC */ 365 /* This function can GC */
366 int vertical = (int) user_data; 366 int vertical = (int) user_data;
367 struct frame *f = (struct frame*) gtk_object_get_data (GTK_OBJECT (adj), "xemacs::frame"); 367 struct frame *f = (struct frame*) gtk_object_get_data (GTK_OBJECT (adj), GTK_DATA_FRAME_IDENTIFIER);
368 struct scrollbar_instance *instance; 368 struct scrollbar_instance *instance;
369 GUI_ID id = (GUI_ID) gtk_object_get_data (GTK_OBJECT (adj), "xemacs::gui_id"); 369 GUI_ID id = (GUI_ID) gtk_object_get_data (GTK_OBJECT (adj), GTK_DATA_GUI_IDENTIFIER);
370 Lisp_Object win, frame; 370 Lisp_Object win, frame;
371 struct window_mirror *mirror; 371 struct window_mirror *mirror;
372 Lisp_Object event_type = Qnil; 372 Lisp_Object event_type = Qnil;
373 Lisp_Object event_data = Qnil; 373 Lisp_Object event_data = Qnil;
374 374