Fwd: Process stuck in 10156+OB?

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

Fwd: Process stuck in 10156+OB?

Stéphane Ducasse
marcus here it is

Begin forwarded message:

> From: John M McIntosh <[hidden email]>
> Date: July 22, 2009 1:21:17 PM CEDT
> To: Stéphane Ducasse <[hidden email]>
> Subject: Fwd: [Pharo-project] Process stuck in 10156+OB?
> Reply-To: [hidden email]
>
>
>
> Begin forwarded message:
>
>> From: John M McIntosh <[hidden email]>
>> Date: January 26, 2009 7:30:23 PM GMT+01:00
>> To: Stéphane Ducasse <[hidden email]>
>> Subject: Re: [Pharo-project] Process stuck in 10156+OB?
>> Reply-To: [hidden email]
>>
>> Ok, I think the test is attached, however you should change the  
>> name from JMMTest to something else.
>>
>> like  MacHostMenusTestCaseCharacterSubstitutions
>>
>>
>> On 20-Nov-08, at 1:27 PM, Stéphane Ducasse wrote:
>>
>>
>>> john do you have a new version of the package since
>>> the method calculateShouldBeFrom:using: is missing
>>>
>>> On Nov 20, 2008, at 12:03 AM, John M McIntosh wrote:
>>>
>>>> testCharacterChanging
>>>> | testString item shouldBe resultingString where |
>>>> #(';' '^' '!' '<' '/' '(' )
>>>> do: [:c | #('*' '* ' '*  ' '**' '** ' '**  '
>>>> ')' '*)' '* )' '*  )' '**)' '** )' '**  )'
>>>> ')' '*)' '*X)' '*XX)' '**)' '**X)' '**XX)'
>>>> '))' '*))' '*X))' '*XX))' '**))' '**X))' '**XX))'
>>>> '(' '*(' '*X(' '*XX(' '**)' '**X(' '**XX('
>>>> '((' '*((' '*X((' '*XX((' '**((' '**X((' '**XX(('
>>>> )
>>>> do: [:template |
>>>> testString := template copyReplaceAll: '*' with: c.
>>>> testString
>>>> permutationsDo: [:mixedUp |
>>>> item := mixedUp copy.
>>>> shouldBe := self calculateShouldBeFrom: item using: c.
>>>> resultingString := self modifySqueakMenu: item copy.
>>>> self should: [shouldBe = resultingString].
>>>> (where := resultingString indexOf: $/) > 0
>>>> ifTrue: [self should: [(mixedUp at: where) = $(].
>>>> self should: [(mixedUp at: where+2) = $)].
>>>> self should: [(mixedUp at: where+1) asUppercase =  
>>>> (resultingString at: where+1)]]]]]
>>>
>>
>> --
>> =
>> =
>> =
>> =
>> =
>> =
>> =====================================================================
>> John M. McIntosh <[hidden email]>
>> Corporate Smalltalk Consulting Ltd.  http://www.smalltalkconsulting.com
>> =
>> =
>> =
>> =
>> =
>> =
>> =====================================================================
>>
>>

>


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

JMMTest.st (5K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: Fwd: Process stuck in 10156+OB?

Marcus Denker-3

On 22.07.2009, at 09:23, Stéphane Ducasse wrote:

> marcus here it is
>

Ok, I edited the fileout to make it compatible. The .st file attached  
to the bugreport now
fixes the problem:

        http://code.google.com/p/pharo/issues/detail?id=977

This reminds me that we need to actually use the hostmenus and provide  
real menus... (the contents of the world menu)

        Marcus


> Begin forwarded message:
>
>> From: John M McIntosh <[hidden email]>
>> Date: July 22, 2009 1:21:17 PM CEDT
>> To: Stéphane Ducasse <[hidden email]>
>> Subject: Fwd: [Pharo-project] Process stuck in 10156+OB?
>> Reply-To: [hidden email]
>>
>>
>>
>> Begin forwarded message:
>>
>>> From: John M McIntosh <[hidden email]>
>>> Date: January 26, 2009 7:30:23 PM GMT+01:00
>>> To: Stéphane Ducasse <[hidden email]>
>>> Subject: Re: [Pharo-project] Process stuck in 10156+OB?
>>> Reply-To: [hidden email]
>>>
>>> Ok, I think the test is attached, however you should change the  
>>> name from JMMTest to something else.
>>>
>>> like  MacHostMenusTestCaseCharacterSubstitutions
>>>
>>>
>>> On 20-Nov-08, at 1:27 PM, Stéphane Ducasse wrote:
>>>
>>>
>>>> john do you have a new version of the package since
>>>> the method calculateShouldBeFrom:using: is missing
>>>>
>>>> On Nov 20, 2008, at 12:03 AM, John M McIntosh wrote:
>>>>
>>>>> testCharacterChanging
>>>>> | testString item shouldBe resultingString where |
>>>>> #(';' '^' '!' '<' '/' '(' )
>>>>> do: [:c | #('*' '* ' '*  ' '**' '** ' '**  '
>>>>> ')' '*)' '* )' '*  )' '**)' '** )' '**  )'
>>>>> ')' '*)' '*X)' '*XX)' '**)' '**X)' '**XX)'
>>>>> '))' '*))' '*X))' '*XX))' '**))' '**X))' '**XX))'
>>>>> '(' '*(' '*X(' '*XX(' '**)' '**X(' '**XX('
>>>>> '((' '*((' '*X((' '*XX((' '**((' '**X((' '**XX(('
>>>>> )
>>>>> do: [:template |
>>>>> testString := template copyReplaceAll: '*' with: c.
>>>>> testString
>>>>> permutationsDo: [:mixedUp |
>>>>> item := mixedUp copy.
>>>>> shouldBe := self calculateShouldBeFrom: item using: c.
>>>>> resultingString := self modifySqueakMenu: item copy.
>>>>> self should: [shouldBe = resultingString].
>>>>> (where := resultingString indexOf: $/) > 0
>>>>> ifTrue: [self should: [(mixedUp at: where) = $(].
>>>>> self should: [(mixedUp at: where+2) = $)].
>>>>> self should: [(mixedUp at: where+1) asUppercase =  
>>>>> (resultingString at: where+1)]]]]]
>>>>
>>>
>>> --
>>> =
>>> =
>>> =
>>> =
>>> =
>>> =
>>> =
>>> ====================================================================
>>> John M. McIntosh <[hidden email]>
>>> Corporate Smalltalk Consulting Ltd.  http://www.smalltalkconsulting.com
>>> =
>>> =
>>> =
>>> =
>>> =
>>> =
>>> =
>>> ====================================================================
>>>
>>>
> <JMMTest.st>
>>
>>
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project