forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

%ac[Ins] not working

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+
View previous topic :: View next topic  
Author Message
acw



Joined: 04 Nov 2005
Posts: 165
Location: Darkest Devon

PostPosted: Tue Sep 11, 2012 10:27 am    Post subject: %ac[Ins] not working Reply with quote

Hi. I've just noticed that the Ins accelerator key (%ac[Ins]) appears to have stopped working. I'm not sure on which version of the compiler it stopped, but code compiled a year or two back works okay. The window is getting WM_KEYDOWN events for the Ins key but the accelerator doesn't work. Other keys like Home and End are okay. I get the same issue when tested on XP and Win 7.

Code:

! Demonstrate failure of Insert hotkey
winapp
use mswin

external OnHome, OnIns, OnEnd

i = winio@('%ca[Test Hotkey - Press Home, Insert or End]&')
i = winio@('%ac[Home]&', OnHome)
i = winio@('%ac[Ins]&', OnIns)    ! doesn't work
i = winio@('%ac[End]', OnEnd)
end program

! Handle hotkey presses - notify which key was pressed
integer function OnHome()
  i = winio@('%ca[Home]')
  OnHome = 2
end function OnHome
integer function OnIns()
  i = winio@('%ca[Ins]')
  OnIns = 2
end function OnIns
integer function OnEnd()
  i = winio@('%ca[End]')
  OnEnd = 2
end function OnEnd
[/code]
Back to top
View user's profile Send private message Visit poster's website
IanLambley



Joined: 17 Dec 2006
Posts: 490
Location: Sunderland

PostPosted: Tue Sep 11, 2012 11:35 am    Post subject: Reply with quote

Quick workaround.
Code:
! Temporary workaround for failure of Insert hotkey
winapp
use mswin

external OnHome, OnIns, OnEnd, KB_func
call ADD_KEYBOARD_MONITOR@( KB_func)
i = winio@('%ca[Test Hotkey - Press Home, Insert or End]&')
i = winio@('%ac[Home]&', OnHome)
i = winio@('%ac[INS]&', OnIns)    ! doesn't work
i = winio@('%ac[End]', OnEnd)
end program

! Handle hotkey presses - notify which key was pressed
integer function OnHome()
  i = winio@('%ca[Home]')
  OnHome = 2
end function OnHome
integer function OnIns()
  i = winio@('%ca[Insert]')
  OnIns = 2
end function OnIns
integer function OnEnd()
  i = winio@('%ca[End]')
  OnEnd = 2
end function OnEnd
integer function KB_func()
include <windows.ins>
integer OnIns
  KB_func = 2
  IF(clearwin_info@('keyboard_key') .eq. 338)then
    KB_func = OnIns()
  endif
end function KB_func
Back to top
View user's profile Send private message Send e-mail
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Tue Sep 11, 2012 4:30 pm    Post subject: Reply with quote

I have logged this for investigation.
Back to top
View user's profile Send private message AIM Address
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Thu Sep 13, 2012 8:00 am    Post subject: Reply with quote

This regression has now been fixed.
Back to top
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+ All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group