Please bear with my utter ignorance, may I have step-by-step instructions to
make this script work for my eudora light 3.6?
----- Original Message -----
From: David Maynard <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Thursday, July 08, 1999 8:42 AM
Subject: Re: scripts for silencing first line in eudora messages
> I guess I am the guilty one. I made some changes in the FocusChangeEvent
> function. I have continued to tweak it and I will post what I am using
> below. Julio C. Perez also made a contribution to what I am using. I
> have added some lines to keep the windows maximized except in the speller.
> All of the changes made to the original have been noted. I am running
> JFW3.30.26 and Eudora 3.05. I think Julio was using Eudora 4.
>
> You can either replace your FocusChangeEvent with this one or edit yours
to
> your pleasure.
>
> David Maynard
> Franklin NC
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
>
> Void Function FocusChangedEvent (handle FocusWindow, handle PrevWindow)
> var
> handle RealWindow,
> string RealWindowName,
> handle AppWindow
> ; the next 7 lines added to size windows - 7/5/99 DCM
> speechoff ()
> ;wn20 = "Check Spelling"
> If (GetWindowName (GetParent (GetFocus ())) != wn20) then
> {alt+space}{x} ; maximize parent window
> {alt+dash}{x} ; maximize child window
> EndIf
> speechOn ()
> If (GetControlID (FocusWindow) == ID_View) ||
> (GetControlID (FocusWindow) == ID_Edit) ||
> (GetWindowClass (GetCurrentWindow ()) == WCEdit) then
> if (GetVerbosity () == 0) then
> Say (msg3, OT_CONTROL_NAME) ; "Edit"
> EndIf ; End of Verbosity check
> CaretVisible ()
> If GetEudoraVersion () >= 4 then ;added 5/13/99 DCM
> If (GetControlID (PrevWindow) != ID_Bcc) then
> SayString (GetWindowName (GetRealWindow (GetCurrentWindow ()))) ;added
> 5/11/99 JCP
> SayLine ()
> EndIf
> EndIf ;end of version added 5/13/99 DCM
> EndIf
> ; for the Warning dialog
> ;wn1 = "Warning!"
> if (GetWindowName (GetParent (GetFocus ()) ) == wn1) then
> ;wn2 = "Warning"
> If (GetWindowName (GetParent (PrevWindow)) == wn2) then
> SayWindowTypeAndText (GetFocus ()); don't overtalk
> Return
> EndIf
> EndIf
> If (StringContains (GetWindowName (GetRealWindow (GetCurrentWindow ())),
> msg10)) Then; "Address Book"
> If (GetCurrentControlID () == 1453 || GetCurrentControlID () == 432) Then
> Say (msg1, OT_CONTROL_NAME) ; "E-mail address"
> SayWindow (GetCurrentWindow (), read_everything)
> EndIf
> If (GetCurrentControlID () == 1454 || GetCurrentControlID () == 433) Then
> Say (msg2, OT_CONTROL_NAME) ; "Notes"
> EndIf
> EndIf
> ; for Password Dialogs
> if (GetWindowName (GetParent (GetFocus ())) == msg102) then; "Enter
Password"
> SayWindowTypeAndText (FocusWindow)
> Return
> EndIf
> ; for New Message
> ; to avoid extra chatter when writing new message
> If (GetControlID (GetParent (GetFocus ())) == ID_View) &&
> (GetWindowClass (GetFocus ()) == WCEdit) ||
> (GetWindowClass (GetFocus ()) == wcEdit2) &&
> (GetControlID (GetCurrentWindow ()) <= 5057) then
> If (PrevWindow != GetParent (GetParent (FocusWindow))) &&
> StringContains (GetAppTitle (), "Eudora") then
> SayWindowTypeAndText (GetFocus ())
> Return
> EndIf ; if title has changed
> EndIf ; end of new message
> ; For the Find Dialog
> If (GetControlID (GetCurrentWindow ()) == ID_Find_Edit) ||
> (GetControlID (GetCurrentWindow ()) == ID_Find_Button) ||
> (GetControlID (GetCurrentWindow ()) == ID_Find_Checkbox) ||
> (GetControlID (GetCurrentWindow ()) == ID_Find_Checkbox2) then
> let nSuppressEcho = true
> If (GetWindowClass (GetFocus ()) == wcEdit2) then; "Edit"
> Say (msg95, OT_CONTROL_NAME) ; "Find What:"
> EndIf ; End of if it is edit
> SayWindowTypeAndText (GetCurrentWindow ())
> Return
> EndIf; End of Find Dialog
>
> let RealWindow = GetRealWindow(FocusWindow)
> let RealWindowName = GetWindowName (RealWindow)
> let AppWindow = GetAppMainWindow(FocusWindow)
> if (GlobalPrevApp != AppWindow
> && AppWindow != FocusWindow) then
> ; we've switched to a different app main window,
> ; and it does not have the focus, so announce it
> If (GetWindowClass (FocusWindow) == wcListView) &&; "SysListView32"
> (PrevWindow != FocusWindow) then
> SayWindowTypeAndText (FocusWindow)
> EndIf
> SayWindowTypeAndText(AppWindow)
> endif
> If ((GlobalPrevRealName != RealWindowName) ; name has changed
> || (GlobalPrevReal != RealWindow)) then ; or handle has changed, then
> If ((RealWindow != AppWindow)
> && (RealWindow != FocusWindow)) then
> SayWindowTypeAndText(RealWindow)
> endif
> EndIf
> ;no matter what, say the window with focus
> ;but do it by calling a subroutine that can be special for each
application,
> ; for example, progman.jms
> let GlobalFocusWindow = FocusWindow
> If (GetControlID (FocusWindow) != ID_View)then ;added 5/13/99 DCM
> SayFocusedWindow() ; will use global variable "GlobalFocusWindow"
> EndIf ;added 5/13/99 DCM
> ;above perform will return here to finish this routine
> ;now set all the global variables for next time.
> let GlobalPrevReal = RealWindow
> let GlobalPrevRealName = RealWindowName
> let GlobalPrevApp = AppWindow
> let GlobalPrevFocus = FocusWindow
> EndFunction
>
>
>
>
>
> At 11:08 PM 7/5/99 -0700 Muhammad Fazil Wrote:
> couple of months ago, 1 of the Davids, I don't remember which 1, posted
some
> changes in scripts to shut up eudora from speaking the first line of the
> message with the header. Can I have that post again, or if that
particular
> David still remembers it, could he send me those instructions again
please?
>
> Thanks! Best regards,
> Muhammad Fazil,
> Ph.D Candidate, Department of Asian Studies, University of British
Columbia,
> Vancouver BC, Canada.
> ENQUIRING MINDS WANT TO KNOW WHAT THE HELL YOU DO ALL DAY!
> Mentes quaerentes volunt scire quid in Hadei facias totum diem!
>
> -
> Visit the jfw ml web page: http://jfw.cjb.net
>
>
> -
> Visit the jfw ml web page: http://jfw.cjb.net
>
-
Visit the jfw ml web page: http://jfw.cjb.net
