Lisp-file and odcl-file copied, lists in dialogue do not appear

[tedicad]

Dear friends,

this may be a very basic and very stupid question, however I am stuck since I don't user opendcl on a daily basis.

Problem: I copied a working set of lips files plus the related odcl-files to a new project. Having modified both set of files (variable names, file names etc.), launching the function is no problem, the dialogue appears, but... no content, i.e. all the list values in the fields are missing. I have assigned the new lisp file to the odcl dialogue, but nothing happens.

What am I missing?

Thanks a lot in advance, Holger

Here is the code:


;Dialoge for s:211

(defun s211_015_dialog ()


(setq s211Antrieb '("Motor Front"
          "Motor Seite"
          "Manuell")
      s211Glastyp '("ESG/VSG 5-16-8.2"
          "ESG/VSG 6-16-8.2"
          "ESG/VSG 8-16-12.2"
                    "ESG/ESG/VSG 5-10-5-10-8.2"
          "ESG/ESG/VSG 8-10-5-10-12.2")
      s211EDMat '("Kupfer 0.55"
                  "Kupfer 0.60"
                  "Titan-Zink blank"
                  "CrNiStahl blank"
                  "CrNiStahl matt")
      s211Strg '("Basic"
       "Basic Funk"
                 "Arexa"
                 "WS1 / WS1000"
                 "WS1 / WS1000 Funk")
      s211BSTyp '("OHNE Beschattung"
        "Beschattung innen"
        "Beschattung aussen")
      s211Sprache '("Deutsch"
          "Französisch"
          "Italienisch"
          "Englisch")
      )

;preset the variables
  (setq Val_RIM-H 0)
   

 
  (command "_OPENDCL")
  (dcl_Project_Load "s211N" T)
  (dcl_Form_Show s211N_Form1)


(defun c:s211N_Form1_OnInitialize (/)
  (dcl_ListBox_AddList s211N_Form1_Antriebsliste s211Antrieb)
  (dcl_ListBox_AddList s211N_Form1_GlasTyp s211Glastyp)
  (dcl_ListBox_AddList s211N_Form1_ListBoxBS_Typ s211BSTyp)
  (dcl_ListBox_AddList s211N_Form1_ListBoxEindeckrahmen s211EDMat)
  (dcl_ListBox_AddList s211N_Form1_ListBoxSteuerung s211Strg)
  (dcl_ListBox_AddList s211N_Form1_ListBoxSprache s211Sprache)
)
 

; call the method to show the s:203 dialog box
;;;(dcl_Form_Show s211N_Form1)

(defun c:s211N_Form1_OK_Button_OnClicked (/)

  (setq Val_RIM-B (atof (dcl_Control_GetText s211N_Form1_RIM-B)))
  (setq Val_RIM-H (atof (dcl_Control_GetText s211N_Form1_RIM-H)))
  (setq Val_Antrieb (dcl_ListBox_GetSelectedItems s211N_Form1_Antrieb))
  (setq Val_GlasTyp (dcl_ListBox_GetSelectedItems s211N_Form1_GlasTyp))
  (setq Val_Anzahl (atof (dcl_Control_GetText s211N_Form1_TextBoxAnzahl)))
  (setq Val_Auftrag (dcl_Control_GetText s211N_Form1_TextBoxAuftrag))
  (setq Val_Position (dcl_Control_GetText s211N_Form1_TextBoxPosition))
  (setq Val_Objekt (dcl_Control_GetText s211N_Form1_TextBoxObjekt))
  (setq Val_Kunde (dcl_Control_GetText s211N_Form1_TextBoxKunde))
  (setq Val_MatED (dcl_ListBox_GetSelectedItems s211N_Form1_ListBoxEindeckrahmen))
  (setq Val_Strg (dcl_ListBox_GetSelectedItems s211N_Form1_ListBoxSteuerung))
  (setq Val_BSTyp (dcl_ListBox_GetSelectedItems s211N_Form1_ListBoxBS_Typ))
  (setq Val_Plan (dcl_Control_GetText s211N_Form1_TextBoxPlan))
  (setq Val_Sprache (dcl_ListBox_GetSelectedItems s211N_Form1_ListBoxSprache))


;Umwandlung der Abfragewerte in der Liste in reale Masse
;-------------------------------------------------------

;;;  (setq Val_RIM-H (atof (car Val_RIM-H)))
;;;  (setq Val_AnzahlMittelAchsen (atof (car Val_AnzahlMittelAchsen)))


  (dcl_Form_Close s211N_Form1)

[owenwengerd]

You probably changed the .odcl filename, which changed the project key, which changed the symbol names for the form controls. Just resynchronize your names, either by changing the lisp code to match the .odcl file, or by changing the .odcl file to match the lisp code.