Home  |  Map  |  Index  |  Zoek

Convert to GutenPalm or to PalmDoc door Charles Vidal <charles_vidal(at)bigfoot.com> Over de auteur: Baas van een gastronomisch tentje in Parijs. Gecharmeerd door GNU en de filosofie van Open Source omdat ze mensen kennis laten delen. Hij zou wat meer tijd aan zijn saxofoon willen besteden. Vertaald naar het Nederlands door: Tom Uijldert <tom.uijldert(at)cmgplc.com> Inhoud: Tk, de grafische hulpmiddelen voor Tcl: WISH Hello world ! Het creëren van een grafisch object in Tk De boomstructuur van het grafische object Het aanmaken van grafische objecten: "Hello world" Opmaak: Plaatsen van widgets Variabelen aan grafische objecten koppelen Opmaakmethode Een overzicht van gecreëerde widgets Events Een klein voorbeeld Bronnen Talkback voor dit artikel

Tk. Een introductie.

Kort:

Dit artikel gaat in op de grafische hulpmiddelen van Tcl, te weten: Tk. We zullen demonstreren hoe eenvoudig het is een grafische toepassing hiermee in elkaar te zetten, met gebruikmaking van slechts enkele regels code.

 

Tk, de grafische hulpmiddelen voor Tcl: WISH

Tk is een grafische omgeving, geschikt voor meerdere machines maar met hetzelfde uiterlijk als het lokale operating systeem. Een ideale combinatie met Tcl, dat ook geschikt is voor meerdere machines. Groot voordeel van Tcl/Tk is de eenvoud. Het duo stelt je in staat snel applicaties te maken die je op meerdere omgevingen in kunt zetten. Net zoals er een tclsh is voor Tcl is er een wish voor Tk.  

Hello world !

pack [ label .l -text "Bonjour monde" ]

#include <gtk/gtk.h>
Int main( int   argc,
          char *argv[] )
{
   /* GtkWidget is the storage type for widgets */
    GtkWidget *window;
    GtkWidget *button;

    gtk_init(&&argc, &&argv);
   /* create a new window */
    window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
    button = gtk_button_new_with_label ("Bonjour Monde");
    gtk_container_add (GTK_CONTAINER (window), button);
    gtk_widget_show (button);

    /* and the window */
    gtk_widget_show (window);
    gtk_main ();

    return(0);
}

/* COMPILE  cc xmhello.c -L/usr/X11R6/lib  -lXm -lXt -lX11 -lXmu -o xmhello */

#include <Xm/PushB.h>
#include <Xm/Form.h>

/* Widget */

	Widget      main_widget, pushb;

main(int argc, char **argv)
{
	Widget      form;
	Arg         args[1];
	int         ac = 0;
	XmString    label_str;

	main_widget = XtInitialize(argv[0], "test", NULL, 0, &&argc, argv);
	label_str = XmStringCreate("Bonjour Monde", XmSTRING_DEFAULT_CHARSET);
	XtSetArg(args[ac], XmNlabelString, label_str);
	ac++;
	pushb = XmCreatePushButton(main_widget, "hello", args, ac);
	XtManageChild(pushb);
	XtRealizeWidget(main_widget);
	XtMainLoop();
}

• C
• C++
• Python ( Tkinter )
• Perl
• Eiffel
• Ada
• Modula-3
• caml
• ...Voor meer informatie

Het creëren van een grafisch object in Tk

• labels : label
• knoppen : button
• afvink-knoppen : checkbutton
• radio knoppen : radiobutton
• menu's : menubutton
• menu keuzen : command, radio, check, cascade
• scrollbar : scrollbar
• tekst : text
• invoer : entry
  
• canvas : canvas
  
• omlijsting : frame
• lijst : listbox
• schaal : scale
• Verschillende dialoogvensters zoals fileselection box (om bestanden te kiezen), warning dialog (geeft een boodschap met een OK knop) enz.

Het aantal grafische objecten is beperkt (er zijn geen tree widgets, combo boxes enz.). Een aantal personen en bedrijven echter hebben waardevolle uitbreidingen hierop uitgebracht. De meest bekende hiervan is Tix, de widgets Incr Tcl en meest recentelijk het mooie BWidget. Al deze uitbreidingen zijn te verkrijgen bij scriptics.  

De boomstructuur van het grafische object

• De . voor de start van de boom (wortel of root).
• .(naam_dumpplaats)*naam_ grafisch_object

Het aanmaken van grafische objecten: "Hello world"

Voorbeeld: label .mylabel -text "hello world"

Zoals je kunt zien wordt de actie geïnitieerd door de naam op te geven van het object dat moet worden gecreëerd, hier .label genaamd, vervolgens de naam van de dumpplaats, waarvan . het root-venster is en op het eind geef je de karakteristieken (-text "hello world"). Merk op dat je op ieder moment de argumenten en dus de karakteristieken van het object na het aanmaken kunt veranderen.

• Om karakteristieken van het object op te vragen gebruiken we het commando cget (voor Configuration get).
  Voorbeeld:

  .mylabel cget text hello world
  

• Om een karakteristiek te veranderen gebruiken we het commando configure. Het commando retourneert de naam van het gecreëerde object, in dit geval .mylabel.
  Voorbeeld:

  .mylabel configure -text "Bonjour Monde in french :)"
  

.mylabel configure -text "Dit is de datum [ exec date ]"

Opmaak: Plaatsen van widgets

