#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Wed, 22 May 2019 18:20:02 +0200
changeset 18770 307cc2ff113f
parent 18769 e7b1c79981bc
child 18771 2e222f1d8bd6
#UI_ENHANCEMENT by cg class: AbstractFileBrowser class changed: #maxFileSizeShownWithoutAsking
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Fri May 17 17:39:38 2019 +0200
+++ b/AbstractFileBrowser.st	Wed May 22 18:20:02 2019 +0200
@@ -154,10 +154,15 @@
 maxFileSizeShownWithoutAsking
     "the max. filesize which is loaded without asking if only the first
      part should be shown"
-     
-    ^ MaxFileSizeShownWithoutAsking ? (1024*1024)
+
+    MaxFileSizeShownWithoutAsking notNil ifTrue:[^ MaxFileSizeShownWithoutAsking]. 
+    ExternalAddress pointerSize == 8 ifTrue:[
+        ^ (32*1024*1024)
+    ].
+    ^ (4*1024*1024)
 
     "Created: / 19-11-2017 / 14:48:19 / cg"
+    "Modified: / 22-05-2019 / 18:19:24 / Claus Gittinger"
 !
 
 maxFileSizeShownWithoutAsking:anIntegerOrNilForDefault