---

Hallo Leute,
Ich möchte meinen Kollegen eine vereinfachte Druckersteuerung zur Verfügung stellen, jedoch wird bei untenstehendem Code mir die Drucker list_box nicht befüllt. Wenn ich das Programm starte ist die Listbox leer. Habe ich hier einen grundsätzlichen Fehler begangen. Die weiteren Zeilen wollen wir mal übersehen. Beim "DRUCKER" handel es sich um eine list_box und nicht um eine popup_list (nur falls da überhaupt ein Unterschied besteht). Der Befehl (dos_printers) funktioniert.

(setq liste (dos_printers))
  (START_LIST "DRUCKER")
  (MAPCAR 'ADD_LIST Liste)
  (END_LIST)
  (set_tile "DRUCKER" "0")
 
  (setq dcl_id (load_dialog (findfile "Plot.DCL")))
  (if (not (new_dialog "Plot" dcl_id))(exit))

  (action_tile "A4" "(setq Format $key)")
  (action_tile "A3" "(setq Format $key)")
  (action_tile "GRENZEN" "(setq Sicht $key)")
  (action_tile "ANSICHT" "(setq Sicht $key)")
  (action_tile "DRUCKER" "(setq Printer $key)")
  (action_tile "CTB" "(setq drucker1 (nth (atoi $value) liste))")
  (action_tile "cancel" "(done_dialog 0)")
  (action_tile "ok" "(done_dialog 1)")
  (action_tile "info" "(done_dialog 2)")

  (setq erg (START_DIALOG))
  (unload_dialog dcl_id)

Grüsse bu

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo bu,
hast Du überprüft, ob der key für die List_box auch in der DCL-Datei grossgeschrieben ist???

------------------
viele Grüße

Jörn

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Jörn, ja das hab ich. Das Komische ist dass wenn ich das in ein defun verpacke, dann

(defun start ()
  (setq liste (dos_printers))
  (START_LIST "DRUCKER")
  (MAPCAR 'ADD_LIST Liste)
  (END_LIST)
  (set_tile "DRUCKER" "0")
)
und
(action_tile "DRUCKER" (start))

wird die Liste befüllt. Jedoch bekomme ich dann kein Ergebnis zurück.

Gruss bu

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo bu,
ich glaube ich habe eben noch was anderes gesehen:
Du mußt erst die DCL-Datei laden, und dann die liste mit Add_list befüllen.

------------------
viele Grüße

Jörn

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Jörn,

du bist dir vermutlich nicht bewusst wie du mir deholfen hast. Das Problem war dass ich zuerst die Liste befüllt hab und dann die DCL geladen habe. Ich muss natürlich zuerst die DCL laden und kann dann die Liste befüllen.
Den 10er hast du dir verdient.

Gruss bu

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP