answered question

0
Votes

2
Answers

M$22.00

socrtwo | May 04, 2009 04:57 AM | in Programming

How can I wipe my displayed spreadsheet with a 2nd one opened from the File menu or my Open button?

My Perl/Tk script can be seen here: http://pastebin.com/m6861e5a1. It has an initial Spreadsheet like grid displayed using the Tk::TableMatrix::Spreadsheet modules. My spreadsheet is programatically called $ss. This initial grid is wiped before the display of the first spreadsheet, with this command: $ss-> pack('forget');. The script as it is now also adds $mw-> pack('forget');, but that's not necessary.

My question is how to open a 2nd file from the File -> Open dialog box and it wipe out the first file displayed, just like the first file wipes out the initial grid? Right now the 2nd file shows a as a complete new frame underneath the still displayed first spreadsheet.

Report

| RSS

| Share

answers (2)

1
Vote

BEST ANSWER chosen by asker | wdawe | May 04, 2009 09:39 PM

Unfortunately after struggling with dependencies to get the program to compile the result was ..... it worked. I am running Perl on a Linux Centos 5 distro. What platform are you running on? One thing I would suggest is to make sure your perl modules are the latest version. The only changes I made to your code was to remove delete some of the the PDP specific stuff and replace it with the equivalent for my system:
use Spreadsheet::XLSX::Utility2007PDP;
became use Spreadsheet::XLSX::Utility2007;

use Spreadsheet::ReadPDP;
became use Spreadsheet::Read;

http://www.youtube.com/watch?v=Ocdk0BDqF6E

(bigger version) http://blip.tv/file/2071404/

Darn, I was so looking forward to those $22 Mahalo dollars

Asker's rating:

Awesome. The script works fine now. Thanks very much! I apologize for the horrors of bad programming, it's only my 2nd Perl script and it's of the script kiddie variety and really only my 3rd programming project. I'm teaching myself and only resorting to books if totally frustrated. The web on the other hand has been very helpful.

voted helpful: socrtwo

Tip wdawe for this answer | Permalink | Report

Comment

socrtwo | May 05, 2009 12:43 AM

Thanks for the excellent effort. The problem is not that the program won't wipe out the initial grid, the problem is that if a spreadsheet is displayed after wiping out the grid like you did and you try to load a 2nd spreadshhet, it ends up not wiping the first spreadsheet.

Thanks again for the great effort.

Tip socrtwo for this comment | Report

wdawe | May 05, 2009 01:04 AM

Darn, I misunderstood the question, don't give up on me yet, I still have time left to answer, don't i?

Tip wdawe for this comment | Report

socrtwo | May 05, 2009 02:30 AM

wdawe, yeah yeah, no problem, knock yourself out. I think Mr. Ritty is your competition but he's busy sometimes. If you both have right answers, I'll give the 2nd one a big tip for effort...

Tip socrtwo for this comment | Report

wdawe | May 06, 2009 04:11 AM

Figured it out but it appears that either the question has expired or Mahalo only allows one answer per user.

Tip wdawe for this comment | Report

socrtwo | May 06, 2009 04:54 AM

wdawe, I'll give your answer as the best answer, if you have to offer the solution through the comment to your first answer or as a comment to the second one. Thanks

Tip socrtwo for this comment | Report

wdawe | May 06, 2009 06:03 AM

Realized what the problem was when I was driving in the car to trivia tonight. Scope, scope, scope. Multiple things are showing up because they are in the local scope but not getting destroyed properly. but1 works ok because it was declared at global scope. I'm not a perl expert but I expect that the extra stuff is becoming anonymous because the Tk layout manager still has a reference to it. There are probably other horrors lurking here, perhaps you might consider recoding in c++? Here is a link to my hacked up version of your original code. http://wdawe.com/orig_mod.perl

I moved $label, $label2, $label3, $jcb, $but2, $but3, $nb to global scope

http://www.youtube.com/watch?v=0ym7T65Bzw8

Tip wdawe for this comment | Report

-1
Votes

nadiraziz | May 04, 2009 06:24 AM

Hey, you might want to consider asking for this answer at a 'Tech' forum rather than a general user place like Mahalo.

Still, let me see if I can ask a friend or two about your problem... Good luck!

voted unhelpful: robbrown

Tip nadiraziz for this answer | Permalink | Report

Comment

robbrown | May 04, 2009 09:47 AM

Sorry to vote this as unhelpful. If we had more programming questions, we may have more programmers to answer them.

I wish that I knew Perl so that I could answer these.

Why not ask your Perl programming friends to signup and answer here? At M$22, this question might be "priced right" to encourage someone who knows Perl to submit an answer.

Tip robbrown for this comment | Report

nadiraziz | May 04, 2009 10:52 AM

No problemo, I thought I was being helpful, LOL!

Tip nadiraziz for this comment | Report

robbrown | May 04, 2009 11:18 AM

Nah, I hear you. I thought long and hard before hitting that "no" button.

It's really just that I wish that there were more programming questions here. I love reading programming problems and solutions. Even when I know the solution to a problems, seeing how other people solve things is invaluable.

Sadly, I have very little Perl in me... only enough to hack a script if I have to.

Tip robbrown for this comment | Report

wdawe | May 04, 2009 04:45 PM

I'm going to take a look at this question when I get home tonight, that size of tip is too big to pass up without spending some time on it.

Tip wdawe for this comment | Report