More work on functions block

This commit is contained in:
salman 2009-10-09 21:57:15 +00:00
parent b3225e1720
commit e485eb91a9
3 changed files with 7 additions and 7 deletions

View File

@ -1,6 +1,6 @@
# Form implementation generated from reading ui file 'MuSRFit.ui' # Form implementation generated from reading ui file 'MuSRFit.ui'
# #
# Created: Fri Oct 9 17:49:00 2009 # Created: Fri Oct 9 23:56:08 2009
# by: The PerlQt User Interface Compiler (puic) # by: The PerlQt User Interface Compiler (puic)
# #
# WARNING! All changes made in this file will be lost! # WARNING! All changes made in this file will be lost!
@ -1578,7 +1578,7 @@ sub NEW
setName("MuSRFitform" ); setName("MuSRFitform" );
} }
setSizePolicy(Qt::SizePolicy(3, 3, 1, 1, this->sizePolicy()->hasHeightForWidth()) ); setSizePolicy(Qt::SizePolicy(3, 3, 1, 1, this->sizePolicy()->hasHeightForWidth()) );
setMinimumSize(Qt::Size(21, 275) ); setMinimumSize(Qt::Size(23, 270) );
setIcon($image0 ); setIcon($image0 );
setCentralWidget(Qt::Widget(this, "qt_central_widget")); setCentralWidget(Qt::Widget(this, "qt_central_widget"));
@ -3932,7 +3932,7 @@ sub fileBrowse
sub AppendToFunctions sub AppendToFunctions
{ {
my $ParName=CParamsCombo->currentItem; my $ParName=CParamsCombo->currentText();
my $Full_T_Block=TheoryBlock->text; my $Full_T_Block=TheoryBlock->text;
my $Constraint=ConstraintLine->text; my $Constraint=ConstraintLine->text;
# Then clear the text # Then clear the text
@ -3943,7 +3943,7 @@ sub AppendToFunctions
my $ConstLine="fun$i = $Constraint\n"; my $ConstLine="fun$i = $Constraint\n";
FunctionsBlock->append($ConstLine); FunctionsBlock->append($ConstLine);
# Replace parameter in theory block with fun$1 # Replace parameter in theory block with fun$i
$Full_T_Block=~ s/$ParName/fun$i/; $Full_T_Block=~ s/$ParName/fun$i/;
TheoryBlock->setText($Full_T_Block); TheoryBlock->setText($Full_T_Block);

View File

@ -22,8 +22,8 @@
</property> </property>
<property name="minimumSize"> <property name="minimumSize">
<size> <size>
<width>21</width> <width>23</width>
<height>275</height> <height>270</height>
</size> </size>
</property> </property>
<property name="caption"> <property name="caption">

View File

@ -806,7 +806,7 @@ void MuSRFitform::fileBrowse()
void MuSRFitform::AppendToFunctions() void MuSRFitform::AppendToFunctions()
{ {
my $ParName=CParamsCombo->currentItem; my $ParName=CParamsCombo->currentText();
my $Full_T_Block=TheoryBlock->text; my $Full_T_Block=TheoryBlock->text;
my $Constraint=ConstraintLine->text; my $Constraint=ConstraintLine->text;
# Then clear the text # Then clear the text