Because we use wIntegrate, I settled (at least for now) on a BASIC program
in each account's LOGIN PA (see program below) which changes the window
title.
The only drawback is when you LOGTO another account that does not have the
magic LOGIN paragraph, the window title does not change. If only you could
set an "exit account" event.
* Sets the text of the wIntegrate title bar to show the current ACCOUNT.
RUN.SCRIPT = 0
IF TRANS('VOC','WIN.HSCRIPT',@ID,'X') THEN RUN.SCRIPT += 1 ELSE PRINT
'HDR2ACCT: this account lacks WIN.HSCRIPT'
IF TRANS('VOC','WIN.SETLIST',@ID,'X') THEN RUN.SCRIPT += 1 ELSE PRINT
'HDR2ACCT: this account lacks WIN.SETLIST'
IF TRANS('VOC','WIN.COMSUB',@ID,'X') THEN RUN.SCRIPT += 1 ELSE PRINT
'HDR2ACCT: this account lacks WIN.COMSUB'
IF RUN.SCRIPT EQ 3 THEN
XSCRIPT = ''
XSCRIPT<-1> = 'configure'
XSCRIPT<-1> = 'store Title = "':UPCASE(@WHO):' / ':DOWNCASE(@LOGNAME):' -
@ is |"'
XSCRIPT<-1> = 'update'
CALL WIN.HSCRIPT(XSCRIPT)
END
STOP
END
--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users
