XWorkstation.st
changeset 7478 4865dd2c05c9
parent 7443 e2d05b756727
child 7486 c3a1433996ec
equal deleted inserted replaced
7477:d3f6ca4941bf 7478:4865dd2c05c9
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4 COPYRIGHT (c) 1989 by Claus Gittinger
     2 COPYRIGHT (c) 1989 by Claus Gittinger
     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
     9  inclusion of the above copyright notice.   This software may not
     7  inclusion of the above copyright notice.   This software may not
    10  be provided or otherwise made available to, or used by, any
     8  be provided or otherwise made available to, or used by, any
    11  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    12  hereby transferred.
    10  hereby transferred.
    13 "
    11 "
    14 'From Smalltalk/X, Version:7.1.0.0 on 20-07-2016 at 15:21:49'                   !
       
    15 
       
    16 "{ Package: 'stx:libview' }"
    12 "{ Package: 'stx:libview' }"
    17 
    13 
    18 "{ NameSpace: Smalltalk }"
    14 "{ NameSpace: Smalltalk }"
    19 
    15 
    20 DeviceWorkstation subclass:#XWorkstation
    16 DeviceWorkstation subclass:#XWorkstation
  7866 		    size:13
  7862 		    size:13
  7867 		    encoding:#'iso10646-1'
  7863 		    encoding:#'iso10646-1'
  7868 	    ).
  7864 	    ).
  7869 
  7865 
  7870       Screen current
  7866       Screen current
  7871 	heightOf:'hello World gggÖÜ' from:1 to:15
  7867 	heightOf:'hello World gggÖÜ' from:1 to:15
  7872 	inFont:(Screen current getDefaultFontWithEncoding:#'iso10646-1')
  7868 	inFont:(Screen current getDefaultFontWithEncoding:#'iso10646-1')
  7873     "
  7869     "
  7874 !
  7870 !
  7875 
  7871 
  7876 listOfAvailableFonts
  7872 listOfAvailableFonts
  9163     is somewhat special value.
  9159     is somewhat special value.
  9164 
  9160 
  9165     This remapping kludge is here to have all the widget's code backward/windows
  9161     This remapping kludge is here to have all the widget's code backward/windows
  9166     compatible while still having X11's middle button behavior.
  9162     compatible while still having X11's middle button behavior.
  9167 
  9163 
  9168     Also note, that buttonTranslation is overwritten in display.rc,
  9164     Also note that buttonTranslation is overwritten in display.rc,
  9169     the code is here just for a case display.rc is not read/available
  9165     the code is here just for a case display.rc is not read/available
  9170     and for documentation (symbol references does not search .rc files).
  9166     and for documentation (symbol references does not search .rc files).
  9171     "
  9167     "
  9172 
  9168 
  9173     buttonTranslation := buttonTranslation copy.
  9169     buttonTranslation := buttonTranslation copy.