Path: eternal-september.org!news.eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.gegeweb.eu!gegeweb.org!news.alphanet.ch!alphanet.ch!.POSTED.aannecy-652-1-11-48.w86-209.abo.wanadoo.fr!josephb
From: josephb@nowhere.invalid (Joseph-B)
Newsgroups: fr.comp.sys.mac.programmation
Subject: Re: SignAuPif 1.0.2
Date: Tue, 15 Feb 2022 19:35:12 +0100
Organization: Aucune
Sender: joseph25b@aannecy-652-1-11-48.w86-209.abo.wanadoo.fr
Message-ID: <1pnfmhn.1ivwnx41ilwvm6N%josephb@nowhere.invalid>
References: <sudomp$40e$1@shakotay.alphanet.ch> <1pndpse.atg1z4rzoqh0N%josephb@nowhere.invalid> <sugbib$gke$1@shakotay.alphanet.ch> <sugl1n$ta2$1@shakotay.alphanet.ch>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
Injection-Info: shakotay.alphanet.ch; posting-host="aannecy-652-1-11-48.w86-209.abo.wanadoo.fr:86.209.24.48";
	logging-data="30796"; mail-complaints-to="usenet@alphanet.ch"
User-Agent: MacSOUP/F-2.8.4 (6da4d6e6d0) (Mac OS X version 10.11.6 (x86))
X-NO-ARCHIVE: YES

"Benoît L." <benoit@com.invalid> wrote:

> Par contre j'ai ajouté ça :
> if buttonName is "Quitter" then exit repeat

Si ça peut te fare plaisir, mais ça ne sert strictement àrien :
à la microseconde où le /Cancel button/ est activé, la suite du script
n'est même pas lu, un message d'interruption est envoyé avec ordre
d'arrêter l'exécution du code qui l'a émis.
> 
> Et là on quitte proprement, pas avec le cancel proposé par défaut.

L'erreur Système -128 (Cancel de l'utilisateur) est gérée très
proprement par le système, ce n'est pas une sortie en force, c'est une
interruption.

Pour preuve, fais le test suivant : au lieu du "exit repeat " mets ceci

if buttonName is "Quitter" then beep

jamais tu n'entendras le Beep d'alerte Système parce que l'ordre
d'interruption sera passé avant que la commande Beep soit envoyée, et
dans tous les cas tu liras dans le débogueur

Résultat :
error "Annulé par l'utilisateur." number -128 from «script "Dialog
Toolkit Plus"» to item

Toutefois il est possible d'intercepter le Cancel et empêcher d'arrêter
pour faire autre chose, mais ce n'est vraiment pas utile ici.

Bien sûr si on nomme un bouton quelconque "Quitter" qui n'est pas un
vrai /Cancel button/ dans une boucle repeat, ton ajout sera
indispensable.
-- 
J. B.