UserPreferences.st
changeset 25133 a917a832ab46
parent 25103 4242a828ffea
child 25197 436fda3e096c
equal deleted inserted replaced
25132:b75ecaafefc4 25133:a917a832ab46
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1998 by eXept Software AG
     4  COPYRIGHT (c) 1998 by eXept Software AG
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
  5606     "/ ^ [:x | x].
  5608     "/ ^ [:x | x].
  5607 ! !
  5609 ! !
  5608 
  5610 
  5609 !UserPreferences methodsFor:'accessing-prefs-tools'!
  5611 !UserPreferences methodsFor:'accessing-prefs-tools'!
  5610 
  5612 
       
  5613 addExpeccoToWindowsFavorites
       
  5614     "if true, links to expecco's project folders are added to the explorer's favorites"
       
  5615 
       
  5616     ^ self at:#addExpeccoToWindowsFavorites ifAbsent:true
       
  5617 
       
  5618     "
       
  5619      UserPreferences current addExpeccoToWindowsFavorites
       
  5620     "
       
  5621 
       
  5622 
       
  5623 !
       
  5624 
       
  5625 addExpeccoToWindowsFavorites:aBoolean
       
  5626     "if true, links to expecco's project folders are added to the explorer's favorites"
       
  5627 
       
  5628     self at:#addExpeccoToWindowsFavorites put:aBoolean
       
  5629 
       
  5630     "
       
  5631      UserPreferences current addExpeccoToWindowsFavorites
       
  5632      UserPreferences current addExpeccoToWindowsFavorites:false
       
  5633      UserPreferences current addExpeccoToWindowsFavorites:true
       
  5634     "
       
  5635 !
       
  5636 
  5611 allowSendMailFromDebugger
  5637 allowSendMailFromDebugger
  5612     "if true inserts a button in Debugger for open a GUI to send useful debugger infos per mail to a default
  5638     "if true inserts a button in Debugger for open a GUI to send useful debugger infos per mail to a default
  5613      mail account "
  5639      mail account "
  5614 
  5640 
  5615     ^ self at:#allowSendMailFromDebugger ifAbsent:true
  5641     ^ self at:#allowSendMailFromDebugger ifAbsent:true