LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Perl (132) - Gtk2 - drag&drop, druid

Perl Velmi efektně může v aplikacích vypadat zakomponování přetahování dat myší. Všichni to známe jako uživatelé. Jak ale drag&drop funguje v pozadí aplikace? Zdánlivě trochu komplikovanější postup si rozebereme na elementární kroky. Druhým tématem je nástroj na pohodlnou konfiguraci aplikace.

11.5.2011 00:00 | Jiří Václavík | Články autora | přečteno 4270×

Drag & Drop

Přetahování objektů myší patří mezi další zajímavé schopnosti knihovny Gtk2. Přetahování probíhá v několika fázích. Nejprve existuje nějaký zdrojový objekt. Tím může být v podstatě jakýkoliv widget. Jakmile ho uživatel chytí na kurzor, stává se z něj jiný objekt, který se stará o animaci. Po uvolnění tlačítka myši se objekt přestane pohybovat a stává se z něj cílový objekt. Uvolnění tlačítka může nastat i nad widgetem z jiné aplikace.

Nejprve je třeba aktivovat widgety, na kterých bude drag&drop proces probíhat.

  • pomocí metody Gtk2::Widget->drag_source_set nastavíme, že je widget připravený k procesu
  • pomocí metody Gtk2::Widget->drag_dest_set nastavíme všechny možné cíle pro přetahovaný objekt

Samotný proces pak můžeme rozdělit do několika kroků.

  1. Uživatel uchopí widget
  2. Emituje se signál drag-data-get, zde je třeba zapamatovat si uchopená data
  3. Uživatel se posunuje
  4. Uživatel upustí widget nad nějakým jiným widgetem
  5. Emituje se signál drag-data-received, zapamatovaná data zde můžeme použít

Napíšeme si aplikaci, na které si jednotlivé kroky vysvětlíme. Bude obsahovat nějaký seznam objektů, do kterého budeme moci upouštět objekty nové. Po upuštění obsahu vždy do seznamu přidáme novou položku.

Drop - destinace a upouštění

Nastavme nejprve cílový seznam, kam budeme moci objekty upouštět. Seznam vytvoříme pomocí Gtk2::SimpleList. Položky budou vždy obsahovat ikonu a popisek.

my $list = Gtk2::SimpleList->new("ikona" => "pixbuf","status"  => "markup");

Dále je třeba nastavit, která data bude náš cíl přijímat. Nyní se spokojme pouze s přijímáním obyčejného textu text/plain.

$list->drag_dest_set("all", ["copy"], {"target" => "text/plain",  "flags" => []},);

Protože seznam bude potenciálně obsahovat hodně položek, vložíme ho do okna s posuvníky. Zajistíme tak, aby se okno zbytečně samo nezvětšovalo.

my $scrolled = Gtk2::ScrolledWindow->new(undef,undef);
$scrolled->set_policy("never", "automatic");
$scrolled->add($list);
$scrolled->set_size_request(300,200);

Poté ještě nastavíme akci, která se provede, jakmile náš seznam obdrží data.

$list->signal_connect("drag-data-received" => \&upusteno, $list);

Funkce upusteno pouze vygeneruje ikonu a přidá do seznamu novou položku, což je tato ikona s textem. Předali jsme si $list jako parametr, tudíž nám nic nebrání s ním manipulovat.

sub upusteno {
    my ($widget, $kontext, $x, $y, $data, $info, $cas, $list) = @_;
    my $icon_factory = Gtk2::IconFactory->new();
    my $iconset = $icon_factory->lookup_default("gtk-ok");
    my $pixbuf = $iconset->render_icon(Gtk2::Style->new(), "none", "normal", "menu", undef);
    push @{$list->{data}}, [ $pixbuf, $data->data ];
}

Drag - uchopení objektu

Nyní je polovina programu za námi. Zbývá dodefinovat zdrojové objekty. Vytvořme si například label, který budeme moci přesunout.

my $label = Gtk2::Label->new("Zkus me vzit a presunout");

Nyní z něj pomocí EventBoxu vytvoříme zdroj. Přidáme tedy label do EventBoxu a metodou drag_source_set nastavíme chování při pokusu o přetažení.

Povolíme pouze přetahování prvním a třetím tlačítkem myši. Jako první parametr tedy uvedeme ['button1_mask', 'button3_mask']. Budeme kopírovat obyčejný text.

my $event_box = Gtk2::EventBox->new();
$event_box->add($label);
$event_box->drag_source_set (
     ["button1_mask", "button3_mask"],
     ["move"],
     {"target" => "text/plain","flags" => []}
);

