image

ulis 2006-12-02. Un piqueur de couleurs coloré.


Pourquoi

Parce que les autres ne me plaisent pas.

(celui du Mac est pas mal)


Comment

En jonglant avec les coordonnées RGB et HSV des couleurs.


Usage

  package require ColourPecker
  colourPecker

Commande

  colourPecker ?color?

La commande retourne la référence d'un widget toplevel. La couleur se récupère par copier-coller.

Application autonome

Pour faire du package une application remplacer en fin de script

  if 0 \

par

  if 1 \

Configuration

Installation

Utilisation

ajouter la ligne suivante en début de script :

   package require ColourPecker

Script de configuration pkgIndex.tcl

  package ifneeded ColourPecker 1.0 [list source [file join $dir ColouredColourPecker.tcl]]

Demo

  wm withdraw .
  set pecker [colourPecker beige]
  wm protocol $pecker WM_DELETE_WINDOW { destroy $pecker; wm deiconify . }

Voir Aussi


Discussion

ulis Si quelqu'un veut savoir pourquoi j'ai choisi cette couleur de fond : c'est parce que c'est moins salissant.

D'ailleurs, avis aux petits malins :

  Concours pour tester ColouredColourPecker

  Retrouver les composants R G B de la couleur de fond en utilisant ColouredColourPecker
  (par l'interface, pas en décompilant le code)

Catégorie Paquet | Catégorie Interface utilisateur