Smalltalk › Cincom › VisualWorks

[vwnc] How to open system brower on list of packages

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

8 messages Options

Terry Raymond

[vwnc] How to open system brower on list of packages

Does anyone know how to open a system browser on a list of packages instead
of the entire system?

This is not the same as selecting several packages and doing a spawn. When
this is done you cannot select a package and operate on it.

Terry

===========================================================
Terry Raymond
Crafted Smalltalk
80 Lazywood Ln.
Tiverton, RI 02878
(401) 624-4517 [hidden email]
<http://www.craftedsmalltalk.com>
===========================================================

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

Ulli Wenk

Re: [vwnc] How to open system brower on list of packages

Build a bundle and then only select this (or parts of it)?

Terry Raymond wrote

Does anyone know how to open a system browser on a list of packages instead
of the entire system?

This is not the same as selecting several packages and doing a spawn. When
this is done you cannot select a package and operate on it.

Terry

===========================================================
Terry Raymond
Crafted Smalltalk
80 Lazywood Ln.
Tiverton, RI 02878
(401) 624-4517 traymond@craftedsmalltalk.com
<http://www.craftedsmalltalk.com>
===========================================================

_______________________________________________
vwnc mailing list
vwnc@cs.uiuc.edu
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

Ulli Wenk

Re: [vwnc] How to open system brower on list of packages

In reply to this post by Terry Raymond

Build a bundle and then only select this (or parts of it)?

Terry Raymond wrote

Does anyone know how to open a system browser on a list of packages instead
of the entire system?

This is not the same as selecting several packages and doing a spawn. When
this is done you cannot select a package and operate on it.

Terry

===========================================================
Terry Raymond
Crafted Smalltalk
80 Lazywood Ln.
Tiverton, RI 02878
(401) 624-4517 traymond@craftedsmalltalk.com
<http://www.craftedsmalltalk.com>
===========================================================

_______________________________________________
vwnc mailing list
vwnc@cs.uiuc.edu
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

Dave Stevenson-3

Re: [vwnc] How to open system brower on list of packages

VisualLauncher>>browseUnpublished

browseUnpublished

<menuItem: #(#BrowseUnpublished #store 'Browse Unpublished')
  icon: #unpublishedIcon
  nameKey: nil
  menu: #(#menuBar #store)
  position: 20.075>
