--- a/NoteBookView.st	Wed Apr 18 10:12:48 2018 +0200
+++ b/NoteBookView.st	Mon Apr 23 14:56:06 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -29,7 +31,7 @@
 		showingEnteredRemoveTabButton lastUserSelection minimumTabWidth
 		addTabAction addTabIcon addTabEnteredIcon addTabDisabledIcon
 		showingEnteredAddTabButton canvasLevel
-		showDestroyTabButtonOnSingleTab'
+		showDestroyTabButtonOnSingleTab suppressAccessCharacters'
 	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor
 		DefaultActiveForegroundColor DefaultActiveBackgroundColor
 		DefaultShadowColor DefaultHalfShadowColor DefaultLightColor
@@ -487,6 +489,24 @@
     ^ numberOfLines ? 1.
 !
 
+suppressAccessCharacters
+    "sr: bugfix: https://expeccoalm.exept.de/D237051
+     do not convert labels like 'Drag&Drop' into 'DragDrop' 2nd D with underline,
+     and do not offer the &D as access character"
+    ^ suppressAccessCharacters ? false
+
+    "Modified (comment): / 23-04-2018 / 14:54:50 / sr"
+!
+
+suppressAccessCharacters:something
+    "sr: bugfix: https://expeccoalm.exept.de/D237051
+     do not convert labels like 'Drag&Drop' into 'DragDrop' 2nd D with underline,
+     and do not offer the &D as access character"
+    suppressAccessCharacters := something.
+
+    "Modified (comment): / 23-04-2018 / 14:54:47 / sr"
+!
+
 useIndex
     "use index instead of tab name
     "
@@ -4002,6 +4022,10 @@
     pos    := 0.
 
     size == 0 ifTrue:[ ^ string ].
+    "sr: bugfix: https://expeccoalm.exept.de/D237051
+     do not convert labels like 'Drag&Drop' into 'DragDrop' 2nd D with underline,
+     and do not offer the &D as access character"
+    aNoteBook suppressAccessCharacters ifTrue:[ ^ string ].
 
     (tabItem notNil and:[(pos := tabItem accessCharacterPosition) ~~ 0]) ifTrue:[
         pos > size ifTrue:[pos := 0]
@@ -4032,6 +4056,7 @@
     ^ string
 
     "Modified: / 22-03-2011 / 13:07:56 / cg"
+    "Modified (comment): / 23-04-2018 / 14:55:26 / sr"
 ! !
 
 !NoteBookView::Tab methodsFor:'testing'!