Pomocí flags se dá nastavit, zda máme přijímat pouze obsah, který je přetahován z též aplikace (pak nastavíme GTK_TARGET_SAME_APP) nebo téhož widgetu (pak použijeme konstantu GTK_TARGET_SAME_WIDGET).

Vytvořme opět akci, která se provede, jakmile uživatel začne náš objekt přetahovat. Zde akorát musíme nastavit data, která si přetahovaný objekt ponese s sebou.

$event_box->signal_connect ("drag-data-get" => \&sebrano,
"<span foreground='green' size='15000'>Hotovo!</span>");

sub sebrano {
    my ($widget, $kontext, $data, $info, $cas, $retezec) = @_;
    $data->set_text($retezec, -1);
}

Tím je hotový jednoduchý program, který je schopen procesu drag&drop. A nyní si zkuste přetáhnout nějaký text z jiné aplikace (například adresní řádek v internetovém prohlížeči). Co se stane?

Úplně stejně lze postupovat při přetahování obrázků. Vždy je třeba vytvořit zdroj pomocí drag_source_set a v cíli metodou drag_dest_set povolit obrázky jakožto data, která náš seznam přijme.

Druid - konfigurační obrazovky

Druid (častěji nazývaný wizard) je soubor několika po sobě jdoucími okny, které obvykle pokládají uživateli otázky. Uživatel nastavuje hodnoty a kliká na tlačítka "Další", "Zpět" apod. To se děje často při konfigurování aplikace po prvním spuštění.

Budeme používat modul Gnome2::Druid. Měli bychom tedy nainstalovat modul Gnome2.

# cpan Gnome2

Nebudeme vytvářet čistou Gtk2 aplikaci, ale Gnome2 aplikaci. Je třeba na to pamatovat kvůli horší přenositelnosti.

V aplikaci tedy načteme tento modul.

#!/usr/bin/env perl
use strict;
use warnings;
use Gnome2;
use Gtk2 "-init";

Dále vložíme informace o naší aplikaci a verzi.

Gnome2::Program->init("NaseAplikace", "0.1", "");

A nyní již můžeme vytvořit druida. Pro nás nejzajímavějším parametrem je zde titulek okna.

my($druid, $okno) = Gnome2::Druid->new_with_window("Pruvodce konfiguraci", undef, 1);

Dále budeme postupně přidávat stránky. Obvykle máme úvodní stránku, závěrečnou stránku a nějaké stránky mezi tím. Úvodní a závěrečnou stránku vytváříme pomocí Gnome2::DruidPageEdge. Na všechny prostřední stránky obvykle používáme widget Gnome2::DruidPageStandard.

Začněme tedy popořádku úvodní stránkou. Zde nastavíme hlavní nadpis úvodní stránky a nějaký uvítací text. Taktéž zde nastavujeme tři obrázky, které se zobrazí - logo a dva vodotisky (liší se pouze tím, na které části okna se zobrazují). My nastavíme dva z nich.

Na závěr nesmíme zapomenout okno přiřadit našemu druidovi.

my $druid_uvod = Gnome2::DruidPageEdge->new_with_vals("start", 0,
		"Druid konfigurace",
		"Vitejte v nasem druidovi!\n\nZde provedete zakladni konfiguraci aplikace.",
		Gtk2::Gdk::Pixbuf->new_from_file("./czech.png"),
		Gtk2::Gdk::Pixbuf->new_from_file("./linux.png"),
);
$druid->append_page($druid_uvod);

Dále nastavíme barvy. K tomu máme k dispozici několik metod podle toho, která část okna bude ovlivněna. Nastavíme barvu pozadí, pozadí textu a titulku.

$druid_uvod->set_bg_color(Gtk2::Gdk::Color->new(80000,0,0));
$druid_uvod->set_textbox_color(Gtk2::Gdk::Color->new(50000,50000,0));
$druid_uvod->set_title_color(Gtk2::Gdk::Color->new(60000,60000,60000));

Tím je hotova úvodní stránka.

Úvodní okno

Podívejme se na další stránku. Vytvoříme ji z widgetu Gnome2::DruidPageStandard. Opět zde nastavíme nějaký nadpis. Metodou append_item navíc můžeme vkládat další widgety. Vložme sem tedy zaškrtávací políčko. Na závěr opět musíme přidat stránku do druida.

my $druid_strana1 = Gnome2::DruidPageStandard->new_with_vals("Provedte nastaveni",
Gtk2::Gdk::Pixbuf->new_from_file("./druid2.png"), undef);
$druid_strana1->append_item("Mate radi Gtk2?", Gtk2::CheckButton->new("Ano"), "");
$druid->append_page($druid_strana1);

