1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
namespace BooBinding.Properties
import System
import Pango
import MonoDevelop.Core
class ShellProperties:
//FIXME: BOO COMPILER CAN'T RESOLVE OVERLOADS OF GENERIC METHODS
//private properties = PropertyService.Get [of Properties] (PropertyName)
private properties = PropertyService.Get [of Properties] (PropertyName, Properties())
//END FIXME
public abstract PropertyName as string:
get:
pass
public InternalProperties as Properties:
get:
return properties
FontName as string:
get:
return properties.Get [of string] ("Font", "__default_monospace")
set:
properties.Set ("Font", value)
Font as FontDescription:
get:
if FontName == "__default_monospace":
return FontDescription.FromString (MonoDevelop.Ide.DesktopService.DefaultMonospaceFont)
else:
return FontDescription.FromString (FontName)
AutoIndentBlocks as bool:
get:
return properties.Get [of bool] ("AutoIndentBlocks", true)
set:
properties.Set ("AutoIndentBlocks", value)
ResetClearsScrollback as bool:
get:
return properties.Get [of bool] ("ResetClearsScrollback", true)
set:
properties.Set ("ResetClearsScrollback", value)
ResetClearsHistory as bool:
get:
return properties.Get [of bool] ("ResetClearsHistory", true)
set:
properties.Set ("ResetClearsHistory", value)
LoadAssemblyAfterBuild as bool:
get:
return properties.Get [of bool] ("LoadAssemblyAfterBuild", true)
set:
properties.Set ("LoadAssemblyAfterBuild", value)
|
