equal
deleted
inserted
replaced
3718 applicationNamed:#FileApplicationNoteBook |
3718 applicationNamed:#FileApplicationNoteBook |
3719 ifPresentDo:[:appl | appl lockFileEncodingHolder]. |
3719 ifPresentDo:[:appl | appl lockFileEncodingHolder]. |
3720 ] |
3720 ] |
3721 ! |
3721 ! |
3722 |
3722 |
|
3723 makeCommandHolder |
|
3724 ^ self aspectFor:#makeCommandHolder ifAbsent:[ nil asValue ]. |
|
3725 |
|
3726 "Created: / 13-04-2012 / 17:01:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
3727 ! |
|
3728 |
3723 notify:aString |
3729 notify:aString |
3724 "aString is shown in the lower pane" |
3730 "aString is shown in the lower pane" |
3725 |
3731 |
3726 self notifyChannel value:aString |
3732 self notifyChannel value:aString |
3727 |
3733 |
4376 |dir can| |
4382 |dir can| |
4377 |
4383 |
4378 can := false. |
4384 can := false. |
4379 dir := self currentDirectory. |
4385 dir := self currentDirectory. |
4380 dir notNil ifTrue:[ |
4386 dir notNil ifTrue:[ |
|
4387 "/ Check for make |
4381 can := (dir asFilename construct:'Makefile') exists. |
4388 can := (dir asFilename construct:'Makefile') exists. |
4382 OperatingSystem isMSWINDOWSlike ifTrue:[ |
4389 OperatingSystem isMSWINDOWSlike ifTrue:[ |
4383 can ifFalse:[ |
4390 can ifFalse:[ |
4384 can := (self currentDirectory asFilename construct:'nt.mak') exists. |
4391 can := (self currentDirectory asFilename construct:'nt.mak') exists. |
4385 ] |
4392 ] |
4386 ]. |
4393 ]. |
|
4394 can ifTrue:[ |
|
4395 self makeCommandHolder value: 'make'. |
|
4396 self canMake value: true. |
|
4397 ^ self |
|
4398 ]. |
|
4399 |
|
4400 "/Check for Apache ant |
|
4401 (OperatingSystem canExecuteCommand: 'ant') ifTrue:[ |
|
4402 can := (dir asFilename construct:'build.xml') exists. |
|
4403 can ifTrue:[ |
|
4404 self makeCommandHolder value: 'ant'. |
|
4405 self canMake value: true. |
|
4406 ^ self |
|
4407 ]. |
|
4408 ]. |
|
4409 |
|
4410 "/Add more here... |
|
4411 |
4387 ]. |
4412 ]. |
4388 self canMake value:can. |
4413 self canMake value:can. |
|
4414 |
|
4415 "Modified: / 13-04-2012 / 17:05:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4389 ! |
4416 ! |
4390 |
4417 |
4391 updateListAfterDelete:colOfFiles |
4418 updateListAfterDelete:colOfFiles |
4392 self updateCurrentDirectory |
4419 self updateCurrentDirectory |
4393 ! ! |
4420 ! ! |
6287 ! |
6314 ! |
6288 |
6315 |
6289 doMake |
6316 doMake |
6290 |dir cmd| |
6317 |dir cmd| |
6291 |
6318 |
6292 cmd := 'make'. |
6319 cmd := self makeCommandHolder value. |
6293 dir := self theSingleSelectedDirectoryOrNil. |
6320 |
6294 |
6321 "Make" |
6295 OperatingSystem isMSWINDOWSlike ifTrue:[ |
6322 cmd = 'make' ifTrue:[ |
6296 dir notNil ifTrue:[ |
6323 dir := self theSingleSelectedDirectoryOrNil. |
6297 (dir construct:'bmake.bat') exists ifTrue:[ |
6324 OperatingSystem isMSWINDOWSlike ifTrue:[ |
6298 cmd := 'bmake.bat'. |
6325 dir notNil ifTrue:[ |
|
6326 (dir construct:'bmake.bat') exists ifTrue:[ |
|
6327 cmd := 'bmake.bat'. |
|
6328 ] |
6299 ] |
6329 ] |
6300 ] |
6330 ]. |
6301 ]. |
6331 self executeCommand:cmd. |
6302 self executeCommand:cmd. |
6332 ^self. |
|
6333 ]. |
|
6334 |
|
6335 "Apache ant" |
|
6336 cmd = 'ant' ifTrue:[ |
|
6337 self executeCommand:cmd. |
|
6338 ^self. |
|
6339 ]. |
|
6340 |
|
6341 "Add more here..." |
|
6342 |
|
6343 "Modified (comment): / 13-04-2012 / 17:07:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6303 ! |
6344 ! |
6304 |
6345 |
6305 doOpenCBrowser |
6346 doOpenCBrowser |
6306 |destDir| |
6347 |destDir| |
6307 |
6348 |
9151 ! ! |
9192 ! ! |
9152 |
9193 |
9153 !AbstractFileBrowser class methodsFor:'documentation'! |
9194 !AbstractFileBrowser class methodsFor:'documentation'! |
9154 |
9195 |
9155 version |
9196 version |
9156 ^ '$Id: AbstractFileBrowser.st 7964 2012-04-03 17:37:50Z vranyj1 $' |
9197 ^ '$Id: AbstractFileBrowser.st 7979 2012-04-13 18:16:04Z vranyj1 $' |
9157 ! |
9198 ! |
9158 |
9199 |
9159 version_CVS |
9200 version_CVS |
9160 ^ '§Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.492 2012/02/28 10:16:29 cg Exp §' |
9201 ^ '§Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.492 2012/02/28 10:16:29 cg Exp §' |
9161 ! |
9202 ! |
9162 |
9203 |
9163 version_SVN |
9204 version_SVN |
9164 ^ '$Id: AbstractFileBrowser.st 7964 2012-04-03 17:37:50Z vranyj1 $' |
9205 ^ '$Id: AbstractFileBrowser.st 7979 2012-04-13 18:16:04Z vranyj1 $' |
9165 ! ! |
9206 ! ! |