FontPanel.st
changeset 4982 afe827d81029
parent 4953 6c41d97ecffb
child 4983 739bda141e09
equal deleted inserted replaced
4981:eec978590f79 4982:afe827d81029
   515     |familyLabel faceLabel sizeLabel panel fontBrowserView v1 v2 v3
   515     |familyLabel faceLabel sizeLabel panel fontBrowserView v1 v2 v3
   516      mm fH eH l box1 box2 showFontNameLabel xftCheckBox|
   516      mm fH eH l box1 box2 showFontNameLabel xftCheckBox|
   517 
   517 
   518     super initialize.
   518     super initialize.
   519 
   519 
   520     showFontNameLabel := self graphicsDevice platformName ~= #WIN32.
   520     showFontNameLabel := self graphicsDevice isWindowsPlatform not.
   521     sizeUnit := #pt.
   521     sizeUnit := #pt.
   522 
   522 
   523     mm := ViewSpacing.
   523     mm := ViewSpacing.
   524 
   524 
   525     self addAbortAndOkButtons.
   525     self addAbortAndOkButtons.
   692 
   692 
   693 listOfEncodingsInFilterCombo
   693 listOfEncodingsInFilterCombo
   694     |availableEncodings listPresentedToUser|
   694     |availableEncodings listPresentedToUser|
   695 
   695 
   696     listOfEncodings := OrderedCollection new.
   696     listOfEncodings := OrderedCollection new.
   697     self graphicsDevice platformName = #WIN32 ifTrue:[
   697     self graphicsDevice isWindowsPlatform ifTrue:[
   698         listOfEncodings
   698         listOfEncodings
   699             addAll:
   699             addAll:
   700                 #(
   700                 #(
   701                     '*'
   701                     '*'
   702                     nil
   702                     nil
  1282 ! !
  1282 ! !
  1283 
  1283 
  1284 !FontPanel class methodsFor:'documentation'!
  1284 !FontPanel class methodsFor:'documentation'!
  1285 
  1285 
  1286 version
  1286 version
  1287     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.121 2014-03-19 10:04:00 stefan Exp $'
  1287     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.122 2014-04-03 14:38:24 cg Exp $'
  1288 !
  1288 !
  1289 
  1289 
  1290 version_CVS
  1290 version_CVS
  1291     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.121 2014-03-19 10:04:00 stefan Exp $'
  1291     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.122 2014-04-03 14:38:24 cg Exp $'
  1292 ! !
  1292 ! !
  1293 
  1293