Loading features via code

Hi Everyone,

I have made some changes to my abt.cnf file (see below).  I added some comments and the ability to load configurations maps from a list in a file.  I keep trying to add the file as an attachement but no joy.

 Lou

PostStartUp!

" set some settings."

StsPowerTools

parseTreeMaxMethodTextSize: SmallInteger largest;

updateStyling;

superUser: true.

" More settings like fonts I like."

[ | fontName fontStruct |

fontName := ('WIN*' match: (System subsystemType: #CW))

ifTrue: ['-microsoft-times new roman-medium-r-normal--19-140-96-96-p-0-iso8859-1']

ifFalse: ['-bitstream-bitstream charter-medium-r-normal--19-180-75-75-p-102-iso10646-1'].

(fontStruct := CgDisplay default loadQueryFont: fontName) notNil

ifTrue: [EtWindow updateFontList: (CwFontList fontStruct: fontStruct)]

ifFalse: [CwMessagePrompter errorMessage: (NlsCatEST indexedMsg: 5)]. "$NLS$ Failed to load font"

] value.

" Disable the windows and show busy cursor."

Transcript shell osWidget disable.

Transcript shell osWidget class busyCursor.

AbtApplicationsOrganizerView current showBusyCursor.

" Test to see if this is a clean image.  If not, load things we need to load features."

(EmConfigurationMap editionsFor: 'KscFeatureLoaderExtensions') first isLoaded ifFalse: [

(EmConfigurationMap editionsFor: 'KscFeatureLoaderExtensions') first loadWithRequiredMapsAndTracing: true.

" Read the file of features to load and load them."

[ | stream featureNames localPath |

localPath := CfsDirectoryDescriptor getcwd, CfsDirectoryDescriptor pathSeparatorString.

stream := CfsReadFileStream open: (localPath, 'FeaturesToLoad.Txt').

featureNames := OrderedCollection new.

[stream atEnd] whileFalse: [featureNames add: stream nextLine trimBlanks].

stream close.

featureNames notEmpty ifTrue: [AbtFeatureLoader new loadFeaturesNamed: featureNames].

] value.

" Read the file of maps to load and load them."

[ | stream mapNames localPath |

localPath := CfsDirectoryDescriptor getcwd, CfsDirectoryDescriptor pathSeparatorString.

stream := CfsReadFileStream open: (localPath, 'MapsToLoad.Txt').

mapNames := OrderedCollection new.

[stream atEnd] whileFalse: [mapNames add: stream nextLine trimBlanks].

stream close.

mapNames do: [:map |

(EmConfigurationMap editionsFor: map) first loadWithRequiredMapsAndTracing: true.

].

] value.

].

" Disable the windows and show busy cursor again, just ine case."

Transcript shell osWidget disable.

Transcript shell osWidget class busyCursor.

AbtApplicationsOrganizerView current showBusyCursor.

" More settings."

(AbtApplicationsOrganizerView current respondsTo: #fullMenus:) ifTrue: [AbtApplicationsOrganizerView current fullMenus: true].

[ | appPrefixes |

appPrefixes := AbtApplicationsOrganizerView applicationPrefixes asSet.

appPrefixes addAll: #('Ksc' 'TestKsc').

AbtApplicationsOrganizerView applicationPrefixes: appPrefixes asSortedCollection.

AbtApplicationsOrganizerView applicationsShow: ##matchingPrefixes.

] value.

" Add some menu options."

(AbtApplicationsOrganizerView current respondsTo: #addOptionsMenuItemsToOrganizer) ifTrue: [AbtApplicationsOrganizerView current addOptionsMenuItemsToOrganizer].

(StsAbtApplicationsOrganizerView current respondsTo: #addApplicationsLoadMenuItemsToOrganizer) ifTrue: [StsAbtApplicationsOrganizerView current addApplicationsLoadMenuItemsToOrganizer].

(StsAbtApplicationsOrganizerView current respondsTo: #addClassesMenuItemsToOrganizer) ifTrue: [StsAbtApplicationsOrganizerView current addClassesMenuItemsToOrganizer].

" More settings."

AbtPreferencesBrowsersObject current

standardBrowsers: 1; "Enhanced"

autoRefresh: true;

confirmOnDelete: false;

selectAllApps: true;

selectAllCategories: true;

showCategory: true;

showHSB: false.

AbtPreferencesCEObject current

shapeWidth: 3;

showConnectionsOnOpen: false;

showSourceIndication: true.

EtWindow defaultWindowSize: 900@500.

StsConfirmationDialog answerFor: 'Find String' put: true.

" Refresh things."

AbtApplicationsOrganizerView current applicationsRefreshNow.

" Read a file that tells us which application and class to select."

[ | stream appName className localPath |

localPath := CfsDirectoryDescriptor getcwd, CfsDirectoryDescriptor pathSeparatorString.

stream := CfsReadFileStream open: (localPath, 'AppNameToSelect.Txt').

appName := stream nextLine trimBlanks.

className := stream nextLine trimBlanks.

stream close.

(appName notEmpty & className notEmpty) ifTrue: [Compiler evaluate: ('AbtApplicationsOrganizerView current selectClass: ', className, ' inApplication: ', appName) for: nil ifFail: [:e | Transcript show: e message]].

] value.

" Move windows around, reset and enable windows and cursor."

Transcript shell x: 225; y: 660; height: 365.

AbtApplicationsOrganizerView current x: 270; y: 150; setFocus.

AbtApplicationsOrganizerView current resetCursor.

Transcript shell osWidget enable.

Transcript shell osWidget class resetCursor.

Opps, hit send by accident.  Now trying abt.LL.  That failed.  can someone try to attach anything?

Lou

--
You received this message because you are subscribed to a topic in the Google Groups "VA Smalltalk" group.
To unsubscribe from this topic, visit https://groups.google.com/d/topic/va-smalltalk/2CiRlEBxv1U/unsubscribe.
To unsubscribe from this group and all its topics, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/va-smalltalk/ac615b00-2e77-4053-8125-b9abf9b5906fn%40googlegroups.com.

And, this is an attempt to attach a .cnf file via replying through the forum.

And it fails, with the wonderfully helpful "It didn't work" diagnostic message. (Not exactly those words, but certainly the sentiment!)

I hate the new Google Groups system/format/layout/what_ever_the_hell_they_call_it.  And not just because of this.

On Wednesday, February 10, 2021 at 3:50:47 PM UTC-5 Richard Sargent wrote:

And, this is an attempt to attach a .cnf file via replying through the forum.

And it fails, with the wonderfully helpful "It didn't work" diagnostic message. (Not exactly those words, but certainly the sentiment!)

I hate the new Google Groups system/format/layout/what_ever_the_hell_they_call_it.  And not just because of this.

On Wednesday, February 10, 2021 at 3:50:47 PM UTC-5 Richard Sargent wrote:

And, this is an attempt to attach a .cnf file via replying through the forum.

And it fails, with the wonderfully helpful "It didn't work" diagnostic message. (Not exactly those words, but certainly the sentiment!)

It does seem to be human factors hostile.

On Wednesday, February 10, 2021 at 2:13:50 PM UTC-8 [hidden email] wrote:

I hate the new Google Groups system/format/layout/what_ever_the_hell_they_call_it.  And not just because of this.

On Wednesday, February 10, 2021 at 3:50:47 PM UTC-5 Richard Sargent wrote:

And, this is an attempt to attach a .cnf file via replying through the forum.

And it fails, with the wonderfully helpful "It didn't work" diagnostic message. (Not exactly those words, but certainly the sentiment!)

Hey Seth,

Maybe Instantiations could build or aid in the building of a VA Smalltalk/Seaside replacement.  I'm sure it would be better than this google stuff and could show interested parties what can be done with the product.

It might even be able to run on a Raspberry Pi 4 from your house:))) but that is probably pushing it.

Lou

On Wednesday, February 10, 2021 at 5:54:56 PM UTC-5 Richard Sargent wrote:

It does seem to be human factors hostile.

On Wednesday, February 10, 2021 at 2:13:50 PM UTC-8 [hidden email] wrote:

I hate the new Google Groups system/format/layout/what_ever_the_hell_they_call_it.  And not just because of this.

On Wednesday, February 10, 2021 at 3:50:47 PM UTC-5 Richard Sargent wrote:

And, this is an attempt to attach a .cnf file via replying through the forum.

And it fails, with the wonderfully helpful "It didn't work" diagnostic message. (Not exactly those words, but certainly the sentiment!)

Hi Lou,

Instantiations has many higher priority items to address for our customers and our resources must be applied there.

But, it's an interesting idea and I certainly would applaud and encourage anyone that wants to start that project and give it a go.

It certainly sounds like a project that I might personally contribute to in my "free time".

"I'm sure it would be better than this google stuff"

- Knowing the skills, abilities and work-ethic of my staff, I will confidently respond with "yes...it would be".

Have a great weekend!

- Seth

On Friday, February 12, 2021 at 12:26:30 PM UTC-5 [hidden email] wrote:

Hey Seth,

Maybe Instantiations could build or aid in the building of a VA Smalltalk/Seaside replacement.  I'm sure it would be better than this google stuff and could show interested parties what can be done with the product.

It might even be able to run on a Raspberry Pi 4 from your house:))) but that is probably pushing it.

