MenuItem.st
changeset 4045 1671de832c2e
parent 4037 eecd873be684
child 4054 6ddcaca12fee
equal deleted inserted replaced
4044:9400ab00cbfc 4045:1671de832c2e
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1998 by eXept Software AG
     2  COPYRIGHT (c) 1998 by eXept Software AG
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
   289     
   287     
   290     accessCharacterPosition := index
   288     accessCharacterPosition := index
   291 !
   289 !
   292 
   290 
   293 activeHelpKey
   291 activeHelpKey
   294     "the key used as index (and argument) to the help/flyByHelpSpec"
   292     "the key used as index (and argument) to the helpSpec"
   295 
   293 
   296     ^ activeHelpKey
   294     ^ activeHelpKey
   297 !
   295 !
   298 
   296 
   299 activeHelpKey:aKey
   297 activeHelpKey:aKey
   300     "the key used as index (and argument) to the help/flyByHelpSpec"
   298     "the key used as index (and argument) to the helpSpec"
   301 
   299 
   302     activeHelpKey := aKey
   300     activeHelpKey := aKey
   303 !
   301 !
   304 
   302 
   305 argument
   303 argument