Programme LISP copie/colle éléments calques et modifications

[greg1922]

Je plante tout pareil, même après avoir mis des (done_dialog) avant le début de chaque commandes :

 

; Une fois toutes vérifications faites, on peut affecter les commandes aux boutons
   (action_tile "copier" "(done_dialog)(copieselection)") ;lance la fonction copier
   (action_tile "couper" "(done_dialog)(couperselection)") ;lance la fonction couper
   (action_tile "cancel" "(done_dialog)")  ;annuler

   (unload_dialog dcl_id) ;décharge la boite de dialogue une fois terminé

 

Je vous glisse au passage mon fichier dcl :

 

select : dialog {

label = "Sélection des surcharges";

: column { 
 label = "Voulez vous copier ou couper la sélection?";
 alignment = centered;
 height = 1;
 aspect_ratio = 2;
 

: boxed_row {  
 : button {  
   key = "copier";  
   label = "Copier";
   mnemonic = "i";
   alignment = centered;
   width = 5;
   is_default = true;  

          }

 : button {  
   key = "couper";  
   label = "Couper";
   mnemonic = "C";
   alignment = centered;
   width = 5;
   is_default = true;
  
          }
            }

: row { 
 : button {    
   key = "cancel";
   label = "Annuler";
   mnemonic = "A";
   alignment = centered;
   width = 15;
   is_cancel = true;
   fixed_width = true;

          }

     }
       }
	}

[Patrick_35]

Je verrai cela plus dans ce style

; Une fois toutes vérifications faites, on peut affecter les commandes aux boutons
   (action_tile "copier" "(done_dialog 1)") ;lance la fonction copier
   (action_tile "couper" "(done_dialog 2)") ;lance la fonction couper
   (action_tile "cancel" "(done_dialog 0)")  ;annuler
   (setq res (start_dialog))
   (cond
     ((= res 1)
(copieselection)
     )
     ((= res 2)
(couperselection)
     )
   )
   (unload_dialog dcl_id) ;décharge la boite de dialogue une fois terminé

 

@+

[greg1922]

merci beaucoup, ça marche B)

[greg1922]

...