Creation: 5 juin 2016
Mise à jour:
Version: 1.0
Author: Jean-Louis Bicquelet-Salaün
Location: http://jlbicquelet.free.fr
Copyright: (c) 2016 Jean-Louis BICQUELET-SALAÜN

---

présentation

J'aime bien le launcher exego qui regroupe sous forme de grilles les applications que l'on désire lancer et les répertoires que l'on désire atteindre.

Je me suis donc écrit un petit lanceur d'application modulable en tcltk reprenant ce principe.

En voici un screenshot:

Ce qui suit correspond aux explications vous permettant de l'adapter à vos besoin.

organisation générale

On utilise une grille nommée grid dont la dimension est déterminé par le plus grand numéro de colonne et le plus grand numéro de ligne.

Ici c'est le bouton exit que j'ai placé en bas à droite.

grid .exit -row 11 -column 9

On place dans cette grille les applications que l'on veut lancer ou les répertoires que l'on désire attendre pas colonnes.

J'ai réservé une colonne pour les répertoires favoris et un pour les disques que l'on désire afficher.

Les autres colonnes sont regroupées par type d'application.

répertoire utilisés

Les répertoires où sont localisées les applications sont stockés dans une variabe dont le nom se termine par _DIR.

set OPT_DIR {C:\\opt}
set INTERNET_DIR {C:\\opt\\internet}

Les couleurs des boutons sont différentes selon leurs fonctions (accés à un répertoire, accès à un disque, à une application ...).

Leur nom se termine par _COLOR.

set CD_COLOR #44C4C4
set ORD_COLOR #9999E0 
set BUTTON_COLOR #444444

définition d'une colonne

Une colonne se défini en créant une liste de bouton au sein d'un tableau. Pour faciliter la création on fixe avec une variable ce nombre de bouton.

exemple:

#---------------------------------------------
button .ord(1) -text "C:" -bd 1 -background $ORD_COLOR -command { exec explorer C:\\  &} -width $SIZE
button .ord(2) -text "D:" -bd 1 -background $ORD_COLOR -command { exec explorer D:\\  &} -width $SIZE
button .ord(3) -text "F:" -bd 1 -background $ORD_COLOR -command { exec explorer F:\\  &} -width $SIZE
button .ord(4) -text "G:" -bd 1 -background $ORD_COLOR -command { exec explorer G:\\  &} -width $SIZE
set ORD_MAX 4

Une simple boucle ajoute ces boutons:

#---------------------------------------------
# colonne 5
#---------------------------------------------
for {set i 1} {$i <= $ORD_MAX} {incr i} {  grid .ord($i) -row $i -column 5 }

type d'actions possibles

lancement d'une application

Le lancement d'une application s'effectue grace à la commande tcl exec. On utilise le chemin absolu.

Il faut faire attention à utiliser la syntaxe \\ pour que le nom du disque soit reconnu et le & pour que l'exécution se fasse en tâche de fond et ne bloque pas le menu.

On pourrait tout aussi bien utiliser un chemin relatif où même regrouper les applications en un même endroit.

-command { exec "C:\\Program Files (x86)\\Google\\Chrome\\Application\\chrome.exe"  &} 

accès à un lecteur réseau ou à un répertoire

L'accès à un disque se fait par l'intermédiaire de l'explorateur windows. Il faudrait bien sur l'adapter dans le cas d'un serveur linux.

Il faut faire attention à utiliser la syntaxe \\ pour que le nom du disque soit reconnu et le & pour que l'exécution se fasse en tâche de fond et ne bloque pas le menu.

C'est la même chose si l'on désire créer un raccourci vers un répertoire.

-command { exec explorer C:\\  &}
-command { exec explorer C:\\usr  &}

téléchargement

Ce script est sous licence GNU v2.

Description	date	script
lanceur d'application sous forme de grille	05/06/2016	tkmenu