diff options
author | Thierry Vignaud <tv@mandriva.org> | 2009-09-14 15:37:15 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2009-09-14 15:37:15 +0000 |
commit | 98f12edca19f49a6f228958f4926e8c6a2e2100d (patch) | |
tree | c3b98d745af9acead6e77d0e3feadbe248c22877 /perl-install/standalone | |
parent | 87096e017eb46c8ea2ccdf5ef8fb17b7b7e1634d (diff) | |
download | drakx-backup-do-not-use-98f12edca19f49a6f228958f4926e8c6a2e2100d.tar drakx-backup-do-not-use-98f12edca19f49a6f228958f4926e8c6a2e2100d.tar.gz drakx-backup-do-not-use-98f12edca19f49a6f228958f4926e8c6a2e2100d.tar.bz2 drakx-backup-do-not-use-98f12edca19f49a6f228958f4926e8c6a2e2100d.tar.xz drakx-backup-do-not-use-98f12edca19f49a6f228958f4926e8c6a2e2100d.zip |
new small webkit based browser for rendering help and for FTW
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/display_help | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/perl-install/standalone/display_help b/perl-install/standalone/display_help new file mode 100755 index 000000000..611a6a839 --- /dev/null +++ b/perl-install/standalone/display_help @@ -0,0 +1,66 @@ +#!/usr/bin/perl + +# DrakBoot +# $Id: display_release_notes 242795 2008-05-29 15:38:07Z tv $ +# Copyright (C) 2009 Mandriva +# Thierry Vignaud +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +use lib qw(/usr/lib/libDrakX); +use common; +use any; +use mygtk2 qw(gtknew); +use ugtk2 qw(:wrappers :create); +use Gtk2::WebKit; + +my $view = gtknew('WebKit_View'); + +$view->open($ARGV[0]); + +# FIXME: merge this with mcc code into new mygtk2::set_standalone_main_window_size()? +my ($rootwin_width, $rootwin_height) = gtkroot()->get_size; +my ($default_width, $default_height); +my $wm = any::running_window_manager(); + +if ($wm) { + # wide enough to embedd help snapshots: + $default_width = $rootwin_width <= 800 ? 720 : 840; + $default_height = $rootwin_height <= 480 ? 420 : $rootwin_height <= 600 ? 523 : 600; +} else { + # full screen mode for First Time Wizard and the like: + ($default_width, $default_height) = ($rootwin_width, $rootwin_height); +} + +# TODO: got XID from mcc/... ? (transient & modal hints?) +my $w = ugtk2->new(N("Help"), width => $default_width, height => $default_height); + +gtkadd($w->{rwindow}, + gtkpack_(Gtk2::VBox->new, + if_($wm, 0, gtknew('Title2', label => N("Help"))), + 0, Gtk2::HSeparator->new, + 1, create_scrolled_window(gtkset_border_width($view, 5), [ 'never', 'automatic' ]), + #1, gtknew('ScrolledWindow', child => $view, border_width => 5, h_policy => 'never'); + 0, Gtk2::HSeparator->new, + #if_($wm, # We have JavaScritp issues for now, so let's keep the "close" button: + 0, gtkpack(create_hbox('end'), + gtknew('Button', text => N("Close"), clicked => sub { Gtk2->main_quit }) + ), + #), + ), + ); + +$w->{real_window}->show_all; +$w->main; |