STLExtract 1.0.0

data/Slic3r/Linux/lib/std/Wx/GLCanvas.pm

@@ -0,0 +1,84 @@
+#############################################################################
+## Name:        lib/Wx/GLCanvas.pm
+## Purpose:     loader for Wx::GLCanvas.pm
+## Author:      Mattia Barbon
+## Modified by:
+## Created:     26/07/2003
+## RCS-ID:      $Id: GLCanvas.pm 2489 2008-10-27 19:50:51Z mbarbon $
+## Copyright:   (c) 2003, 2005, 2007-2009 Mattia Barbon
+## Licence:     This program is free software; you can redistribute it and/or
+##              modify it under the same terms as Perl itself
+#############################################################################
+
+package Wx::GLCanvas;
+
+use strict;
+use Wx;
+use base 'Wx::ScrolledWindow';
+
+require Exporter; *import = \&Exporter::import;
+our @EXPORT_OK =
+  ( qw(WX_GL_RGBA WX_GL_BUFFER_SIZE WX_GL_LEVEL WX_GL_DOUBLEBUFFER
+       WX_GL_STEREO WX_GL_AUX_BUFFERS WX_GL_MIN_RED WX_GL_MIN_GREEN
+       WX_GL_MIN_BLUE WX_GL_MIN_ALPHA WX_GL_DEPTH_SIZE WX_GL_STENCIL_SIZE
+       WX_GL_MIN_ACCUM_RED WX_GL_MIN_ACCUM_GREEN WX_GL_MIN_ACCUM_BLUE
+       WX_GL_MIN_ACCUM_ALPHA) );
+our %EXPORT_TAGS =
+  ( all        => \@EXPORT_OK,
+    everything => \@EXPORT_OK,
+    );
+
+$Wx::GLCanvas::VERSION = '0.09';
+
+Wx::load_dll( 'gl' );
+Wx::wx_boot( 'Wx::GLCanvas', $Wx::GLCanvas::VERSION );
+
+our $AUTOLOAD;
+sub AUTOLOAD {
+  ( my $constname = $AUTOLOAD ) =~ s<^.*::>{};
+  return if $constname eq 'DESTROY';
+  my $val = constant( $constname, 0 );
+
+  if( $! != 0 ) {
+# re-add this if need support for autosplitted subroutines
+#    $AutoLoader::AUTOLOAD = $AUTOLOAD;
+#    goto &AutoLoader::AUTOLOAD;
+    Wx::_croak( "Error while autoloading '$AUTOLOAD'" );
+  }
+
+  eval "sub $AUTOLOAD() { $val }";
+  goto &$AUTOLOAD;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Wx::GLCanvas - interface to wxWidgets' OpenGL canvas
+
+=head1 SYNOPSIS
+
+    use OpenGL; # or any other module providing OpenGL API
+    use Wx::GLCanvas;
+
+=head1 DESCRIPTION
+
+The documentation for this module is included in the main
+wxPerl distribution (wxGLCanvas).
+
+=head1 AUTHOR
+
+Mattia Barbon <mbarbon@cpan.org>
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
+# local variables:
+# mode: cperl
+# end:

data/Slic3r/Linux/lib/std/Wx/Grid.pm

@@ -0,0 +1,128 @@
+#############################################################################
+## Name:        ext/grid/lib/Wx/Grid.pm
+## Purpose:     Wx::Grid (pulls in all Wx::Grid* stuff)
+## Author:      Mattia Barbon
+## Modified by:
+## Created:     04/12/2001
+## RCS-ID:      $Id: Grid.pm 2170 2007-08-17 22:53:11Z mbarbon $
+## Copyright:   (c) 2001-2002, 2004-2007 Mattia Barbon
+## Licence:     This program is free software; you can redistribute it and/or
+##              modify it under the same terms as Perl itself
+#############################################################################
+
+package Wx::Grid;
+
+use Wx;
+use strict;
+
+use vars qw($VERSION);
+
+$VERSION = '0.01';
+
+Wx::load_dll( 'adv' );
+Wx::wx_boot( 'Wx::Grid', $VERSION );
+
+SetEvents();
+
+#
+# properly setup inheritance tree
+#
+
+no strict;
+
+package Wx::Grid; @ISA = qw(Wx::ScrolledWindow);
+package Wx::GridWindow; @ISA = qw(Wx::Grid);
+package Wx::GridEvent; @ISA = qw(Wx::NotifyEvent);
+package Wx::GridSizeEvent; @ISA = qw(Wx::NotifyEvent);
+package Wx::GridRangeSelectEvent; @ISA = qw(Wx::NotifyEvent);
+package Wx::GridEditorCreatedEvent; @ISA = qw(Wx::CommandEvent);
+
+package Wx::GridCellRenderer;
+package Wx::GridCellStringRenderer; @ISA = qw(Wx::GridCellRenderer);
+package Wx::GridCellNumberRenderer; @ISA = qw(Wx::GridCellRenderer);
+package Wx::GridCellFloatRenderer; @ISA = qw(Wx::GridCellRenderer);
+package Wx::GridCellBoolRenderer; @ISA = qw(Wx::GridCellRenderer);
+package Wx::GridCellAutoWrapStringRenderer; @ISA = qw(Wx::GridCellStringRenderer);
+package Wx::GridCellEnumRenderer; @ISA = qw(Wx::GridCellStringRenderer);
+package Wx::GridCellDateTimeRenderer; @ISA = qw(Wx::GridCellStringRenderer);
+package Wx::PlGridCellRenderer; @ISA = qw(Wx::GridCellRenderer);
+
+package Wx::GridCellEditor;
+package Wx::GridCellEditorEvtHandler; @ISA = qw(Wx::EvtHandler);
+package Wx::GridCellBoolEditor; @ISA = qw(Wx::GridCellEditor);
+package Wx::GridCellTextEditor; @ISA = qw(Wx::GridCellEditor);
+package Wx::GridCellFloatEditor; @ISA = qw(Wx::GridCellEditor);
+package Wx::GridCellNumberEditor; @ISA = qw(Wx::GridCellEditor);
+package Wx::GridCellChoiceEditor; @ISA = qw(Wx::GridCellEditor);
+package Wx::GridCellAutoWrapStringEditor; @ISA = qw(Wx::GridCellTextEditor);
+package Wx::GridCellEnumEditor; @ISA = qw(Wx::GridCellChoiceEditor);
+package Wx::PlGridCellEditor; @ISA = qw(Wx::GridCellEditor);
+
+package Wx::GridTableBase;
+package Wx::PlGridTable; @ISA = qw(Wx::GridTableBase);
+
+package Wx::Grid;
+
+use strict;
+
+# this is for make_ovl_list to find constants
+sub CellToRect {
+  my $this = shift;
+
+  Wx::_match( @_, $Wx::_wgco, 1 ) && return $this->CellToRectCo( @_ );
+  Wx::_match( @_, $Wx::_n_n, 2 )  && return $this->CellToRectXY( @_ );
+  Wx::_croak Wx::_ovl_error;
+}
+
+sub _create_ovls {
+  my $name = shift;
+
+  no strict;
+  die $name unless defined &{$name . 'XY'} && defined &{$name . 'Co'};
+  use strict;
+
+  eval <<EOT;
+sub ${name} {
+  my \$this = shift;
+
+  Wx::_match( \@_, \$Wx::_wgco, 1 ) && return \$this->${name}Co( \@_ );
+  Wx::_match( \@_, \$Wx::_n_n, 2 )  && return \$this->${name}XY( \@_ );
+  Wx::_croak Wx::_ovl_error;
+}
+EOT
+
+  die $@ if $@;
+}
+
+# for copytex.pl
+#!sub GetCellValue
+#!sub IsInSelection
+#!sub IsVisible
+#!sub MakeCellVisible
+#!sub GetDefaultEditorForCell
+
+foreach my $i ( qw(GetCellValue IsInSelection IsVisible MakeCellVisible
+                   GetDefaultEditorForCell) )
+  { _create_ovls( $i ); }
+
+sub SelectBlock {
+  my $this = shift;
+
+  Wx::_match( @_, $Wx::_wgco_wgco_b, 3 ) && return $this->SelectBlockPP( @_ );
+  Wx::_match( @_, $Wx::_n_n_n_n_b, 5 )  && return $this->SelectBlockXYWH( @_ );
+  Wx::_croak Wx::_ovl_error;
+}
+
+sub SetCellValue {
+  my $this = shift;
+
+  Wx::_match( @_, $Wx::_wgco_s, 2 ) && return $this->SetCellValueCo( @_ );
+  Wx::_match( @_, $Wx::_n_n_s, 3 )  && return $this->SetCellValueXY( @_ );
+  Wx::_croak Wx::_ovl_error;
+}
+
+1;
+
+# Local variables: #
+# mode: cperl #
+# End: #

data/Slic3r/Linux/lib/std/Wx/Html.pm

@@ -0,0 +1,67 @@
+#############################################################################
+## Name:        ext/html/lib/Wx/Html.pm
+## Purpose:     Wx::Html (pulls in all Wx::Html* stuff)
+## Author:      Mattia Barbon
+## Modified by:
+## Created:     17/03/2001
+## RCS-ID:      $Id: Html.pm 2084 2007-07-18 21:34:14Z vadz $
+## Copyright:   (c) 2001-2007 Mattia Barbon
+## Licence:     This program is free software; you can redistribute it and/or
+##              modify it under the same terms as Perl itself
+#############################################################################
+
+package Wx::Html;
+
+use Wx;
+use strict;
+
+use vars qw($VERSION);
+
+$VERSION = '0.01';
+
+Wx::load_dll( 'net' );
+Wx::load_dll( 'html' );
+Wx::wx_boot( 'Wx::Html', $VERSION );
+
+#
+# properly setup inheritance tree
+#
+
+no strict;
+
+package Wx::HelpControllerBase; # warning fix
+package Wx::HtmlWindow;         @ISA = qw(Wx::ScrolledWindow);
+package Wx::HtmlHelpController; @ISA = qw(Wx::HelpControllerBase);
+package Wx::HtmlParser;
+package Wx::HtmlWinParser;      @ISA = qw(Wx::HtmlParser);
+package Wx::HtmlTag;
+package Wx::PlHtmlTag;          @ISA = qw(Wx::HtmlTag);
+package Wx::HtmlTagHandler;
+package Wx::PlHtmlTagHandler;   @ISA = qw(Wx::HtmlTagHandler);
+package Wx::HtmlWinTagHandler;  @ISA = qw(Wx::HtmlTagHandler);
+package Wx::PlHtmlWinTagHandler;@ISA = qw(Wx::HtmlWinTagHandler);
+package Wx::HtmlCell;
+package Wx::HtmlWordCell;       @ISA = qw(Wx::HtmlCell);
+package Wx::HtmlContainerCell;  @ISA = qw(Wx::HtmlCell);
+package Wx::HtmlFontCell;       @ISA = qw(Wx::HtmlCell);
+package Wx::HtmlColourCell;     @ISA = qw(Wx::HtmlCell);
+package Wx::HtmlWidgetCell;     @ISA = qw(Wx::HtmlCell);
+package Wx::HtmlListBox;        @ISA = qw(Wx::VListBox);
+package Wx::PlHtmlListBox;      @ISA = qw(Wx::HtmlListBox);
+package Wx::SimpleHtmlListBox;  @ISA = qw(Wx::HtmlListBox);
+package Wx::HtmlCellEvent;      @ISA = qw(Wx::CommandEvent);
+package Wx::HtmlLinkEvent;      @ISA = qw(Wx::CommandEvent);
+
+package Wx::Event;
+
+use strict;
+
+sub EVT_HTML_CELL_CLICKED($$$) { $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_HTML_CELL_CLICKED, $_[2] ) }
+sub EVT_HTML_CELL_HOVER($$$) { $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_HTML_CELL_HOVER, $_[2] ) }
+sub EVT_HTML_LINK_CLICKED($$$) { $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_HTML_LINK_CLICKED, $_[2] ) }
+
+1;
+
+# Local variables:
+# mode: cperl
+# End:

