aboutsummaryrefslogtreecommitdiff
path: root/bin/arctica-browser
diff options
context:
space:
mode:
authorGZNGET FOSS Team <opensource@gznianguan.com>2017-11-02 13:29:24 +0100
committerGZNGET FOSS Team <opensource@gznianguan.com>2017-11-02 13:29:24 +0100
commit15db142129075ded61d2e7ed6d5e7a95091b1c18 (patch)
tree34a33b3053aa6d961fc1f2b1668cfce88d7a09e0 /bin/arctica-browser
parent0c0fc9640b09f2ec151dc6c5e19074f26fedf562 (diff)
downloadarctica-browser-15db142129075ded61d2e7ed6d5e7a95091b1c18.tar.gz
arctica-browser-15db142129075ded61d2e7ed6d5e7a95091b1c18.tar.bz2
arctica-browser-15db142129075ded61d2e7ed6d5e7a95091b1c18.zip
Bits and pieces
Diffstat (limited to 'bin/arctica-browser')
-rwxr-xr-xbin/arctica-browser14
1 files changed, 5 insertions, 9 deletions
diff --git a/bin/arctica-browser b/bin/arctica-browser
index 1bafea9..0b6b262 100755
--- a/bin/arctica-browser
+++ b/bin/arctica-browser
@@ -1,5 +1,4 @@
#!/usr/bin/perl -X -T
-
################################################################################
# _____ _
# |_ _| |_ ___
@@ -62,7 +61,7 @@ use Arctica::Browser::Core::Version;
my $ACO = Arctica::Core::eventInit->new({
app_name=>'arctica-browser',
app_class =>'tekiapp',
- app_version=>Arctica::Browser::Core::Version::$VERSION});
+ app_version=>1});
@@ -79,10 +78,10 @@ my $TeKiGtk3 = Arctica::Telekinesis::Application::Gtk3->new($ACO,{
LoadCSS();
my $main_window = Gtk3::Window->new('toplevel');
$main_window->signal_connect(destroy => sub {Gtk3->main_quit();});
-$main_window->set_title('TEST WINDOW');
+$main_window->set_title('Arctica Browser');
my $window_id = $TeKiGtk3->add_window($main_window);
-my $target_id = $TeKiGtk3->new_target($window_id,"multimedia");
+my $target_id = $TeKiGtk3->new_target($window_id,"webcontent");
$TeKiGtk3->{'targets'}{$target_id}{'tmplnkid'} = "null";#TMP GARBAGE
@@ -107,7 +106,7 @@ my $timeout2 = Glib::Timeout->add(900, sub {
$main_window->move($x,$y);
return 0;
});
-my $timeout3 = Glib::Timeout->add(1000, sub {
+my $timeout3 = Glib::Timeout->add(100, sub {
my ($os_x,$os_y) = $main_window->get_position;
my $x = ($os_x-1);
@@ -126,10 +125,7 @@ sub LoadCSS {
my $Screen = $Display->get_default_screen;
$Gtk3_CSS_Provider->load_from_data ([map ord, split //,"GtkSocket{
background-color: #000000;
- background-repeat: no-repeat;
- background-position: center;
- background-image: url('/usr/share/arctica-browser/eyesore_t.png');
}"]);
-
+# background-repeat: no-repeat;background-position: center;background-image: url('/usr/share/arctica-browser/eyesore_t.png');
Gtk3::StyleContext::add_provider_for_screen( $Screen, $Gtk3_CSS_Provider, Gtk3::STYLE_PROVIDER_PRIORITY_USER);
}