Hello all!
What do I have to change in following dialog to get
i) the selected item displayed in a ComboBox, and
ii) set the focus on the ComboBox?
(Currently the focus is on the OK button)
Thank you for every hint
Mike
::class 'ScalSelCmbx' subclass UserDialog
::method init unguarded
forward class (super) continue
self~create(0, 0, 123, 39, "Select sacle", "CENTER",,, 11)
::method defineDialog unguarded
self~createOkCancelRightTop
self~createComboBoxInput(IDC_SESCA, 5, 20, , 28, , '1/', 'LIST
PARTIAL VSCROLL', , )
::method initDialog unguarded
expose scombo
scombo = self~newComboBox(IDC_SESCA)
do s over .constDir[GLV_SCLAR]
scombo~add(s) -- set allowed scaling factors
end
s = ' ' || .constDir[GLV_DISCL] -- current scale factor
if s > 9 then s = s + 0 -- remove leading blanks
scombo~select(s)
::method OK unguarded
expose scombo
.constDir[GLV_DISCL] = scombo~selected + 0
self~OK:super
--------------------------------------------
Kostenlose E-Mail-Adresse mit unbegrenztem Speicherplatz für E-Mails, Free SMS
und OK-Drive, der Online-Festplatte.
Sicher Dir jetzt Deine Wunschadresse @ OK.de: www.ok.de
------------------------------------------------------------------------------
Managing the Performance of Cloud-Based Applications
Take advantage of what the Cloud has to offer - Avoid Common Pitfalls.
Read the Whitepaper.
http://pubads.g.doubleclick.net/gampad/clk?id=121054471&iu=/4140/ostg.clktrk
_______________________________________________
Oorexx-users mailing list
Oorexx-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-users