data/Slic3r/Linux/lib/std/Wx/Locale.pm

@@ -0,0 +1,61 @@
+#############################################################################
+## Name:        lib/Wx/Locale.pm
+## Purpose:     Wx::Locale
+## Author:      Mattia Barbon
+## Modified by:
+## Created:     02/02/2001
+## RCS-ID:      $Id: Locale.pm 2057 2007-06-18 23:03:00Z mbarbon $
+## Copyright:   (c) 2001-2002 Mattia Barbon
+## Licence:     This program is free software; you can redistribute it and/or
+##              modify it under the same terms as Perl itself
+#############################################################################
+
+package Wx::Locale;
+
+use strict;
+
+*Wx::gettext = \&Wx::GetTranslation;
+*Wx::gettext_noop = sub { $_[0] };
+
+@Wx::Locale::T::ISA = qw(Exporter);
+
+sub import {
+  my $temp = shift;
+
+  require Exporter;
+
+  package Wx::Locale::T;
+  no strict;
+
+  my( $from, $to, @export );
+  if( @_ == 1 && $_[0] eq ':default' ) {
+    @_ = ( 'gettext', 'gettext', 'gettext_noop', 'gettext_noop' )
+  }
+
+  while( @_ ) {
+    $from = shift;
+    $to = shift;
+
+    *{"Wx::Locale::T::$to"} = *{"Wx::$from"};
+    push @export, $to;
+  }
+
+  push @Wx::Locale::T::EXPORT_OK, @export;
+  Wx::Locale::T->export_to_level( 1, $temp, @export );
+}
+
+sub new {
+  shift;
+
+  # this should be conditionally defined, but it does no harm to leave
+  # like it is
+  Wx::_match( @_, $Wx::_n_n, 1, 1 )       && return Wx::Locale::newShort( @_ );
+  Wx::_match( @_, $Wx::_s_s_s_b_b, 1, 1 ) && return Wx::Locale::newLong( @_ );
+  Wx::_croak Wx::_ovl_error;
+}
+
+1;
+
+# Local variables: #
+# mode: cperl #
+# End: #

