[DEVELOPMENT ENVIRONMENT]

* NEW: Add a button to copy the value of a watched expression to the 
  clipboard.


git-svn-id: svn://localhost/gambas/trunk@5279 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2012-11-02 00:31:53 +00:00
parent 5f455082e2
commit cdefab21a2
4 changed files with 127 additions and 113 deletions

View file

@ -442,7 +442,7 @@ msgstr ""
#: CWaitingAnimation.class:56 FColorChooser.form:60 FCommit.form:229
#: FConflict.class:185 FConnectionEditor.class:294 FCreateFile.form:437
#: FDebugInfo.form:238 FEditor.class:2338 FExportData.class:126
#: FDebugInfo.form:243 FEditor.class:2338 FExportData.class:126
#: FFieldChooser.form:138 FFontChooser.form:40 FForm.class:3085
#: FGotoLine.form:23 FHelpBrowser.form:61 FIconEditor.class:1376
#: FList.form:121 FMain.class:194 FMakeInstall.class:350 FMenu.form:377
@ -499,7 +499,7 @@ msgstr ""
msgid "Keep"
msgstr ""
#: ComponentItem.class:252 FDebugInfo.form:132
#: ComponentItem.class:252 FDebugInfo.form:137
msgid "Remove all"
msgstr ""
@ -642,7 +642,7 @@ msgstr ""
#: FCommit.form:109 FConflict.form:71 FConnectionEditor.form:387
#: FEditor.form:129 FForm.form:213 FIconEditor.form:87 FImageEditor.form:99
#: FOption.form:524 FOutput.form:41 FTextEditor.form:91
#: FOption.form:526 FOutput.form:41 FTextEditor.form:91
msgid "Undo"
msgstr ""
@ -731,7 +731,7 @@ msgstr ""
msgid "Sol&ve"
msgstr ""
#: FConflict.form:184 FDebugInfo.form:245 FEditor.form:311 FForm.form:399
#: FConflict.form:184 FDebugInfo.form:250 FEditor.form:311 FForm.form:399
#: FIconEditor.class:1389 FImportTable.form:218 FSystemInfo.form:81
#: FTextEditor.form:244 FTips.form:84
msgid "Close"
@ -890,7 +890,7 @@ msgstr ""
#: FConnectionEditor.class:34 FCreateFile.form:289 FDebugInfo.class:38
#: FMakeInstall.form:162 FNewConnection.form:60 FNewTable.form:33
#: FOption.form:1038
#: FOption.form:1040
msgid "Name"
msgstr ""
@ -1279,93 +1279,87 @@ msgstr ""
msgid "Symbol"
msgstr ""
#: FDebugInfo.form:45 FMain.form:1342
#: FDebugInfo.form:46 FMain.form:1342
msgid "Debug"
msgstr ""
#: FDebugInfo.form:56 FMain.form:1029 FOption.form:345 FSearch.class:92
#: FDebugInfo.form:57 FMain.form:1029 FOption.form:345 FSearch.class:92
msgid "Console"
msgstr ""
#: FDebugInfo.form:65
#: FDebugInfo.form:66
msgid "Local variables"
msgstr ""
#: FDebugInfo.form:83
#: FDebugInfo.form:84
msgid "Current object"
msgstr ""
#: FDebugInfo.form:101
#: FDebugInfo.form:102
msgid "Watch"
msgstr ""
#: FDebugInfo.form:114
#: FDebugInfo.form:115
msgid "Add expression"
msgstr ""
#: FDebugInfo.form:116 FMakeInstall.form:589 FOption.form:1001
#: FPropertyComponent.form:184
msgid "&Add"
#: FDebugInfo.form:121
msgid "Copy to clipboard"
msgstr ""
#: FDebugInfo.form:122
#: FDebugInfo.form:128
msgid "Remove current expression"
msgstr ""
#: FDebugInfo.form:124 FMain.form:785 FMakeInstall.form:595 FOption.form:938
#: FPropertyComponent.form:190 FPropertyProject.form:484
msgid "&Remove"
msgstr ""
#: FDebugInfo.form:130
#: FDebugInfo.form:135
msgid "Remove all expressions"
msgstr ""
#: FDebugInfo.form:138
#: FDebugInfo.form:143
msgid "Display ME"
msgstr ""
#: FDebugInfo.form:140
#: FDebugInfo.form:145
msgid "Display"
msgstr ""
#: FDebugInfo.form:164 MTheme.module:6
#: FDebugInfo.form:169 MTheme.module:6
msgid "Breakpoints"
msgstr ""
#: FDebugInfo.form:172
#: FDebugInfo.form:177
msgid "Remove current breakpoint"
msgstr ""
#: FDebugInfo.form:180
#: FDebugInfo.form:185
msgid "Remove all breakpoints"
msgstr ""
#: FDebugInfo.form:213
#: FDebugInfo.form:218
msgid "Tasks"
msgstr ""
#: FDebugInfo.form:227
#: FDebugInfo.form:232
msgid "Search list"
msgstr ""
#: FDebugInfo.form:236
#: FDebugInfo.form:241
msgid "Cancel current search"
msgstr ""
#: FDebugInfo.form:252
#: FDebugInfo.form:257
msgid "Search again"
msgstr ""
#: FDebugInfo.form:259
#: FDebugInfo.form:264
msgid "Show search window"
msgstr ""
#: FDebugInfo.form:300 FSearch.class:485 FTranslate.class:588
#: FDebugInfo.form:305 FSearch.class:485 FTranslate.class:588
msgid "Search string cannot be found."
msgstr ""
#: FDebugInfo.form:318
#: FDebugInfo.form:323
msgid "Stack backtrace"
msgstr ""
@ -1378,7 +1372,7 @@ msgid "Function"
msgstr ""
#: FDebugInfo.class:62 FIconEditor.form:200 FImportTable.class:64
#: FOption.form:587
#: FOption.form:589
msgid "Line"
msgstr ""
@ -2490,6 +2484,11 @@ msgstr ""
msgid "&Open"
msgstr ""
#: FMain.form:785 FMakeInstall.form:595 FOption.form:940
#: FPropertyComponent.form:190 FPropertyProject.form:484
msgid "&Remove"
msgstr ""
#: FMain.form:839
msgid "&?"
msgstr ""
@ -2746,7 +2745,7 @@ msgstr ""
msgid "Package name"
msgstr ""
#: FMakeInstall.form:143 FOption.form:1121
#: FMakeInstall.form:143 FOption.form:1123
msgid "Prefix package name with the vendor name"
msgstr ""
@ -2754,19 +2753,19 @@ msgstr ""
msgid "Maintainer information"
msgstr ""
#: FMakeInstall.form:178 FOption.form:1070
#: FMakeInstall.form:178 FOption.form:1072
msgid "E-mail"
msgstr ""
#: FMakeInstall.form:194 FOption.form:1054
#: FMakeInstall.form:194 FOption.form:1056
msgid "Vendor name"
msgstr ""
#: FMakeInstall.form:210 FOption.form:1105
#: FMakeInstall.form:210 FOption.form:1107
msgid "URL"
msgstr ""
#: FMakeInstall.form:247 FOption.form:1086
#: FMakeInstall.form:247 FOption.form:1088
msgid "License"
msgstr ""
@ -2825,6 +2824,10 @@ msgstr ""
msgid "Same dependencies for all targets"
msgstr ""
#: FMakeInstall.form:589 FOption.form:1003 FPropertyComponent.form:184
msgid "&Add"
msgstr ""
#: FMakeInstall.form:613
msgid "&Clear"
msgstr ""
@ -3229,199 +3232,199 @@ msgstr ""
msgid "Theme"
msgstr ""
#: FOption.form:483
#: FOption.form:484
msgid "Icon theme"
msgstr ""
#: FOption.form:498
#: FOption.form:500
msgid "Color theme"
msgstr ""
#: FOption.form:512
#: FOption.form:514
msgid "Import theme"
msgstr ""
#: FOption.form:518
#: FOption.form:520
msgid "Export theme"
msgstr ""
#: FOption.form:557
#: FOption.form:559
msgid "Default tab size"
msgstr ""
#: FOption.form:569 FPropertyProject.form:300
#: FOption.form:571 FPropertyProject.form:300
msgid "space(s)"
msgstr ""
#: FOption.form:581
#: FOption.form:583
msgid "Procedure separation"
msgstr ""
#: FOption.form:587 FProperty.class:748
#: FOption.form:589 FProperty.class:748
msgid "None"
msgstr ""
#: FOption.form:587
#: FOption.form:589
msgid "Blend"
msgstr ""
#: FOption.form:587 MTheme.module:6
#: FOption.form:589 MTheme.module:6
msgid "Background"
msgstr ""
#: FOption.form:599
#: FOption.form:601
msgid "Highlight current line"
msgstr ""
#: FOption.form:621
#: FOption.form:623
msgid "Highlight modified lines"
msgstr ""
#: FOption.form:643
#: FOption.form:645
msgid "Show line numbers"
msgstr ""
#: FOption.form:665
#: FOption.form:667
msgid "Show spaces at end of line with dots"
msgstr ""
#: FOption.form:687
#: FOption.form:689
msgid "Procedure folding"
msgstr ""
#: FOption.form:709
#: FOption.form:711
msgid "Fold procedures by default"
msgstr ""
#: FOption.form:731
#: FOption.form:733
msgid "Keywords in upper case"
msgstr ""
#: FOption.form:745
#: FOption.form:747
msgid "Code formatting"
msgstr ""
#: FOption.form:751
#: FOption.form:753
msgid "Automatic formatting"
msgstr ""
#: FOption.form:762
#: FOption.form:764
msgid "Control structure automatic completion"
msgstr ""
#: FOption.form:784
#: FOption.form:786
msgid "Local variable automatic declaration"
msgstr ""
#: FOption.form:801
#: FOption.form:803
msgid "Explicit formating"
msgstr ""
#: FOption.form:812
#: FOption.form:814
msgid "Format on load & save"
msgstr ""
#: FOption.form:834
#: FOption.form:836
msgid "Indent local variable declaration"
msgstr ""
#: FOption.form:856
#: FOption.form:858
msgid "Remove useless spaces at end of line"
msgstr ""
#: FOption.form:878
#: FOption.form:880
msgid "Keep successive void lines"
msgstr ""
#: FOption.form:892
#: FOption.form:894
msgid "Code snippets"
msgstr ""
#: FOption.form:903
#: FOption.form:905
msgid "Activate code snippets"
msgstr ""
#: FOption.form:924 FTranslate.form:299
#: FOption.form:926 FTranslate.form:299
msgid "&New..."
msgstr ""
#: FOption.form:931
#: FOption.form:933
msgid "&Edit..."
msgstr ""
#: FOption.form:946
#: FOption.form:948
msgid "Re&set"
msgstr ""
#: FOption.form:954
#: FOption.form:956
msgid "E&xport..."
msgstr ""
#: FOption.form:962
#: FOption.form:964
msgid "&Import..."
msgstr ""
#: FOption.form:968
#: FOption.form:970
msgid "Source archives"
msgstr ""
#: FOption.form:981
#: FOption.form:983
msgid "These files will be ignored when making source archives."
msgstr ""
#: FOption.form:1021
#: FOption.form:1023
msgid "Packaging"
msgstr ""
#: FOption.form:1027
#: FOption.form:1029
msgid "Default maintainer information"
msgstr ""
#: FOption.form:1131
#: FOption.form:1133
msgid "Applications"
msgstr ""
#: FOption.form:1148
#: FOption.form:1150
msgid "Browser"
msgstr ""
#: FOption.form:1165
#: FOption.form:1167
msgid "Terminal"
msgstr ""
#: FOption.form:1182
#: FOption.form:1184
msgid "Image editor"
msgstr ""
#: FOption.form:1199
#: FOption.form:1201
msgid "Quiet external commands"
msgstr ""
#: FOption.form:1213 MTheme.module:6
#: FOption.form:1215 MTheme.module:6
msgid "Help"
msgstr ""
#: FOption.form:1230
#: FOption.form:1232
msgid "Display property help"
msgstr ""
#: FOption.form:1252
#: FOption.form:1254
msgid "Show tooltips"
msgstr ""
#: FOption.form:1274
#: FOption.form:1276
msgid "Show documentation in popups"
msgstr ""
#: FOption.form:1296
#: FOption.form:1298
msgid "Always display optional messages"
msgstr ""
#: FOption.form:1318
#: FOption.form:1320
msgid "Clear documentation cache"
msgstr ""
#: FOption.form:1331
#: FOption.form:1333
msgid "Proxy configuration..."
msgstr ""

