String from GETCFG to List for new_dialog - Possible?

[scot-65]

Due to possible R/W permission issues at the user level, I would like to store

a dialog position value using SETCFG.

Initially this will be set to '(-1 -1).

Using GETCFG, the value returned is a string and new_dialog will only accept a list.

How to convert this String "'(-1 -1)" to a List '(-1 -1)?

Thanks in advance.

[hmsilva]

---

@scot-65 wrote:

How to convert this String "'(-1 -1)" to a List '(-1 -1)?

---

Hi Scot,

something like this, perhaps

_$ (cadr (read "'(-1 -1)"))
(-1 -1)

Hope this helps,
Henrique

[scot-65]

Thank You my friend, it helped.

I also had issue going the other way - recording to, and was able to resolve.

For future searches (and possible Kudos), here are the related parts:

;set a gremlin (session variable) from a call to getcfg so
;as not having to read the configuration file every time.
;place before the call to new_dialog:

 (if (not USER_LCVD) ;dialog position
  (if (setq a (getcfg "AppData/LCVD"))
   (setq USER_LCVD (cadr (read a)))
   (setq USER_LCVD '(-1 -1))
  );if
 );if

;this snippet will work for both single and
;repeating dialog boxes:

(new_dialog "LayConv" dcl_id "" USER_LCVD)

;record the position of the dialog into the gremlin:

 (action_tile "accept" "(LCV_GET)(setq USER_LCVD (done_dialog 1))")

;and finally, record the gremlin to the configuration file
;(this is set up for a looping dialog):

 (unload_dialog dcl_id)(setq dcl_id nil)
 (setcfg "AppData/LCVD" (vl-princ-to-string USER_LCVD))

Thanks again, Henrique.

[hmsilva]

You're welcome, Scot.
Glad I could help

Henrique