> With the information I currently have, I can not even guess what is going
> on. I'd like to look at your code to get some idea of what the problem
> might be. If you can send me the application, even if it is very big, and
> won't run because it needs some pieces not present, that would at least let
> me take a guess at where to look. You can just send it as an attachment in
> an e-mail.
>
>
Hi Mark, unfortunately sending it all is not practical because of data
dependencies. Instead what I've done is to strip the class in question and
saved only that parts that I believe are relevant, it's enclosed below. If
you can't see anything obviously wrong with it then I just leave it for now
and see if it becomes a real problem in the future. The only thing else I
can think of is that the dialog is started with the popupAsChild method.
Thanks,
Staffan
::CLASS ClassExtract PUBLIC SUBCLASS UserDialog INHERIT ResizingAdmin
::METHOD show CLASS
use arg parent
treeView = self~new(parent)
messageObject = treeView~popupAsChild(parent, "INACTIVE")
return .Array~of(treeView, messageObject)
::METHOD init
self~init:super()
self~create(0, 80, 200, 400, "")
::METHOD defineDialog
u = .DlgAreaU~new(self)
a = .DlgArea~new(u~x(''), u~y(''), u~w('100%'), u~h('40%'))
self~createTreeView(100, a~x + 5, a~y + 10, a~w - 10, a~h - 15, "ATROOT
BUTTONS LINES HSCROLL SHOWSELALWAYS NODRAG INFOTIP")
forward class(super)
::METHOD initDialog
tree = self~newTreeView(100)
toolTip = tree~getToolTips
toolTip~manageAtypicalTool(tree, .Array~of("NORELAY", "SHOW"))
toolTip~setDelayTime("AUTOPOP", 20000)
self~buildTree
self~connectTreeViewEvent(100, "SELCHANGED", onTreeSelected, .TRUE)
self~connectTreeViewEvent(100, "GETINFOTIP")
::METHOD onTreeSelected UNGUARDED
use arg id, hItemOld, userOld, hItemNew, userNew, action, treeView
reply 0
call TimedMessage self~makeText, "", 2000
::METHOD onGetInfoTip UNGUARDED
expose currentItem
use arg id, hItem, text, maxLen, userData
currentItem = hItem
if userData = .NIL then return ""
return self~tipText
::METHOD onShow UNGUARDED
expose currentItem
use arg toolTip, treeView
r = .Rect~new
if treeView~getItemRect(currentItem, r) then do
treeView~client2screen(r)
toolTip~setWindowPos(0, r~right + 5, r~top, 0, 0, "NOACTIVATE NOSIZE
NOZORDER")
return .true
end
return .false
::METHOD ok UNGUARDED
return .FALSE
------------------------------------------------------------------------------
Own the Future-Intel(R) Level Up Game Demo Contest 2013
Rise to greatness in Intel's independent game demo contest. Compete
for recognition, cash, and the chance to get your game on Steam.
$5K grand prize plus 10 genre and skill prizes. Submit your demo
by 6/6/13. http://altfarm.mediaplex.com/ad/ck/12124-176961-30367-2
_______________________________________________
Oorexx-users mailing list
Oorexx-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-users