data/Slic3r/Linux/lib/std/Wx/Menu.pm

@@ -0,0 +1,74 @@
+#############################################################################
+## Name:        lib/Wx/Menu.pm
+## Purpose:     Wx::Menu class
+## Author:      Mattia Barbon
+## Modified by:
+## Created:     25/11/2000
+## RCS-ID:      $Id: Menu.pm 2057 2007-06-18 23:03:00Z mbarbon $
+## Copyright:   (c) 2000-2003, 2005-2006 Mattia Barbon
+## Licence:     This program is free software; you can redistribute it and/or
+##              modify it under the same terms as Perl itself
+#############################################################################
+
+package Wx::Menu;
+
+use strict;
+
+sub Append {
+  my( $this ) = shift;
+
+  Wx::_match( @_, $Wx::_n_s_wmen, 3, 1 ) && ( return $this->AppendSubMenu_( @_ ) );
+  Wx::_match( @_, $Wx::_n_s, 2, 1 )      && ( return $this->AppendString( @_ ) );
+  Wx::_match( @_, $Wx::_wmit, 1 )        && ( return $this->AppendItem( @_ ) );
+  Wx::_croak Wx::_ovl_error;
+}
+
+sub Delete {
+  my( $this ) = shift;
+
+  Wx::_match( @_, $Wx::_wmit, 1 ) && ( $this->DeleteItem( @_ ), return );
+  Wx::_match( @_, $Wx::_n, 1 )    && ( $this->DeleteId( @_ ), return );
+  Wx::_croak Wx::_ovl_error;
+}
+
+sub Destroy {
+  my( $this ) = shift;
+
+  @_ == 0                     && ( $this->DestroyMenu(), return );
+  Wx::_match( @_, $Wx::_wmit, 1 ) && ( $this->DestroyItem( @_ ), return );
+  Wx::_match( @_, $Wx::_n, 1 )    && ( $this->DestroyId( @_ ), return );
+  Wx::_croak Wx::_ovl_error;
+}
+
+sub Remove {
+  my( $this ) = shift;
+
+  Wx::_match( @_, $Wx::_wmit, 1 ) && return $this->RemoveItem( @_ );
+  Wx::_match( @_, $Wx::_n, 1 )    && return $this->RemoveId( @_ );
+  Wx::_croak Wx::_ovl_error;
+}
+
+sub Prepend {
+  my( $this ) = shift;
+
+  Wx::_match( @_, $Wx::_n_s_wmen, 3, 1 ) && ( $this->PrependSubMenu( @_ ), return );
+  Wx::_match( @_, $Wx::_n_s, 2, 1 )      && ( $this->PrependString( @_ ), return );
+  Wx::_match( @_, $Wx::_wmit, 1 )        && ( $this->PrependItem( @_ ), return );
+  Wx::_croak Wx::_ovl_error;
+}
+
+sub Insert {
+  my( $this ) = shift;
+
+  Wx::_match( @_, $Wx::_n_n_s_wmen, 4, 1 ) && ( $this->InsertSubMenu( @_ ), return );
+  Wx::_match( @_, $Wx::_n_n_s, 3, 1 )      && ( $this->InsertString( @_ ), return );
+  Wx::_match( @_, $Wx::_n_wmit, 2 )        && ( $this->InsertItem( @_ ), return );
+  Wx::_croak Wx::_ovl_error;
+}
+
+
+1;
+
+# Local variables: #
+# mode: cperl #
+# End: #

