extensions.st
changeset 13504 2c37f59ad97b
parent 13423 792b998bcc1a
child 13530 2269bce1636d
child 13639 c3544245d01b
equal deleted inserted replaced
13503:325d24e64837 13504:2c37f59ad97b
  1354 
  1354 
  1355     "Created: / 01-12-2007 / 22:50:28 / janfrog"
  1355     "Created: / 01-12-2007 / 22:50:28 / janfrog"
  1356     "Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
  1356     "Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
  1357 ! !
  1357 ! !
  1358 
  1358 
       
  1359 !ProgrammingLanguage methodsFor:'accessing'!
       
  1360 
       
  1361 toolbox
       
  1362     "Answer a toolbox for receiver. A toolbox is used by language-agnostic tools (such as
       
  1363      class browser) to perform language-specific tasks (search for implementors,
       
  1364      build implementor menu and so on. If nil is returned, no toolbox available"
       
  1365 
       
  1366     | class |
       
  1367 
       
  1368     class := self toolboxClass.   
       
  1369     ^ class notNil 
       
  1370         ifTrue:[ class new] 
       
  1371         ifFalse:[ nil ]
       
  1372 
       
  1373     "Created: / 31-08-2013 / 10:15:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
  1374     "Modified: / 31-08-2013 / 23:42:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
  1375 ! !
       
  1376 
       
  1377 !ProgrammingLanguage methodsFor:'accessing - classes'!
       
  1378 
       
  1379 toolboxClass
       
  1380     "Answer a 'toolbox class'. A toolbox is used by language-agnostic tools (such as
       
  1381      class browser) to perform language-specific tasks (search for implementors,
       
  1382      build implementor menu and so on. If nil is returned, no toolbox available"
       
  1383 
       
  1384     ^ nil
       
  1385 
       
  1386     "Created: / 31-08-2013 / 10:07:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
  1387 ! !
       
  1388 
  1359 !Rectangle methodsFor:'inspecting'!
  1389 !Rectangle methodsFor:'inspecting'!
  1360 
  1390 
  1361 inspectorValueStringInListFor:anInspector
  1391 inspectorValueStringInListFor:anInspector
  1362     "returns a string to be shown in the inspector's list"
  1392     "returns a string to be shown in the inspector's list"
  1363 
  1393 
  2080 ! !
  2110 ! !
  2081 
  2111 
  2082 !stx_libtool class methodsFor:'documentation'!
  2112 !stx_libtool class methodsFor:'documentation'!
  2083 
  2113 
  2084 extensionsVersion_CVS
  2114 extensionsVersion_CVS
  2085     ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.116 2013-08-31 11:33:18 cg Exp $'
  2115     ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.117 2013-09-05 21:34:32 vrany Exp $'
  2086 ! !
  2116 ! !
  2087 
  2117