[Fwd: Re: How to create an stand-alone executable?]

Hello list,

In VW 7.4.1, I have a need to display the version for a given loaded bundle in a Help >> About type of function. I looked around for ways of doing it and came up with the following code/solution:

      | bundle |

      bundle := Store.Bundle allBundles detect:

                [:each | each name = 'MyBundle'].

      bundle version. 

When I execute this code I do get what I need (e.g., 'V1.1') but the problem is that it only works when the image is connected to the StORE DB. Otherwise it throws an exception. I also found this other similar solution that gives me the same results but also requires an active connection to the DB:

      | pundle |

      pundle := Registry allPundles detect:

                [:each | each name ='MyBundle'].

      pundle parentRecord version.

My question to the list is: Do you know of any other way I can do that where I don't need to be connected to the DB?

Thanks,

Roberto

Hello everyone,

I got a follow-up question on this topic...

The code to retrieve the bundle version is working perfectly as follows in the development image:

| pundle ver |

pundle := Store.Registry allPundles detect:

                        [:each | each name ='MYBUNDLE'].

ver := (pundle versionString runsFailing: [:chr | chr = $, ]) first.

      ^ver copyFrom: 2 to: ver size

My problem is that when I use RuntimePackager to create the user image the code no long works. I changed the parameters we were using to keep some classes that I thought would fix the issue but nothing worked. I even tried to keep ALL classes/packages in the image to no avail.

Any thoughts?

TIA,

Roberto

-----Original Message-----
From: Samuel S. Shuster [mailto:[hidden email]]
Sent: Wednesday, January 02, 2008 4:21 PM
To: Roberto Fonseca
Cc: vwnc-list NC
Subject: Re: Retrieve Bundle Version

Roberto:

> My question to the list is: Do you know of any other way I can do

> that where I don't need to be connected to the DB?

(Store.Registry packageNamed: 'Assets') versionString.

This will give you the version string of the database you last

connected to, which may or may not be what you want...

However, if instead you do/inspect/print :

(Store.Registry packageNamed: 'Assets') databaseInformations collect:

[:each | each versionString]

This will work no matter what, even if, like I am, you are connected

to multiple databases.

                                 And So It Goes

                                      Sames

______________________________________________________________________

Samuel S. Shuster [|]

VisualWorks Engineering, Store Project

Smalltalk Enables Success -- What Are YOU Using?