UserPreferences.st
changeset 20852 77d4e07567b2
parent 20815 9d37f600a822
child 20865 d60381249b45
equal deleted inserted replaced
20851:0c3beab2ee41 20852:77d4e07567b2
  2672      UserPreferences current autoIndentInCodeView:true
  2672      UserPreferences current autoIndentInCodeView:true
  2673      UserPreferences current autoIndentInCodeView:false
  2673      UserPreferences current autoIndentInCodeView:false
  2674     "
  2674     "
  2675 !
  2675 !
  2676 
  2676 
       
  2677 confirmCheckinOfPrivateClasses
       
  2678     "If set, a confirmation dialog is shown when attempting to checkin a private class."
       
  2679 
       
  2680     ^ self at:#confirmCheckinOfPrivateClasses ifAbsent:[true].
       
  2681 
       
  2682     "
       
  2683      UserPreferences current confirmCheckinOfPrivateClasses
       
  2684      UserPreferences current confirmCheckinOfPrivateClasses:true
       
  2685      UserPreferences current confirmCheckinOfPrivateClasses:false
       
  2686     "
       
  2687 !
       
  2688 
       
  2689 confirmCheckinOfPrivateClasses:aBoolean
       
  2690     "If set, a confirmation dialog is shown when attempting to checkin a private class."
       
  2691 
       
  2692     self at:#confirmCheckinOfPrivateClasses put:aBoolean.
       
  2693 
       
  2694     "
       
  2695      UserPreferences current confirmCheckinOfPrivateClasses
       
  2696      UserPreferences current confirmCheckinOfPrivateClasses:true
       
  2697      UserPreferences current confirmCheckinOfPrivateClasses:false
       
  2698     "
       
  2699 !
       
  2700 
  2677 enforceCodeStyle
  2701 enforceCodeStyle
  2678     "return the flag which controls enforcing a certain code style (in some browsers)"
  2702     "return the flag which controls enforcing a certain code style (in some browsers)"
  2679 
  2703 
  2680     ^ self at:#enforceCodeStyle ifAbsent:false
  2704     ^ self at:#enforceCodeStyle ifAbsent:false
  2681 
  2705