Inderdaad, je hebt net een object aangemaakt van het label-type maar je hebt niet gevraagd om het ook weer te geven. Dat is omdat voor het weergeven nog meer informatie nodig is die je niet hebt gegeven, namelijk de opmaak (de opmaak bepaalt het plaatsen of positioneren van vensters) die voor dit object geldt.

Hier de mogelijke opmaken:

1. De packer
2. De placer
3. De grid

Een meer volledig hello world programma

label .mylabel -text "hello world"
pack .mylabel

pack [label .mylabel -text "hello world"]

button .mybutton -text "hello world" -command "exit"
pack  .mybutton

Variabelen aan grafische objecten koppelen

Voorbeeld

De checkbuttons en radiobuttons

1. Een checkbutton vertegenwoordigt een bepaalde toestand.
   Dit is een binaire (booleaanse) toestand (aan of uit). We kunnen hieraan een variabele koppelen die standaard de waarde 0 heeft of 1, in overeenstemming met de toestand van de checkbutton. We kunnen de waarde van de variabele ook definiëren, afhankelijk van de toestand van de checkbutton.
   Voorbeeld:

   checkbutton $w.b1 -text "Wipers OK" -variable wipers -relief flat  -onvalue "Ok" -offvalue "not Ok"
   

2. Een radiobutton duid op de toestand van meerdere buttons (een set buttons.)
   Radiobuttons zijn meestal gegroepeerd, waardoor je slechts één button van de set kunt kiezen. Voor dit groeperen moet je dezelfde variabele aan meerdere buttons koppelen en de waarde van de variabele bepalen wanneer de betreffende button wordt geselecteerd.
   Voorbeeld:

   radiobutton .b1 -text "Een " -variable size -value 1
   radiobutton .b2 -text "Twee " -variable size  -value 2
   

entry .e  -textvariable toto  -width 40

Opmaakmethode

1. De packer. Positioneert het object vanaf een oriëntatiepunt:
   1. top (boven)
   2. bottom (onder)
   3. right (rechts)
   4. left (links)
   Voorbeeld:

   pack [ button .b1 -text top ] -side top pack [ button .b2 -text bottom ] -side bottom pack [ button .b3 -text right ] -side right pack [ button .b4 -text right ] -side left

   We kunnen ook de manier van vergroten van het widget van binnenuit bepalen met de optie: -expand (yes|no) -fill (x|y|both)
2. De placer. Deze plaatst het object op de opgegeven x y positie.

   Voorbeeld: place [ label .l -text "Avec Place"] -x 100 -y 100 .l configure -bg red

   
3. De grid plaatst widgets op een virtueel rooster bestaande uit rijen en kolommen. Het is de ideale opmaak voor listboxes en meerregelige editboxes. De syntaxis hiervoor: creëer eerst de widgets, bijvoorbeeld .e_name en geef deze vervolgens weer met:
   
label .mainlbl2 -text "Label 2" -bd 2 -relief sunken
grid .mainlbl2 -row 0 -column 1 -sticky news
label .mainlbl1 -text "Label 1" -bd 2 -relief raised
grid .mainlbl1 -row 0 -column 0 -sticky news
label .mainlbl3 -text "Label 3" -bd 2 -relief solid
grid .mainlbl3 -row 1 -column 0
label .mainlbl4 -text "Label 4" -bd 2 -relief groove
grid .mainlbl4 -row 1 -column 1


Een overzicht van gecreëerde widgets

winfo exists name_object

winfo children .

Events

bind naam_widget naam_event tcl_code.

Een klein voorbeeld

1. We bouwen de grafische afhandeling (proc makegui)
2. We voeren alle paden van het widget in in een hash-tabel tabgui
3. We onderzoeken het aantal meegegeven argumenten. Als dit nul is dan stopt het programma.
4. We openen de handle vanuit een pipe met het programma tar -tzvf naam_tar_bestand.
5. We voegen iedere regel die we uit de pipe lezen toe aan de lijst.

bind all <Control-c> {destroy .}

#!/bin/sh
# the next line restarts using wish \
exec wish8.0 "$0" "$@"

global tabgui

proc makegui { } {
global tabgui
#
# Creation of the  scrollbars for the list
# then the horizontal scrollbar is placed right, filling up horizontally the window
# and the vertical scrollbaris placed below, filling up vertically the window
#
set tabgui(scrollv) [scrollbar .scrollv -command ".list yview"]
pack $tabgui(scrollv) -side right -fill y
set tabgui(scrollh) [scrollbar .scrollh -command ".list xview" -orient horizontal ]
pack $tabgui(scrollh) -side bottom -fill x
#
# Creation of the list associating it to the scrollbar
#
#
set tabgui(list) [listbox .list  \
                -yscroll "$tabgui(scrollv) set" \
                -xscroll "$tabgui(scrollh) set" \
                -relief sunken -width 20 -height 20 \
        -setgrid yes ]
pack $tabgui(list) -side left -fill both -expand yes
wm minsize . 1 1
}

#
# Creation of the GUI
#
makegui

if $argc>0 {set tarfile [lindex $argv 0]} else {puts stderr "tar file missing" ; exit}
set command "tar -tzvf $tarfile"
set tube [ open |$command r]
 while {![eof $tube]} {
    set tarresult  [ gets $tube ]
    $tabgui(list)  insert end $tarresult
}

bind all <Control-c> {destroy .}

Bronnen

• Een goede beginnershandleiding (in het Frans)
• Unifix online en de B Widget
• Scriptics

Talkback voor dit artikel

2002-06-08, generated by lfparser version 2.28