| pkgList |
pkgList := Store.Registry allPackages
  select: [:pkg | pkg pundleListIconKey = #modifiedPackage].
pkgList isEmpty
  ifTrue: [Dialog warn: 'There are no modified packages in the image']
  ifFalse:
   [Refactory.Browser.RefactoringBrowser
    openWithSelection:
     (Refactory.Browser.NavigatorState new pundles: pkgList)]

--- On Tue, 8/25/09, Ulli Wenk <[hidden email]> wrote:

From: Ulli Wenk <[hidden email]>
Subject: Re: [vwnc] How to open system brower on list of packages
To: [hidden email]
Date: Tuesday, August 25, 2009, 12:39 PM

Build a bundle and then only select this (or parts of it)?

Terry Raymond wrote:

>
> Does anyone know how to open a system browser on a list of packages
> instead
> of the entire system?
>
> This is not the same as selecting several packages and doing a spawn.
> When
> this is done you cannot select a package and operate on it.
>
> Terry
>
> ===========================================================
> Terry Raymond
> Crafted Smalltalk
> 80 Lazywood Ln.
> Tiverton, RI 02878
> (401) 624-4517 traymond@...
> <http://www.craftedsmalltalk.com>
> ===========================================================
>
>
> _______________________________________________
> vwnc mailing list
> vwnc@...
> http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
>
>

--
View this message in context: http://www.nabble.com/-vwnc--How-to-open-system-brower-on-list-of-packages-tp25051173p25133319.html
Sent from the VisualWorks mailing list archive at Nabble.com.

_______________________________________________
vwnc mailing list
vwnc@...
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

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

Dave Stevenson-3

Re: [vwnc] How to open system brower on list of packages

Actually, for the below example I prefer to open a browser on each:

browseUnpublishedIndividually

<menuItem: #(#browseUnpublishedIndividually #store 'Browse Unpublished Individually')
  icon: #unpublishedIcon
  nameKey: nil
  menu: #(#menuBar #store)
  position: 20.08>
| packages promptForOpen startingPosition lowerLimit extent cascadeStart cascadeIncrement |

packages := Store.Registry allPackages
  select:
   [:package | package pundleListIconKey = #modifiedPackage and: [package name ~= 'BOSS']].
packages isEmpty
  ifTrue: [^Dialog warn: 'There are no modified packages in the image'].
cascadeStart := 0 @ 250.
cascadeIncrement := 50 @ 40.
extent := 0 @ 0.
lowerLimit := Screen default bounds bottom.
startingPosition := cascadeStart + lowerLimit.
promptForOpen := ScheduledWindow promptForOpen.
[ScheduledWindow promptForOpen: false.
packages
  do:
   [:package |
   | rb |
   rb := Refactory.Browser.RefactoringBrowser open.
   startingPosition := startingPosition + cascadeIncrement.
   lowerLimit < (startingPosition + extent) y
    ifTrue:
     [cascadeStart x: cascadeStart x + cascadeIncrement x.
     startingPosition := cascadeStart].
   rb mainWindow moveTo: startingPosition.
   extent := rb mainWindow bounds extent.
   rb navigator selectPundle: package]]
  ensure: [ScheduledWindow promptForOpen: promptForOpen]

--- On Tue, 8/25/09, Dave Stevenson <[hidden email]> wrote:

From: Dave Stevenson <[hidden email]>
Subject: Re: [vwnc] How to open system brower on list of packages
To: [hidden email], "Ulli Wenk" <[hidden email]>
Date: Tuesday, August 25, 2009, 2:29 PM

VisualLauncher>>browseUnpublished

browseUnpublished

<menuItem: #(#BrowseUnpublished #store 'Browse Unpublished')
  icon: #unpublishedIcon
  nameKey: nil
  menu: #(#menuBar #store)
  position: 20.075>
| pkgList |
pkgList := Store.Registry allPackages
  select: [:pkg | pkg pundleListIconKey = #modifiedPackage].
pkgList isEmpty
  ifTrue: [Dialog warn: 'There are no modified packages in the image']
  ifFalse:
   [Refactory.Browser.RefactoringBrowser
    openWithSelection:
     (Refactory.Browser.NavigatorState new pundles: pkgList)]

--- On Tue, 8/25/09, Ulli Wenk <[hidden email]> wrote:

From: Ulli Wenk <[hidden email]>
Subject: Re: [vwnc] How to open system brower on list of packages
To: [hidden email]
Date: Tuesday, August 25, 2009, 12:39 PM

Build a bundle and then only select this (or parts of it)?

Terry Raymond wrote:

>
> Does anyone know how to open a system browser on a list of packages
> instead
> of the entire system?
>
> This is not the same as selecting several packages and doing a spawn.
> When
> this is done you cannot select a package and operate on it.
>
> Terry
>
> ===========================================================
> Terry Raymond
> Crafted Smalltalk
> 80 Lazywood Ln.
> Tiverton, RI 02878
> (401) 624-4517 traymond@...
> <http://www.craftedsmalltalk.com>
> ===========================================================
>
>
> _______________________________________________
> vwnc mailing list
> vwnc@...
> http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
>
>

--
View this message in context: http://www.nabble.com/-vwnc--How-to-open-system-brower-on-list-of-packages-tp25051173p25133319.html
Sent from the VisualWorks mailing list archive at Nabble.com.

_______________________________________________
vwnc mailing list
vwnc@...
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

-----Inline Attachment Follows-----

_______________________________________________
vwnc mailing list
vwnc@...
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

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

Terry Raymond

Re: [vwnc] How to open system brower on list of packages

In reply to this post by Dave Stevenson-3

Dave

That was not what I was looking for.

I wanted a full package browser that contains only the unpublished, or

changed, packages.

Tom from NL sent me the code. Basically, you have to create a class

that can be the root of the pundle tree and simply give it a list of your

pundles. This root has to repond to #containedItems with the pundle list.

You then have to get to the selection in tree and replace it like;

(browser navigator partNamed: #CodeComponentTabNavigatorPart) packages

objectList list

root: newRoot

displayIt: false

childrenBlock: [:pi | pi containedItems]

This will open a full package browser but it contains only the packages

of interest. This is easier to work with when you want to look at them

and decide if you want to then publish.

Terry

===========================================================
Terry Raymond
Crafted Smalltalk
80 Lazywood Ln.
Tiverton, RI 02878
(401) 624-4517 [hidden email]
<http://www.craftedsmalltalk.com>
===========================================================

From: [hidden email] [mailto:[hidden email]] On Behalf Of Dave Stevenson
Sent: Tuesday, August 25, 2009 10:30 AM
To: [hidden email]; Ulli Wenk
Subject: Re: [vwnc] How to open system brower on list of packages

VisualLauncher>>browseUnpublished

From: Ulli Wenk <[hidden email]>
Subject: Re: [vwnc] How to open system brower on list of packages
To: [hidden email]
Date: Tuesday, August 25, 2009, 12:39 PM

Build a bundle and then only select this (or parts of it)?

Terry Raymond wrote:
>
> Does anyone know how to open a system browser on a list of packages
> instead
> of the entire system?
>
> This is not the same as selecting several packages and doing a spawn.
> When
> this is done you cannot select a package and operate on it.
>
> Terry
>
> ===========================================================
> Terry Raymond
> Crafted Smalltalk
> 80 Lazywood Ln.
> Tiverton, RI 02878
> (401) 624-4517 traymond@...
> <http://www.craftedsmalltalk.com>
> ===========================================================
>
>
> _______________________________________________
> vwnc mailing list
> vwnc@...
> http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
>
>

--
View this message in context: http://www.nabble.com/-vwnc--How-to-open-system-brower-on-list-of-packages-tp25051173p25133319.html
Sent from the VisualWorks mailing list archive at Nabble.com.

_______________________________________________
vwnc mailing list
vwnc@...
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

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

Ulli Wenk

Re: [vwnc] How to open system brower on list of packages

I think, a slight modification of Daves proposal is simpler and can be easily included as right mouse button action into the RB.
Though you see in the RB all the pundles in your image, all modified packages are "collected" in the selected bundle with even the timestamp of your point of interest. You can even publish (certain blessing level) the state or delete it without changing the original pundles.
Try (overwrite) the following 2 methods:

VisualLauncher>>browseUnpublished

browseUnpublished

<menuItem: #(#BrowseUnpublished #store 'Browse Unpublished')
icon: #unpublishedIcon
nameKey: nil
menu: #(#menuBar #store)
position: 20.075>
| pkgList |
pkgList := Store.Registry allPackages select: [:pkg |
pkg pundleListIconKey = #modifiedPackage].
pkgList isEmpty
ifTrue:
[^Dialog warn:
'No modified packages in the image!'].
Refactory.Browser.RefactoringBrowser
openWithSelection:
(Refactory.Browser.NavigatorState new
pundles:
(Array with:( (Store.BundleModel
named: #Unpublished,' ',
Timestamp now printString)
containedItems: pkgList;
yourself)))

Refactory.Browser.BrowserNavigator>>storeUnloadPundle
storeUnloadPundle
| pundles |
self changeRequest ifFalse: [^self].
pundles := self pundles.
(self
confirm: ((#Unload1s << #browser >> 'Unload<1s>?')
expandMacrosWith: (pundles inject: '' into: [:sum :each | ('<1s> <2s>'
expandMacrosWith: sum
with: each name)])))
ifFalse: [^self].
(pundles detectOrNil: [:eachP |
#Unpublished,'*' match: eachP name])
ifNotNil: "not unloading packages "
[:eachP | eachP containedItems: #()].
Notice
show: (#UnloadingDots << #browser >> 'Unloading...')
while: [pundles do: [:each | each unloadFromImage]].
self refreshLists

Terry Raymond wrote

Dave

That was not what I was looking for.

I wanted a full package browser that contains only the unpublished, or

changed, packages.

Tom from NL sent me the code. Basically, you have to create a class

that can be the root of the pundle tree and simply give it a list of your

pundles. This root has to repond to #containedItems with the pundle list.

You then have to get to the selection in tree and replace it like;

(browser navigator partNamed: #CodeComponentTabNavigatorPart) packages

objectList list

root: newRoot

displayIt: false

childrenBlock: [:pi | pi containedItems]

This will open a full package browser but it contains only the packages

of interest. This is easier to work with when you want to look at them

and decide if you want to then publish.

Terry

===========================================================
Terry Raymond
Crafted Smalltalk
80 Lazywood Ln.
Tiverton, RI 02878
(401) 624-4517 traymond@craftedsmalltalk.com
<http://www.craftedsmalltalk.com>
===========================================================

_____

From: vwnc-bounces@cs.uiuc.edu [mailto:vwnc-bounces@cs.uiuc.edu] On Behalf Of Dave Stevenson
Sent: Tuesday, August 25, 2009 10:30 AM
To: vwnc@cs.uiuc.edu; Ulli Wenk
Subject: Re: [vwnc] How to open system brower on list of packages

VisualLauncher>>browseUnpublished

browseUnpublished

<menuItem: #(#BrowseUnpublished #store 'Browse Unpublished')
icon: #unpublishedIcon
nameKey: nil
menu: #(#menuBar #store)
position: 20.075>
| pkgList |
pkgList := Store.Registry allPackages
select: [:pkg | pkg pundleListIconKey = #modifiedPackage].
pkgList isEmpty
ifTrue: [Dialog warn: 'There are no modified packages in the image']
ifFalse:
[Refactory.Browser.RefactoringBrowser
openWithSelection:
(Refactory.Browser.NavigatorState new pundles: pkgList)]

--- On Tue, 8/25/09, Ulli Wenk <wenk@hinz.de> wrote:

From: Ulli Wenk <wenk@hinz.de>
Subject: Re: [vwnc] How to open system brower on list of packages
To: vwnc@cs.uiuc.edu
Date: Tuesday, August 25, 2009, 12:39 PM

Build a bundle and then only select this (or parts of it)?

Terry Raymond wrote:
>
> Does anyone know how to open a system browser on a list of packages
> instead
> of the entire system?
>
> This is not the same as selecting several packages and doing a spawn.
> When
> this is done you cannot select a package and operate on it.
>
> Terry
>
> ===========================================================
> Terry Raymond
> Crafted Smalltalk
> 80 Lazywood Ln.
> Tiverton, RI 02878
> (401) 624-4517 traymond@craftedsmalltalk.com
<http://us.mc824.mail.yahoo.com/mc/compose?to=traymond@craftedsmalltalk.com>
> <http://www.craftedsmalltalk.com <http://www.craftedsmalltalk.com/> >
> ===========================================================
>
>
> _______________________________________________
> vwnc mailing list
> vwnc@cs.uiuc.edu <http://us.mc824.mail.yahoo.com/mc/compose?to=vwnc@cs.uiuc.edu>
> http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
>
>

--
View this message in context:
http://www.nabble.com/-vwnc--How-to-open-system-brower-on-list-of-packages-tp25051173p25133319.html
Sent from the VisualWorks mailing list archive at Nabble.com.

_______________________________________________
vwnc mailing list
vwnc@cs.uiuc.edu <http://us.mc824.mail.yahoo.com/mc/compose?to=vwnc@cs.uiuc.edu>
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

_______________________________________________
vwnc mailing list
vwnc@cs.uiuc.edu
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

Niall Ross

Re: [vwnc] How to open system brower on list of packages

In reply to this post by Terry Raymond

Dear Terry,
I implemented this in 7.5 (see RBCustomBrowserUI in the open
repository) but have not yet published the 7.7 version (I never did a
7.6 version). I hope to offer a similar goodie in 7.7 very soon (I may
work on it at Camp Smalltalk next week).

The 7.5 goodie used the RB's Browser menu, now discarded, and preferred
to work with the Custom Refactoring version of the 7.5 RB. I expect the
7.7 goodie will simply make a 4-pane browser spawnable on a selected set
of pundles, or a single bundle, but I may keep the 'reuse same RB
window' behaviour if I can make it safe (i.e. keep the current UI state
obvious) in the current RB.

If you look at the 7.5 version and see anything you do not like (other
than the above changes), by all means let me know.

Yours faithfully
Niall Ross

> Dave
>
>
>
> That was not what I was looking for.
>
>
>
> I wanted a full package browser that contains only the unpublished, or
>
> changed, packages.
>
>
>
> Tom from NL sent me the code. Basically, you have to create a class
>
> that can be the root of the pundle tree and simply give it a list of your
>
> pundles. This root has to repond to #containedItems with the pundle list.
>
>
>
> You then have to get to the selection in tree and replace it like;
>
>
>
> (browser navigator partNamed: #CodeComponentTabNavigatorPart) packages
>
> objectList list
>
> root: newRoot
>
> displayIt: false
>
> childrenBlock: [:pi | pi containedItems]
>
>
>
> This will open a full package browser but it contains only the packages
>
> of interest. This is easier to work with when you want to look at them
>
> and decide if you want to then publish.
>
> Terry
>
> ===========================================================
> Terry Raymond
> Crafted Smalltalk
> 80 Lazywood Ln.
> Tiverton, RI 02878
> (401) 624-4517 [hidden email]
> <http://www.craftedsmalltalk.com>
> ===========================================================
>
> ------------------------------------------------------------------------
>
> *From:* [hidden email] [mailto:[hidden email]] *On
> Behalf Of *Dave Stevenson
> *Sent:* Tuesday, August 25, 2009 10:30 AM
> *To:* [hidden email]; Ulli Wenk
> *Subject:* Re: [vwnc] How to open system brower on list of packages
>
>
>
> VisualLauncher>>browseUnpublished
>
>
>
> browseUnpublished
>
> <menuItem: #(#BrowseUnpublished #store 'Browse Unpublished')
> icon: #unpublishedIcon
> nameKey: nil
> menu: #(#menuBar #store)
> position: 20.075>
> | pkgList |
> pkgList := Store.Registry allPackages
> select: [:pkg | pkg pundleListIconKey = #modifiedPackage].
> pkgList isEmpty
> ifTrue: [Dialog warn: 'There are no modified packages in the image']
> ifFalse:
> [Refactory.Browser.RefactoringBrowser
> openWithSelection:
> (Refactory.Browser.NavigatorState new pundles: pkgList)]
>
> --- On *Tue, 8/25/09, Ulli Wenk /<[hidden email]>/* wrote:
>
>
> From: Ulli Wenk <[hidden email]>
> Subject: Re: [vwnc] How to open system brower on list of packages
> To: [hidden email]
> Date: Tuesday, August 25, 2009, 12:39 PM
>
>
> Build a bundle and then only select this (or parts of it)?
>
>
> Terry Raymond wrote:
>>
>> Does anyone know how to open a system browser on a list of packages
>> instead
>> of the entire system?
>>
>> This is not the same as selecting several packages and doing a
> spawn.
>> When
>> this is done you cannot select a package and operate on it.
>>
>> Terry
>>
>> ===========================================================
>> Terry Raymond
>> Crafted Smalltalk
>> 80 Lazywood Ln.
>> Tiverton, RI 02878
>> (401) 624-4517 [hidden email]
> <http://us.mc824.mail.yahoo.com/mc/compose?to=traymond@...>
>> <http://www.craftedsmalltalk.com <http://www.craftedsmalltalk.com/>>
>> ===========================================================
>>
>>
>> _______________________________________________
>> vwnc mailing list
>> [hidden email]
> <http://us.mc824.mail.yahoo.com/mc/compose?to=vwnc@...>
>> http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
>>
>>
>
> --
> View this message in context:
> http://www.nabble.com/-vwnc--How-to-open-system-brower-on-list-of-packages-tp25051173p25133319.html
> Sent from the VisualWorks mailing list archive at Nabble.com.
>
> _______________________________________________
> vwnc mailing list
> [hidden email]
> <http://us.mc824.mail.yahoo.com/mc/compose?to=vwnc@...>
> http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
>
>
>
>------------------------------------------------------------------------
>
>_______________________________________________
>vwnc mailing list
>[hidden email]
>http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
>
>

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