Mercurial > hg > xemacs-beta

comparison src/menubar-gtk.c @ 833:ee2d33cfc3c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-05-09 13:49:39 by wmperry] A few minor GTK fixes.
author wmperry
date Thu, 09 May 2002 13:49:42 +0000
parents 6728e641994e
children e7ee5f8bde58
comparison
equal deleted inserted replaced
832:f3244b2b4053 833:ee2d33cfc3c1
752 DECLARE_EISTRING_MALLOC (buf); 752 DECLARE_EISTRING_MALLOC (buf);
753 753
754 /* #### Warning, dependency here on current_buffer and point */ 754 /* #### Warning, dependency here on current_buffer and point */
755 where_is_to_char (callback, buf); 755 where_is_to_char (callback, buf);
756 756
757 keys = eimake_string (buf); 757 if (eilen (buf) > 0)
758 keys = eimake_string (buf);
759 else
760 {
761
762 keys = Qnil;
763 }
764
758 eifree (buf); 765 eifree (buf);
759 } 766 }
760 } 767 }
761 768
762 /* Now we get down to the dirty business of creating the widgets */ 769 /* Now we get down to the dirty business of creating the widgets */
850 gtk_accel_label_set_accel_widget (l, NULL); 857 gtk_accel_label_set_accel_widget (l, NULL);
851 gtk_misc_set_alignment (GTK_MISC (l), 0.0, 0.5); 858 gtk_misc_set_alignment (GTK_MISC (l), 0.0, 0.5);
852 859
853 if (STRINGP (keys) && XSTRING_LENGTH (keys)) 860 if (STRINGP (keys) && XSTRING_LENGTH (keys))
854 { 861 {
855 l->accel_string = g_strdup (XSTRING_DATA (keys)); 862 C_STRING_TO_EXTERNAL_MALLOC (XSTRING_DATA (keys), l->accel_string,
863 Qctext);
864 stderr_out ("accel: %s\n", l->accel_string);
865 }
866 else
867 {
868 // l->accel_string = "";
856 } 869 }
857 } 870 }
858 871
859 return (widget); 872 return (widget);
860 } 873 }