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í
×
eParkomat, startup z ČR, postoupil mezi finalisty evropského akcelerátoru ChallengeUp!
Robot na pivo mu otevřel dveře k opravdovému byznysu
Internet věcí: Propojený svět? Už se to blíží...
včera 22:44 | Komunita

Joinup informuje, že Mnichov používá open source groupware Kolab. V srpnu byl dokončen dvouletý přechod na toto řešení. V provozu je asi 60 000 poštovních schránek. Nejenom Kolabu se věnoval Georg Greve ve své přednášce Open Source: the future for the European institutions (SlideShare) na konferenci DIGITEC 2016, jež proběhla v úterý 29. listopadu v Bruselu. Videozáznam přednášek z hlavního sálu je ke zhlédnutí na Livestreamu.

Ladislav Hagara | Komentářů: 1
včera 15:30 | Zajímavý projekt

Společnost Jolla oznámila v příspěvku Case study: Sailfish Watch na svém blogu, že naportovala Sailfish OS na chytré hodinky. Využila a inspirovala se otevřeným operačním systémem pro chytré hodinky AsteroidOS. Použita je knihovna libhybris. Ukázka ovládání hodinek na YouTube.

Ladislav Hagara | Komentářů: 5
včera 14:15 | Nová verze

Byla vydána verze 7.1.0 skriptovacího jazyka PHP používaného zejména k vývoji dynamických webových stránek. Jedná se o první stabilní verzi nejnovější větvě 7.1. Přehled novinek v dokumentaci. Podrobnosti v ChangeLogu. K dispozici je také příručka pro přechod z PHP 7.0.x na PHP 7.1.x.

Ladislav Hagara | Komentářů: 0
včera 12:55 | Nová verze

Google Chrome 55 byl prohlášen za stabilní. Nejnovější stabilní verze 55.0.2883.75 tohoto webového prohlížeče přináší řadu oprav a vylepšení (YouTube). Opraveno bylo také 36 bezpečnostních chyb. Mariusz Mlynski si například vydělal 22 500 dolarů za 3 nahlášené chyby (Universal XSS in Blink).

Ladislav Hagara | Komentářů: 4
včera 11:55 | Pozvánky

Máte rádi svobodný software a hardware nebo se o nich chcete něco dozvědět? Přijďte na 135. sraz spolku OpenAlt, který se bude konat ve čtvrtek 8. prosince od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Sraz bude tentokrát tématický. Bude retro! K vidění budou přístroje jako Psion 5mx nebo Palm Z22. Ze svobodného hardwaru pak Openmoko nebo čtečka WikiReader. Přijďte se i vy pochlubit svými legendami, nebo alespoň na pivo. Moderní hardware má vstup samozřejmě také povolen.

xkucf03 | Komentářů: 0
včera 00:10 | Nová verze

Byla vydána verze 3.2 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata. Z novinek lze zmínit například podporu protokolů DNP3 a CIP/ENIP, vylepšenou podporu TLS a samozřejmě také aktualizovanou dokumentaci.

Ladislav Hagara | Komentářů: 0
1.12. 21:00 | Nová verze

Byla vydána beta verze Linux Mintu 18.1 s kódovým jménem Serena. Na blogu Linux Mintu jsou hned dvě oznámení. První o vydání Linux Mintu s prostředím MATE a druhé o vydání Linux Mintu s prostředím Cinnamon. Stejným způsobem jsou rozděleny také poznámky k vydání (MATE, Cinnamon) a přehled novinek s náhledy (MATE, Cinnamon). Linux Mint 18.1 bude podporován až do roku 2021.

Ladislav Hagara | Komentářů: 0
1.12. 16:42 | Nová verze

Byl vydán Devuan Jessie 1.0 Beta 2. Jedná se o druhou beta verzi forku Debianu bez systemd představeného v listopadu 2014 (zprávička). První beta verze byla vydána v dubnu letošního roku (zprávička). Jedna z posledních přednášek věnovaných Devuanu proběhla v listopadu na konferenci FSCONS 2016 (YouTube, pdf).

Ladislav Hagara | Komentářů: 0
1.12. 15:16 | Komunita

Na GOG.com začal zimní výprodej. Řada zlevněných her běží oficiálně také na Linuxu. Hru Neverwinter Nights Diamond lze dva dny získat zdarma. Hra dle stránek GOG.com na Linuxu neběží. Pomocí návodu ji lze ale rozběhnout také na Linuxu [Gaming On Linux].

Ladislav Hagara | Komentářů: 1
1.12. 13:14 | Bezpečnostní upozornění

