equal
deleted
inserted
replaced
95 window: |
95 window: |
96 (WindowSpec |
96 (WindowSpec |
97 label: 'Working Copy Status' |
97 label: 'Working Copy Status' |
98 name: 'Working Copy Status' |
98 name: 'Working Copy Status' |
99 min: (Point 10 10) |
99 min: (Point 10 10) |
100 bounds: (Rectangle 0 0 300 300) |
100 bounds: (Rectangle 0 0 586 403) |
101 ) |
101 ) |
102 component: |
102 component: |
103 (SpecCollection |
103 (SpecCollection |
104 collection: ( |
104 collection: ( |
105 (DataSetSpec |
105 (DataSetSpec |
114 columnHolder: wcEntryTableColumns |
114 columnHolder: wcEntryTableColumns |
115 ) |
115 ) |
116 (CheckBoxSpec |
116 (CheckBoxSpec |
117 label: 'Show only changed etries' |
117 label: 'Show only changed etries' |
118 name: 'ShowOnlyChanged' |
118 name: 'ShowOnlyChanged' |
119 layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
119 layout: (LayoutFrame 0 0 -30 1 -170 1 0 1) |
120 model: showOnlyChanged |
120 model: showOnlyChanged |
121 translateLabel: true |
121 translateLabel: true |
|
122 ) |
|
123 (LinkButtonSpec |
|
124 label: 'Browse working copy' |
|
125 name: 'BrowseWC' |
|
126 layout: (LayoutFrame -170 1 -30 1 0 1 0 1) |
|
127 translateLabel: true |
|
128 labelChannel: browseWorkingCopyLabel |
|
129 adjust: right |
|
130 model: browseWorkingCopy |
122 ) |
131 ) |
123 ) |
132 ) |
124 |
133 |
125 ) |
134 ) |
126 ) |
135 ) |
273 |
282 |
274 "Created: / 11-04-2008 / 10:20:22 / Jan Vrany <vranyj1@fel.cvut.cz>" |
283 "Created: / 11-04-2008 / 10:20:22 / Jan Vrany <vranyj1@fel.cvut.cz>" |
275 "Modified: / 12-04-2008 / 21:02:34 / Jan Vrany <vranyj1@fel.cvut.cz>" |
284 "Modified: / 12-04-2008 / 21:02:34 / Jan Vrany <vranyj1@fel.cvut.cz>" |
276 ! ! |
285 ! ! |
277 |
286 |
|
287 !WorkingCopyBrowser methodsFor:'actions'! |
|
288 |
|
289 browseWorkingCopy |
|
290 |
|
291 ^UserPreferences current fileBrowserClass |
|
292 openOnDirectory: self workingCopy path |
|
293 |
|
294 "Created: / 05-02-2012 / 01:23:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
295 ! |
|
296 |
|
297 browseWorkingCopyLabel |
|
298 |
|
299 ^'Browse working copy...' asText |
|
300 colorizeAllWith: Color blue; |
|
301 actionForAll:[ self browseWorkingCopy ]; |
|
302 yourself |
|
303 |
|
304 "Created: / 05-02-2012 / 01:28:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
305 ! ! |
|
306 |
278 !WorkingCopyBrowser methodsFor:'aspects'! |
307 !WorkingCopyBrowser methodsFor:'aspects'! |
279 |
308 |
280 showOnlyChanged |
309 showOnlyChanged |
281 |
310 |
282 |holder| |
311 |holder| |