Paul Kinnucan wrote:
> Len Trigg writes:
> > I managed to get it to compile, and have attached a patch. You may
> > have a nicer way of achieving the same end.
>
> I've added your patches. Nice to see you contributing again.
No worries :-).
However, I now have another problem. When I use the import wizard for
a class that has multiple options (I used Date), I get a problem with
no function called make-dialog-box existing (stack trace
appended). This looks like the efc-xemacs.el isn't happy with my non-x
xemacs, but it's more than I know how to fix.
Cheers,
Len.
# bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error
debug-on-error)
make-dialog-box(general :parent #<tty-frame "emacs" 0x413d> :title "Classes name
dialog" :modal t :autosize t :spec #<glyph (buffer) #<image-specifier global=(... ...)
fallback=(...) 0x31816>0x31815>)
# bind (parent this)
efc-xemacs-option-dialog-show([object efc-xemacs-option-dialog "Classes name dialog"
"Classes name dialog" unbound unbound ("java.sql.Date" "java.util.Date") unbound
"Select import to insert." "java.sql.Date"])
# bind (this)
efc-xemacs-option-dialog([object efc-xemacs-option-dialog "Classes name dialog"
"Classes name dialog" unbound unbound ("java.sql.Date" "java.util.Date") unbound
"Select import to insert." "java.sql.Date"])
apply(efc-xemacs-option-dialog [object efc-xemacs-option-dialog "Classes name
dialog" "Classes name dialog" unbound unbound ("java.sql.Date" "java.util.Date")
unbound "Select import to insert." "java.sql.Date"])
# bind (scoped-class eieio-generic-call-key rval found newargs mclass lambdas
tlambdas keys eieio-generic-call-methodname eieio-generic-call-arglst args method)
eieio-generic-call(efc-dialog-show ([object efc-xemacs-option-dialog "Classes name
dialog" "Classes name dialog" unbound unbound ("java.sql.Date" "java.util.Date")
unbound "Select import to insert." "java.sql.Date"]))
# bind (local-args)
efc-dialog-show([object efc-xemacs-option-dialog "Classes name dialog" "Classes name
dialog" unbound unbound ("java.sql.Date" "java.util.Date") unbound "Select import to
insert." "java.sql.Date"])
# bind (dialog title prompt options)
efc-xemacs-query-options(("java.sql.Date" "java.util.Date") "Select import to
insert." "Classes name dialog")
# bind (title prompt options)
efc-query-options(("java.sql.Date" "java.util.Date") "Select import to insert."
"Classes name dialog")
# bind (new-imports)
jde-import-choose-import(("java.sql.Date" "java.util.Date"))
# bind (candidate-imports existing-imports new-imports)
jde-import-insert-import(("java.sql.Date" "java.util.Date"))
# bind (imports existing-import no-errors class)
#<compiled-function (class &optional no-errors) "...(51)" [no-errors class
existing-import imports nil jde-import-get-existing-import message "Skipping: already
imported %s" bsh-eval-r eieio-oref jde-bsh the-bsh
"jde.util.JdeUtilities.getQualifiedName(\"" "\");" remove-duplicates :test equal
jde-import-insert-import "Error: could not find %s."] 6
("/usr/local/java/jde/jde/lisp/jde-import.elc" . -7739) (list (read-from-minibuffer
"Class: " ...))>("Date")
call-interactively(jde-import-find-and-import)
# (condition-case ... . error)
# (catch top-level ...)