Výsledek vidíme na obrázku.

Prostřední okno pro nastavení

Na závěr napíšeme poslední okno. Gnome2::DruidPageEdge jsme již používali u úvodní stránky. Zde je to stejné.

Pozornost si však zaslouží nastavení dlačítka "Dokončit", které na konci obvykle nahrazuje tlačítko "Další".

Dále si zde také vyzkoušíme odchytit signál. Jakmile je kliknuto na "Dokončit", vytiskneme na standardní výstup informaci o tom, že konfigurace byla dokončena.

my $druid_konec = Gnome2::DruidPageEdge->new_with_vals("finish", 0,
		"Dekujeme!",
		"Konfigurace uspesna!",
		Gtk2::Gdk::Pixbuf->new_from_file("./druid4.png"),
		undef,
		undef);
$druid->finish->set_label("_Dokoncit");
$druid->finish->signal_connect(clicked => sub{
    print
"Konfigurace dokoncena! Muzeme pokracovat.";
    Gtk2->main_quit;
});
$druid->append_page($druid_konec);

Závěrečná stránka vypadá takto.

Závěrečné okno

Abychom zde měli kód kompletní, doplňme standardní zakončení programu. Doplňme, že je zvykem, aby se druid objevoval vždy uprostřed obrazovky.

$okno->set_position("center-always");
$okno->show_all;
Gtk2->main;

Na závěr poznamenejme, že každá stránka emituje po potvrzení uživatelem signál next.

Verze pro tisk

pridej.cz

 

DISKUZE

Nejsou žádné diskuzní příspěvky u dané položky.



Příspívat do diskuze mohou pouze registrovaní uživatelé.
> Vyhledávání software
> Vyhledávání článků

26.12.2014 8:47 /MaReK Olšavský
Vývojáři programovacího jazyka Ruby ohlásili verzi 2.2.0, která vylepšuje garbage collector, zavádí podporu Unicode 7.0, přináší updaty doprovodných knihoven, nebo odstraňuje podporu zastaralých API.
Přidat komentář

26.12.2014 8:47 /MaReK Olšavský
V Rumunsku se stává open source, a otevřené formáty, oficiálně podporovaným ve veřejných institucích.
Přidat komentář

26.12.2014 8:47 /MaReK Olšavský
Nároky distribucí GNU/Linuxu bývají nezřídka kritizovány a často se porovnává rychlost spouštění i přepínání aplikací s MS Windows. Odpovědí kritikům by mohl být krátký článek, který srovnává historická i dnešní požadovaná minima pro provoz systému. GNU/Linux je na tom výrazně lépe, není to ani zdaleka „bloated ware“.
Přidat komentář

25.12.2014 10:02 /MaReK Olšavský
Zajímavé a npříjemné věci se dějí kolem „konkurenta Raspberry Pi“, Banana Pi. Původní skupina se rozdělila na dva tábory, přičemž SinoVoip připravuje Banana Pi M2 a LeMakeru zůstává nedávno představený Banana Pro.
Přidat komentář

25.12.2014 10:01 /MaReK Olšavský
O čínském OS, který není úplně jejich vlastní prací (bez ohledu na to, že jde o„„další distribuci GNU/Linuxu“) píše web TechInAsia. S původním Kylinem mělo nakročeno FreeBSD k obrovskému úspěchu, bohužel ten se nekonal.
Přidat komentář

24.12.2014 8:17 /MaReK Olšavský
Vývojáři multimediálního centra Kodi (dřívě XBMC), dali uživatelům vánoční dárek vydáním verze 14.0.
Přidat komentář

24.12.2014 8:17 /MaReK Olšavský
Zatím se dá GPGPU akcelerace v PgSQL považovat za průkopnickou zajímavost, ale do budoucna se možná vydá více databází touto cestou, pro zisk vyššího výkonu.
Přidat komentář

23.12.2014 9:09 /MaReK Olšavský
Zatím poslední přírůstek mezi „vyzyvatele Raspberry Pi“ představuje Orange Pi. Podobné jméno, kompatibilní GPIO, přítomnost výkonějšího SoC a SATA port za malinko vyšší cenu (US$ 42–80) dávají dobrou startovní pozici pro zisk nových zákazníků.
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

22.12.2014 7:16 / MaReK Olšavský
Re: Download Perl

16.12.2014 3:59 / Jaroslav Kelt Kuchera
Download Perl

11.12.2014 6:42 / MaReK Olšavský
Po instalaci

10.12.2014 19:26 / Vladimir VASIL
Re: Sanba

11.11.2014 14:24 / Libor Suchý
Nekonečný while cyklus

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2014) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze | zákony online