Go'da Tk ile Dosya Listesi Eklenmiş Bir Resim Görüntüleyici Oluşturma
Geçtiğimiz gönderide, CGo-Free Tcl/Tk kütüphanesine kısaca göz atmıştık. Bu bölümde, önceki örneği uygulayarak bir görüntüleyici oluşturacağız.
Görüntüleyici Planı
- Önceki bölümdeki görüntüleyicide görüntü silme özelliği bulunmadığından, birden fazla görüntü yüklendikçe pencere boyutu yetersiz kalıyordu. Kullanılmayan etiketleri silelim.
- Görüntüleyiciye birden fazla görüntü ekleyeceksek, bir liste oluşturalım.
- Birden fazla görüntüyü aynı anda yüklemek daha iyidir.
- Görüntülenmeyecek görüntüleri listeden çıkarma özelliğini de uygulayalım.
- Birden çok görüntü arasından belirli bir görüntüyü seçip görüntüleme özelliğini oluşturalım.
Değiştirilmiş Tcl/Tk 9.0 Kütüphanesi
Mevcut kütüphanede Listbox uygulaması yetersiz olduğundan, görüntü listesini göstermek zordur. Değiştirilmiş kütüphaneyi indirelim. Git CLI kurulu değilse, tarball veya zip dosyası olarak da indirebilirsiniz.
1git clone https://github.com/gg582/tk9.0
Öncelikle eklenen özelliklerden bazılarına göz atalım.
Yeni fonksiyonları incelemeden önce, mevcut fonksiyonların nasıl çalıştığını tk.go'nun 1017. satırındaki Destroy fonksiyonu aracılığıyla yapıyı kısaca anlayalım.
1func Destroy(options ...Opt) {
2 evalErr(fmt.Sprintf("destroy %s", collect(options...)))
3}
Bu fonksiyon, evalErr adlı bir fonksiyona Tcl script formatında bir eylem gönderilerek uygulanmıştır. Bu, istediğiniz bir özelliği uygulamak için, ilgili Tcl script formatındaki komutu göndermenin yeterli olduğu anlamına gelir.
Örnek olarak, bir Listbox'a öğe ekleyen bir metot uygulayalım. Öncelikle Tcl scripting için resmi kılavuzdaki Listbox'ta kullanılabilecek komutlardan insert komutuna bakalım.
Insert komutunun açıklama sayfasına bakıldığında, insert belirli bir indekse listelenen öğeleri ekler. Öyleyse bunu uygulamak için
1func (l *ListboxWidget) AddItem(index int, items string) {
2 evalErr(fmt.Sprintf("%s insert %d %s", l.fpath, index, items))
3}
gibi bir kod yazabiliriz.
Şimdi genel uygulama prensibini anladığımıza göre, Listbox için ek özelliklerden bahsedeceğim.
Liste: Ekleme/Silme
1package main
2import . "modernc.org/tk9.0"
3
4func main() {
5 length := 3
6 l := Listbox()
7 l.AddItem(0, "item1 item2 item3")
8 b1 := TButton(Txt("Delete Multiple Items, index (0-1)"), Command( func(){
9 if length >= 2 {
10 l.DeleteItems(0,1)
11 length-=2
12 }
13 }))
14 b2 := TButton(Txt("Delete One Item, index (0)"), Command( func () {
15 if length > 0 {
16 l.DeleteOne(0)
17 length-=1
18 }
19 }))
20 Pack(TExit(),l,b1,b2)
21 App.Wait()
22}
23
Yukarıdaki programda AddItem, boşluklarla ayrılmış farklı öğeleri 0. indeksten başlayarak sırayla ekler. item1-item3 sırasıyla 0, 1, 2 indekslerini alacaktır. Örnek kodu çalıştırarak öğe silmenin nasıl çalıştığını öğrenin.
Liste: Seçili Öğeleri Alma
Şimdi Listbox'tan seçili öğeleri alıp kontrol edelim.
1package main
2
3import . "modernc.org/tk9.0"
4
5func main() {
6 l := Listbox()
7 l.SelectMode("multiple")
8 l.AddItem(0, "item1 item2 item3")
9 btn := TButton(Txt("Print Selected"), Command( func() {
10 sel := l.Selected()
11 for _, i := range sel {
12 println(l.GetOne(i))
13 }
14 }))
15
16 Pack(TExit(), l, btn)
17 App.Wait()
18}
Selected metodu, Listbox'ta seçili tüm öğelerin indekslerini getirir. GetOne metodu, ilgili indeksteki öğenin değerini getirir. Konsolda yazdırılan sonuçtan anlaşılabilir. Benzer bir metot olan Get metodu ise, başlangıç ve bitiş indekslerini alarak aralıktaki tüm öğelerin değerlerini getirir.
Şimdi Listbox'ın rengini değiştirelim.
Öncelikle aşağıdaki örneği inceleyelim.
1package main
2
3import . "modernc.org/tk9.0"
4
5func main() {
6 l := Listbox()
7 l.Background("blue")
8 l.Foreground("yellow")
9 l.SelectBackground("black")
10 l.SelectForeground("white")
11 l.Height(20)
12 l.Width(6)
13 l.AddItem(0, "item1 item2 item3")
14 l.ItemForeground(0,"red")
15 l.ItemBackground(0,"green")
16 l.ItemSelectBackground(0,"white")
17 l.ItemSelectForeground(0,"black")
18 l.Relief("ridged")
19 Pack(TExit(),l)
20 App.Wait()
21}
Yukarıdaki kodda yazdığı gibi, yükseklik arttırıldı. Ayrıca, renklerin iyi uygulandığı görülebilir. Burada belirli bir öğeye farklı bir renk atanması seçeneği belirlendiği için yalnızca ilk satırın farklı bir renkle uygulandığı görülebilir.
Ayrıca, büyük bir fark olmamakla birlikte, Relief metodu kullanılarak flat, groove, raise, ridge, solid, sunken seçeneklerinden widget kenarlığının stili değiştirilebilir.
Görüntüleyici Örneği
Şimdi öğrendiğimiz widget'ları kullanarak bir görüntüleyici oluşturalım. Örnek program aşağıdaki gibidir.
1package main
2
3import (
4 "fmt"
5 "log"
6 "os"
7 "runtime"
8 "strings"
9 "path"
10
11 . "modernc.org/tk9.0"
12)
13
14var pbuttons []*TButtonWidget
15var extensions []FileType
16var pbutton *TButtonWidget = nil
17var listbox, listbox2 *ListboxWidget
18var cur *LabelWidget = nil
19var imagesLoaded []*LabelWidget
20func PhotoName(fileName string) string {
21 fileName = path.Base(fileName)
22 return fileName[:len(fileName)-len(path.Ext(fileName))]
23}
24
25func handleFileOpen() {
26 res := GetOpenFile(Multiple(true),Filetypes(extensions)) //Çoklu seçimi etkinleştirir ve filtreleri açar.
27 s := make([]string,0,1000)
28 for _, itm := range res {
29 if itm != "" {
30 tmp := strings.Split(itm," ")
31 s = append(s,tmp...)
32 }
33 }
34
35 for _, photo := range s {
36 formatCheck := strings.Split(photo, ".")
37 format := formatCheck[len(formatCheck)-1]
38
39 if (strings.Compare(format, "png") == 0) || (strings.Compare(format, "ico") == 0) {
40 picFile, err := os.Open(photo)
41 if err != nil {
42 log.Println("Error while opening photo, error is: ", err)
43 }
44
45 pictureRawData := make([]byte, 10000*10000)
46 picFile.Read(pictureRawData)
47
48 imageLabel := Label(Image(NewPhoto(Data(pictureRawData))))
49 imagesLoaded = append(imagesLoaded,imageLabel)
50 var deleteTestButton *TButtonWidget
51 deleteTestButton = TButton(
52 Txt("Unshow Image"),
53 Command(func() {
54 GridForget(imageLabel.Window)
55 GridForget(deleteTestButton.Window)
56 }))
57
58 pbuttons = append(pbuttons,deleteTestButton)
59
60 listbox.AddItem(len(imagesLoaded)-1,PhotoName(photo))
61 listbox2.AddItem(len(imagesLoaded)-1,PhotoName(photo))
62 picFile.Close()
63 }
64 }
65}
66
67func DeleteSelected () {
68 s:=listbox.Selected()
69 if len(s) == 0 {
70 return
71 }
72 for _, i := range s {
73 listbox.DeleteOne(i)
74 listbox2.DeleteOne(i)
75 if len(imagesLoaded)-1>i {
76 continue
77 }
78 if cur == imagesLoaded[i] {
79 pbutton = nil
80 cur = nil
81 }
82 Destroy(imagesLoaded[i])
83 Destroy(pbuttons[i])
84 imagesLoaded = append(imagesLoaded[:i],imagesLoaded[i+1:]...)
85 pbuttons = append(pbuttons[:i], pbuttons[i+1:]...)
86 }
87}
88
89func SelectImage() {
90 s:=listbox2.Selected()
91 if len(s) == 0 {
92 return
93 }
94
95 if len(imagesLoaded) -1 < s[0] {
96 return
97 }
98 if imagesLoaded[s[0]] == nil {
99 return
100 }
101 if cur != nil {
102 GridForget(cur.Window)
103 }
104 if pbutton != nil {
105 GridForget(pbutton.Window)
106 }
107
108 Grid(imagesLoaded[s[0]], Row(0), Column(2))
109 Grid(pbuttons[s[0]], Row(0), Column(3))
110 cur = imagesLoaded[s[0]]
111 pbutton = pbuttons[s[0]]
112}
113
114func SelectIndex(index int) {
115
116 if len(imagesLoaded) -1 <index {
117 return
118 }
119 if imagesLoaded[index] == nil {
120 return
121 }
122 if cur != nil {
123 GridForget(cur.Window)
124 }
125 if pbutton != nil {
126 GridForget(pbutton.Window)
127 }
128
129 Grid(imagesLoaded[index], Row(0), Column(2))
130 Grid(pbuttons[index], Row(0), Column(3))
131 cur = imagesLoaded[index]
132 pbutton = pbuttons[index]
133}
134
135func main() {
136 menubar := Menu()
137 //DefaultTheme("awdark","themes/awthemes-10.4.0")
138 //Tema kullanmak istediğinizde tema adını ve yolunu belirtin.
139 fileMenu := menubar.Menu()
140 extensions = make([]FileType,0,1)
141 extensions = append(extensions, FileType{ "Supported Images", []string {".png",".ico"}, "" } )
142 //Filtreye png ve ico'yu ekler.
143 fileMenu.AddCommand(Lbl("Open..."), Underline(0), Accelerator("Ctrl+O"), Command(func () {
144 handleFileOpen()
145 SelectIndex(len(imagesLoaded)-1)
146 } ))
147 Bind(App, "<Control-o>", Command(func() { fileMenu.Invoke(0) }))
148 fileMenu.AddCommand(Lbl("Exit"), Underline(1), Accelerator("Ctrl+Q"), ExitHandler())
149 Bind(App, "<Control-q>", Command(func() { fileMenu.Invoke(1) }))
150 menubar.AddCascade(Lbl("File"), Underline(0), Mnu(fileMenu))
151 imagesLoaded = make([]*LabelWidget, 0, 10000)
152 pbuttons = make([]*TButtonWidget,0,10000)
153 var scrollx, scroll, scroll2, scrollx2 *TScrollbarWidget
154 listbox = Listbox(Yscrollcommand(func(e *Event) { e.ScrollSet(scroll)}) , Xscrollcommand( func(e *Event) { e.ScrollSet(scrollx)}))
155 listbox2 = Listbox(Yscrollcommand(func(e *Event) { e.ScrollSet(scroll2)}), Xscrollcommand(func(e *Event) { e.ScrollSet(scrollx2)}))
156 listbox.SelectMode("multiple")
157 listbox2 = Listbox()
158 listbox.Background("white")
159 listbox.SelectBackground("blue")
160 listbox.SelectForeground("yellow")
161 listbox2.Background("grey")
162 listbox2.SelectBackground("green")
163 listbox2.SelectForeground("blue")
164 listbox2.SelectBackground("brown")
165 listbox.Height(5)
166 listbox.Width(4)
167 listbox2.Height(5)
168 listbox2.Width(4)
169 delBtn := Button(Txt("Delete"), Command(func () { DeleteSelected() }))
170 selBtn := Button(Txt("Select"), Command(func () { SelectImage() }))
171 scroll = TScrollbar(Command(func(e *Event) { e.Yview(listbox) }))
172 scrollx = TScrollbar(Orient("horizontal"),Command(func(e *Event) { e.Xview(listbox) }))
173 scroll2 = TScrollbar(Command(func(e *Event) { e.Yview(listbox2) }))
174 scrollx2 = TScrollbar(Orient("horizontal"),Command(func(e *Event) { e.Xview(listbox2) }))
175 Grid(listbox,Row(1),Column(0), Sticky("nes"))
176 Grid(scroll,Row(1),Column(1), Sticky("nes"))
177 Grid(scrollx,Row(2),Column(0), Sticky("nes"))
178 Grid(delBtn,Row(3),Column(0), Sticky("nes"))
179 Grid(listbox2,Row(1),Column(2), Sticky("nes"))
180 Grid(scroll2,Row(1),Column(3), Sticky("nes"))
181 Grid(scrollx2,Row(2),Column(2), Sticky("nes"))
182 Grid(selBtn,Row(3),Column(2), Sticky("nes"))
183 App.WmTitle(fmt.Sprintf("%s on %s", App.WmTitle(""), runtime.GOOS))
184 App.Configure(Mnu(menubar), Width("80c"), Height("60c")).Wait()
185}
186
Bu örnekte, uygulamayı basitleştirmek için tüm görüntü widget'ları yüklenirken önceden oluşturulur ve yinelenen dosyalar kontrol edilmez. Daha önce bahsettiğimiz sorunlar giderilebilir ve yorum satırı haline getirilmiş olan DefaultTheme metodu kullanılarak tema değiştirilebilir. Bu kısımları geliştirerek yeni bir program oluşturarak pratik yapmanızı öneririz.
Özet
Bu makalede, Go dilinin Tcl/Tk kütüphanesindeki komut çağrılarının nasıl çalıştığını öğrendik ve Listbox eklenmiş bir görüntüleyici oluşturduk.
- Tcl/Tk kütüphanesinin komut çağırma yöntemi
- Listbox kullanım yöntemi
- Listbox widget'ının özelliklerini değiştirme
- Görüntüleyici oluşturma
Bu yöntemle diğer kütüphaneleri de değiştirmeyi deneyebilir ve eklediğiniz özelliklerle tamamlanmış programlar yazabilirsiniz.