Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-09-18 17:10:55 +02:00
Code Issues Releases Wiki Activity

Nyquist plug-in installer tweaks

Browse Source
This commit is contained in:
Steve Daulton 2019-04-11 15:00:58 +01:00
parent afde1a8e91
commit 0ced210801
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
plug-ins/nyquist-plug-in-installer.ny
View File

@ -3,7 +3,7 @@ $version 4
$type tool $type tool
$name (_ "Nyquist Plug-in Installer") $name (_ "Nyquist Plug-in Installer")
$manpage "Nyquist_Plug-in_Installer" $manpage "Nyquist_Plug-in_Installer"
;$debugbutton false $debugbutton false
$preview disabled $preview disabled
$author "Steve Daulton" $author "Steve Daulton"
$release 2.3.1 $release 2.3.1
@ -17,7 +17,8 @@ $copyright (_ "Released under terms of the GNU General Public License version 2"
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control plug-in (_ "Select plug-in file") file (_ "File Browser") "~/Desktop/" "Plug-in|*.ny;*.NY|Text file|*.txt;*.TXT|All files|*.*;*" "open,exists" ;i18n-hint: "Browse..." is text on a button that launches a file browser.
$control plug-in (_ "Select plug-in file") file (_ "Browse...") "~/Desktop/" "Plug-in|*.ny;*.NY|Text file|*.txt;*.TXT|All files|*.*;*" "open,exists"
;; As this plug-in is intended primarily to help novice users, it is unsafe to allow overwriting. ;; As this plug-in is intended primarily to help novice users, it is unsafe to allow overwriting.
;$control overwrite (_ "If plug-in is already installed") choice ((_ "Keep original") (_ "Overwrite")) 0 ;$control overwrite (_ "If plug-in is already installed") choice ((_ "Keep original") (_ "Overwrite")) 0
@ -130,7 +131,7 @@ $control plug-in (_ "Select plug-in file") file (_ "File Browser") "~/Desktop/"
(format nil (_ "Error.~%~s cannot be written.~%") out-fname)) (format nil (_ "Error.~%~s cannot be written.~%") out-fname))
(t (t
(copy-file fname out-fname) (copy-file fname out-fname)
(format nil (_ "~s installed to:~%~s~%~%~ (format nil (_ "~s installed to:~%\"~a\"~%~%~
Use the Plug-in Manager to enable the effect.") Use the Plug-in Manager to enable the effect.")
short-name out-fname)))))) short-name out-fname))))))