Smalltalk › Cincom › VisualWorks

[VW 7.7.1] Pragma to extend Store version browser

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

2 messages Options

Paul Baumann

[VW 7.7.1] Pragma to extend Store version browser

The Store pundle version browser (#storeBrowsePundleVersions from menu Store -> Browse Versions) that opens in VW 7.7.1 is different than the one that was used in VW 7.5. In the older VW release I could use a pragma like this to add a menu option:

PackageVersionBrowserHelper>>gbcMergeSinceParentIntoImage

<menuItem: 'GemKit: Merge since Parent into Image...'

nameKey: #gbcMergeDifferencesSinceParent

enablement: #hasSelections

indication: nil

menu: #(#listMenu)

position: 20.13>

self dbManager doIfOnlineImage: [

(#{Store.GbcMergeTool} valueOrDo: [^nil])

openOnDifferencesSinceParentForAll: self selections asArray

The window that opens in VW 7.7.1 is more of a composite. Store.Glorp.PackageListPane class>>mainMenu defines the menu I want to extend using a pragma. From what I can tell, the new window isn't even augmentable by pragmas. A breakpoint in #augmentFrom:to:menuName:for: does not get hit.

Is there another way now in VW 7.7.1 to augment the menus?

Paul Baumann

This message may contain confidential information and is intended for specific recipients unless explicitly noted otherwise. If you have reason to believe you are not an intended recipient of this message, please delete it and notify the sender. This message may not represent the opinion of IntercontinentalExchange, Inc. (ICE), its subsidiaries or affiliates, and does not constitute a contract or guarantee. Unencrypted electronic mail is not secure and the recipient of this message is expected to provide safeguards from viruses and pursue alternate means of communication where privacy or a binding message is desired.

_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

Samuel S. Shuster-2

Re: [VW 7.7.1] Pragma to extend Store version browser

Paul:

> The Store pundle version browser (#storeBrowsePundleVersions from menu Store -> Browse Versions) that opens in VW 7.7.1 is different than the one that was used in VW 7.5. In the older VW release I could use a pragma like this to add a menu option:
>
> PackageVersionBrowserHelper>>gbcMergeSinceParentIntoImage
> <menuItem: 'GemKit: Merge since Parent into Image...'
> nameKey: #gbcMergeDifferencesSinceParent
> enablement: #hasSelections
> indication: nil
> menu: #(#listMenu)
> position: 20.13>
>
> self dbManager doIfOnlineImage: [
> (#{Store.GbcMergeTool} valueOrDo: [^nil])
> openOnDifferencesSinceParentForAll: self selections asArray
> ].
>
> The window that opens in VW 7.7.1 is more of a composite. Store.Glorp.PackageListPane class>>mainMenu defines the menu I want to extend using a pragma. From what I can tell, the new window isn't even augmentable by pragmas. A breakpoint in #augmentFrom:to:menuName:for: does not get hit.
>
> Is there another way now in VW 7.7.1 to augment the menus?

Yes.

Change PackageListPane>>listMenu to read:

| menu |
menu := (self class mainMenu atNameKey: #Action) submenu.
menu augmentFrom: self class
to: DefinitionsForListPane
menuName: #listMenu
for: self.
^menu

This is the code from the upcoming 7.8, and there may be other things too, but this should be a good starting place.

And So It Goes
Sames
______________________________________________________________________

Samuel S. Shuster [|]
VisualWorks Engineering, Store Project
Smalltalk Enables Success -- What Are YOU Using?

_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc