equal
deleted
inserted
replaced
45 |
45 |
46 Current := nil. |
46 Current := nil. |
47 Smalltalk at: #Desktop put:self current |
47 Smalltalk at: #Desktop put:self current |
48 |
48 |
49 "Created: / 11-08-2009 / 17:09:52 / Jan Vrany <vranyj1@fel.cvut.cz>" |
49 "Created: / 11-08-2009 / 17:09:52 / Jan Vrany <vranyj1@fel.cvut.cz>" |
50 ! |
|
51 |
|
52 reinitialize |
|
53 |
|
54 self initialize. |
|
55 |
|
56 "Created: / 09-05-2012 / 11:57:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
57 ! ! |
50 ! ! |
58 |
51 |
59 !AbstractDesktop class methodsFor:'instance creation'! |
52 !AbstractDesktop class methodsFor:'instance creation'! |
60 |
53 |
61 new |
54 new |
65 !AbstractDesktop class methodsFor:'accessing'! |
58 !AbstractDesktop class methodsFor:'accessing'! |
66 |
59 |
67 best |
60 best |
68 |
61 |
69 " |
62 " |
70 AbstractDesktop best |
63 AbstractDesktop best |
71 " |
64 " |
72 |
65 |
73 (self allSubclasses asSortedCollection: [:a :b|a priority > b priority]) |
66 (self allSubclasses asSortedCollection: [:a :b|a priority > b priority]) |
74 do:[:cls|cls isAvailable ifTrue:[^cls new]]. |
67 do:[:cls|cls isAvailable ifTrue:[^cls new]]. |
75 ^nil "maybe error?" |
68 ^nil "maybe error?" |
76 |
69 |
77 "Created: / 11-08-2009 / 17:09:52 / Jan Vrany <vranyj1@fel.cvut.cz>" |
70 "Created: / 11-08-2009 / 17:09:52 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
71 "Modified: / 28-06-2011 / 11:50:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
78 ! |
72 ! |
79 |
73 |
80 current |
74 current |
81 |
75 |
82 Current ifNil: |
76 Current ifNil: |
102 "Returns true if this desktop is available on this computer" |
96 "Returns true if this desktop is available on this computer" |
103 |
97 |
104 self subclassResponsibility |
98 self subclassResponsibility |
105 |
99 |
106 "Created: / 11-08-2009 / 16:38:11 / Jan Vrany <vranyj1@fel.cvut.cz>" |
100 "Created: / 11-08-2009 / 16:38:11 / Jan Vrany <vranyj1@fel.cvut.cz>" |
107 ! ! |
|
108 |
|
109 !AbstractDesktop methodsFor:'accessing-directories'! |
|
110 |
|
111 desktopDirectory |
|
112 |
|
113 ^OperatingSystem getDesktopDirectory |
|
114 |
|
115 "Created: / 09-05-2012 / 11:48:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
116 ! |
|
117 |
|
118 documentsDirectory |
|
119 |
|
120 ^OperatingSystem getDocumentsDirectory |
|
121 |
|
122 "Created: / 09-05-2012 / 11:48:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
123 ! ! |
101 ! ! |
124 |
102 |
125 !AbstractDesktop methodsFor:'operations'! |
103 !AbstractDesktop methodsFor:'operations'! |
126 |
104 |
127 edit: filenames |
105 edit: filenames |
150 "Created: / 11-08-2009 / 17:28:24 / Jan Vrany <vranyj1@fel.cvut.cz>" |
128 "Created: / 11-08-2009 / 17:28:24 / Jan Vrany <vranyj1@fel.cvut.cz>" |
151 ! ! |
129 ! ! |
152 |
130 |
153 !AbstractDesktop class methodsFor:'documentation'! |
131 !AbstractDesktop class methodsFor:'documentation'! |
154 |
132 |
155 version |
133 version_CVS |
156 ^'$Id: AbstractDesktop.st 10808 2012-05-09 15:04:12Z vranyj1 $' |
134 ^ '$Header: /cvs/stx/stx/libbasic/AbstractDesktop.st,v 1.1 2011-06-28 10:09:08 vrany Exp $' |
157 ! |
135 ! |
158 |
136 |
159 version_SVN |
137 version_SVN |
160 ^ '$Id: AbstractDesktop.st 10808 2012-05-09 15:04:12Z vranyj1 $' |
138 ^ ' Id: AbstractDesktop.st 10517 2010-04-26 18:26:38Z vranyj1 ' |
161 ! ! |
139 ! ! |
162 |
140 |
163 AbstractDesktop initialize! |
141 AbstractDesktop initialize! |