mirror of
				https://github.com/SoftFever/OrcaSlicer.git
				synced 2025-10-30 12:11:15 -06:00 
			
		
		
		
	Removed BonjourBrowser.pm, SectionCut.pm and the associated
command line section cut tool.
This commit is contained in:
		
							parent
							
								
									abbfac0404
								
							
						
					
					
						commit
						86b79f89ad
					
				
					 4 changed files with 0 additions and 360 deletions
				
			
		|  | @ -1,53 +0,0 @@ | |||
| # A tiny dialog to select an OctoPrint device to print to. | ||||
| 
 | ||||
| package Slic3r::GUI::BonjourBrowser; | ||||
| use strict; | ||||
| use warnings; | ||||
| use utf8; | ||||
| 
 | ||||
| use Wx qw(:dialog :id :misc :sizer :choicebook wxTAB_TRAVERSAL); | ||||
| use Wx::Event qw(EVT_CLOSE); | ||||
| use base 'Wx::Dialog'; | ||||
| 
 | ||||
| sub new { | ||||
|     my $class = shift; | ||||
|     my ($parent, $devices) = @_; | ||||
|     my $self = $class->SUPER::new($parent, -1, "Device Browser", wxDefaultPosition, [350,700], wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER); | ||||
|      | ||||
|     $self->{devices} = $devices; | ||||
|      | ||||
|     # label | ||||
|     my $text = Wx::StaticText->new($self, -1, "Choose an OctoPrint device in your network:", wxDefaultPosition, wxDefaultSize); | ||||
|      | ||||
|     # selector | ||||
|     $self->{choice} = my $choice = Wx::Choice->new($self, -1, wxDefaultPosition, wxDefaultSize, | ||||
|         [ map $_->name, @{$self->{devices}} ]); | ||||
|      | ||||
|     my $main_sizer = Wx::BoxSizer->new(wxVERTICAL); | ||||
|     $main_sizer->Add($text, 1, wxEXPAND | wxALL, 10); | ||||
|     $main_sizer->Add($choice, 1, wxEXPAND | wxALL, 10); | ||||
|     $main_sizer->Add($self->CreateButtonSizer(wxOK | wxCANCEL), 0, wxEXPAND); | ||||
|      | ||||
|     $self->SetSizer($main_sizer); | ||||
|     $self->SetMinSize($self->GetSize); | ||||
|     $main_sizer->SetSizeHints($self); | ||||
|      | ||||
|     # needed to actually free memory | ||||
|     EVT_CLOSE($self, sub { | ||||
|         $self->EndModal(wxID_OK); | ||||
|         $self->Destroy; | ||||
|     }); | ||||
|      | ||||
|     return $self; | ||||
| } | ||||
| 
 | ||||
| sub GetValue { | ||||
|     my ($self) = @_; | ||||
|     return $self->{devices}[ $self->{choice}->GetSelection ]->address; | ||||
| } | ||||
| sub GetPort { | ||||
|     my ($self) = @_; | ||||
|     return $self->{devices}[ $self->{choice}->GetSelection ]->port; | ||||
| } | ||||
| 
 | ||||
| 1; | ||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue
	
	 bubnikv
						bubnikv