Topic: 'start_list' not working...Please help!

[MP]

Excellent.

Does it display the dialog per the start_dialog call (inside the and structure; inside the *dialog* function)?

[whdjr]

Yes.

[whdjr]

oops...no it does not.  It loads the dialog and flashes the dialog when the 'new_dialog' call is made, but the start_list nils out before the dialog is filled.

[MP]

Well ... my suggestion is o put this little snip (progn (alert "I'm here") t) within the and structure --

(and

    (progn (alert "I'm here") t)

    (setq id (load_dcl "att.DCL"))

    (start_list "atts")

    (mapcar 'add_list lst)

    (not (end_list))

    (action_tile "cancel" "(done_dialog 0)")
   
    ...

)

And keep moving it ahead, line by line until it stops displaying the alert.

[whdjr]

(and

    (setq id (load_dcl "att.DCL"))

    (progn (alert "I'm here") t)

    (start_list "atts")

    (mapcar 'add_list lst)

    (not (end_list))

    (action_tile "cancel" "(done_dialog 0)")
   
    ...

)

That was the last place it worked.

[Keith™]

You are not specifying your dialog box to use ... you MUST also use NEW_DIALOG to invoke the dialog to use.

Use this scenario:

Code: [Select]

(setq id (load_dcl "att.DCL"))
(new_dialog "attribute_edit" id)


[whdjr]

I already call 'new_dialog' here:

Code: [Select]

(defun load_dcl (name / dcl dcl_id)
    (while
      (if (minusp (setq dcl_id (load_dialog name)))
(setq dcl (getfiled "Select correct DCL file location: "
    dcl
    "dcl"
    (+ 8 128)
  )
)
(not (new_dialog "attribute_edit" dcl_id))
      )
    )
    dcl_id
  )
But I changed it and put it like this:

Code: [Select]

(defun load_dcl (name / dcl dcl_id)
    (while
      (if (minusp (setq dcl_id (load_dialog name)))
(setq dcl (getfiled "Select correct DCL file location: "
    dcl
    "dcl"
    (+ 8 128)
  )
)
;(not (new_dialog "attribute_edit" dcl_id))
      )
    )
    dcl_id
  )


<snippet>
         (setq id (load_dcl "att.DCL"))
(new_dialog "attribute_edit" id)
(start_list "atts")
<snippet>
But it still doesn't work.

[Kerry]

Will,
The Code you posted loads and displays without exception for me. Tested with AC2005 winXPpro.

[whdjr]

Yeah it worked for me this morning, but now it doesn't.  I don't know what changed to make it not work.

[Kerry]

Have you tried a System wide search for ANY file modified date stamped today. See if anything seems out of place ...

[whdjr]

I only worked on one other lisp file today and it didn't have anything to do with a dcl file.  I did not do a system wide scan though.

Well guys I appreciate your help today and look for some more tomorrow.  Right now I have to leave.  Maybe things will look brighter in the morning.

[Kerry]

Does this anomaly ONLY apply to this routine, or to ALL your DCL's ?

added :
Just for completeness, loaded and ran in AC2006 as well as 2005.

[MP]

I won't be able to look at this until 10pm tonight, but I certainly will try after that.

Hope this gets solved soon (my money is still on start_list, add_list etc. being redefined).

[Jeff_M]

(my money is still on start_list, add_list etc. being redefined).

Wouldn't something like this verify that?

Code: [Select]

_$ (type start_list)
SUBR
_$ (setq tmp start_list)
#<SUBR @0243c7e8 START_LIST>
_$ (setq start_list nil)
nil
_$ (type start_list)
nil
_$ (setq start_list 7)
7
_$ (type start_list)
INT
_$ (setq start_list tmp)
#<SUBR @0243c7e8 START_LIST>


[MP]

(type start_list) => SUBR

(defun start_list () (princ))

(type start_list) => SUBR