Byla vydána verze 2.7.1 živé linuxové distribuce Tails (The Amnesic Incognito Live System), jež klade důraz na ochranu soukromí uživatelů a anonymitu. Řešeno je několik bezpečnostních problémů. Aktualizován byl především Tor Browser na verzi 6.0.7. Tor Browser je postaven na Firefoxu ESR (Extended Support Release) a právě ve Firefoxu byla nalezena a opravena vážná bezpečnostní chyba MFSA 2016-92 (CVE-2016-9079, Firefox SVG Animation

… více »
Ladislav Hagara | Komentářů: 0
Kolik máte dat ve svém domovském adresáři na svém primárním osobním počítači?
 (32%)
 (24%)
 (29%)
 (7%)
 (5%)
 (3%)
Celkem 759 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: Gtk3 Perl menu a klávesové zkratky

Brilantní modř avatar 18.4.2013 13:36 Brilantní modř | skóre: 4
Gtk3 Perl menu a klávesové zkratky
Přečteno: 184×

Dobrý den.

Budu rád, když mi někdo, kdo se vyzná, pomůže.

Nejdřív se prosím podívejte na tento obrázek. Je na něm otevřené menu Soubor editoru Bluefish, nalevo v tomto menu jsou jednotlivé položky a u některých z nich je napravo uvedena klávesová zkratka.

Mám dotaz, který se týká zobrazení klávesových zkratek v menu (tak, jak je to na obrázku): Jak se to dá udělat v Gtk2 nebo Gtk3 Perlu?

Mějme tento kód:

#!/usr/bin/perl
use strict;
use warnings;
use locale;
use utf8;
use Glib qw(TRUE FALSE);
use Gtk3;

sub quitf {
    Gtk3->main_quit();
}

Gtk3->init;

my $label = Gtk3::Label->new("Hokusy pokusy...");

my $statusbar = Gtk3::Statusbar->new();
my $context_id_label = $statusbar->get_context_id("working_label");
my $message_id_label = $statusbar->push($context_id_label, "Experiment se stavovým řádkem");

my $menu_bar = Gtk3::MenuBar->new();

my $menu_bar_item_hokus = Gtk3::MenuItem->new();
$menu_bar_item_hokus->set_label("Hokus");

my $menu_bar_item_pokus = Gtk3::MenuItem->new();
$menu_bar_item_pokus->set_label("Pokus");

$menu_bar->append($menu_bar_item_hokus);
$menu_bar->append($menu_bar_item_pokus);

my $menu_hokus = Gtk3::Menu->new();

my $menu_hokus_item_soubor = Gtk3::MenuItem->new();
$menu_hokus_item_soubor->set_label("Soubor");

my $menu_hokus_item_novy = Gtk3::MenuItem->new();
$menu_hokus_item_novy->set_label("Nový");

my $menu_hokus_item_ulozit = Gtk3::MenuItem->new();
$menu_hokus_item_ulozit->set_label("Uložit");

my $menu_hokus_item_zavrit = Gtk3::MenuItem->new();
$menu_hokus_item_zavrit->set_label("Zavřít");

$menu_hokus->append($menu_hokus_item_soubor);
$menu_hokus->append($menu_hokus_item_novy);
$menu_hokus->append($menu_hokus_item_ulozit);
$menu_hokus->append($menu_hokus_item_zavrit);

$menu_bar_item_hokus->set_submenu($menu_hokus);

my $menu_pokus = Gtk3::Menu->new();

my $menu_pokus_item_napoveda = Gtk3::MenuItem->new();
$menu_pokus_item_napoveda->set_label("Nápověda");

my $menu_pokus_item_oaplikaci = Gtk3::MenuItem->new();
$menu_pokus_item_oaplikaci->set_label("O aplikaci");

$menu_pokus->append($menu_pokus_item_napoveda);
$menu_pokus->append($menu_pokus_item_oaplikaci);

$menu_bar_item_pokus->set_submenu($menu_pokus);

my $vbox = Gtk3::VBox->new(0, 5);
$vbox->pack_start($menu_bar, FALSE, FALSE, 0);
$vbox->pack_start($label, FALSE, FALSE, 5);
$vbox->pack_end($statusbar, FALSE, FALSE, 0);

my $window = Gtk3::Window->new("toplevel");
$window->signal_connect("destroy" => sub {
    &quitf();
});
$window->add($vbox);
$window->show_all();

Gtk3->main;

__END__

Co do něj přidat, aby se dosáhlo kýženého výsledku?

Mám totiž (jinou) aplikaci, která podporuje různé klávesové zkratky, a já bych je chtěl uvést v hlavním menu u jeho jednotlivých položek, tak, jak je to zvykem.

Předem děkuji za všechny podnětné odpovědi.

Odpovědi

18.4.2013 19:14 potato
Rozbalit Rozbalit vše Re: Gtk3 Perl menu a klávesové zkratky
Nebudu se pokoušet psát něco v Perlu, nicméně jsou různé možnosti. Udělat to totálně ručně včetně vytváření GtkAccelLabel a jejich cpaní do těch položek menu. To vynechávám. Udělat to celé high-level přes UIManager, builder, etc. a nematlat se s konstrukcí widgetů v kódu. To asi nechceš. Takže ta středně ruční cesta:

1. Nastavíš položkám menu accel_path (cestu).

2. Vytvoříš (nebo zrecykluješ) AccelGroup, kterou nastavíš jak těm menu, tak tomu oknu.

3. Definuješ akcelerátory pomocí accel_map_add_entry(), která bere právě ty cesty nastavené v bodě 1.

Příklad v Pythonu bude snad alespoň trochu podobný:
from gi.repository import Gtk, Gdk

w = Gtk.Window()
w.set_default_size(300, -1)
w.connect('destroy', Gtk.main_quit)

m = Gtk.MenuBar()
w.add(m)

i = Gtk.MenuItem()
i.set_label('Menu')
i.set_accel_path('<main>/Menu')
m.add(i)

mm = Gtk.Menu()
i.set_submenu(mm)
mm.set_accel_group(Gtk.AccelGroup())
w.add_accel_group(mm.get_accel_group())

ii = Gtk.MenuItem(label='Text')
ii.set_accel_path('<main>/Menu/Test')
mm.add(ii)

a = Gtk.AccelMap.get()
a.add_entry('<main>/Menu/Test', Gdk.KEY_t, Gdk.ModifierType.CONTROL_MASK)

w.show_all()
Gtk.main()

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.