> Hi Art,
>
> Here is the problem. In your main program you have:
>
>
> .application~autoDetection(.false)
>
>
> This turns off auto detection for *all* dialogs in the application.
> Unfortunately the SingleSelection class relies on auto detection
> to work.
>
>
> This fixes the example you sent me so that it works:
>
>
> --.application~autoDetection(.false)
>
>
> In the current ooDialog, your options would be to not use the
> Standard dialogs, or to turn auto detection off in the individual
> dialogs where you want it off. You do that by adding this method
> to any dialog that you want auto detection off:
>
>
> ::method initAutoDetection
> self~noAutoDetection
>
>
> Some one else had this same problem just a short while ago. I may
> rewrite the standard dialogs that rely on auto detection to NOT
> rely on it. There would be no visible change to the user of the
> standard dialogs, so it could easily be done.
>
>
> The whole auto detection thing can be very confusing, as far as I'm
> concerned.
>
>
> --
> Mark Miesfeld
>
> On Tue, Jan 22, 2013 at 5:35 PM, Art Heimsoth
> <artst...@artheimsoth.com> wrote:
>
>>> On Tue, Jan 22, 2013 at 3:45 PM, Art Heimsoth
>> <artst...@artheimsoth.com> wrote:
>>
>>> I am trying to get a printer selection to work using the
>>> .SingleSelection class
>>>
>> in my ooDialog program. The selection is displayed, but the
>> default item that is passed as a parm does not preselect the
>> item, and the return is always the preselected index value. If I
>> take the method out of the main program and run it from a simple
>> Rexx program, all works just fine. I have verified via traces
>> that the parms are passed in correctly and the selected index
>> value is not returned. I am looking for ideas of how to find the
>> problem short of really stripping the main program until it
>> starts working.
>>
>>
>> Hi Art,
>>
>>
>> It's pretty hard to say without seeing some code. You say "the
>> method out of the main" What does this method look like?
>>
>>
>> ::method UpdatePrinter
> expose Fescue. Tkt.
> self~logError(0,"UpdatePrinter entered" time('S'))
>
> self~logError(0,"Fescue.printer set to:" Fescue.printer "on
> entry") if Fescue.printer <> '' then return -- stop
> multiple entry waitmsg = .TimedMessage~new("Please wait for the
> list of printers.", , "Getting Printer Names", -1)
> waitmsg~execute default_printer = SysWinGetDefaultPrinter()
> parse value default_printer with dp ','. call
> SysWinGetPrinters all_printers. do i = 1 to all_printers.0
> parse var all_printers.i pname ','. if pname == dp then
> do aprt.i = pname '(Default)' ldp = i
> end else aprt.i = pname end
>
> aprt.0 = all_printers.0
> m_title = 'Select A Printer For Fescue Program'
> self~logError(0,"Preselected:" aprt.ldp)
> dlg = .SingleSelection~new('Make A Selection',m_title,aprt.,ldp,
> ,4) wt = dlg~execute waitmsg~ok if wt <> '' then do
> Tkt.Printer~setText(aprt.wt)
> self~logError(0,"UpdatePrinter Selected:" aprt.wt)
> Fescue.printer = aprt.wt end else
> self~logError(0,"UpdatePrinter none selected")
>
> Then if I run the following it works as expected:
>
> /* why doesn't printer selection work? */
>
> waitmsg = .TimedMessage~new("Please wait for the list of
> printers.", , "Getting Printer Names", -1)
> waitmsg~execute default_printer = SysWinGetDefaultPrinter()
> parse value default_printer with dp ','. call SysWinGetPrinters
> all_printers. do i = 1 to all_printers.0 parse var
> all_printers.i pname ','. if pname == dp then do
> aprt.i = pname '(Default)' ldp = i end
> else aprt.i = pname end
>
> aprt.0 = all_printers.0
> m_title = 'Select A Printer For Fescue Program' dlg =
> .SingleSelection~new('Make A Selection',m_title,aprt.,ldp, ,4)
> wt = dlg~execute waitmsg~ok if wt <> '' then Say
> "printer selected = "aprt.wt else Say "No printer
> selected"
>
> ::requires OODialog.CLS
>
>> Off-hand, I'd say it is not possible for it to not work. ;-)
>> So, I'm thinking there is something else going on there.
>>
>>
>> I agree there is something else going on, but I am out of ideas
>>
> of how to try to find out what!
>
> --
> Art Heimsoth - artst...@artheimsoth.com
>
>
Thank you!! Thank you..
--
Art Heimsoth - artst...@artheimsoth.com
------------------------------------------------------------------------------
Master Visual Studio, SharePoint, SQL, ASP.NET, C# 2012, HTML5, CSS,
MVC, Windows 8 Apps, JavaScript and much more. Keep your skills current
with LearnDevNow - 3,200 step-by-step video tutorials by Microsoft
MVPs and experts. ON SALE this month only -- learn more at:
http://p.sf.net/sfu/learnnow-d2d
_______________________________________________
Oorexx-users mailing list
Oorexx-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-users
