diff --git a/src/external/MuSRFitGUI/devel/MuSRFit.pl b/src/external/MuSRFitGUI/devel/MuSRFit.pl index ad7744aa..2641c5e5 100755 --- a/src/external/MuSRFitGUI/devel/MuSRFit.pl +++ b/src/external/MuSRFitGUI/devel/MuSRFit.pl @@ -1,6 +1,6 @@ # Form implementation generated from reading ui file 'MuSRFit.ui' # -# Created: Thu Sep 24 20:22:29 2009 +# Created: Fri Oct 9 17:49:00 2009 # by: The PerlQt User Interface Compiler (puic) # # WARNING! All changes made in this file will be lost! @@ -41,7 +41,8 @@ use Qt::slots ShowMuSRT0 => [], T0Update => [], RunSelectionToggle => [], - fileBrowse => []; + fileBrowse => [], + AppendToFunctions => []; use Qt::attributes qw( musrfit_tabs RUNSPage @@ -1577,7 +1578,7 @@ sub NEW setName("MuSRFitform" ); } setSizePolicy(Qt::SizePolicy(3, 3, 1, 1, this->sizePolicy()->hasHeightForWidth()) ); - setMinimumSize(Qt::Size(23, 270) ); + setMinimumSize(Qt::Size(21, 275) ); setIcon($image0 ); setCentralWidget(Qt::Widget(this, "qt_central_widget")); @@ -1588,6 +1589,7 @@ sub NEW musrfit_tabs->setSizePolicy( Qt::SizePolicy(7, 7, 1, 1, musrfit_tabs->sizePolicy()->hasHeightForWidth()) ); musrfit_tabs->setMinimumSize( Qt::Size(560, 400) ); musrfit_tabs->setMaximumSize( Qt::Size(95, 32767) ); + musrfit_tabs->setMouseTracking( 0 ); RUNSPage = Qt::Widget(musrfit_tabs, "RUNSPage"); @@ -1658,7 +1660,7 @@ sub NEW groupBox7->setAlignment( int(&Qt::GroupBox::AlignTop) ); my $LayoutWidget_2 = Qt::Widget(groupBox7, '$LayoutWidget_2'); - $LayoutWidget_2->setGeometry( Qt::Rect(8, 21, 625, 125) ); + $LayoutWidget_2->setGeometry( Qt::Rect(8, 21, 520, 125) ); my $layout42 = Qt::GridLayout($LayoutWidget_2, 1, 1, 5, 6, '$layout42'); FitType2 = Qt::ComboBox(0, $LayoutWidget_2, "FitType2"); @@ -2187,7 +2189,7 @@ sub NEW InitParamTable->horizontalHeader()->setLabel(InitParamTable->numCols() - 1, trUtf8("Min")); InitParamTable->setNumCols(InitParamTable->numCols() + 1); InitParamTable->horizontalHeader()->setLabel(InitParamTable->numCols() - 1, trUtf8("Max")); - InitParamTable->setGeometry( Qt::Rect(5, 5, 445, 355) ); + InitParamTable->setGeometry( Qt::Rect(5, 5, 545, 355) ); InitParamTable->setSizePolicy( Qt::SizePolicy(5, 5, 0, 0, InitParamTable->sizePolicy()->hasHeightForWidth()) ); InitParamTable->setMaximumSize( Qt::Size(32767, 32767) ); InitParamTable->setFocusPolicy( &Qt::Table::TabFocus() ); @@ -2215,7 +2217,7 @@ sub NEW groupTitle->setMargin( int(5) ); my $LayoutWidget_9 = Qt::Widget(groupTitle, '$LayoutWidget_9'); - $LayoutWidget_9->setGeometry( Qt::Rect(6, 8, 530, 100) ); + $LayoutWidget_9->setGeometry( Qt::Rect(6, 8, 515, 100) ); my $layout25_2 = Qt::VBoxLayout($LayoutWidget_9, 11, 6, '$layout25_2'); TITLELabel = Qt::Label($LayoutWidget_9, "TITLELabel"); @@ -2727,7 +2729,7 @@ sub NEW MenuBar->insertSeparator( 8 ); languageChange(); - my $resize = Qt::Size(576, 497); + my $resize = Qt::Size(579, 501); $resize = $resize->expandedTo(minimumSizeHint()); resize( $resize ); clearWState( &Qt::WState_Polished ); @@ -2754,6 +2756,7 @@ sub NEW Qt::Object::connect(helpAboutAction, SIGNAL "activated()", this, SLOT "helpAbout()"); Qt::Object::connect(T0, SIGNAL "activated()", this, SLOT "ShowMuSRT0()"); Qt::Object::connect(Plot, SIGNAL "activated()", this, SLOT "GoPlot()"); + Qt::Object::connect(AddConstraint, SIGNAL "clicked()", this, SLOT "AppendToFunctions()"); setTabOrder(musrfit_tabs, RunNumbers); setTabOrder(RunNumbers, BeamLine); @@ -3575,7 +3578,7 @@ sub UpdateMSRFileInitTable textMSROutput->append("$line"); } - my $FPBlock_ref=MSR::ExtractParamBlk(@lines); + (my $TBlock_ref, my $FPBlock_ref)=MSR::ExtractBlks(@lines); my @FPBloc = @$FPBlock_ref; my $PCount=0; @@ -3677,7 +3680,7 @@ sub ActivateShComp my $Component=1; CParamsCombo->clear(); - TheoryBlock->setText($Full_T_Block); + foreach my $FitType (@FitTypes) { my $Parameters=$Paramcomp[$Component-1]; my @Params = split( /\s+/, $Parameters ); @@ -3706,18 +3709,20 @@ sub ActivateShComp for (my $i=1; $i<=9;$i++) { my $ParamChkBx="ShParam_".$Component."_".$i; my $ChkBx = child($ParamChkBx); - my $CParam = $Params[$i-1]." ".$Component; - if ($Params[$i-1] ne "") { + my $CParam = $Params[$i-1]."_".$Component; + if ($Params[$i-1] ne "" && $Params[$i-1] ne "Alpha" && $Params[$i-1] ne "N0" && $Params[$i-1] ne "NBg") { $ChkBx->setHidden(0); $ChkBx->setEnabled(1); $ChkBx ->setText($Params[$i-1]); CParamsCombo->insertItem($CParam,-1); + $Full_T_Block=~ s/\b$Params[$i-1]\b/$CParam/; } else { $ChkBx->setHidden(1); } } $Component++; } + TheoryBlock->setText($Full_T_Block); } @@ -3924,6 +3929,26 @@ sub fileBrowse } +sub AppendToFunctions +{ + + my $ParName=CParamsCombo->currentItem; + my $Full_T_Block=TheoryBlock->text; + my $Constraint=ConstraintLine->text; +# Then clear the text + ConstraintLine->setText(""); + +# Check how many constraints (lines) in FUNCTIONS Block + my $i=FunctionsBlock->lines(); + my $ConstLine="fun$i = $Constraint\n"; + FunctionsBlock->append($ConstLine); + +# Replace parameter in theory block with fun$1 + $Full_T_Block=~ s/$ParName/fun$i/; + TheoryBlock->setText($Full_T_Block); + +} + 1; diff --git a/src/external/MuSRFitGUI/devel/MuSRFit.ui b/src/external/MuSRFitGUI/devel/MuSRFit.ui index 89c14c1c..7e185d88 100755 --- a/src/external/MuSRFitGUI/devel/MuSRFit.ui +++ b/src/external/MuSRFitGUI/devel/MuSRFit.ui @@ -70,6 +70,9 @@ 32767 + + false + RUNSPage @@ -5019,6 +5022,12 @@ MuSRFitform GoPlot() + + AddConstraint + clicked() + MuSRFitform + AppendToFunctions() + musrfit_tabs @@ -5125,6 +5134,7 @@ T0Update() RunSelectionToggle() fileBrowse() + AppendToFunctions() diff --git a/src/external/MuSRFitGUI/devel/MuSRFit.ui.h b/src/external/MuSRFitGUI/devel/MuSRFit.ui.h index abc1b68c..fa28c70f 100755 --- a/src/external/MuSRFitGUI/devel/MuSRFit.ui.h +++ b/src/external/MuSRFitGUI/devel/MuSRFit.ui.h @@ -567,7 +567,7 @@ void MuSRFitform::ActivateShComp() my $Component=1; CParamsCombo->clear(); - TheoryBlock->setText($Full_T_Block); + foreach my $FitType (@FitTypes) { my $Parameters=$Paramcomp[$Component-1]; my @Params = split( /\s+/, $Parameters ); @@ -596,18 +596,20 @@ void MuSRFitform::ActivateShComp() for (my $i=1; $i<=9;$i++) { my $ParamChkBx="ShParam_".$Component."_".$i; my $ChkBx = child($ParamChkBx); - my $CParam = $Params[$i-1]." ".$Component; - if ($Params[$i-1] ne "") { + my $CParam = $Params[$i-1]."_".$Component; + if ($Params[$i-1] ne "" && $Params[$i-1] ne "Alpha" && $Params[$i-1] ne "N0" && $Params[$i-1] ne "NBg") { $ChkBx->setHidden(0); $ChkBx->setEnabled(1); $ChkBx ->setText($Params[$i-1]); CParamsCombo->insertItem($CParam,-1); + $Full_T_Block=~ s/\b$Params[$i-1]\b/$CParam/; } else { $ChkBx->setHidden(1); } } $Component++; } + TheoryBlock->setText($Full_T_Block); } void MuSRFitform::InitializeTab() @@ -800,3 +802,22 @@ void MuSRFitform::fileBrowse() } RunFiles->setText($RunFiles); } + + +void MuSRFitform::AppendToFunctions() +{ + my $ParName=CParamsCombo->currentItem; + my $Full_T_Block=TheoryBlock->text; + my $Constraint=ConstraintLine->text; +# Then clear the text + ConstraintLine->setText(""); + +# Check how many constraints (lines) in FUNCTIONS Block + my $i=FunctionsBlock->lines(); + my $ConstLine="fun$i = $Constraint\n"; + FunctionsBlock->append($ConstLine); + +# Replace parameter in theory block with fun$1 + $Full_T_Block=~ s/$ParName/fun$i/; + TheoryBlock->setText($Full_T_Block); +}