data/Slic3r/Linux/lib/std/Wx/Mini.pm

@@ -0,0 +1,181 @@
+package Wx::Mini; # for RPM
+
+package Wx;
+
+use strict;
+
+our( $VERSION, $XS_VERSION );
+our $alien_key = 'gtk2_2_9_3_uni_gcc_3_4';
+
+{
+    my $VAR1;
+    $Wx::dlls = $VAR1 = {
+          'richtext' => 'libwx_gtk2u_richtext-2.9.so',
+          'core' => 'libwx_gtk2u_core-2.9.so',
+          'gl' => 'libwx_gtk2u_gl-2.9.so',
+          'net' => 'libwx_baseu_net-2.9.so',
+          'html' => 'libwx_gtk2u_html-2.9.so',
+          'media' => 'libwx_gtk2u_media-2.9.so',
+          'xml' => 'libwx_baseu_xml-2.9.so',
+          'animate' => 'libwx_gtk2u_animate-2.9.so',
+          'xrc' => 'libwx_gtk2u_xrc-2.9.so',
+          'base' => 'libwx_baseu-2.9.so',
+          'aui' => 'libwx_gtk2u_aui-2.9.so',
+          'fl' => 'libwx_gtk2u_fl-2.9.so',
+          'stc' => 'libwx_gtk2u_stc-2.9.so',
+          'gizmos' => 'libwx_gtk2u_gizmos-2.9.so',
+          'qa' => 'libwx_gtk2u_qa-2.9.so',
+          'webview' => 'libwx_gtk2u_webview-2.9.so',
+          'propgrid' => 'libwx_gtk2u_propgrid-2.9.so',
+          'adv' => 'libwx_gtk2u_adv-2.9.so',
+          'ribbon' => 'libwx_gtk2u_ribbon-2.9.so'
+        };
+;
+}
+
+$VERSION = '0.9906'; # bootstrap will catch wrong versions
+$XS_VERSION = $VERSION;
+$VERSION = eval $VERSION;
+
+
+#
+# Set Front Process on Mac
+#
+# Mac will be set to front process unless we are in test harness or
+# and enivronment var is set
+# e.g. In a syntax checking editor, set environment variable
+# WXPERL_OPTIONS to include the string NO_MAC_SETFRONTPROCESS
+
+sub MacSetFrontProcess {
+    return if(  ( !defined( &Wx::_MacSetFrontProcess ) )
+              #||( exists($ENV{HARNESS_ACTIVE}) && $ENV{HARNESS_ACTIVE} )
+              ||( exists($ENV{WXPERL_OPTIONS}) && $ENV{WXPERL_OPTIONS} =~ /NO_MAC_SETFRONTPROCESS/)
+              );
+    Wx::_MacSetFrontProcess();
+}
+
+#
+# XSLoader/DynaLoader wrapper
+#
+our( $wx_path );
+our( $wx_binary_loader );
+
+# see the comment in Wx.xs:_load_plugin for why this is necessary
+sub wxPL_STATIC();
+sub wx_boot($$) {
+  local $ENV{PATH} = $wx_path . ';' . $ENV{PATH} if $wx_path;
+  if( $_[0] eq 'Wx' || !wxPL_STATIC ) {
+    no warnings 'redefine';
+    if( $] < 5.006 ) {
+      require DynaLoader;
+      local *DynaLoader::dl_load_file = \&Wx::_load_plugin if $_[0] ne 'Wx';
+      no strict 'refs';
+      push @{"$_[0]::ISA"}, 'DynaLoader';
+      $_[0]->bootstrap( $_[1] );
+    } else {
+      require XSLoader;
+      local *DynaLoader::dl_load_file = \&Wx::_load_plugin if $_[0] ne 'Wx';
+      XSLoader::load( $_[0], $_[1] );
+    }
+  } else {
+    no strict 'refs';
+    my $t = $_[0]; $t =~ tr/:/_/;
+    &{"_boot_$t"}( $_[0], $_[1] );
+  }
+}
+
+sub _alien_path {
+  return if defined $wx_path;
+  return unless length 'gtk_2_9_3_uni';
+  foreach ( @INC ) {
+    if( -d "$_/Alien/wxWidgets/gtk_2_9_3_uni" ) {
+      $wx_path = "$_/Alien/wxWidgets/gtk_2_9_3_uni/lib";
+      last;
+    }
+  }
+}
+
+_alien_path();
+
+sub _init_binary_loader {
+    return if $wx_binary_loader;
+    # load the Loader
+    # a custom loader may exist as Wx::Loader::Custom
+    # or a packager may have installed a loader already
+    eval{ require Wx::Loader::Custom };
+    $wx_binary_loader = 'Wx::Loader::Standard' if !$wx_binary_loader;
+}
+
+sub _start {
+    &_init_binary_loader;
+    $wx_path = $wx_binary_loader->set_binary_path;
+    wx_boot( 'Wx', $XS_VERSION ) if!$wx_binary_loader->boot_overload;
+    _boot_Constant( 'Wx', $XS_VERSION );
+    _boot_GDI( 'Wx', $XS_VERSION );
+
+    Load( 1 );
+    Wx::MacSetFrontProcess();
+}
+
+# legacy load functions
+
+sub set_load_function {
+    &_init_binary_loader;
+    $wx_binary_loader->external_set_load( $_[0] )
+}
+
+sub set_end_function  {
+    &_init_binary_loader;
+    $wx_binary_loader->external_set_unload( $_[0] )
+}
+
+
+# standard loader package - it gets
+# used if nothing overrides it
+# See Wx/Loader.pod
+
+package Wx::Loader::Standard;
+our @ISA = qw( Exporter );
+
+sub loader_info { 'Standard Distribution'; }
+
+sub set_binary_path { $Wx::wx_path }
+
+sub boot_overload { }
+
+# back compat overloading
+# by default load_dll and unload_dll are no-ops (dependencies
+# and the Wx lib are loaded via wx_boot above).
+# But custom loaders may override this
+
+# we need this to support deprecated
+# set_load_function / set_end_function fo a while.
+# As it is undocumented, should not need to maintain
+# this for long.
+
+# once support for set_load_function / set_end_function is
+# removed, the rest of this package is
+#
+# sub load_dll {}
+# sub unload_dll {}
+
+my( $load_fun, $unload_fun ) = ( \&_load_dll, \&_unload_dll );
+
+sub external_set_load { $load_fun = $_[1] }
+sub external_set_unload { $unload_fun = $_[1] }
+
+sub _load_dll {};
+sub _unload_dll {};
+
+sub load_dll {
+  shift;
+  goto &$load_fun;
+}
+
+sub unload_dll {
+  shift;
+  goto &$unload_fun;
+}
+
+
+1;