View file

@ -600,7 +600,7 @@ End
Public Sub ReadConfig()
Dim hButton As ToolButton
'Dim hButton As ToolButton
Dim hCtrl As Control
Settings.Read(panStack)
@ -619,11 +619,11 @@ Public Sub ReadConfig()
Project.SetSmallFont(hCtrl)
Next
For Each hButton In [btnClearBreak, btnKillAllWatch, btnKillWatch, btnRemoveBreak, btnShowMe, btnWatch]
hButton.AutoResize = False
hButton.W = 8
hButton.AutoResize = True
Next
' For Each hButton In [btnClearBreak, btnKillAllWatch, btnKillWatch, btnRemoveBreak, btnShowMe, btnWatch]
' hButton.AutoResize = False
' hButton.W = 8
' hButton.AutoResize = True
' Next
End
@ -1403,3 +1403,9 @@ Public Sub GotoFirstWarning()
gvwCompilation_Activate
End
Public Sub btnCopy_Click()
Try Clipboard.Copy(cvwWatch.Current[1])
End

View file

@ -1,12 +1,12 @@
# Gambas Form File 3.0
{ Form Form
MoveScaled(0,2,118,47)
MoveScaled(0,2,125,47)
Text = ("Debug")
Persistent = True
Arrangement = Arrange.Horizontal
{ tabDebug TabPanel
MoveScaled(3,3,89,41)
MoveScaled(3,3,94,41)
Expand = True
Arrangement = Arrange.Vertical
Border = False
@ -29,10 +29,10 @@
{ tbvLocal TableView
MoveScaled(3,12,63,18)
Expand = True
Border = False
Mode = Select.Single
Grid = False
Header = GridView.Horizontal
Border = False
NoKeyboard = True
}
Index = 2
@ -45,51 +45,54 @@
{ tbvObject TableView
MoveScaled(3,12,69,20)
Expand = True
Border = False
Mode = Select.Single
Grid = False
Header = GridView.Horizontal
Border = False
NoKeyboard = True
}
Index = 3
Text = ("Watch")
Picture = Picture["icon:/small/watch"]
{ panWatch HBox
MoveScaled(1,1,84,4)
MoveScaled(1,1,91,4)
{ cmbWatch ComboBox
MoveScaled(0,0,27,4)
Expand = True
}
{ btnWatch ToolButton
MoveScaled(27,0,7,4)
MoveScaled(27,0,4,4)
ToolTip = ("Add expression")
AutoResize = True
Text = ("&Add")
Picture = Picture["icon:/small/add"]
}
{ btnCopy ToolButton
MoveScaled(32,0,4,4)
ToolTip = ("Copy to clipboard")
AutoResize = True
Picture = Picture["icon:/small/copy"]
}
{ btnKillWatch ToolButton
MoveScaled(34,0,10,4)
MoveScaled(37,0,4,4)
ToolTip = ("Remove current expression")
AutoResize = True
Text = ("&Remove")
Picture = Picture["icon:/small/remove"]
}
{ btnKillAllWatch ToolButton
MoveScaled(44,0,12,4)
MoveScaled(44,0,14,4)
ToolTip = ("Remove all expressions")
AutoResize = True
Text = ("Remove all")
Picture = Picture["icon:/small/trash"]
}
{ btnShow ToolButton
MoveScaled(57,0,12,4)
MoveScaled(59,0,10,4)
ToolTip = ("Display ME")
AutoResize = True
Text = ("Display")
Picture = Picture["icon:/small/watch"]
}
{ btnShowMe ToolButton
MoveScaled(70,0,12,4)
MoveScaled(71,0,12,4)
ToolTip = ("Display ME")
AutoResize = True
Text = ("Display ME")
@ -144,9 +147,9 @@
{ gvwCompilation GridView
MoveScaled(28,9,41,23)
Expand = True
Border = False
Mode = Select.Single
Header = GridView.Horizontal
Border = False
}
Index = 6
Text = ("Tasks")
@ -154,9 +157,9 @@
{ gvwTask GridView
MoveScaled(18,8,52,22)
Expand = True
Border = False
Mode = Select.Single
Header = GridView.Horizontal
Border = False
}
{ timTask #Timer
#MoveScaled(73,17)
@ -213,10 +216,10 @@
{ gvwFind GridView
MoveScaled(23,4,47,16)
Visible = False
Border = False
Mode = Select.Single
Header = GridView.Horizontal
ScrollBar = Scroll.Vertical
Border = False
Resizable = False
}
{ lblNotFound TextLabel
@ -230,7 +233,7 @@
Index = 0
}
{ panStack SidePanel
MoveScaled(93,3,24,43)
MoveScaled(99,3,24,43)
Arrangement = Arrange.Fill
Orientation = Align.Right
Separator = True

View file

@ -145,12 +145,12 @@
Text = ("Sort properties")
}
{ cmbSortProperty ComboBox
MoveScaled(43,0,15,4)
MoveScaled(43,0,10,4)
ReadOnly = True
List = [("No"), ("Yes")]
}
{ Panel2 Panel
MoveScaled(59,0,7,4)
MoveScaled(54,0,12,4)
}
}
{ HBox21 HBox
@ -233,6 +233,7 @@
{ HBox11 HBox
MoveScaled(1,3,65,4)
Spacing = True
Indent = True
{ Label12 Label
MoveScaled(0,0,18,4)
Expand = True
@ -245,6 +246,7 @@
}
{ HBox1 HBox
MoveScaled(1,9,65,4)
Indent = True
{ Label54 Label
MoveScaled(0,0,18,4)
Expand = True