bir lisp denemesi

[orhunkeskinbicak]

(defun c:kutlama ()
(setq ff "kut.dcl")
(setq fff (open ff "a"))

(write-line "kut : dialog {
label = \"kutlama\";
: boxed_row {
: text {
label = \"!!Atatürkü anma Gençlik ve Spor Bayramınız Kutlu Olsun!!\";}}
: row {
: spacer { width = 1; }
: button {

label = \"&Tamam\";
key = \"accept\";
fixed_width = true;
}
: button {
label = \"&İptal\";
is_cancel = true;
key = \"cancel\";
fixed_width = true;
}


: spacer { width = 1;}
}} " fff)

(close fff)

(setq dcl_id (load_dialog "kut.dcl"))
(if (not (new_dialog "kut" dcl_id))
(exit)
)
(action_tile
"cancel"
"(done_dialog)"
)
(action_tile
"accept"
"(done_dialog)"
)
(start_dialog)
(unload_dialog dcl_id)
(princ "\nAtatürkü anma Gençlik ve Spor Bayramınız Kutlu Olsun")(princ))