Mercurial > hg > xemacs-beta

comparison src/scrollbar-msw.c @ 5118:e0db3c197671 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge up to latest default branch, doesn't compile yet
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:18:49 -0600
parents 20773f9b7bc0
children 16112448d484
comparison
equal deleted inserted replaced
5117:3742ea8250b5 5118:e0db3c197671
88 } 88 }
89 89
90 static void 90 static void
91 mswindows_free_scrollbar_instance (struct scrollbar_instance *sb) 91 mswindows_free_scrollbar_instance (struct scrollbar_instance *sb)
92 { 92 {
93 void *opaque =
94 (void *) qxeGetWindowLong (SCROLLBAR_MSW_HANDLE (sb), GWL_USERDATA);
95 Lisp_Object ptr;
96
97 ptr = VOID_TO_LISP (opaque);
98 assert (OPAQUE_PTRP (ptr));
99 ptr = Fremhash (ptr, Vmswindows_scrollbar_instance_table);
100 assert (!NILP (ptr));
101 DestroyWindow (SCROLLBAR_MSW_HANDLE (sb));
102 if (sb->scrollbar_data) 93 if (sb->scrollbar_data)
103 xfree (sb->scrollbar_data, void *); 94 {
95 void *opaque =
96 (void *) qxeGetWindowLong (SCROLLBAR_MSW_HANDLE (sb), GWL_USERDATA);
97 Lisp_Object ptr;
98
99 ptr = VOID_TO_LISP (opaque);
100 assert (OPAQUE_PTRP (ptr));
101 ptr = Fremhash (ptr, Vmswindows_scrollbar_instance_table);
102 assert (!NILP (ptr));
103 DestroyWindow (SCROLLBAR_MSW_HANDLE (sb));
104 xfree (sb->scrollbar_data, void *);
105 }
104 } 106 }
105 107
106 static void 108 static void
107 unshow_that_mofo (void *handle) 109 unshow_that_mofo (void *handle)
108 { 110 {