Menu editor: Do not draw the picture of top-level menus. Snippets: Add newline...

Menu editor: Do not draw the picture of top-level menus. Snippets: Add newline at the end of snippets where it makes sense.

[DEVELOPMENT ENVIRONMENT]
* BUG: Menu editor: Do not draw the picture of top-level menus.
* BUG: Snippets: Add newline at the end of snippets where it makes sense.

app/src/gambas3/.src/Editor/Form/FMenu.class

@@ -1111,7 +1111,7 @@ Public Sub gvwMenu_Draw(X As Integer, Y As Integer, Width As Integer, Height As
     X += D
     Width -= D
   
-    If .Picture Then
+    If .Picture And If .Level Then
       Try hPict = $hFamily.GetPicture(.Picture)
       If hPict Then hPict = hPict.Image.Stretch($iIconSize, $iIconSize).Picture
       If hPict Then Paint.DrawPicture(hPict, X - $iIconSize - Desktop.Scale / 2, Y + (Height - $iIconSize) / 2)

app/src/gambas3/snippets

 [Snippets]
 Count=94
-Snippet[1]="fo\nFor ${1:Var} = ${2:Start} To ${3:End}\n\t${}\nNext"
-Snippet[2]="fe\nFor Each ${1:Var} In ${2:Collection}\n\t${}\nNext"
-Snippet[3]="if\nIf ${1:Test} Then\n\t${}\nEndif"
-Snippet[4]="ie\nIf ${1:Test} Then\n\t${2}\nElse\n\t${3}\nEndif"
-Snippet[5]="ps\nPublic Sub ${1:Name}(${2:Arguments})\n\n\t${}\n\nEnd"
-Snippet[6]="pf\nPublic Function ${1:Name}(${2:Arguments}) As ${3:ReturnType}\n\n\t${}\n\nEnd"
-Snippet[7]="sps\nStatic Public Sub ${1:Name}(${2:Arguments})\n\n\t${}\n\nEnd"
-Snippet[8]="spf\nStatic Public Function ${1:Name}(${2:Arguments}) As ${3:ReturnType}\n\n\t${}\n\nEnd"
-Snippet[9]="s\nPrivate Sub ${1:Name}(${2:Arguments})\n\n\t${}\n\nEnd"
-Snippet[10]="f\nPrivate Function ${1:Name}(${2:Arguments}) As ${3:ReturnType}\n\n\t${}\n\nEnd"
-Snippet[11]="ss\nStatic Private Sub ${1:Name}(${2:Arguments})\n\n\t${}\n\nEnd"
-Snippet[12]="sf\nStatic Private Function ${1:Name}(${2:Arguments}) As ${3:ReturnType}\n\n\t${}\n\nEnd"
+Snippet[1]="fo\nFor ${1:Var} = ${2:Start} To ${3:End}\n\t${}\nNext\n"
+Snippet[2]="fe\nFor Each ${1:Var} In ${2:Collection}\n\t${}\nNext\n"
+Snippet[3]="if\nIf ${1:Test} Then\n\t${}\nEndif\n"
+Snippet[4]="ie\nIf ${1:Test} Then\n\t${2}\nElse\n\t${3}\nEndif\n"
+Snippet[5]="ps\nPublic Sub ${1:Name}(${2:Arguments})\n\n\t${}\n\nEnd\n"
+Snippet[6]="pf\nPublic Function ${1:Name}(${2:Arguments}) As ${3:ReturnType}\n\n\t${}\n\nEnd\n"
+Snippet[7]="sps\nStatic Public Sub ${1:Name}(${2:Arguments})\n\n\t${}\n\nEnd\n"
+Snippet[8]="spf\nStatic Public Function ${1:Name}(${2:Arguments}) As ${3:ReturnType}\n\n\t${}\n\nEnd\n"
+Snippet[9]="s\nPrivate Sub ${1:Name}(${2:Arguments})\n\n\t${}\n\nEnd\n"
+Snippet[10]="f\nPrivate Function ${1:Name}(${2:Arguments}) As ${3:ReturnType}\n\n\t${}\n\nEnd\n"
+Snippet[11]="ss\nStatic Private Sub ${1:Name}(${2:Arguments})\n\n\t${}\n\nEnd\n"
+Snippet[12]="sf\nStatic Private Function ${1:Name}(${2:Arguments}) As ${3:ReturnType}\n\n\t${}\n\nEnd\n"
 Snippet[13]="d\nDim ${1:Var} As ${2:Type}"
 Snippet[14]="v\nPrivate $${1:Var} As ${2:Type}"
 Snippet[15]="pv\nPublic ${1:Var} As ${2:Type}"
@@ -23,17 +23,17 @@ Snippet[20]="pr\nProperty ${1:Name} As ${2:Type}"
 Snippet[21]="prr\nProperty Read ${1:Name} As ${2:Type}"
 Snippet[22]="spp\nStatic Property ${1:Name} As ${2:Type}"
 Snippet[23]="sppr\nStatic Property Read ${1:Name} As ${2:Type}"
-Snippet[24]="wh\nWhile ${1:Test}\n\t${}\nWend"
-Snippet[25]="re\nRepeat\n\t${}\nUntil ${1:Test}"
-Snippet[26]="do\nDo\n\t${}\nLoop"
-Snippet[27]="w\nWith ${1:Expression}\n\t${}\nEnd With"
-Snippet[28]="op\n${1:File} = Open ${2:Path} For ${3:Mode}"
-Snippet[29]="se\nSelect ${1:Expression}\n\tCase ${2:Compare}\n\t\t${3}\n\tCase ${4:Compare}\n\t\t${5}\n\tDefault\n\t\t${6}\nEnd Select"
-Snippet[30]="_n\nPublic Sub _new(${1:Arguments})\n\n\t${}\n\nEnd"
-Snippet[31]="_g\nPublic Function _get(${1:Indexes}) As ${2:Type}\n\n\t${}\n\nEnd"
-Snippet[32]="_p\nPublic Sub _put(${1:Value} As ${2:Type}, ${3:Indexes})\n\n\t${}\n\nEnd"
-Snippet[33]="_c\nPublic Function _compare(${1:Other} As ${2:Type}) As Integer\n\n\t${}\n\nEnd"
-Snippet[34]="ev\nEvent ${1:Name}"
+Snippet[24]="wh\nWhile ${1:Test}\n\t${}\nWend\n"
+Snippet[25]="re\nRepeat\n\t${}\nUntil ${1:Test}\n"
+Snippet[26]="do\nDo\n\t${}\nLoop\n"
+Snippet[27]="w\nWith ${1:Expression}\n\t${}\nEnd With\n"
+Snippet[28]="op\n${1:File} = Open ${2:Path} For ${3:Mode}\n"
+Snippet[29]="se\nSelect ${1:Expression}\n\tCase ${2:Compare}\n\t\t${3}\n\tCase ${4:Compare}\n\t\t${5}\n\tDefault\n\t\t${6}\nEnd Select\n"
+Snippet[30]="_n\nPublic Sub _new(${1:Arguments})\n\n\t${}\n\nEnd\n"
+Snippet[31]="_g\nPublic Function _get(${1:Indexes}) As ${2:Type}\n\n\t${}\n\nEnd\n"
+Snippet[32]="_p\nPublic Sub _put(${1:Value} As ${2:Type}, ${3:Indexes})\n\n\t${}\n\nEnd\n"
+Snippet[33]="_c\nPublic Function _compare(${1:Other} As ${2:Type}) As Integer\n\n\t${}\n\nEnd\n"
+Snippet[34]="ev\nEvent ${1:Name}\n"
 Snippet[35]="gpl\n'\n' ${1:$TITLE}\n' ${2:$DESCRIPTION}\n' \n' Copyright (C) ${3:$AUTHORS}\n'\n' This program is free software; you can redistribute it and/or modify\n' it under the terms of the GNU General Public License as published by\n' the Free Software Foundation; either version 2 of the License, or\n' (at your option) any later version.\n'\n' This program is distributed in the hope that it will be useful,\n' but WITHOUT ANY WARRANTY; without even the implied warranty of\n' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n' GNU General Public License for more details.\n'\n' You should have received a copy of the GNU General Public License\n' along with this program; if not, write to the Free Software\n' Foundation, Inc., 51 Franklin St, Fifth Floor, \n' Boston, MA  02110-1301  USA\n'\n"
 Snippet[36]="main\nPublic Sub Main()\n\n\t${}\n\nEnd\n"
 Snippet[37]="r\nReturn "