LMU/musrsim
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed bugs reported by Andreas when reloading settings from a file (white spaces in string issues).

Browse Source
This commit is contained in:
salman
2010-09-03 16:15:37 +00:00
parent ef519149ac
commit b502cc8585
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
trimsp/TrimSPGUI/TrimSPGUI.pl
View File

@ -1,6 +1,6 @@
# Form implementation generated from reading ui file 'TrimSPGUI.ui' # Form implementation generated from reading ui file 'TrimSPGUI.ui'
# #
# Created: Fri Aug 6 11:12:44 2010 # Created: Fri Sep 3 18:08:30 2010
# 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!
@ -2647,6 +2647,8 @@ sub OpenFile
close(INF); close(INF);
my $Attrib=""; my $Attrib="";
foreach my $line (@lines) { foreach my $line (@lines) {
# Remove white spaces
$line =~ s/\s+//g;
my @InitPar = split (/=/,$line); my @InitPar = split (/=/,$line);
# Check it is not empty or title line # Check it is not empty or title line
if ($InitPar[0] ne "" && $InitPar[1] ne "") { if ($InitPar[0] ne "" && $InitPar[1] ne "") {

2
trimsp/TrimSPGUI/TrimSPGUI.ui.h
View File

@ -699,6 +699,8 @@ void TrimSPGUI::OpenFile()
close(INF); close(INF);
my $Attrib=""; my $Attrib="";
foreach my $line (@lines) { foreach my $line (@lines) {
# Remove white spaces
$line =~ s/\s+//g;
my @InitPar = split (/=/,$line); my @InitPar = split (/=/,$line);
# Check it is not empty or title line # Check it is not empty or title line
if ($InitPar[0] ne "" && $InitPar[1] ne "") { if ($InitPar[0] ne "" && $InitPar[1] ne "") {