abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 14:33 | Nová verze

    Desktopové prostředí KDE Plasma bylo vydáno ve verzi 6.5 (Mastodon). Přehled novinek i s videi a se snímky obrazovek v oficiálním oznámení. Podrobný přehled v seznamu změn.

    Ladislav Hagara | Komentářů: 1
    dnes 13:55 | IT novinky

    Rodina jednodeskových počítačů Orange Pi se rozrostla (𝕏) o Orange Pi 6 Plus.

    Ladislav Hagara | Komentářů: 4
    dnes 13:33 | IT novinky

    Na Humble Bundle běží akce Humble Tech Book Bundle: All Things Raspberry Pi by Raspberry Pi Press. Se slevou lze koupit elektronické knihy od nakladatelství Raspberry Pi Press a podpořit Raspberry Pi Press, Raspberry Pi Foundation North America nebo Humble.

    Ladislav Hagara | Komentářů: 0
    dnes 11:44 | Humor

    Přidaný režim autonomního řízení vozidel Tesla Mad Max je dostupný pro vybrané zákazníky v programu EAP (Early Access Program). Nový režim je na silnici agresivnější, častěji mění pruhy a ne vždy dodržuje rychlostní limity. Agentura JPP spekuluje, že v Česku by se mohl nový režim namísto Mad Max jmenovat Mad Turek...

    karkar | Komentářů: 18
    dnes 04:00 | Nová verze

    Byla vydána nová verze 9.18 z Debianu vycházející linuxové distribuce DietPi pro (nejenom) jednodeskové počítače. Nově také pro NanoPi R3S, R3S LTS, R76S a M5. Přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    dnes 00:22 | Nová verze

    bat, tj. vylepšený cat se zvýrazňováním syntaxe a integrací s gitem, byl vydán ve verzi 0.26.0.

    Ladislav Hagara | Komentářů: 1
    včera 19:33 | Nová verze

    Byla vydána první verze 0.0.1 [Mastodon] multipatformního renderovacího jádra webového prohlížeče Servo (Wikipedie). Vývoj Serva započal v roce 2012 v Mozilla Corporation. V roce 2020 bylo Servo předáno nadaci Linux Foundation. Servo je napsané v programovacím jazyce Rust.

    Ladislav Hagara | Komentářů: 2
    včera 15:11 | IT novinky

    Cloudovou službu Amazon Web Services (AWS) americké firmy Amazon dnes postihl globální výpadek. Omezil dostupnost řady aplikací a webů, například populární platformu Snapchat nebo aplikaci s prvky umělé inteligence (AI) Perplexity. Podle webu Downdetector hlásily problémy také uživatelé obchodu Amazon, streamovací platformy PrimeVideo nebo platební služby PayPal.

    Ladislav Hagara | Komentářů: 7
    včera 13:33 | Zajímavý software Ladislav Hagara | Komentářů: 0
    včera 12:44 | Pozvánky

    Od 3. do 16. listopadu proběhnou Dny AI 2025. V úterý 11. listopadu proběhne Open source AI day v Red Hatu v Brně.

    Ladislav Hagara | Komentářů: 0
    Jaké řešení používáte k vývoji / práci?
     (37%)
     (47%)
     (20%)
     (20%)
     (23%)
     (18%)
     (21%)
     (18%)
     (18%)
    Celkem 250 hlasů
     Komentářů: 14, poslední 14.10. 09:04
    Rozcestník

    Dotaz: Gtk2::ToggleButton - jak zjistit stav?

    2.10.2006 15:53 myšák | skóre: 26 | blog: EmentuX | Ostrava
    Gtk2::ToggleButton - jak zjistit stav?
    Přečteno: 139×

    Zdravím místní odborníky na PERL. :-) Mám velkou prosbu. Zasekl jsem se ve skriptíku, co si bastlím v GTK2 + PERL (pozn. pro Pythonýry: Ano vím, že PERL je pro masochisty, ale mně vyhovuje).

    Potřeboval bych zjistit, které ToggleButtony z nabídky jsou stisknuty a které ne, ale zaboha nemůžu přijít na to, jakým způsobem. Prolezl jsem kdejaký manuál, ale nejsem z toho vůbec moudrý :-(

    Zkoušel jsem tohle,

    $button = Gtk2::ToggleButton->new("Buttonek 3");
    $button->signal_connect(toggled=> sub {
        my @widget = @_;    
        print "Čudl: @widget\n";   
        } );
    
    abych zjistil, co z toho vlastně leze, ale to vyplivne akorát pro každý čudlík jiný HASH bez rozdílu, zda je "up" nebo "down"

    $ktery = Gtk2::ToggleButton::get_active();
    ani
    $ktery = Gtk2::ToggleButton::get_active($button);
    mi nefunguje a na žádný příklad jsem ani po celém dni gůglení nenarazil :-(

    Nemůžu přijít na to, co dělám špatně. :-( Našel by se někdo, kdo by mě nasměroval k řešení? Příklad s dvěma čudlíky by byl naprostou spásou. Děkuju moc.

    Je nesmírně těžké být idiotem, konkurence je obrovská...

    Odpovědi

    Pavel Stárek avatar 2.10.2006 16:48 Pavel Stárek | skóre: 43 | blog: Tady bloguju já :-) | Kolín
    Rozbalit Rozbalit vše Re: Gtk2::ToggleButton - jak zjistit stav?
    Z dokumentace GTK:

    gtk_toggle_button_get_active ()

    gboolean gtk_toggle_button_get_active (GtkToggleButton *toggle_button);

    Queries a GtkToggleButton and returns its current state. Returns TRUE if the toggle button is pressed in and FALSE if it is raised.

    toggle_button: a GtkToggleButton.

    Returns: a gboolean value

    Z toho plyne, že si v nějaké smyčce prolezeš všechny toggle buttony a zjistíš si jejich stav pomocí výše zmíněné funkce. To, že se ti to chová tak jak popisuješ, je dobře, při toggled události vlezeš do obsluhy signálu a vypíšeš "instanci" widgetu, který zavolal obsluhu signálu, ale ne jeho stav. Pro zjištění stavu by se asi mělo použít (nejsem Perlista):

    stav = @widget::get_active()
    Kdo chce, hledá způsob; kdo nechce, hledá důvod.
    2.10.2006 18:40 myšák | skóre: 26 | blog: EmentuX | Ostrava
    Rozbalit Rozbalit vše Re: Gtk2::ToggleButton - jak zjistit stav?

    Především díky za konzultaci. Nicméně buď jsem to blbě pochopil nebo to nefunguje, resp. to buď do té proměnné $stav1 = Gtk::ToggleButton:get_active(button1) vloží nulu ať je ten čudl "up" nebo "down" nebo to v případě $stav = @widget::get_active() vyhodí chybu.

    Já už jsem z toho fakt magor; prolezl jsem komplet manuál GTK k ToggleButtonům, ale zatímco se zbytkem widgetů jsem se jakžtakž popral, tak z tohohle jsem tak akorát zmatený :-(

    Je nesmírně těžké být idiotem, konkurence je obrovská...
    2.10.2006 19:00 zabza | skóre: 52 | blog: Nad_sklenkou_cerveneho
    Rozbalit Rozbalit vše Re: Gtk2::ToggleButton - jak zjistit stav?
    teď nevim jestli jsem to dobře pochopil, ale ...
    $b = Gtk2::ToggleButton->new("Foo");
    
    ...
    
    if $b->get_active() {
      print "Foo je down";
    } else {
      print "Foo je up";
    }
    
    
    3.10.2006 08:47 myšák | skóre: 26 | blog: EmentuX | Ostrava
    Rozbalit Rozbalit vše Re: Gtk2::ToggleButton - jak zjistit stav?

    Jo jo jo! Tisíceré díky! Pochopil si to naprosto přesně. Tohle přesně jsem potřeboval. Jen ještě malá podotázka -> pokud potřebuju testovat stav více ToggleButtonů, tak musí mít každý přiřazenou jinou proměnnou nebo to na základě toho generovaného hashe lze nějak odlišit?

    Myslím jestli to jde jen takhle:

    $button1 = Gtk2::ToggleButton->new("Button1");
    ...
    $button2 = Gtk2::ToggleButton->new("Button2");
    ...
    if ($button1->get_active()) ...
    if ($button2->get_active()) ...
    

    nebo i nějak takhle:

    $button = Gtk2::ToggleButton->new("Button1");
    ...
    $button = Gtk2::ToggleButton->new("Button2");
    ...
    if ($button->get_active()) ... Můžu zjistit podle něčeho, co mi předá ta událost clicked/toggled, který to byl button?
    

    Ta první varianta samozřejmě jede. Ta druhá mi vyhodí chybu, tak jsem chtěl jen vědět jestli dělám úplnou blbost nebo mám jen někde špatnou syntaxi atd. Ještě jednou díky za pomoc.

    Je nesmírně těžké být idiotem, konkurence je obrovská...
    3.10.2006 09:35 myšák | skóre: 26 | blog: EmentuX | Ostrava
    Rozbalit Rozbalit vše Re: Gtk2::ToggleButton - jak zjistit stav?

    Odpovím si sám ... heuréka, díky všem výše uvedeným jsem se konečně dobral k cíli. :-) Stačí, když jako callback spojený s událostí toggled/clicked pošlete i nějaký text, např. takhle:

    $button = Gtk2::ToggleButton->new('button 2');
    $button->signal_connect(toggled => \&callback, 'button2');
    
    a pak v proceduře callback testujete nejen staus widgetu, ale i text, který ten widget poslal:
    sub callback
    {
    	my ($widget, $data) = @_;
    	if ($widget->get_active()) {
    	  print "$data je down\n";
    	} else {
    	  print "$data je up\n";
    	}
    }
    

    aneb slovy klasika: "jak prosté milý Watsone...", jen kdybych se s tím nedusil skoro týden :-|

    Je nesmírně těžké být idiotem, konkurence je obrovská...

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.