package TkDeviceCommon2
@ISA = qw()

sub new
my ($module, $app) = @_;
return $this;

sub DESTROY
my $this = shift;
	$this->SUPER::DESTROY(

sub ChooseASaveFile
my ($this, $filepath, $defpath, $fmask) = @_;
return undef;
return $filepath;

sub ChooseSaveFile
my ($this, $path, $fmask, $widget) = @_;
return $filepath;

sub ChooseAFile
my ($this, $mode, $fmask, $defstr, $message, $type, $widget, $Option) = @_;
return undef if(!defined $filepath or $filepath eq '');
return $filepath;

sub ChooseFile
my ($this, $action, $fmask, $Option, $name, $Frame) = @_;
return undef if(!defined $filepath or $filepath eq '');
return undef unless($ret);
return $ret;

sub EditFile
my ($this, $Option, $name, $Frame) = @_;

sub ReadParameterFile
my ($this, $filepath) = @_;
return undef unless($ret);
return 1;

sub SaveSampleFile
my ($this, $Option, $filepath, $name, $Frame, $DoConfirm) = @_;
return;
return undef if($button eq 'No');
return undef;
return 1;

sub SaveParameterFile
my ($this, $Option, $filepath, $name, $Frame, $DoConfirm) = @_;
return;
return undef if($button eq 'No');

sub MakeChooseFileEntry
my ($this, $Frame, $name, $Label, $pVariable, 
			$ButtonLabel,   
			$UseChooseButton, $ChooseCommand,
			$UseSaveButton,   $SaveCommand,
			$UseEditButton,   $EditCommand,
			$pDataLabelList) = @_;
return $ChildFrame;

sub MakeChooseFilePane
my ($this, $Frame, $pChooseFileArray) = @_;
							$this->ChooseFile("save", $FileMask, "ChooseParameterFile", 
						$ButtonHash{save}, sub { $this->SaveParameterFile("SaveParam", '', 
						$ButtonHash{edit}, sub { $this->EditFile('EditParam', 
								$this->ChooseFile("open", $FileMask, "ChooseSample1File", 
						$ButtonHash{save}, sub { $this->SaveSampleFile($VarName, '', 
						$ButtonHash{edit}, sub { $this->EditFile("Edit$VarName", 
return $ChildFrame;

sub LoadPorts
my ($this, $lb) = @_;
return $lb;

sub LoadDevices
my ($this, $lb, $Function, $IsPrint) = @_;
return $lb;

sub MakeDelimiterListBox
my ($this, $Name, $Frame, $Label, $Width, $pFunction) = @_;
return $ChildFrame;

sub MakePortListBox
my ($this, $Name, $Frame, $Label, $Width, $pFunction) = @_;
return $ChildFrame;

sub MakeDeviceListBox
my ($this, $Name, $Frame, $Label, $Width, $Function, $pFunction) = @_;
return $ChildFrame;

sub MakeButtons
my ($this, $MainFrame, $pButtonArray) = @_;
return $ChildFrame;

sub MakRangeFrame
my ($this, $MainFrame, $MinVarName,  $MinLabel,  $pMinVar,  $MinFormat,  $MinUnit,
					       $MaxVarName,  $MaxLabel,  $pMaxVar,  $MaxFormat,  $MaxUnit,
					       $SkipVarName, $SkipLabel, $pSkipVar, $SkipFormat, $SkipUnit, 
					       $EntryWidth,  $pComponentArray) = @_;
return $ChildFrame;

sub MakeCheckbutton
my ($this, $Frame, $name, $Label, $pVariable, $OnValue, $OffValue) = @_;
return $this->{"${name}Checkbutton"};

sub MakeLabelEntry
my ($this, $Frame, $name, $label1, $pVariable, $format, $EntryWidth, $label2, $row, $column, $state) = @_;
	$ChildFrame->{Label2}->bind('<FocusIn>',  [ sub { $this->EntryFocusedIn(
	$ChildFrame->{Label2}->bind('<FocusOut>', [ sub { $this->EntryFocusedOut(
return $ChildFrame;

sub MakeCheckEntry
my ($this, $Frame, $name, $label1, $pCheckVariable, $pVariable, $format, $EntryWidth, $label2, $row, $column, $state) = @_;
	$ChildFrame->{Entry}->bind('<FocusIn>',  [ sub { $this->EntryFocusedIn(
	$ChildFrame->{Entry}->bind('<FocusOut>', [ sub { $this->EntryFocusedOut(
return $this->{"${name}Button"} = $button;
return $ChildFrame->{Entry};
return $ChildFrame;

sub ConvertDelimiterString
my ($this, $delim) = @_;
return $delim;

sub Disconnect
my ($this, $pDevice) = @_;

sub Connect
my ($this, $Device, $Port, $IsPrint) = @_;
return $pDevice;

sub CSVView
my ($this, $widget, $event, $name) = @_;

sub Start
my ($this, $widget, $event, $name) = @_;

sub StartMeasurement0
my ($this, $widget) = @_;
return $this->Measure($this->{ini});

sub StopMeasurement0
my ($this, $widget) = @_;

sub Measure
my ($this, $ini) = @_;

sub StopMeasurement
my ($this, $ini) = @_;

sub Close
my ($this, $DoConfirm) = @_;
return if($button eq 'No');