Lou

On Wednesday, February 10, 2021 at 5:54:56 PM UTC-5 Richard Sargent wrote:

It does seem to be human factors hostile.

On Wednesday, February 10, 2021 at 2:13:50 PM UTC-8 [hidden email] wrote:

I hate the new Google Groups system/format/layout/what_ever_the_hell_they_call_it.  And not just because of this.

On Wednesday, February 10, 2021 at 3:50:47 PM UTC-5 Richard Sargent wrote:

And, this is an attempt to attach a .cnf file via replying through the forum.

And it fails, with the wonderfully helpful "It didn't work" diagnostic message. (Not exactly those words, but certainly the sentiment!)

Hi Seth,

I know you guys are busy with much more important stuff.  I admit it was a somewhat tongue in cheek suggestion.  I don't know if I want to take it on myself but I would also probably try to contribute.

Lou

On Friday, February 12, 2021 at 3:48:37 PM UTC-5 Seth Berman wrote:

Hi Lou,

Instantiations has many higher priority items to address for our customers and our resources must be applied there.

But, it's an interesting idea and I certainly would applaud and encourage anyone that wants to start that project and give it a go.

It certainly sounds like a project that I might personally contribute to in my "free time".

"I'm sure it would be better than this google stuff"

- Knowing the skills, abilities and work-ethic of my staff, I will confidently respond with "yes...it would be".

