ftp.nice.ch/pub/next/developer/apps/Eval.3.3.s.tar.gz#/Eval3.3/EvalPrefsPanel.m

This is EvalPrefsPanel.m in view mode; [Download] [Up]

#import <EvalPrefsPanel.h>


@implementation EvalPrefsPanel: Panel

- getFont: sender ;
{ id m = [FontManager new] ;
  id f = [m getFontPanel: YES] ; 
  [f orderFront: 0] ;
  [NXApp runModalFor: f] ;
  [m modifyFontViaPanel: self] ;
  printf("%s\n",[[m selFont] name]) ;
  printf("%f\n",[[m selFont] pointSize]) ;
  return self ;
}

- changeFont: sender ;
{ [NXApp stopModal] ;
  return self ;
}


@end

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.