by Charles Vidal Yazar hakk�nda: Paris'teki bir gastronomic lug'�n ba�kan�. GNU ve a��k kod felsefesini seviyor ��nk� ikiside insanlar�n bilgiyi payla�mas�na izin veriyor. Saksafonunu �almak i�in daha �ok zaman bulmak istiyor. ��erik: Tk, Tcl i�in grafik ara�lar� :WISH Merhaba D�nya ! Tk grafiksel nesne olu�turma Arabirimdeki grafiksel nesnenin a�a� yap�s� Grafiksel nesnelerin olu�turulmas�: "merhaba d�nya" Layoutlar: Widget konumlar� y�neticisi. Grafiksel nesnelerin ve de�i�kenlerin ili�kilendirilmesi. Layout y�neticisi Olu�turulan widgetlar�n listesi Olaylar K���k bir �rnek Kaynaklar Bu makale i�in kar��l�k formu

Tk'e giri�

�eviri : Osman Solako�lu

�zet:

Bu makale Tck grafik ara�lar�n�n �zelliklerini tan�t�r: Tk. Birka� sat�rl�k kodla bir aray�z (GUI: Graphical User Interface) yapman�n ne kadar kolay oldu�unu g�rece�iz.

Tk, Tcl i�in grafik ara�lar� :WISH

Tk, Tcl diline grafik ara�lar� sa�lamak i�in yap�lm��t�r. Biz genellikle buna Tcl/Tk deriz (Tikel/Tikey diye okunur).

Tk, kulland���m�z i�letim sisteminin g�r�n���nde bir �ok platformlu grafik ara�lar� program� olarak tasarlanm��t�r. �ok platformlu olan Tcl diline tam olarak entegre olur. Tcl/Tk'in en b�y�k avantaj� basitli�idir. Bu ikili, h�zl�ca, ta��nabilen uygulamalar yapman�z� sa�lar. Tcl i�in tclsh'�n olmas� gibi, Tk i�in de wish vard�r.

Merhaba D�nya !

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

#include <gtk/gtk.h>
Int main( int   argc,
          char *argv[] )
{
   /* GtkWidget widgetlar i�in depolama t�r�d�r */
    GtkWidget *window;
    GtkWidget *button;

    gtk_init(&&argc, &&argv);
   /* yeni bir pencere olu�tur */
    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);

    /* ve pencere */
    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
• ...Daha fazla bilgi i�in

Tk grafiksel nesne olu�turulmas�

• etiketler : label
• butonlar : button
• check buttons: checkbutton
• radio buttons  : radiobutton
• men�ler : menubutton
• men� se�enekleri : command, radio, check, cascade
• kayd�rma �ubuklar� : scrollbar
• metin : text
• giri�  : entry
  
• canvas : canvas
  
• �er�eve : frame
• liste kutucuklar�  : listbox
• scale  :scale
• �e�itli diyalog kutucuklar� ( dosya se�me kutucu�u, uyar� diyalo�u vb.. )

Mevcut t�m widgetlar�n bir g�sterisini izlemek i�in, /usr/local/lib/tk8.0/demos/ dizinine gidin ve widget'� �al��t�r�n.

Bu grafiksel nesneler tak�m� s�n�rland�r�lm��t�r (a�a� widget�,combobox ....). Bununla birlikte, baz� ki�iler veya kurulu�lar baz� de�erli ilaveler yapm��lard�r.En �nl�s� : Tix the widgets Incr Tcl ve son zamanlarda m�thi� BWidget, t�m ilaveler scriptics y�resinden elde eilebilir.

Arabirimdeki grafiksel nesnenin a�a� yap�s�

• k�k i�in .
• .(isim_ta��y�c�s�.)*grafiksel_nesnenin_ad�

Grafiksel nesnelerin olu�turulmas�: "merhaba d�nya"

G�rd���n�z gibi i�leyi�, �nce grafiksel nesnenin ad�n� vermekle, burda .label, sonra ta��y�c�n�n ad�n� vermekle ( . ana penceredir) ve en sonunda �zelliklerin tan�mlanmas�yla (-text " merhaba d�nya ") ger�ekle�ir. Burda, grafiksel nesnenin olu�turulmas�ndan sonra parametrelere ula�man�n ve onlar� de�i�tirmenin m�mk�n oldu�u dikkatimizi �ekmeli.

