equal
deleted
inserted
replaced
566 ]. |
566 ]. |
567 |
567 |
568 ^ super at:key put:value |
568 ^ super at:key put:value |
569 ! ! |
569 ! ! |
570 |
570 |
|
571 !UserPreferences methodsFor:'accessing-misc-communication'! |
|
572 |
|
573 smtpServerName |
|
574 ^ self at:#smtpServerName ifAbsent:nil |
|
575 |
|
576 "Created: / 20-09-2007 / 15:59:20 / cg" |
|
577 ! |
|
578 |
|
579 smtpServerName:aHostnameString |
|
580 ^ self at:#smtpServerName put:aHostnameString |
|
581 |
|
582 " |
|
583 UserPreferences current smtpServerName |
|
584 UserPreferences current smtpServerName:'mailhost' |
|
585 " |
|
586 |
|
587 "Created: / 20-09-2007 / 15:59:58 / cg" |
|
588 ! ! |
|
589 |
571 !UserPreferences methodsFor:'accessing-pref''d tools'! |
590 !UserPreferences methodsFor:'accessing-pref''d tools'! |
572 |
591 |
573 changesBrowserClass |
592 changesBrowserClass |
574 self useNewChangesBrowser ifTrue:[ |
593 self useNewChangesBrowser ifTrue:[ |
575 ^ (NewChangesBrowser ? ChangesBrowser) |
594 ^ (NewChangesBrowser ? ChangesBrowser) |
2436 ! ! |
2455 ! ! |
2437 |
2456 |
2438 !UserPreferences class methodsFor:'documentation'! |
2457 !UserPreferences class methodsFor:'documentation'! |
2439 |
2458 |
2440 version |
2459 version |
2441 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.189 2007-07-18 10:31:37 cg Exp $' |
2460 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.190 2007-09-20 14:07:56 cg Exp $' |
2442 ! ! |
2461 ! ! |