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