• Grafiksel nesnenin �zelliklerine ula�mak i�in, cget komutunu kullan�r�z (get'i Ayarlamak i�in).
  �rnek:

  .mylabel cget text merhaba d�nya
  

• Ayarlar� de�i�tirmek i�in, configure komutunu kullan�r�z. Bu komut olu�turulmu� olan nesnenin ad�n�n geri d�nmesini sa�lar, burada .mylabel
  �rnek:

  .mylabel configure -text "Bonjour Monde Frans�zca :)"
  

.mylabel configure -text " Tarih: [exec date ]"

Layout: Widget konumlar� y�neticisi.

Asl�nda etiket tipinde bir nesne olu�turdunuz ama bunun ekranda g�r�nmesini istemediniz. B�yle oldu ��nk� nesnenin ekranda g�r�nmesi i�in baz� bilgiler gerekiyor ve siz bunu daha sa�lamad�n�z. Bu gereken bilgi; nesnenin hangi layout'a (layout pencereleri konumland�rmaya yarayan bir y�neticidir) konulaca��d�r.

1. The packer
2. The placer
3. The grid

T�m �zellikleriyle Merhaba D�nya
label .mylabel -text "merhaba d�nya"
pack .mylabel
Veya tek sat�rda:
pack [label .mylabel -text "merhaba d�nya"]

Buton E�er buton olu�turursak:

button .myboutton -text "merhaba d�nya" -command "exit"
pack .myboutton
Butonun parametre olarak komut (-command) �zelli�i (sadece bir) dikkatimizi �eker. Butona t�klad���m�zda bu tcl komutu �al��t�r�l�r. Bu �rnekte, �al��t�r�lacak komut exit 'tir, Bu komut programdan ��k�lmas�n� sa�lar.

Grafiksel nesnelerin ve de�i�kenlerin ili�kilendirilmesi.

�rnek

Checkbutton ve radiobutton.

1. Checkbuton, bir durumu g�sterir.
   Bu buton bir boolean durumunu g�sterir (i�aretli veya de�il). Biz bunu checkbutonun durumuna g�re 0 (standart) veya 1 de�erlerini alan bir de�i�kenle ili�kilendirebiliriz. Ayn� zamanda, checkbutonun durumuna g�re de�i�en de�i�kenin alaca�� de�erleri de tan�mlayabiliriz.
   �rnek:
   
checkbutton $w.b1 -text "Wipers OK" -variable wipers -relief flat -onvalue "Ok" -offvalue "not Ok"

   
2. Radiobuton bir buton tak�m�n�n durumunu g�steren butondur.
   Radiobutonlar genellikle gruplanm��t�r.Bu, aralar�ndan birtane se�memize izin verir. Onlar� gruplamak i�in, hepsine ayn� de�i�ken ad�n� verip radiobuton se�ildi�inde al�ca�� de�eri bu de�i�kene aktarmal�y�z.
   �rnek:
   
   
   
radiobutton .b1 -text "Premier " -variable size -value 1
radiobutton .b2 -text "Second " -variable size -value 2


Layout Y�neticisi

1. The packer: Bir y�nlendirmeye ba�l� olarak grafiksel nesneyi konumland�r�r:
   1. top (�st)
   2. bottom (alt)
   3. right (sa�)
   4. left (sol)

   �rnek:

   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

   Widget'� ayr�ca �u �ekilde de ayarlayabiliriz: option -expand (yes|no) -fill ( x|y| both)
   

2. The placer: Grafiksel Nesneyi x y konumlar�na yerle�tirebiliriz.

   �rnek: place [ label .l -text "With Place"] -x 100 -y 100 .l configure -bg red

   
3. The grid widgetlar� sat�r ve s�tunlardan olu�an sanal bir �zgaraya yerle�tirir. Bu, liste kutucuklar� ve �ok sat�rl� d�zenleme kutucuklar� i�in ideal layouttur. S�zdizimi ��yledir: �nce widgetlar olu�turulur, �rne�in .e_name, daha sonra �ununla ekranda g�stertilir:
   
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

   

Olu�turulan widgetlar�n listesi

winfo ile olu�turulmu� olan grafiksel nesnelerin listesini alabiliriz.

 winfo exists name_object

winfo children .

Olaylar (event)

Tk'in olay� de�erlendirmesi ve komut �al��t�rmas� -command verilmesine ba�l�d�r. Kullann�c�n�n olaylar� tem olarak y�netmek isteyebilece�i veya bir widget i�in birka� olay y�netmek isteyebilece�i durumlar da var. canvas b�yle bir widgett�r.

K���k bir �rnek

1. Aray�z� olu�tururuz (proc makegui).
2. Widget�n t�m yollar�n� (path) bir hashtable'a yerle�tiririz tabgui.
3. Parametre say�s�n� tarat�r�z; e�er say� s�f�ra e�itse uygulama sonlan�r.
4. Handle'� pipe'tan tar -tzvf name_file_tar program�yla a�ar�z.
5. Pipe'dan okunan her sat�r� listeye ekleriz.

bind all <Control-c> {destroy .}

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

global tabgui

proc makegui { } {
global tabgui
#
# Liste i�in kayd�rma �ubuklar�n�n olu�turulmas�
# dikey kayd�rma �ubu�u dikey olaray ekran� kaplayacak �ekilde sa�a konumland�r�l�r
# ve yatay kayd�rma �ubu�u yatay olarak ekran� kaplayacak �ekilde a�a��ya konumland�r�l�r
#
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
#
# Listenin olu�turulmas�, kayd�rma �ubuklar�yla ili�kilendirilmesi
#
#
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
}

#
# Arabirimin olu�turulmas�
#
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 .}

Kaynaklar

• �yi bir ��retici (Frans�zca)
• Unifix online and the B Widget
• Scriptics

Makale hakk�ndaki yorumlar�n�z i�in form

2000-10-28, generated by lfparser version 1.8