hi !
ich habe immer ein tool für das upate von pull-down-menü's verwendet, dass anscheinend unter der aktuellen version mit seinen cui-dateien nicht mehr richtig funktioniert (siehe unten).
weiß einer von euch wie ein entsprechender alternativ befehl lautet ??
_-cui, _-menulad und sonstige varianten habe ich schon ausprobiert und bin nicht erfolgreich gewesen !
gruß jan :-)
------- hier der code ----------------
Code:
(defun MNU_UPDATE (*MNU_UPDATE$MGROUP* ;Name der Menügruppe
*MNU_UPDATE$POP* ;Liste der zu integrierenden Pull-Down-Menü´s
/ pop_name
n
)
(modes ;speichern der Systemvariablen
'("CMDECHO" "FILEDIA")
)
(setvar "cmdecho" 0) ;Bildschirmprotokoll ausschalten
(setvar "FILEDIA" 0) (princ (strcat "\n\n** " *MNU_UPDATE$MGROUP* " - Update **")
)
(command "_.MENUUNLOAD" *MNU_UPDATE$MGROUP*)
(princ
(strcat "\nMenü <" *MNU_UPDATE$MGROUP* "> entfernt !")
)
(princ "\nInstalliere Update !")
(command "_.MENULOAD" (strcat *MNU_UPDATE$MGROUP* ".MNU"))
(foreach pop_name *MNU_UPDATE$POP*
(if (menugroup *MNU_UPDATE$MGROUP*)
(progn
(setq n 1)
(while (< n 24)
(if (menucmd (strcat "P" (itoa n) ".1=?"))
(setq n (+ n 1))
(progn
(if (> n 3)
(setq n (- n 2))
(setq n 3)
) ;endif
(menucmd
(strcat "p"
(itoa n)
"=+" *MNU_UPDATE$MGROUP* "." pop_name
);end-strcat
);end-menucmd
(setq n 25)
) ;end-progn
) ;endif - menucmd
) ;end-while
) ;end-progn
) ;endif
) ;end-foreach
(PRINC (strcat *MNU_UPDATE$MGROUP* "-Menü aktualisiert !\n"))
(moder)
(princ)
)
------------------
jan :-)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP