FileBrowserV2.st
changeset 10787 637d7e03d602
parent 10770 59def6f07315
child 10790 c70abb8678a8
equal deleted inserted replaced
10786:2499584c6260 10787:637d7e03d602
  1938     aWidget backgroundColor:(MenuPanel defaultBackgroundColor).
  1938     aWidget backgroundColor:(MenuPanel defaultBackgroundColor).
  1939 !
  1939 !
  1940 
  1940 
  1941 postBuildWith:aBuilder
  1941 postBuildWith:aBuilder
  1942 
  1942 
       
  1943     | prefs |
       
  1944 
  1943     super postBuildWith:aBuilder.
  1945     super postBuildWith:aBuilder.
  1944     self updateToolVisibility.
  1946     self updateToolVisibility.
       
  1947 
       
  1948     "Load user settings"
       
  1949     prefs := UserPreferences current.
       
  1950     AbstractFileBrowser userPreferencesAspectList keysAndValuesDo:[:aspect :default|
       
  1951         (self perform: aspect) value: (prefs perform: aspect ifNotUnderstood:[default])
       
  1952     ]
       
  1953 
       
  1954     "Modified: / 08-10-2011 / 13:50:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1945 !
  1955 !
  1946 
  1956 
  1947 postOpenWith:aBuilder
  1957 postOpenWith:aBuilder
  1948 
  1958 
  1949     super postOpenWith:aBuilder.
  1959     super postOpenWith:aBuilder.
  1961 ! !
  1971 ! !
  1962 
  1972 
  1963 !FileBrowserV2 class methodsFor:'documentation'!
  1973 !FileBrowserV2 class methodsFor:'documentation'!
  1964 
  1974 
  1965 version_CVS
  1975 version_CVS
  1966     ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.193 2011-10-06 12:57:31 cg Exp $'
  1976     ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.194 2011-10-08 12:52:41 vrany Exp $'
  1967 ! !
  1977 ! !
  1968 
  1978 
  1969 FileBrowserV2 initialize!
  1979 FileBrowserV2 initialize!