Have a great weekend!

- Seth

On Friday, February 12, 2021 at 12:26:30 PM UTC-5 [hidden email] wrote:

Hey Seth,

Maybe Instantiations could build or aid in the building of a VA Smalltalk/Seaside replacement.  I'm sure it would be better than this google stuff and could show interested parties what can be done with the product.

It might even be able to run on a Raspberry Pi 4 from your house:))) but that is probably pushing it.

Lou

On Wednesday, February 10, 2021 at 5:54:56 PM UTC-5 Richard Sargent wrote:

It does seem to be human factors hostile.

On Wednesday, February 10, 2021 at 2:13:50 PM UTC-8 [hidden email] wrote:

I hate the new Google Groups system/format/layout/what_ever_the_hell_they_call_it.  And not just because of this.

On Wednesday, February 10, 2021 at 3:50:47 PM UTC-5 Richard Sargent wrote:

And, this is an attempt to attach a .cnf file via replying through the forum.

And it fails, with the wonderfully helpful "It didn't work" diagnostic message. (Not exactly those words, but certainly the sentiment!)

--
You received this message because you are subscribed to a topic in the Google Groups "VA Smalltalk" group.
To unsubscribe from this topic, visit https://groups.google.com/d/topic/va-smalltalk/2CiRlEBxv1U/unsubscribe.
To unsubscribe from this group and all its topics, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/va-smalltalk/15c655d8-d0ae-4fad-9c65-b5ae33fe0284n%40googlegroups.com.