From 3a345f5cb3fd9cfee42fd67b19b2daa1a19e16bc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marius=20D=C3=B6rbandt?= Date: Tue, 5 Nov 2024 11:33:39 +0100 Subject: [PATCH] Add borders to ScrollPanes --- src/ArcTheme/ArcDarkTheme.class.st | 6 +++--- src/ArcTheme/ArcLightTheme.class.st | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/ArcTheme/ArcDarkTheme.class.st b/src/ArcTheme/ArcDarkTheme.class.st index aa29186..7990050 100644 --- a/src/ArcTheme/ArcDarkTheme.class.st +++ b/src/ArcTheme/ArcDarkTheme.class.st @@ -228,7 +228,7 @@ ArcDarkTheme class >> addMenusAndDockingBars: theme [ { #category : #'instance creation', - #'squeak_changestamp' : 'tobe 5/15/2024 15:30' + #'squeak_changestamp' : 'mad 10/24/2024 14:04' } ArcDarkTheme class >> addScrollables: theme [ "self create apply" @@ -252,8 +252,8 @@ ArcDarkTheme class >> addScrollables: theme [ "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme - set: #borderColor for: #ScrollPane to: (Color transparent); - set: #borderWidth for: #ScrollPane to: 0; + set: #borderColorModifier for: #ScrollPane to: [ [:c | c adjustBrightness: 0.07] ]; + set: #borderWidth for: #ScrollPane to: 1; set: #borderStyle for: #ScrollPane to: BorderStyle simple; set: #color for: #ScrollPane to: (Color transparent). diff --git a/src/ArcTheme/ArcLightTheme.class.st b/src/ArcTheme/ArcLightTheme.class.st index 6416e1f..55d16aa 100644 --- a/src/ArcTheme/ArcLightTheme.class.st +++ b/src/ArcTheme/ArcLightTheme.class.st @@ -228,7 +228,7 @@ ArcLightTheme class >> addMenusAndDockingBars: theme [ { #category : #'instance creation', - #'squeak_changestamp' : 'tobe 5/15/2024 15:31' + #'squeak_changestamp' : 'mad 10/24/2024 13:52' } ArcLightTheme class >> addScrollables: theme [ "self create apply" @@ -252,8 +252,8 @@ ArcLightTheme class >> addScrollables: theme [ "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme - set: #borderColor for: #ScrollPane to: (Color gray: 0.6); - set: #borderWidth for: #ScrollPane to: 0; + set: #borderColorModifier for: #ScrollPane to: [ [:c | c adjustBrightness: -0.07] ]; + set: #borderWidth for: #ScrollPane to: 1; set: #borderStyle for: #ScrollPane to: BorderStyle simple; set: #color for: #ScrollPane to: Color transparent.