Voici un petit script qui permet de lancer l'exécution d'un source en langage Panoramic à partir de l'éditeur PsPad.
C'est du javascript à sauvegarder dans le répertoire PSPad Editor\script\JScript sous le nom ScriptPanoramic.js :
// Lancement d'un programme en langage panoramic . // Auteur : Nardo26 . // Constantes : module_name = "ScriptPanoramic"; module_ver = "1.0"; module_title="Panoramic"; menu_name = "Panoramic"; function Init() { addMenuItem("Run",menu_name,"RunPano","SHIFT+F9"); addMenuItem("Open script file",menu_name,"openScript"); } // Lancement du programme function RunPano() { var Source = newEditor(); sleep(100); try { // On déclare la source comme étant la fenêtre en cours d'édition Source.assignActiveEditor(); } catch(e) { echo("erreur pas de fenêtre ouverte !") return; } // on récupère son contenu puis on le stocke dans le presse-papier : setClipboardText(Source.Text()); var loader=modulePath()+"..Loader.exe" // puis on lance le petit utilitaire réalisé par cosmos70 new ActiveXObject("Shell.Application").ShellExecute(loader); } // Ouverture du script dans l'éditeur function openScript() { var obj1 = newEditor(); obj1.openFile(moduleFileName(module_name)); }
Ce script s'appuie sur une idée géniale de cosmos70, dont voici le source : (c'est tout bête, mais il fallait y penser !...)
' . ' Auteur : cosmos70 . ' . memo 1 : width 1,1000 : ' mettre large pour éviter les sauts de ligne clipboard_paste 1 : ' on récupère le contenu du presse-papier if count(1)>0 ' si la première ligne contient le mot "panoramic" if instr(upper$(item_read$(1,1)),"PANORAMIC")>0 file_save 1,"c:\Temp\panoramic.bas" : ' on sauvegarde le contenu chain "c:\Temp\panoramic.bas" : ' puis on exécute... end_if end_if end
Compilez le source panoramic en Loader.exe, mettez l'exécutable dans le répertoire PSPad Editor\script puis il ne reste plus qu'à compiler le script java dans PsPad et de définir un raccourci-clavier et le tour est joué !
Un nouveau sous-menu apparait dans 'Script' :