Re: WEMI 1.13.7 (Shimada / 島田)

This is an emergency aid to latest XEmacs 21.2. I'm not sure what the proper way is. (unless (listp (aref (make-gui-button "TAG") 1)) (defun make-gui-button (string &optional action user-data) "Make a GUI button whose label is STRING and whose action is ACTION. If the button is inserted in a buffer and then clicked on, and ACTION is non-nil, ACTION will be called with one argument, USER-DATA." (vector 'gui-button (if (featurep 'xpm) (xpm-button-create string gui-button-shadow-thickness (color-instance-name (face-foreground-instance 'gui-button-face)) (color-instance-name (face-background-instance 'gui-button-face))) (xbm-button-create string gui-button-shadow-thickness)) action user-data)) )