WorkspaceApplication.st
changeset 12639 6a0a5bf99236
parent 12479 6b385e17ea14
child 12650 e0f607754b9a
child 12699 a9d7394a503e
equal deleted inserted replaced
12638:8b27338f467b 12639:6a0a5bf99236
  1922 !
  1922 !
  1923 
  1923 
  1924 openWith:initialText
  1924 openWith:initialText
  1925     "launch a new workspace with some initial contents"
  1925     "launch a new workspace with some initial contents"
  1926 
  1926 
  1927     ^ self openWith:initialText selected:false
  1927     ^ self 
  1928 
  1928         openWith:initialText 
  1929     "
  1929         selected:false
  1930      WorkspaceApplication openWith:'Transcript showCR:''hello world'''
  1930 
       
  1931     "
       
  1932      WorkspaceApplication 
       
  1933         openWith:'Transcript showCR:''hello world'''
  1931     "
  1934     "
  1932 !
  1935 !
  1933 
  1936 
  1934 openWith:initialText selected:selectedBoolean
  1937 openWith:initialText selected:selectedBoolean
  1935     "launch a new workspace with some initial contents"
  1938     "launch a new workspace with some initial contents"
  1936 
  1939 
       
  1940     ^ self openWith:initialText selected:selectedBoolean title:nil
       
  1941 
       
  1942     "
       
  1943      WorkspaceApplication 
       
  1944         openWith: 'Transcript showCR:''hello world'''
       
  1945         selected: false
       
  1946 
       
  1947      WorkspaceApplication 
       
  1948         openWith: 'Transcript showCR:''hello world'''
       
  1949         selected: true
       
  1950     "
       
  1951 !
       
  1952 
       
  1953 openWith:initialText selected:selectedBoolean title:titleString
       
  1954     "launch a new workspace with some initial contents"
       
  1955 
  1937     |workspace|
  1956     |workspace|
  1938 
  1957 
  1939     workspace := self new.
  1958     workspace := self new.
  1940     workspace open.
  1959     workspace open.
       
  1960     titleString notNil ifTrue:[workspace setLabel:titleString].
  1941     workspace selectedWorkspace contents:initialText selected:selectedBoolean.
  1961     workspace selectedWorkspace contents:initialText selected:selectedBoolean.
  1942     ^ workspace
  1962     ^ workspace
  1943 
  1963 
  1944     "
  1964     "
  1945      WorkspaceApplication openWith:'Transcript showCR:''hello world'''
  1965      WorkspaceApplication 
       
  1966         openWith:'Transcript showCR:''hello world''' 
       
  1967         selected:false
       
  1968         title:'hello'
  1946     "
  1969     "
  1947 !
  1970 !
  1948 
  1971 
  1949 openWithGlobalsInspector
  1972 openWithGlobalsInspector
  1950     "open a workspaceApp with a single initial pane, showing global variables.
  1973     "open a workspaceApp with a single initial pane, showing global variables.
  4000 ! !
  4023 ! !
  4001 
  4024 
  4002 !WorkspaceApplication class methodsFor:'documentation'!
  4025 !WorkspaceApplication class methodsFor:'documentation'!
  4003 
  4026 
  4004 version
  4027 version
  4005     ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.238 2013-03-19 12:12:14 cg Exp $'
  4028     ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.239 2013-04-03 22:22:29 cg Exp $'
  4006 !
  4029 !
  4007 
  4030 
  4008 version_CVS
  4031 version_CVS
  4009     ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.238 2013-03-19 12:12:14 cg Exp $'
  4032     ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.239 2013-04-03 22:22:29 cg Exp $'
  4010 !
  4033 !
  4011 
  4034 
  4012 version_SVN
  4035 version_SVN
  4013     ^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §'
  4036     ^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §'
  4014 ! !
  4037 ! !